Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p109.rpg
There is 1 other file named p109.rpg in the archive. Click here to see a list.
01010H                                                                    P109  
01020FSMCARDS IP  F00800080            DISK   DAT109                      P109  
01030F                                              KASCII                P109  
01040FSALERPT O   F01320132     OF     PRINTER                            P109  
02010ISMCARDS AA  01                                                      P109  
02020I                                     000100040SMNO                  P109  
02030I                                     00050024 NAME                  P109  
02040I                                     003200382CURSLS                P109  
03010C   01      CURSLS    COMP 1000.00              202121               P109  
03020C   01 20   CURSLS    MULT .05       COMMIS0062H                     P109  
03030C   01 21   CURSLS    MULT .03       COMMIS    H                     P109  
03040C   01      CURSLS    ADD  TOTCUR    TOTCUR0072                      P109  
03050C   01      COMMIS    ADD  TOTCOM    TOTCOM0072                      P109  
04010OSALERPT H  201   1P                                                 P109  
04020O       OR        OF                                                 P109  
04030O                         UDATE Y 0008                               P109  
04040O                                 0030 'COMMISSION'                  P109  
04050O                                 0037 'REPORT'                      P109  
04060O                                 0055 ''PAGE'                       P109  
04070O                         PAGE    0060                               P109  
04080O        H  1     1P                                                 P109  
04090O       OR        OF                                                 P109  
04100O                                 0003 'S/M'                         P109  
04110O                                 0021 'SALESMAN'                    P109  
04120O                                 0039 'CURRENT'                     P109  
04130O        H  2     1P                                                 P109  
04140O       OR        OF                                                 P109  
04150O                                 0003 'NO.'                         P109  
04160O                                 0019 'NAME'                        P109  
04170O                                 0038 'SALES'                       P109  
04180O                                 0048 'PCT.'                        P109  
04190O                                 0060 'COMMISSION'                  P109  
05010O        D  1     01                                                 P109  
05020O                         SMNO  Z 0004                               P109  
05030O                         NAME    0027                               P109  
05040O                         CURSLS1 0040                               P109  
05050O                 20              0047 '5%'                          P109  
05060O                 21              0047 '3%'                          P109  
05070O                         COMMIS1 0059                               P109  
05080O        T 2      LR                                                 P109  
05090O                                 0029 'FINAL TOTALS'                P109  
05100O                         TOTCUR1 0040 '$'                           P109  
05110O                         TOTCOM1 0059 '$'                           P109