I think this example may help you
begin-heading 4
print $current-date (1,1) Edit 'Mon-DD-YYYY'
print 'EMPLID' (3,1)
print 'COUNTRY' (,10)
print 'STATE' (,17)
print 'CITY' (,26)
print '-' (4,1,9) fill
print '-' (4,11,80) fill
end-heading
begin-program
begin-select
EMPLID (,1)
COUNTRY (,10) ON-BREAK LEVEL=1 after=a before=aa
STATE (,17) ON-BREAK LEVEL=2 after=b before=bb
CITY (,26) ON-BREAK LEVEL=3 after=c before=cc
next-listing skiplines=1 need=4
from PS_ADDRESSES
end-select
end-program
begin-procedure a
print 'AFTER Procedure for COUNTRY LEVEL 1' (+1,40)
end-procedure
begin-procedure b
print 'AFTER Procedure STATE LEVEL 2' (+1,40)
end-procedure
begin-procedure c
print 'AFTER Procedure CITY LEVEL 3' (+1,40)
end-procedure
begin-procedure aa
print 'BEFORE Procedure COUNTRY LEVEL 1' (+1,40)
end-procedure
begin-procedure bb
print 'BEFORE Procedure STATE LEVEL 2' (+1,40)
end-procedure
begin-procedure cc
print 'BEFORE Procedure CITY LEVEL 3' (+1,40)
end-procedure
begin-footing 1
! print "Page n of m" in the footing
page-number (1,1) 'Page '
last-page () ' of '
end-footing
|
