freakydipu

 Profile Answers by freakydipu 

• Dec 26th, 2007

 

By using both after and before option in on-break.

Ex. on-break  print = none before = procedure 1(arg1, arg2,....) after = precedure2

shyampeoplesoft

 Profile Answers by shyampeoplesoft 

• Sep 23rd, 2009

 

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