//COMPMAP JOB CLASS=A,MSGLEVEL=(1,1),NOTIFY=&SYSUID,MSGCLASS=Q,
//        TIME=(,7)
//*-***********************************************
//*  HACER C XXXXXX (NOMBRE DEL MAPA) ALL EN VIEW *
//*  ANTES DEL SUB         ej HOL4MP              *
//*-***********************************************
//*-***********************************************
//*-****  COMPILA MAPA BMS ************************
//*-*
//COMPIL  EXEC PGM=ASMA90,REGION=2000K,PARM='SYSPARM(MAP)'
//SYSLIB  DD DSN=DFH320.CICS.SDFHMAC,DISP=SHR
//        DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1  DD SPACE=(1700,(999,999)),UNIT=SYSDA
//SYSUT2  DD SPACE=(1700,(300,50)),UNIT=SYSDA
//SYSUT3  DD SPACE=(1700,(300,50)),UNIT=SYSDA
//SYSLIN  DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
//        SPACE=(800,(500,500))
//SYSIN   DD DSN=IBMUSER.CICS.MAPS(XXXXXX),DISP=SHR
//SYSPRINT DD SYSOUT=*
//*-***********************************************
//*-**   LINKEDITA                                *
//*-*
//LKED     EXEC PGM=IEWL,PARM='LIST,XREF,LET',REGION=2000K
//*------           COND=(4,LT,COMPIL)
//SYSLIN   DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//         DD DDNAME=SYSIN
//SYSLMOD  DD DISP=SHR,DSN=IBMUSER.CICS.LOAD(XXXXXX),RECFM=U
//*---------SYSLMOD  DD DISP=SHR,DSN=IBMUSER.MAG.LOAD(XXXXXX)
//SYSUT1   DD SPACE=(1024,(50,50)),UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSDUMP  DD SYSOUT=*
//*-***********************************************
//*-**    GENERA COPY SIMBOLICA DEL MAPA          *
//*-*
//ASMDSECT   EXEC PGM=ASMA90,REGION=2000K,
//       PARM='SYSPARM(A.DSECT),DECK,NOOBJECT'
//SYSPRINT   DD SYSOUT=*
//SYSLIB     DD DSN=DFH320.CICS.SDFHMAC,DISP=SHR
//           DD DSN=SYS1.MACLIB,DISP=SHR
//SYSUT1     DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSUT2     DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//SYSUT3     DD UNIT=SYSDA,SPACE=(TRK,(5,5))
//********SYSPUNCH   DD DSN=IBMUSER.CICS.SOURCE(XXXXXXCP),DISP=SHR
//SYSPUNCH   DD DSN=IBMUSER.CICS.COPY(XXXXXXCP),DISP=SHR
//SYSIN      DD DSN=IBMUSER.CICS.MAPS(XXXXXX),DISP=SHR