//SHRMAIN JOB (,R214),POITRAS,NOTIFY=SASDTP,TIME=(0,10),CLASS=A,
//            MSGCLASS=A
/*JOBPARM FETCH
// JCLLIB ORDER=LSD.CR650.PROCLIB
//*
//* /*----------------------------------------------------------+
//* | SHARE MULTI-TASKING EXAMPLE - 1998 WINTER CONFERENCE      |
//* |  SESSION 5957                                             |
//* +----------------------------------------------------------*/
//*
//STEP1   EXEC LC370C,PARM.C='RENT BI(1) EXT SU(36)',
//            REGION.C=1024K
//C.SYSDBLIB DD DSN=SASDTP.CR650.DBLIB,DISP=SHR
//C.SYSIN  DD DSN=SASDTP.TEST.C(SHRLIB),DISP=SHR
//C.SYSLIN DD DSN=SASDTP.TEST.OBJ(SHRLIB),DISP=SHR
//C.H      DD DSN=SASDTP.TEST.H,DISP=SHR
//STEP2   EXEC LC370CLR,PARM.C='RENT BI(1) EXT',
//            PARM.LKED='RENT,PRMAP,GMAP,XREF,MAP,
//             ENXREF(SNAME,LINKID,CID)',
//            REGION.C=1024K
//C.SYSDBLIB DD DSN=SASDTP.CR650.DBLIB,DISP=SHR
//C.SYSIN  DD DSN=SASDTP.TEST.C(SHRMAIN),DISP=SHR
//C.SYSLIN DD DSN=SASDTP.TEST.OBJ(SHRMAIN),DISP=SHR
//C.H      DD DSN=SASDTP.TEST.H,DISP=SHR
//LKED.SYSLMOD DD DSN=SASDTP.TEST.LOAD(SHRMAIN),DISP=SHR
//LKED.OBJLIB DD DSN=SASDTP.TEST.OBJ,DISP=SHR
//LKED.SYSIN DD *
 MODE AMODE(31),RMODE(ANY)
 INCLUDE OBJLIB(SHRMAIN)
 INCLUDE OBJLIB(SHRLIB)
 NAME SHRMAIN(R)
/*
//STEP2   EXEC LC370CLR,PARM.C='RENT BI(1) EXT',
//            PARM.LKED='RENT,PRMAP,GMAP,XREF,MAP,
//             ENXREF(SNAME,LINKID,CID)',
//            REGION.C=1024K
//C.SYSDBLIB DD DSN=SASDTP.CR650.DBLIB,DISP=SHR
//C.SYSIN  DD DSN=SASDTP.TEST.C(SHRSUB),DISP=SHR
//C.SYSLIN DD DSN=SASDTP.TEST.OBJ(SHRSUB),DISP=SHR
//C.H      DD DSN=SASDTP.TEST.H,DISP=SHR
//LKED.SYSLMOD DD DSN=SASDTP.TEST.LOAD(SHRSUB),DISP=SHR
//LKED.OBJLIB DD DSN=SASDTP.TEST.OBJ,DISP=SHR
//LKED.SYSIN DD *
 MODE AMODE(31),RMODE(ANY)
 INCLUDE OBJLIB(SHRSUB)
 INCLUDE OBJLIB(SHRLIB)
 NAME SHRSUB(R)
/*
//STEP4   EXEC LC370CLR,PARM.C='RENT BI(1) EXT IL',
//            PARM.LKED='RENT,PRMAP,GMAP,XREF,MAP,
//             ENXREF(SNAME,LINKID,CID)',
//            ENV=SPE,
//            REGION.C=1024K
//C.SYSDBLIB DD DSN=SASDTP.CR650.DBLIB,DISP=SHR
//C.SYSIN  DD DSN=SASDTP.TEST.C(SHRTIME),DISP=SHR
//C.SYSLIN DD DSN=SASDTP.TEST.OBJ(SHRTIME),DISP=SHR
//C.H      DD DSN=SASDTP.TEST.H,DISP=SHR
//LKED.SYSLMOD DD DSN=SASDTP.TEST.LOAD(SHRTIME),DISP=SHR
//LKED.OBJLIB DD DSN=SASDTP.TEST.OBJ,DISP=SHR
//LKED.SYSIN DD *
 MODE AMODE(31),RMODE(ANY)
 INCLUDE OBJLIB(SHRTIME)
 INCLUDE OBJLIB(SHRLIB)
 NAME SHRTIME(R)
/*
//