Example loading
subfile one page at a time
|
C*===============================================
C* $LoadSFL - Load the Main
Menu.
C* load all errors so can total
C*===============================================
CSR $LoadSFL Begsr
C*
C If SavRrn > *Zeros
C Z-add SavRrn RRN1
C Z-add SavRrn SCRRN
C Endif
C*
C*
Subfile page is set to 12. show 12 records to user at a time
C*
This load function sequences the data by customer # or Name
C*
Depending on what the value of ReadBy is.
C*
C Do 12
C Select
C When ReadBy = 'C'
C Read C40NAM1 89
C When ReadBy = 'N'
C Read C40NAM2 89
C Endsl
C*
C If
Not*In89
C
Movel(p) C4NUM S1CUSTOMER
C
Movel(p) C4NAME S1CNAME
C Add 1. RRN1
C Add 1. SCRRN
C Write SUB01
C Endif
C*
C Enddo
C*
C Z-add SCRRN SavRrn
C*
C* If no records in subfile
then do not disply the subfile.
C*
C If SavRrn = *Zeros And
*In89
C Eval *In50 = *Off
C Endif
C
C*
C Endsr
C*===============================================
|
Subscribe to:
Post Comments
(
Atom
)
No comments