Procedure_Section Formats are: Procedure_Section Section_Name {AS Image_Name} {Lines} Note: these commands are identical: 1. Procedure_Section OnBody as VndrBody 2. Procedure_Section OnBody as VndrBody Body.LINES 3. Procedure onBody Autopage VndrBody Integer OutPut_Image Move VndrBody.N to OutPut_Image
#IF !0=1
#IFDEF !1.LINES
Procedure_Section !1 AS !1 !1.Lines
#ELSE
Procedure !1
#ENDIF
#ELSE
#IF !0=2
Procedure_Section !1 AS !1 !2
#ELSE
#IF !0=3
#CHECK !3.N _R#LGVU
Procedure_Section !1 !2 !3 !3.Lines
#ELSE
#CHECK !2 "AS"
#IFSAME !1 ONPAGEFOOTER ONPAGEBOTTOM ONPAGETOTAL ONREPORTFOOTER // if a footer...handle w/ special macro
FOOTER$SETS !1 !4
#ENDIF
//
Procedure !1 // Set the procedure Name
Integer OutPut_Lines
Move !4 to OutPut_Lines
//
#IFDEF !3.N
Autopage !3
Integer OutPut_Image
Move !3.N to OutPut_Image
#ENDIF
#ENDIF
#ENDIF
#ENDIF
Procedure_Section Formats are: Procedure_Section Section_Name {AS Image_Name} {Lines} Note: these commands are identical: 1. Procedure_Section Body as VndrBody 2. Procedure_Section Body as VndrBody Body.LINES 3. Procedure Body Autopage VndrBody Integer OutPut_Image Move VndrBody.N to OutPut_Image
#IF !0=1
#IFDEF !1.LINES
Procedure_Section !1 AS !1 !1.Lines
#ELSE
Procedure !1
#ENDIF
#ELSE
#IF !0=2
Procedure_Section !1 AS !1 !2
#ELSE
#IF !0=3
#CHECK !3.N _R#LGVU
Procedure_Section !1 !2 !3 !3.Lines
#ELSE
#CHECK !2 "AS"
#IFSAME !1 PAGE_FOOTER PAGE_BOTTOM PAGE_TOTAL REPORT_FOOTER // if a footer...handle w/ special macro
FOOTER$SETS !1 !4
#ENDIF
//
Procedure !1 // Set the procedure Name
Integer OutPut_Lines
Move !4 to OutPut_Lines
//
#IFDEF !3.N
Autopage !3
Integer OutPut_Image
Move !3.N to OutPut_Image
#ENDIF
#ENDIF
#ENDIF
#ENDIF