GIMSMP

[◀ JCL Batch Jobs]

Contents

1. Rejecting a sysmod
2. Function delete

Rejecting a sysmod [▲ Top]

//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//STEP1   EXEC PGM=GIMSMP
//SMPCSI   DD  DISP=SHR,DSN=smp.global.csi
//SYSUT1   DD  SYSOUT=*
//SYSUT2   DD  SYSOUT=*
//SYSUT3   DD  SYSOUT=*
//SMPCNTL  DD  *
 SET BDY(GLOBAL).
 REJECT BYPASS(ACCEPTCHECK,APPLYCHECK)
        SELECT(sysmodname).
/*

Function delete [▲ Top]

//*
//* +----1----+----2----+----3----+----4----+----5----+----6----+----7-
//*
//*
//* DELETE FUNCTION
//*
//STEP1   EXEC PGM=GIMSMP,COND=(4,LT),REGION=0M
//SMPCSI   DD  DISP=SHR,DSN=global.csi
//SYSUT1   DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SYSUT2   DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SYSUT3   DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SYSUT4   DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK1  DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK2  DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK3  DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK4  DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK5  DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPWRK6  DD  SPACE=(CYL,(5,1,8)),UNIT=VIO
//SMPOUT   DD  SYSOUT=*
//SMPLOG   DD  SYSOUT=*
//SMPLOGA  DD  SYSOUT=*
//SMPRPT   DD  SYSOUT=*
//SMPHOLD  DD  DUMMY
//SMPLIST  DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SMPPTFIN DD  *
++ FUNCTION(DELFUNC) REWORK(yyyyddd).
++ VER(Z038) DELETE(fmid).
/*
//SMPCNTL  DD  *
SET BDY (GLOBAL).
RECEIVE S(DELFUNC).
SET BDY(targetzone).
APPLY REDO CHECK S(DELFUNC).
APPLY REDO S(DELFUNC).
SET BDY(dlibzone).
ACCEPT CHECK S(DELFUNC).
ACCEPT S(DELFUNC).
SET BDY(targetzone).
UCLIN.
DEL SYSMOD(DELFUNC).
DEL SYSMOD(fmid).
ENDUCL.
SET BDY(dlibzone).
UCLIN.
DEL SYSMOD(DELFUNC).
DEL SYSMOD(fmid).
ENDUCL.
SET BDY(GLOBAL).
REJECT HOLDDATA NOFMID
PRODUCT DELETEFMID (DELFUNC fmid).
/*