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