Example 6: Adding new source code

Assume that you have written new source code to be added to an existing product. It is a member in one of your partitioned data sets. To be installed, it must be assembled, then copied as a single-module load module into its target library. Table 1 shows the information you need to specify and where to specify it.

Table 1. Information needed to add new source code
Information to provide:	Where to specify it:
1 Name of source code element: IFBSRC01	Element name on ++SRC MCS: `++SRC(IFBSRC01)`
2 Name of object module produced by assembly: IFBSRC01 (same as source code element)	JCLIN data, M= value on COPY SELECT statement: `COPY SELECT M=(IFBSRC01)`
3 Where input source code is provided: PDS member	TXLIB value on ++SRC MCS: `++SRC(IFBSRC01) TXLIB(REPLACE)` DDDEF entry or DD statement for APPLY and ACCEPT processing: `REPLACE DD DSN=…`
4 Target library for source: SYS1.IFBSRC	SYSLIB value on ++SRC MCS: `++SRC(IFBSRC01) SYSLIB(IFBSRC)` JCLIN data, OUTDD value on COPY statement: `COPY INDD=inddval,OUTDD=IFBSRC TYPE=SRC` DDDEF entry or DD statement for APPLY processing: `IFBSRC DD DSN=SYS1.IFBSRC`
5 Target library for load module: SYS1.LPALIB	JCLIN data, OUTDD value on COPY statement: `COPY INDD=inddval,OUTDD=LPALIB TYPE=MOD` DD statement in JCLIN data and in SMP/E job for APPLY processing: `LPALIB DD DSN=SYS1.LPALIB`
6 Distribution library for source code: SYS1.AIFBSRC	DISTLIB value on ++SRC MCS: `++SRC(IFBSRC01) DISTLIB(AIFBSRC)` JCLIN data, INDD value on COPY statement: `COPY INDD=AIFBSRC,OUTDD=IFBSRC TYPE=SRC` DD statement or DDDEF entry for ACCEPT processing: `AIFBSRC DD DSN=SYS1.AIFBSRC`
7 Distribution library for assembled object module: SYS1.AOS23	DISTMOD value on ++SRC MCS: `++SRC(IFBSRC01) DISTMOD(AOS23)` JCLIN data, INDD value on COPY statement: `COPY INDD=AOS23,OUTDD=LPALIB TYPE=MOD` DD statement in JCLIN data and in SMP/E job during APPLY and ACCEPT processing: `AOS23 DD DSN=SYS1.AOS23`
8 How to install the source code: Assemble, then copy	++SRC MCS automatically notifies SMP/E to assemble the module. JCLIN data, COPY steps: `//JOB1 JOB … //STEP1 EXEC PGM=IEBCOPY //AIFBSRC DD DSN=SYS1.AIFBSRC,… //IFBSRC DD DSN=SYS1.IFBSRC,… //AOS23 DD DSN=SYS1.AOS23,… //LPALIB DD DSN=SYS1.LPALIB,… //SYSIN DD * COPY INDD=AIFBSRC,OUTDD=IFBSRC TYPE=SRC SELECT M=(IFBSRC01) COPY INDD=AOS23,OUTDD=LPALIB TYPE=MOD SELECT M=(IFBSRC01) /*` The OPTIONS and UTILITY entries in effect for the APPLY or ACCEPT command being processed specify the names of the assembler and copy utilities to use and parameters to be passed to them.

The following is a sample USERMOD that can be used to package the source code. The numbers associate items in the SYSMOD with the information listed in Table 1.

             ++USERMOD(USR0001)          /* My USERMOD.         */.
             ++VER(Z038) FMID(MYFMID1).  /* For my function.    */.
   8         ++JCLIN.                    /* Link object module. */.
             //JOB1    JOB …
             //STEP1   EXEC PGM=IEBCOPY
   6         //AIFBSRC DD DSN=SYS1.AIFBSRC,DISP=SHR
   4         //IFBSRC  DD DSN=SYS1.IFBSRC,DISP=SHR
   7         //AOS23   DD DSN=SYS1.AOS23,DISP=SHR
   5         //LPALIB  DD DSN=SYS1.LPALIB,DISP=SHR
             //SYSIN   DD *
   4 , 6       COPY INDD=AIFBSRC,OUTDD=IFBSRC  TYPE=SRC
   2           SELECT M=(IFBSRC01)
   5 , 7       COPY INDD=AOS23,OUTDD=LPALIB  TYPE=MOD
   2           SELECT M=(IFBSRC01)
             /*
 1 , 2 , 8   ++SRC(IFBSRC01)             /* My source module.   */
   3              TXLIB(REPLACE)         /* Where source is.    */
   6              DISTLIB(AIFBSRC)       /* DISTLIB for source. */
   7              DISTMOD(AOS23)         /* DISTLIB for object. */
   4              SYSLIB(IFBSRC)         /* SYSLIB for source.  */.