01010H                                                                    P153  
01020FCUSTCDS IP  F    0080            DISK   DAT144                      P153  
01025F                                              KASCII                P153  
01030FREGISTR O   F    0132            PRINTEROUTPUT                      P153  
02010ICUSTCDS AA  01                                                      P153  
02020I                                     000200060CUSTNOL1              P153  
02030I                                     00070026 NAME                  P153  
02040I                                     004100462INVAMT                P153  
03010C   01      INVAMT    ADD  CUSTOT    CUSTOT0082                      P153  
03020CL1         CUSTOT    ADD  FINTOT    FINTOT0082                      P153  
04010OREGISTR H  201   1P                                                 P153  
04020O       OR        OF                                                 P153  
04030O                         UDATE Y 0009                               P153  
04040O                                 0030 'CUSTOMER ACCOUNTS'           P153  
04050O                                 0044 'TOTAL LISTING'               P153  
04060O                                 0051 'PAGE'                        P153  
04070O                         PAGE    0056                               P153  
04080O        H  1     1P                                                 P153  
04090O       OR        1P                                                 P153  
04100O                                 0009 'CUSTOMER'                    P153  
04110O                                 0051 'TOTAL'                       P153  
04120O        H  2     1P                                                 P153  
04130O                                 0008 'NUMBER'                      P153  
04140O                                 0034 'CUSTOMER NAME'               P153  
04150O                                 0055 'SALES AMOUNT'                P153  
04160O        T  1     L1                                                 P153  
04170O                         CUSTNOZ 0007                               P153  
04180O                         NAME    0035                               P153  
04190O                         CUSTOT1B0054                               P153  
04200O        T 2      LR                                                 P153  
04210O                                 0042 'FINAL TOTAL'                 P153  
04220O                         FINTOT1 0054 '$'                           P153