Example of a SYSMOD that implements CALLLIBS support

The following is a part of a sample function SYSMOD with a load module that needs to use the link-edit automatic library call function. The numbers associate items in the SYSMOD with the steps listed in Overview of CALLLIBS support.

        ++FUNCTION(HXY1100) FILES(3).
        ++VER(Z038).
     1  ++JCLIN CALLLIBS.
        …
        //STEP1 EXEC PGM=IEWBLINK,PARM='RENT,REUS'
        //SYSLMOD DD DSN=SYS1.APPLOAD,DISP=OLD
        //AOS12   DD DSN=SYS1.AOS12,DISP=SHR
     2  //SYSLIB  DD DSN=SYS1.V2R2M0.PLIBASE,DISP=SHR
        //        DD DSN=SYS1.V2R2M0.APPBASE,DISP=SHR
        //SYSLIN  DD *
           INCLUDE AOS12(MOD00001,MOD00002)
           ENTRY MOD00001
           SETCODE AC(1)
           NAME LMOD01(R)
        /*
        …
        ++MOD(MOD00001) RELFILE(2) DISTLIB(AOS12).
        ++MOD(MOD00002) RELFILE(2) DISTLIB(AOS12).
        …

The user needs to define DDDEF entries for the data sets specified in the SYSLIB allocation (PLIBASE and APPBASE) and the SMPLTS data set, which SMP/E will use to link-edit the load module. (For details on the SMPLTS data set, see Use of the SMPLTS library and the SMPLTS section in SMP/E for z/OS Reference.) Here are examples of defining the DDDEF entries, assuming that the function will be applied to target zone TGT1.

     3  SET BDY(TGT1).               /* Set to target zone.    */
        UCLIN.                       /*                        */
        ADD DDDEF(PLIBASE)           /* Define PLIBASE.        */
            DA(SYS1.V2R2M0.PLIBASE)  /* Data set is cataloged. */
            SHR.                     /* SHR for read.          */
        ADD DDDEF(APPBASE)           /* Define APPBASE.        */
            DA(SYS1.V2R2M0.APPBASE)  /* Data set is cataloged. */
            SHR.                     /* SHR for read.          */
        ADD DDDEF(SMPLTS)            /* Define SMPLTS.         */
            DA(SYS1.SMPLTS)          /* Data set is cataloged. */
            SHR.                     /* SHR for read.          */
        ENDUCL.