SETUP FORM !!list size 60 10
list .Listm Anchor all columns Multiple width 50 heigh 15
!Headings = Array()
!Headings.append('MONORAIL')
!Headings.append('CONNECT')
!Headings.append('CHECK')
!Headings.append('USER')
!Headings.append('DATE')
!this.Listm.SetHeadings(!Headings)
/1HN-LP--0
var !member mem count
do !member from 1 to $!member
$!member
add ce
first member
var !connmit desc
var !sollpos func
if !connmit eq 'unset' then
var !check ' '
else
$!connmit
---add ce
var !connpos pos wrt/*
if !sollpos eq !connpos then
var !check 'OK'
else
var !check 'DISPLACED!'
autocol off add ce col2 autocol on
endif
sam
endif
var !namemono[!member] name + ' ' +desc + ' ' +!check +' ' +usermod + ' ' +lastmod
owner
end
enddo
!this.Listm.DTEXT = !namemono
SHOW !!list AT XR0.595 YR0.245
SETUP FORM !!list size 60 10
list .Listm Anchor all columns Multiple width 50 heigh 15
!Headings = Array()
!Headings.append('MONORAIL')
!Headings.append('CONNECT')
!Headings.append('CHECK')
!Headings.append('USER')
!Headings.append('DATE')
!this.Listm.SetHeadings(!Headings)
/1HN-LP--0
var !member mem count
do !member from 1 to $!member
$!member
add ce
first member
var !connmit desc
var !sollpos func
if !connmit eq 'unset' then
var !check ' '
else
$!connmit
---add ce
var !connpos pos wrt/*
if !sollpos eq !connpos then
var !check 'OK'
else
var !check 'DISPLACED!'
autocol off add ce col2 autocol on
endif
sam
endif
var !namemono[!member] name + ' ' +desc + ' ' +!check +' ' +usermod + ' ' +lastmod
owner
end
enddo
!this.Listm.DTEXT = !namemono
SHOW !!list AT XR0.595 YR0.245