Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/array1.rpg
There is 1 other file named array1.rpg in the archive. Click here to see a list.
01010H                                                                    ARRAY1
01020FJOBARRAYIT  F  80  80           EDISK   A1                          ARRAY1
01030F                                              KASCII                ARRAY1
01040FEMPLOYEEIP  F  80  80            DISK   ARRAY1                      ARRAY1
01050F                                              KASCII                ARRAY1
01060FEMPLIST O   F 132 132     OF     PRINTER                            ARRAY1
02010E    JOBARRAY        JOBCOD  1  10  2   DESC   10                    ARRAY1
03010IEMPLOYEEAA  01                                                      ARRAY1
03020I                                        1   3 EMPNUM                ARRAY1
03030I                                        4  20 NAME                  ARRAY1
03040I                                       21  22 TYPE                  ARRAY1
04010C                     Z-ADD1         I       50                      ARRAY1
04020C           TYPE      LOKUPJOBCOD,I                 25               ARRAY1
05010OEMPLIST H  2 1   1P                                                 ARRAY1
05020O       OR        OF                                                 ARRAY1
05030O                         UDATE Y   20                               ARRAY1
05040O                                   45 'EMPLOYEE LISTING'            ARRAY1
05050O                                   57 'PAGE'                        ARRAY1
05060O                         PAGE      62                               ARRAY1
05070O        H  2     1P                                                 ARRAY1
05080O       OR        OF                                                 ARRAY1
05090O                                   19 'EMP. NO.'                    ARRAY1
05100O                                   32 'NAME'                        ARRAY1
05110O                                   55 'JOB  TYPE'                   ARRAY1
05120O        D  1     01                                                 ARRAY1
05130O                         EMPNUM    17                               ARRAY1
05140O                         NAME      39                               ARRAY1
05150O                 25      DESC,I    56                               ARRAY1
05160O                N25                62 '** INVALID JOB CODE **'      ARRAY1