Listado de las sesiones de transmisión sin uso
//KI1056EA JOB (EGDC,KIT,,99),LISTA-TRANS,MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//********************************************************************+
//** INDRA S.A.
//** ORDEN POR SESION DE TRANSMISION (A) Y FECHA DE TRANSMISION (D)
//********************************************************************+
//SORMONR EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=KI.EGDI.ZTBE.ZTBEFMR,DISP=(OLD,PASS,DELETE)
//SORTOUT DD DSN=&&ZTBEFMRS,DISP=(,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(10000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=253,BLKSIZE=6072)
//SYSIN DD *
SORT FIELDS=(54,32,A,86,14,D),FORMAT=BI
INCLUDE COND=(48,2,CH,EQ,C'30')
/*
//********************************************************************+
//** SELECCION DE LAS TRANSMISIONES: UNA POR MES
//********************************************************************+
//ICEMONR EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INDD DD DSN=&&ZTBEFMRS,DISP=OLD
//OUTDD DD DSN=&&ZTBEFMRI,DISP=(,PASS,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(10000,1000),RLSE),
// DCB=(RECFM=FB,LRECL=253,BLKSIZE=6072)
//TOOLIN DD *
SELECT FROM(INDD) TO(OUTDD) ON(54,32,CH) ON(86,06,CH) FIRST
/*
//********************************************************************+
//** LISTADO DE LAS TRANSMISIONES QUE ESTAN EN PERFILES
//********************************************************************+
//ZTBPELSP EXEC IMSBATCH,MBR=ZTBPELSP,PSB=ZTBPEAP1,PREFIX=IMS910P
//STEPLIB DD DSN=IMS910P.SDFSRESL,DISP=SHR
// DD DSN=KI.EGDI.LOAD,DISP=SHR
//ZTBEFLFR DD DSN=&&ZTBEFMRI,DISP=SHR
//ZTPLIST DD SYSOUT=*,
// DCB=(RECFM=FB,LRECL=132,BLKSIZE=23364)
//SYSOUT DD SYSOUT=*
// Última actualización