5722WDS V5R1M0 010525 LISTADO FUENTE SEU 12/07/04 16:00:56 PÁG. 1 ARCHIVO FUENTE . . . . . QGPL/QRPGSRC MIEMBRO . . . . . . . . . FILERPG 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 FFILERPG CF E WORKSTN 12/07/04 600 F KNUM 1 07/08/98 700 F RRN KSFILE FORMA1 07/08/98 800 F************************************************************* 07/08/98 900 C TIME HORA 60 07/08/98 1000 C MOVEL'RPGDSP' PGM 10 07/08/98 1100 C MOVE *BLANKS MSGNBR 7 07/08/98 1300 C* 07/08/98 1400 C EXSR INZ1 07/08/98 1500 C EXSR LOD1 07/08/98 1600 C EXSR DSP1 07/08/98 1700 C* 07/08/98 1800 C MOVE '1' *INLR 07/08/98 1900 C**************************************************************** 07/08/98 2000 C* INZ1 07/08/98 2100 C**************************************************************** 07/08/98 2200 C INZ1 BEGSR 07/08/98 2300 C MOVE '0' *IN50 07/08/98 2400 C MOVE '0' *IN51 07/08/98 2500 C MOVE *ZEROS RRN 40 07/08/98 2600 C WRITEFORMA2 07/08/98 2700 C MOVE '1' *IN51 07/08/98 2800 C ENDSR 07/08/98 2900 C**************************************************************** 07/08/98 3000 C* LOD1 07/08/98 3100 C**************************************************************** 07/08/98 3200 C LOD1 BEGSR 07/08/98 3300 C READ FIL001PF 01OBTIENE HEAD 07/08/98 3400 C* 07/08/98 3500 C MOVE '0' CT 1 07/08/98 3600 C MOVE '0' *IN02 07/08/98 3700 C *IN02 DOWEQ'0' 07/08/98 3800 C READ FIL002PF 02 07/08/98 3900 C *IN02 IFEQ '0' 07/08/98 4000 C CT IFEQ '0' 07/08/98 4100 C MOVELWHNAME WFLD 07/08/98 4200 C MOVE 'R' WFMT 07/08/98 4300 C ADD 1 RRN 07/08/98 4400 C WRITEFORMA1 07/08/98 4500 C MOVE '1' CT 07/08/98 4600 C ENDIF 07/08/98 4700 C MOVE ' ' WFMT 07/08/98 4800 C MOVELWHFLDI WFLD 07/08/98 4900 C MOVELWHFTXT WTXT 07/08/98 5000 C WHFLDD IFNE *ZEROS 07/08/98 5100 C MOVE 'N' WDAT 07/08/98 5200 C Z-ADDWHFLDD WLEN 07/08/98 5300 C MOVE WHFLDP WDEC 07/08/98 5400 C ELSE 07/08/98 5500 C MOVE 'A' WDAT 07/08/98 5600 C Z-ADDWHFLDB WLEN 07/08/98 5700 C MOVE *BLANKS WDEC 07/08/98 5800 C ENDIF 07/08/98 5900 C ADD 1 RRN 07/08/98 6000 C WRITEFORMA1 07/08/98 6100 C ENDIF 07/08/98 6200 C ENDDO 07/08/98 6300 C* 07/08/98 6400 C MOVE 'K' WFMT 07/08/98 6500 C MOVE '0' *IN06 07/08/98 6600 C *IN06 DOWEQ'0' 07/08/98 6700 C READ FIL003PF 06 07/08/98 6800 C *IN06 IFEQ '0' 07/08/98 6900 C APKEYF IFNE *BLANKS 07/08/98 7000 C MOVELAPKEYF WFLD 07/08/98 7100 C MOVE *BLANKS WDAT 07/08/98 7200 C MOVE *BLANKS WTXT 07/08/98 7300 C MOVE *BLANKS WDEC 07/08/98 7400 C MOVE *ZEROS WLEN 07/08/98 7500 C ADD 1 RRN 07/08/98 7600 C WRITEFORMA1 07/08/98 7700 C ENDIF 07/08/98 7800 C ENDIF 07/08/98 7900 C ENDDO 07/08/98 8000 C* 07/08/98 8100 C RRN IFGT *ZEROS 07/08/98 8200 C MOVE '1' *IN50 07/08/98 8300 C ENDIF 07/08/98 8400 C ENDSR 07/08/98 8500 C******************************************************** 07/08/98 8600 C* DSP1 07/08/98 8700 C******************************************************** 07/08/98 8800 C DSP1 BEGSR 07/08/98 8900 C MOVE '0' SW 1 07/08/98 9000 C SW DOWEQ'0' 07/08/98 9100 C *IN50 IFEQ '1' 07/08/98 9200 C WRITEFORMA3 07/08/98 9300 C ELSE 07/08/98 9400 C WRITEFORMA4 07/08/98 9500 C ENDIF 07/08/98 9600 C WRITEFORMA2 07/08/98 9700 C READ FILERPG 18 12/07/04 9800 C *INKC IFEQ '1' 07/08/98 9900 C *INKL OREQ '1' 07/08/98 10000 C MOVE '1' SW 07/08/98 10400 C ENDIF 07/08/98 10500 C ENDDO 07/08/98 10600 C ENDSR 07/08/98 10700 C******************************************************** 07/08/98 10800 C* SRNE 07/08/98 10900 C******************************************************** 07/08/98 11000 C SRNE BEGSR 07/08/98 11100 C* 07/08/98 11200 C *ENTRY PLIST 07/08/98 11301 C PARM @FILE 10 12/07/04 11302 C PARM @LIBR 10 12/07/04 11400 C* 07/08/98 11500 C ENDSR 07/08/98 11600 C******************************************************** 07/08/98