ZTBGJM53
//KIMIGRAA JOB (EGDI,KIT,,99),'ZTBGJM53',MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//LIBPROC JCLLIB ORDER=IMST.PROCLIB
//*--------------------------------------------------------------------
//* EDITRAN 5.3.
//* ACTUALIZACION DE REMOTOS EN VERSION 4.1
//* ACTUALIZACION DE SESIONES CON CRIPTOGRAFIA 2.2
//* ACTUALIZACION DEL PARAMETRO SOLICITAR ACUSE DESCARGA (S/N)
//*--------------------------------------------------------------------
//* SE PUEDE REALIZAR UNA C-CONSULTA O UNA M-MODIFICACION DE
//* UNA SESION CONCRETA
//* LAS SESIONES DE UN LOCAL-REMOTO
//* LAS SESIONES DE UN LOCAL
//* TODAS LAS SESIONES
//* MEDIANTE LA SYSIN
//*
//* FORMATO DE SYSIN
//* 1.-LLLLLLLLLRRRRRRRRRAAAAAA
//* 000099980000099940PRUEBA CONSULTA/MODIFICACION DE UNA SESION
//* 000000000000099940PRUEBA CONSULTA/MODIFICACION POR REMOTO/APLI
//* 000099940PRUEBA CONSULTA/MODIFICACION POR REMOTO/APLI
//* 000000000000000000PRUEBA CONSULTA/MODIFICACION POR APLICACION
//* PRUEBA CONSULTA/MODIFICACION POR APLICACION
//* 000099980000099940000000 CONSULTA/MODIFICACION POR LOCAL-REMOTO
//* 000099980000099940 CONSULTA/MODIFICACION POR LOCAL-REMOTO
//* 000000000000099940000000 CONSULTA/MODIFICACION POR REMOTO
//* 000099940 CONSULTA/MODIFICACION POR REMOTO
//* 000099980000000000000000 CONSULTA/MODIFICACION POR LOCAL
//* 000099980 CONSULTA/MODIFICACION POR LOCAL
//* 000000000000000000000000 CONSULTA/MODIFICACION TODAS LAS SESIONES
//* CONSULTA/MODIFICACION TODAS LAS SESIONES
//* 2.-X
//* C - CONSULTA DE LAS SESIONES
//* M - MODIFICACION DE LAS SESIONES
//*---------------------------------------------------------------------
//*--------------------------------------------------------------------
//ZTBGEM53 EXEC IMSBATCH,MBR=ZTBGEM53,PSB=ZTBGEM51,REGION=0M
//STEPLIB DD DSN=KI.EGTI.LOAD,DISP=SHR
//SYSOUT DD SYSOUT=*
//ZTBGFLIS DD SYSOUT=*
//SYSIN DD *
000099980000099940PRUEBA
C
//
**************************** Bottom of Data ****************************Última actualización