A MOD entry can also be created when you install a SYSMOD that causes the assembled source to be linked to the distribution library. This can happen when a SYSMOD contains both a ++MOD and a ++SRC statement for the same module, or when the DISTMOD operand is specified on the ++SRC statement.
The name can contain from 1 to 8 alphanumeric characters and $, #, @, or hex C0.
The UCL operand is ASSEMBLE.
CSECT ( /* this is a csect name */ CSECT01)
The comment is interpreted as part of the CSECT name, instead of a comment.
The UCL operand is DALIAS(name).
The DALIAS name can contain from 1 to 8 alphanumeric characters.
The UCL operand is DISTLIB(ddname).
The ddname can contain from 1 to 8 alphanumeric characters.
The SYSMOD ID must contain 7 alphanumeric characters.
The UCL operand is AC=1.
The UCL operand is ALIGN2 or ALN2.
The UCL operand is AMODE=24 or AMOD=24.
The UCL operand is AMODE=31 or AMOD=31.
The UCL operand is AMODE=64 or AMOD=64.
The UCL operand is AMODE=ANY or AMOD=ANY.
The UCL operand is AMODE=MIN or AMOD=MIN.
The UCL operand is COMPAT=LKED|PM1|PM2|PM3|PM4.
The UCL operand is DC.
The UCL operand is FETCHOPT(PACK|NOPACK, PRIME|NOPRIME).
The UCL operand is FILL(nn), where nn is the 2-character representation of a single hex byte (00 - FF).
The UCL operand is HOBSET.
The UCL operand is MAXBLK(nnnnn), where nnnnn is a number between 256 and 32760.
The UCL operand is NE.
The UCL operand is NOCALL or NCAL.
The UCL operand is OL.
The UCL operand is OVLY.
The UCL operand is REFR.
The UCL operand is RENT.
The UCL operand is REUS.
The UCL operand is REUS(NONE).
The UCL operand is RMODE=24 or RMOD=24.
The UCL operand is RMODE=31 or RMOD=31.
The UCL operand is RMODE=ANY or RMOD=ANY.
The UCL operand is RMODE=SPLIT or RMOD=SPLIT.
The UCL operand is SCTR.
When this indicator is present and a link-edit is to be done, SMP/E will pass the link-edit utility only those parameters specified in the appropriate link-edit UTILITY entry.
The UCL operand is STD.
The UCL operand is RMIDASM.
The UCL operand is TALIAS(name…).
The alias names can contain from 1 to 8 alphanumeric characters.
The UCL operand is UMID(sysmod_id…).
The SYSMOD ID must contain 7 alphanumeric characters.
SET BDY(TGT1) /* Set to requested zone. */.
LIST MOD /* List all MOD entries. */.
SET BDY(TGT1) /* Set to requested zone. */.
LIST MOD(MOD01 /* List only these two */
MOD02) /* entries. */.
PAGE nnnn - NOW SET TO zzzzzz ZONE nnnnnnn DATE mm/dd/yy TIME hh:mm:ss SMP/E 36.nn SMPLIST OUTPUT
TGT1 MODULE ENTRIES
NAME
ASSEM01 LASTUPD = JCLIN TYPE=ADD
LIBRARIES = DISTLIB=SYSPUNCH
LMOD = LMOD99A LMOD99B
ASSEM02 LASTUPD = JCLIN TYPE=ADD
LIBRARIES = DISTLIB=SYSPUNCH
LMOD = ASSEM02
DL1MOD1 LASTUPD = DL1F001 TYPE=ADD
LIBRARIES = DISTLIB=DLIB3
FMID = DL1F001
RMID = DL1F001
LMOD = DL1LMOD
MOD01 LASTUPD = JXY1102 TYPE=ADD
LIBRARIES = DISTLIB=AOS12
FMID = JXY1102
RMID = JXY1102
CSECT = MOD01C1 MOD01C2 MOD01C3
LMOD = LMOD01
MOD02 LASTUPD = JXY1102 TYPE=ADD
LIBRARIES = DISTLIB=AOS12
FMID = JXY1102
RMID = JXY1102
CSECT = MOD02C1
LMOD = LMOD01 LMOD02
MOD03 LASTUPD = JXY1121 TYPE=UPD
LIBRARIES = DISTLIB=AOS12
FMID = JXY1121
RMID = JXY1121
UMID = UZ00010 UZ00014
LMOD = LMOD03
MOD04 LASTUPD = JXY1121 TYPE=UPD
LIBRARIES = DISTLIB=AOS12
ASSEMBLE
FMID = JXY1121
RMID = JXY1121
RMIDASM
LMOD = MOD04
MOD05 LASTUPD = JXY0001 TYPE=ADD
LIBRARIES = DISTLIB=DLIB1
FMID = JXY0001
RMID = JXY0001
MOD06 LASTUPD = JXY0001 TYPE=ADD
LIBRARIES = DISTLIB=DLIB1
FMID = JXY0001
RMID = JXY0001
PAGE nnnn - NOW SET TO zzzzzz ZONE nnnnnnn DATE mm/dd/yy TIME hh:mm:ss SMP/E 36.nn SMPLIST OUTPUT
NOW SET TO TARGET ZONE CICS1
CICS1 MODULE ENTRIES
NAME
CICSMOD1 LASTUPD = LINK TYPE=UPD
LIBRARIES = DISTLIB=ARESLIB
FMID = HCI1703
RMID = HCI1703
LMOD = CICSMOD1
XZLMODP
XZLMOD = LMOD01 IN ZONE ZOSZNA
LMOD02 IN ZONE ZOSZNA
LMOD01 IN ZONE ZOSZNB
CICSMOD2 LASTUPD = LINK TYPE=UPD
LIBRARIES = DISTLIB=ARESLIB
FMID = HCI1703
RMID = HCI1703
LMOD = CICSMOD2
XZLMODP
XZLMOD = LMOD01 IN ZONE ZOSZNA
LMOD02 IN ZONE ZOSZNA
LMODAA01 IN ZONE ZOSZNB
LMOD01 IN ZONE ZOSZNB
CICSMOD3 LASTUPD = HCI1703 TYPE=ADD
LIBRARIES = DISTLIB=ARESLIB
FMID = HCI1703
RMID = HCI1703
LMOD = CICSLMD2
CICSMOD4 XZLMODP
XZLMOD = LMOD01 IN ZONE ZOSZNA
LMOD01 IN ZONE ZOSZNB
SET BDY(TGT1) /* Set to target zone. */.
LIST MOD /* List all MOD entries */
FORFMID(TP /* for the TP FMIDSET */
JXY1102) /* and FMID JXY1102. */.
SET BDY(TGT1) /* Set to requested zone. */.
LIST MOD /* List all module entries */
XREF /* and related SYSMODs. */.
PAGE nnnn - NOW SET TO zzzzzz ZONE nnnnnnn DATE mm/dd/yy TIME hh:mm:ss SMP/E 36.nn SMPLIST OUTPUT
TGT1 MODULE ENTRIES
NAME
ASSEM01 LASTUPD = JCLIN TYPE=ADD
LIBRARIES = DISTLIB=SYSPUNCH
LMOD = LMOD99A LMOD99B
ASSEM02 LASTUPD = JCLIN TYPE=ADD
LIBRARIES = DISTLIB=SYSPUNCH
LMOD = ASSEM02
MOD01 LASTUPD = JXY1102 TYPE=ADD
LIBRARIES = DISTLIB=AOS12
FMID = JXY1102
RMID = JXY1102
CSECT = MOD01C1 MOD01C2 MOD01C3
LMOD = LMOD01
SYSMOD HISTORY = SYSMOD TYPE DATE MCS --STATUS--
JXY1102 FUNCTION 07.100 MOD APP ACC
MOD02 LASTUPD = JXY1102 TYPE=ADD
LIBRARIES = DISTLIB=AOS12
FMID = JXY1102
RMID = JXY1102
CSECT = MOD02C1
LMOD = LMOD01 LMOD02
SYSMOD HISTORY = SYSMOD TYPE DATE MCS --STATUS--
JXY1102 FUNCTION 07.100 MOD APP ACC
MOD03 LASTUPD = JXY1121 TYPE=UPD
LIBRARIES = DISTLIB=AOS12
FMID = JXY1121
RMID = JXY1121
UMID = UZ00010 UZ00014
LMOD = LMOD03
SYSMOD HISTORY = SYSMOD TYPE DATE MCS --STATUS--
JXY1102 FUNCTION 07.100 MOD APP ACC
JXY1121 FUNCTION 07.150 MOD APP ACC
UZ00010 PTF 07.150 ZAP APP
UZ00014 PTF 07.160 ZAP APP
MOD04 LASTUPD = JXY1121 TYPE=UPD
LIBRARIES = DISTLIB=AOS12
ASSEMBLE
FMID = JXY1121
RMID = JXY1121
RMIDASM
LMOD = MOD04
SYSMOD HISTORY = SYSMOD TYPE DATE MCS --STATUS--
JXY1102 FUNCTION 07.100 MOD APP ACC
JXY1121 FUNCTION 07.150 ASSEM APP ACC
SET BDY(TGT1) /* Set to requested zone. */.
UNLOAD MOD /* Unload all MOD entries. */.
SET BDY(TGT1) /* Set to requested zone. */.
UNLOAD MOD(MOD01 /* Unload only these two */
MOD02) /* entries. */.
UCLIN .
REP MOD ( ASSEM01 )
LASTUPD ( JCLIN )
LASTUPDTYPE ( ADD )
DISTLIB ( SYSPUNCH )
LMOD ( LMOD99A LMOD99B )
.
REP MOD ( ASSEM02 )
LASTUPD ( JCLIN )
LASTUPDTYPE ( ADD )
DISTLIB ( SYSPUNCH )
LMOD ( ASSEM02 )
.
REP MOD ( DL1MOD1 )
LASTUPD ( DL1F001 )
LASTUPDTYPE ( ADD )
DISTLIB ( DLIB3 )
FMID ( DL1F001 )
RMID ( DL1F001 )
LMOD ( DL1LMOD )
.
REP MOD ( MOD01 )
LASTUPD ( JXY1102 )
LASTUPDTYPE ( ADD )
DISTLIB ( AOS12 )
FMID ( JXY1102 )
RMID ( JXY1102 )
CSECT ( MOD01C1 MOD01C2 MOD01C3 )
LMOD ( LMOD01 )
.
REP MOD ( MOD02 )
LASTUPD ( JXY1102 )
LASTUPDTYPE ( ADD )
DISTLIB ( AOS12 )
FMID ( JXY1102 )
RMID ( JXY1102 )
CSECT ( MOD02C1 )
LMOD ( LMOD01 LMOD02 )
.
REP MOD ( MOD03 )
LASTUPD ( JXY1121 )
LASTUPDTYPE ( UPD )
DISTLIB ( AOS12 )
FMID ( JXY1121 )
RMID ( JXY1121 )
UMID ( UZ00010 UZ00014 )
LMOD ( LMOD03 )
.
REP MOD ( MOD04 )
LASTUPD ( JXY1121 )
LASTUPDTYPE ( UPD )
DISTLIB ( AOS12 )
ASSEMBLE
FMID ( JXY1121 )
RMID ( JXY1121 )
RMIDASM
LMOD ( MOD04 )
.
REP MOD ( MOD05 )
LASTUPD ( JXY0001 )
LASTUPDTYPE ( ADD )
DISTLIB ( DLIB1 )
FMID ( JXY0001 )
RMID ( JXY0001 )
.
ENDUCL.
UCLIN .
REP MOD ( CICSMOD1 )
LASTUPD ( HCI1703 )
LASTUPDTYPE ( ADD )
DISTLIB ( ARESLIB )
FMID ( HCI1703 )
RMID ( HCI1703 )
LMOD ( CICSMOD1 )
/* CROSS-ZONE*/ XZLMODP
XZLMOD (
( LMOD01 ZOSZNA )
( LMOD01 ZOSZNB )
)
.
REP MOD ( CICSMOD2 )
LASTUPD ( HCI1703 )
LASTUPDTYPE ( ADD )
DISTLIB ( ARESLIB )
FMID ( HCI1703 )
RMID ( HCI1703 )
LMOD ( CICSMOD2 )
/* CROSS-ZONE*/ XZLMODP
XZLMOD (
( LMOD01 ZOSZNA )
( LMOD01 ZOSZNB )
( LMODAA01 ZOSZNB )
)
.
REP MOD ( CICSMOD3 )
LASTUPD ( HCI1703 )
LASTUPDTYPE ( ADD )
DISTLIB ( ARESLIB )
FMID ( HCI1703 )
RMID ( HCI1703 )
LMOD ( CICSLMD2 )
.
REP MOD ( CICSMOD4 )
/* CROSS-ZONE*/ XZLMODP
XZLMOD (
( LMOD01 ZOSZNA )
( LMOD01 ZOSZNB )
)
.
ENDUCL.
SET BDY(TGT1) /* Set to target zone. */.
UNLOAD MOD /* Unload all MOD entries */
FORFMID(TP /* for the TP FMIDSET */
JXY1102) /* and FMID JXY1102. */.
Otherwise, there is not enough information in the entry to process the module. If any of the required subentries are missing, SMP/E does not make the requested UCL updates to the entry, and the entry remains as it was before the UCL command.
The following examples are provided to help you use the MOD entry.