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