5722WDS V5R1M0 010525 LISTADO FUENTE SEU 12/07/04 16:00:56 PÁG. 1 ARCHIVO FUENTE . . . . . QGPL/QRPGSRC MIEMBRO . . . . . . . . . FILEREP SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 100 H Y 07/08/98 200 FFIL001PFIF E K DISK 07/08/98 300 FFIL002PFIF E K DISK 07/08/98 400 FFIL003PFIF E K DISK 07/08/98 500 FREP60 O F 132 OF PRINTER 10/10/02 600 F************************************************************* 07/08/98 700 E TIT 1 15 66 07/08/98 800 E************************************************************* 07/08/98 900 C TIME HORA 60 07/08/98 1000 C MOVEL'RPGREP' PGM 10 07/08/98 1100 C MOVE *BLANKS MSGNBR 7 07/08/98 1200 C READ FIL001PF 01 07/08/98 1300 C *IN01 IFEQ '0' 07/08/98 1400 C EXCPTHEDER 07/08/98 1500 C ENDIF 07/08/98 1600 C* 07/08/98 1700 C MOVE 'R' WTYP 1 07/08/98 1800 C MOVE '0' CT 1 07/08/98 1900 C MOVE '0' *IN02 07/08/98 2000 C *IN02 DOWEQ'0' 07/08/98 2100 C READ FIL002PF 02 07/08/98 2200 C *IN02 IFEQ '0' 07/08/98 2300 C CT IFEQ '0' 07/08/98 2400 C MOVELWHNAME WREC 10 07/08/98 2500 C EXCPTDETREC 07/08/98 2600 C MOVE '1' CT 07/08/98 2700 C ENDIF 07/08/98 2800 C MOVELWHFLDI WNAM 10 07/08/98 2900 C MOVELWHFTXT WTXT 50 07/08/98 3000 C WHFLDD IFEQ *ZEROS 07/08/98 3100 C Z-ADDWHFLDB WDIG 40 07/08/98 3200 C MOVE ' ' WDEC 1 07/08/98 3300 C ELSE 07/08/98 3400 C MOVE *ZEROS WDIG 07/08/98 3500 C MOVE WHFLDD WDIG 07/08/98 3600 C MOVE WHFLDP WDEC 07/08/98 3700 C ENDIF 07/08/98 3800 C EXCPTDETAL 07/08/98 3900 C EXSR SALTA 07/08/98 4000 C ENDIF 07/08/98 4100 C ENDDO 07/08/98 4200 C* 07/08/98 4300 C MOVE 'K' WTYP 1 07/08/98 4400 C MOVE '0' *IN03 07/08/98 4500 C *IN03 DOWEQ'0' 07/08/98 4600 C READ FIL003PF 03 07/08/98 4700 C *IN03 IFEQ '0' 07/08/98 4800 C EXCPTDETKEY 07/08/98 4900 C EXSR SALTA 07/08/98 5000 C ENDIF 07/08/98 5100 C ENDDO 07/08/98 5200 C EXCPTFINAL 07/08/98 5300 C* 07/08/98 5400 C MOVE '1' *INLR 07/08/98 5500 C******************************************************** 07/08/98 5600 C* SALTA 07/08/98 5700 C******************************************************** 07/08/98 5800 C SALTA BEGSR 07/08/98 5900 C *INOF IFEQ '1' 07/08/98 6000 C EXCPTDETLIN 07/08/98 6100 C EXCPTJUMP 07/08/98 6200 C MOVE '0' *INOF 07/08/98 6300 C EXCPTHEDER 07/08/98 6400 C ENDIF 07/08/98 6500 C ENDSR 07/08/98 6501 C******************************************************** 12/07/04 6502 C* SRNE 12/07/04 6503 C******************************************************** 12/07/04 6504 C SRNE BEGSR 12/07/04 6505 C* 12/07/04 6506 C *ENTRY PLIST 12/07/04 6507 C PARM @FILE 10 12/07/04 6508 C PARM @LIBRA 10 12/07/04 6509 C* 12/07/04 6511 C ENDSR 12/07/04 6600 C******************************************************** 07/08/98 6700 OREP60 E 1 HEDER 10/10/02 6800 O TIT,1 66 07/08/98 6900 O TIT,2 132 07/08/98 7000 O* 07/08/98 7100 O E 1 HEDER 07/08/98 7200 O TIT,3 66 07/08/98 7300 O TIT,4 132 07/08/98 7400 O UDATE Y 89 07/08/98 7500 O* 07/08/98 7600 O E 1 HEDER 07/08/98 7700 O TIT,5 66 07/08/98 7800 O TIT,6 132 07/08/98 7900 O ODOBNM 20 07/08/98 8000 O HORA 89 ' : : ' 07/08/98 8100 O* 07/08/98 8200 O E 1 HEDER 07/08/98 8300 O TIT,7 66 07/08/98 8400 O TIT,8 132 07/08/98 8500 O ODOBTX 60 07/08/98 8600 O PAGE Z 89 07/08/98 8700 O* 07/08/98 8800 O E 1 HEDER 07/08/98 8900 O TIT,9 66 07/08/98 9000 O TIT,10 132 07/08/98 9100 O* 07/08/98 9200 O E 1 HEDER 07/08/98 9300 O TIT,11 66 07/08/98 9400 O TIT,12 132 07/08/98 9500 O* 07/08/98 9600 O E 1 HEDER 07/08/98 9700 O TIT,9 66 07/08/98 9800 O TIT,10 132 07/08/98 9900 O**** 07/08/98 10000 O E 1 DETREC 07/08/98 10100 O TIT,13 66 07/08/98 10200 O TIT,14 132 07/08/98 10300 O WTYP 5 07/08/98 10400 O WREC 20 07/08/98 10500 O**** 07/08/98 10600 O E 1 DETAL 07/08/98 10700 O TIT,13 66 07/08/98 10800 O TIT,14 132 07/08/98 10900 O WNAM 20 07/08/98 11000 O WDIG 28 ' ' 07/08/98 11100 O WDEC 34 07/08/98 11200 O WTXT 87 07/08/98 11300 O**** 07/08/98 11400 O E 1 DETKEY 07/08/98 11500 O TIT,13 66 07/08/98 11600 O TIT,14 132 07/08/98 11700 O WTYP 5 07/08/98 11800 O APKEYF 20 07/08/98 11900 O**** 07/08/98 12000 O E 1 DETLIN 07/08/98 12100 O TIT,9 66 07/08/98 12200 O TIT,10 132 07/08/98 12300 O**** 07/08/98 12400 O E 3 FINAL 07/08/98 12500 O TIT,9 66 07/08/98 12600 O TIT,10 132 07/08/98 12700 O**** 07/08/98 12800 O E 3 FINAL 07/08/98 12900 O TIT,15 66 07/08/98 13000 O**** 07/08/98 13100 O E 10 1 JUMP 07/08/98 13200 O********************************************************** 07/08/98 13300 ** 07/08/98 13400 COMPANY : Name ompany 07/08/98 13500 PROGRAM : FILDDS 07/08/98 13600 PROGRAM : RETRIEVE FILE FIELDS DESCRIPTION 07/08/98 13700 DATE. . : 07/08/98 13800 FILE : 07/08/98 13900 TIME. . : 07/08/98 14000 DESCRIP : 07/08/98 14100 PAGE. . : 07/08/98 14200 ------------------------------------------------------------------ 07/08/98 14300 ----------------------- 07/08/98 14400 ! TYPE ! FIELD ! LONG ! DEC ! DESCRIPTION 07/08/98 14500 ! 07/08/98 14600 ! ! ! ! ! 07/08/98 14700 ! 07/08/98 14800 << END REPORT >> 07/08/98