SET BOUNDARY(IDMSTGT). APPLY CHECK SELECT(RO78986
RO79027
RO79103
RO79110
RO79159
...
Followed by about 140 more PTF numbers explicitly coded like the sample above.
But it is failing with the following error messages for many of the PTF numbers
GIM37901E ** APPLY PROCESSING FAILED FOR SYSMOD RO78986 BECAUSE IT WAS PREVIOUSLY SUPERSEDED.
GIM37901E ** APPLY PROCESSING FAILED FOR SYSMOD RO79027 BECAUSE IT WAS PREVIOUSLY SUPERSEDED.
GIM37901E ** APPLY PROCESSING FAILED FOR SYSMOD RO79103 BECAUSE IT WAS PREVIOUSLY SUPERSEDED.
GIM37901E ** APPLY PROCESSING FAILED FOR SYSMOD RO79110 BECAUSE IT WAS PREVIOUSLY SUPERSEDED.
GIM37901E ** APPLY PROCESSING FAILED FOR SYSMOD RO79159 BECAUSE IT WAS PREVIOUSLY SUPERSEDED.
...
Release : 19.0
Component : IDMS/DB
The errors in the output are because they coded RECEIVE SELECT and APPLY CHECK SELECT with the individual PTF's. Instead of using RECEIVE SELECT and APPLY CHECK SELECT he should be using RECEIVE SYSMODS HOLDDATA and APPLY CHECK PTFS.
Here's an example:
//RECEIVE EXEC PGM=GIMSMP,REGION=0M
//SYSUT1 DD DSN=&&SYSUT1,UNIT=SYSDA,SPACE=((6400,6400)),
// DISP=(NEW,DELETE)
//SMPPTFIN DD DISP=SHR,DSN=<yourHLQ>.PTF
//SMPLOG DD SYSOUT=*
//SMPLOGA DD SYSOUT=*
//SMPHOLD DD DUMMY
//SMPCSI DD DISP=SHR,DSN=<yourHLQ>.IDMS.CSI
//SMPCNTL DD *
SET BOUNDARY(GLOBAL) .
RECEIVE SYSMODS HOLDDATA
FORFMID (
CAGJJ00
).
/*
//APPLY EXEC PGM=GIMSMP,REGION=0M,PARM='DATE=U'
//SMPLOGA DD SYSOUT=*
//SMPCSI DD DISP=SHR,DSN=<yourHLQ>.IDMS.CSI
//SMPCNTL DD *
SET BOUNDARY(CAIT18).
APPLY CHECK PTFS
FORFMID (
CAGJJ00
)
BYPASS(HOLDSYS HOLDERROR).
/*
In FORFMID all the FMID's installed should be included.