5722WDS V5R1M0 010525 LISTADO FUENTE SEU 12/07/04 16:00:31 PÁG. 1 ARCHIVO FUENTE . . . . . QGPL/QCLSRC MIEMBRO . . . . . . . . . FILECL SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+... 7 ...+... 8 ...+... 9 ...+... 0 100 /************************************************************/ 07/08/98 200 /* */ 07/08/98 300 /* ID company: */ 07/08/98 400 /* */ 07/08/98 500 /* */ 07/08/98 600 /* */ 07/08/98 700 /************************************************************/ 07/08/98 800 /* DESCRIPCION : despliega DSPFFD command */ 07/08/98 900 /* FECHA : */ 07/08/98 1000 /************************************************************/ 07/08/98 1100 PGM PARM(&OBJ &LIB &PRT) 12/07/04 1200 12/07/04 1201 /* Recibe parametros del miembro FILE */ 13/05/99 1202 DCL VAR(&OBJ) TYPE(*CHAR) LEN(10) 12/07/04 1203 DCL VAR(&LIB) TYPE(*CHAR) LEN(10) 12/07/04 1204 DCL VAR(&PRT) TYPE(*CHAR) LEN( 1) 12/07/04 1205 12/07/04 1206 /* Crea ambiente en QTEMP /* 12/07/04 1300 CHKOBJ OBJ(QTEMP/FIL001PF) OBJTYPE(*FILE) 12/07/04 1301 MONMSG MSGID(CPF9801) EXEC(CRTDUPOBJ OBJ(FIL001PF) + 12/07/04 1302 FROMLIB(QGPL) OBJTYPE(*FILE) TOLIB(QTEMP)) 12/07/04 1400 07/08/98 1401 CHKOBJ OBJ(QTEMP/FIL002PF) OBJTYPE(*FILE) 12/07/04 1402 MONMSG MSGID(CPF9801) EXEC(CRTDUPOBJ OBJ(FIL002PF) + 12/07/04 1403 FROMLIB(QGPL) OBJTYPE(*FILE) TOLIB(QTEMP)) 12/07/04 1404 12/07/04 1405 CHKOBJ OBJ(QTEMP/FIL003PF) OBJTYPE(*FILE) 12/07/04 1406 MONMSG MSGID(CPF9801) EXEC(CRTDUPOBJ OBJ(FIL003PF) + 12/07/04 1407 FROMLIB(QGPL) OBJTYPE(*FILE) TOLIB(QTEMP)) 12/07/04 1408 12/07/04 1409 CHKOBJ OBJ(&LIB/&OBJ) OBJTYPE(*FILE) 12/07/04 1410 MONMSG MSGID(CPF9801) EXEC(GOTO CMDLBL(UNO)) 12/07/04 1411 12/07/04 /* Recupera la informacion del archivo a trabajar */ 1412 DSPOBJD OBJ(&LIB/&OBJ) OBJTYPE(*FILE) + 12/07/04 1413 OUTPUT(*OUTFILE) OUTFILE(QTEMP/FIL001PF) 12/07/04 1414 12/07/04 1415 DSPFFD FILE(&LIB/&OBJ) OUTPUT(*OUTFILE) + 12/07/04 1416 OUTFILE(QTEMP/FIL002PF) 12/07/04 1417 12/07/04 1418 DSPFD FILE(&LIB/&OBJ) TYPE(*ACCPTH) + 12/07/04 1419 OUTPUT(*OUTFILE) OUTFILE(QTEMP/FIL003PF) 12/07/04 1420 12/07/04 1421 UNO: OVRDBF FILE(FIL001PF) TOFILE(QTEMP/FIL001PF) 12/07/04 1422 OVRDBF FILE(FIL002PF) TOFILE(QTEMP/FIL002PF) 12/07/04 1423 OVRDBF FILE(FIL003PF) TOFILE(QTEMP/FIL003PF) 12/07/04 1424 12/07/04 1425 IF COND(&PRT = 'S' *OR &PRT = 's') THEN(CALL + 12/07/04 1426 PGM(QGPL/FILEREP) PARM(&OBJ &LIB)) /* Reporte */ 12/07/04 1427 ELSE 12/07/04 1428 CALL PGM(FILERPG) PARM(&OBJ &LIB ) /* Consulta */ 12/07/04 1429 12/07/04 1430 DLTOVR FILE(*ALL) 12/07/04 1431 12/07/04 1432 DLTF QTEMP/FIL001PF 12/07/04 1433 DLTF QTEMP/FIL002PF 12/07/04 1434 DLTF QTEMP/FIL003PF 12/07/04 1435 12/07/04 1500 ENDPGM 12/07/04 =