ZTBMJM53
//KI63A23A JOB (EGDC,KIT,,99),'ZTBMJM53',MSGCLASS=H,CLASS=A,
// MSGLEVEL=1,NOTIFY=&SYSUID
//*--------------------------------------------------------------------
//* EDITRAN 5.3.
//* ACTUALIZACION DE REMOTOS EN VERSION 4.1
//* ACTUALIZACION DE SESIONES CON CRIPTOGRAFIA 2.2
//*******************************************************************
//BORRADO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE (KI.EIDC.ZTBG.ZTBGFPER.V530) PURGE
//*
//DEFPERF EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(KI.EIDC.ZTBG.ZTBGFPER.V530) –
VOL(DES805) -
LOG(NONE) -
NOREUSE -
REC (4000 50) -
FREESPACE(25 25) -
RECORDSIZE(3000 3000) -
SHAREOPTIONS(2 3) -
KEYS(27 0) -
INDEXED ) -
DATA -
(NAME(KI.EIDC.ZTBG.ZTBGFPER.V530.DATA)) -
INDEX -
(NAME(KI.EIDC.ZTBG.ZTBGFPER.V530.INDEX))
//*
//REPRO1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=H
//ENTRADA DD DSN=KI.EIDC.ZTBG.ZTBGFPER,DISP=SHR
//SALIDA DD DSN=KI.EIDC.ZTBG.ZTBGFPER.V530,DISP=SHR
//SYSIN DD *
REPRO INFILE(ENTRADA) OUTFILE(SALIDA)
//*******************************************************************
//BORRADO EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DELETE (KI.EGDC.ZTBP.ZTBPFPE.V530) PURGE
//*
//DEFPERF EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
DEFINE CLUSTER -
(NAME(KI.EGDC.ZTBP.ZTBPFPE.V530) -
VOL(DES805) -
LOG(NONE) -
NOREUSE -
REC (3000 50) -
FREESPACE(25 25) -
RECORDSIZE(2500 2500) -
SHAREOPTIONS(2 3) -
KEYS(34 0) -
INDEXED ) -
DATA -
(NAME(KI.EGDC.ZTBP.ZTBPFPE.V530.DATA)) -
INDEX -
(NAME(KI.EGDC.ZTBP.ZTBPFPE.V530.INDEX))
//*
//REPRO2 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=H
//ENTRADA DD DSN=KI.EGDC.ZTBP.ZTBPFPE,DISP=SHR
//SALIDA DD DSN=KI.EGDC.ZTBP.ZTBPFPE.V530,DISP=SHR
//SYSIN DD *
REPRO INFILE(ENTRADA) OUTFILE(SALIDA)
//*
//* 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
//*---------------------------------------------------------------------
//*--------------------------------------------------------------------
//PASO1 EXEC PGM=ZTBGBM53
//STEPLIB DD DSN=KI.EIDC.ZTBG.LOAD,DISP=SHR
// DD DSN=KI.EGDC.ZTBP.LOAD31,DISP=SHR
//ZTBGFPER DD DSN=KI.EIDC.ZTBG.ZTBGFPER.V530,DISP=SHR
//ZTBPFPE DD DSN=KI.EGDC.ZTBP.ZTBPFPE.V530,DISP=SHR
//EDILIST DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSDBOUT DD SYSOUT=*
//ABENDAID DD SYSOUT=*
//SYSCOUNT DD DUMMY
//SYSUDUMP DD SYSOUT=*
//SYSABOUT DD SYSOUT=*
//SYSIN DD *
000000000000000000000000
C
/*
//
**************************** Bottom of Data ****************************Última actualización