Sub-file programming - loading a page at a time

This is the DDS for the physical file that holds the data

A          R CUSREC                    TEXT('CUSTOMER')         
A            CUSNUM         6S 0       TEXT('CUST#')            
A            CUSNAM        30          TEXT('CUST NAME')        
A            CUSPHN        10          TEXT('CUST PHONE#')      
A            CUSSLS         4S 0       TEXT('CUSTS SALESPERSON')
A          K CUSNUM                                             



This is the DDS for the logical file that reads data by Salesman#

A          R CUSREC                    PFILE(CUS)    
A          K CUSSLS                                  
A          K CUSNAM