Step 6: Assembler H migration (optional)

To simplify migration of existing assembler procedures, the IEV90 module can be given as an alias of ASMA90. A sample usermod, ASMAIEV is supplied in the ASM.SASMSAM1 library to do this. Only run this usermod as an aid to migrating references from IEV90 to ASMA90. When all references have been changed, remove the usermod.

Edit and submit job ASMAIEV to create an alias of ASMA90. Consult the instructions in the sample job for information about changes you may need to make. ASMAIEV is shown in Figure 1.

Figure 1. Create an IEV90 alias

//ASMAIEV  JOB  <JOB CARD PARAMETERS>
//*
//USERMOD  EXEC PGM=GIMSMP
//SMPCSI   DD DSN=#globalcsi,
//            DISP=SHR
//SMPOUT   DD SYSOUT=*
//SMPRPT   DD SYSOUT=*
//SMPLIST  DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSLIB   DD  DSN=#hlq.SASMMAC1,
//             DISP=SHR
//STEPLIB  DD  DSN=#hlq.SASMMOD1,
//             DISP=SHR
//SMPPTFIN DD  DATA,DLM=QX
++USERMOD(ML00009) REWORK(#date).       1 
++VER(Z038) FMID(HMQ4160).
++JCLIN.
//S2      EXEC LINKS,
//             PARM='XREF,MAP,NCAL,RENT,REUS,REFR,AMOD=31,RMOD=ANY',
//             UNIT='',SER=,N=,NAME=SASMMOD1,P1='',
//             MOD=,P2='',OBJ=,CLASS=
//AASMMOD1 DD  DISP=SHR,DSN=#hlq.AASMMOD1
//SYSLIN   DD  *
 ORDER ASMA90
 INCLUDE AASMMOD1(ASMACPR)
 INCLUDE AASMMOD1(ASMA90)
 ALIAS IEV90
 ENTRY ASMA90
 NAME  ASMA90(R) RC=0
/*
++MOD(ASMA90) LKLIB(SASMMOD1).
QX
//SMPCNTL  DD  *
   SET BDY(GLOBAL).
   RECEIVE S(ML00009) SYSMODS.
   SET BDY(#tzone).
   APPLY S(ML00009).                    2 
/*

When running this USERMOD consider the following:

Ensure that all PTF service which affects part ASMA90 is ACCEPTed before applying USERMOD ML00009 to avoid regressing service to that part.
In area 1 use the REWORK option if you change the USERMOD frequently.
Specify REWORK if the USERMOD name will be reused every time and you do not prefer to use the REJECT command before receiving the USERMOD.

Every time you re-apply the USERMOD, increment the value of REWORK using the form of yyyyddd, where yyyy is the year (for example, 2008) and ddd is the day of the year (for example, 036 is the 5th February). For more information refer to SMP/E Reference.

If you do not increment the REWORK option, then on subsequent APPLY commands the REDO operand is required on the SMP/E APPLY statement.
In area 2 you might want to use the COMPRESS option on the APPLY statement to minimize storage used for some or all of the target libraries.

For the USERMOD, do not perform any ACCEPT processing.