Entorno CICS
DEFINE TRANSACTION(ZTB2) GROUP(EDITRAN) PROGRAM(ZTBPO020)
TWASIZE(21000) SPURGE(YES) TPURGE(YES) TASKDATALOC(ANY)
DEFINE PROGRAM(ZTBPOIGC) GROUP(EDITRAN) LANGUAGE(COBOL) DATALOCATION(ANY)
DEFINE PROGRAM(ZTBPO020) GROUP(EDITRAN) LANGUAGE(COBOL) DATALOCATION(ANY)
DEFINE PROGRAM(ZTBPO021) GROUP(EDITRAN) LANGUAGE(COBOL) DATALOCATION(ANY)
DEFINE PROGRAM(ZTBPO022) GROUP(EDITRAN) LANGUAGE(COBOL) DATALOCATION(ANY)
DEFINE PROGRAM(ZTBPO023) GROUP(EDITRAN) LANGUAGE(COBOL) DATALOCATION(ANY)
DEFINE MAPSET(ZTBPM20) GROUP(EDITRAN)
DEFINE MAPSET(ZTBPM21) GROUP(EDITRAN)
DEFINE MAPSET(ZTBPM22) GROUP(EDITRAN)
DEFINE MAPSET(ZTBPM23) GROUP(EDITRAN)
DEFINE FILE(ZTBPFGC) GROUP(EDITRAN)
DSNAME(PUNTERO.INDRA.ZTBPFGC) LSRPOOLID(NONE)
STRINGS(2) BROWSE(YES)
RECORDFORMAT(F) ADD(YES) DELETE(YES) READ(YES) UPDATE(YES)//ZTBPFGC DD DSN=KI.EGDC.ZTBP.ZTBPFGC,DISP=SHR