Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p458.rpg
There is 1 other file named p458.rpg in the archive. Click here to see a list.
01010H                                                                    P458  
01130FCARDUPD IPE F    0080            DISK   DAT458                      P458  
01135F                                              KASCII                P458  
01140FMASTER  UC  F06600033R06AI  0001 DISK   ISFILE             A        P458  
01150FERRORPT O   F01320132     OF     PRINTER                            P458  
02080ICARDUPD AA  010080 CA                                               P458  
02090I       OR   020080 CU                                               P458  
02100I                                     00010006 CUSTNO                P458  
02110I                                     00070026 NAME                  P458  
02120I                                     002700332SALES                 P458  
02190IMASTER  AB  03                                                      P458  
02200I                                     00010006 CUSNO                 P458  
02210I                                     00070026 MNAME                 P458  
02220I                                     002700332MSALES                P458  
03160C           CUSTNO    CHAINMASTER               20                   P458  
03170C   02 03   SALES     ADD  MSALES    MSALES                          P458  
04080OERRORPT H  201   1P                                                 P458  
04090O       OR        OF                                                 P458  
04100O                                 0008 'CUST NO'                     P458  
04110O                                 0020 'ERROR'                       P458  
04190O        D  1     02 20                                              P458  
04200O       OR        01N20                                              P458  
04210O                         CUSTNO  0007                               P458  
04220O                 02 20           0033 'NO MASTER RECORD-UPDATE '    P458  
04230O                 02 20           0046 'NOT PERFORMED'               P458  
04240O                 01N20           0033 'DUPLICATE RECORD-NO ADDI'    P458  
04250O                 01N20           0047 'TION PERFORMED'              P458  
05090OMASTER  DADD     01 20                                              P458  
05100O                         CUSTNO  0006                               P458  
05110O                         NAME    0026                               P458  
05120O                         SALES   0033                               P458  
05200O        D        02 03                                              P458  
05210O                         CUSNO   0006                               P458  
05220O                         MNAME   0026                               P458  
05230O                         MSALES  0033                               P458