RPGLE - Example loading subfile one page at a time

RPGLE  - 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*===============================================