Sample JCL to receive and apply SymDump fixes.
search cancel

Sample JCL to receive and apply SymDump fixes.

book

Article ID: 37345

calendar_today

Updated On:

Products

SymDump for CICS SymDump Batch

Issue/Introduction

SymDump fixes (FIX-NUMBER.BIN) have been downloaded to the desktop into a directory from the support web site.  A binary transfer of each fix  to the mainframe into a Z/OS PDS with a DCB of RECFM=FB, LRECL=80, BLKSIZ=3120  as individual members was done.  Sample SMP/E JCL to receive and apply the fixes is needed.

Resolution

The following JCL can be used to receive the fixes located in PDS SYMDUMP91.PTFS

//RECEIVE EXEC PGM=GIMSMP,

//                 PARM='CSI=SYMDUMP.CSI',

//                 REGION=0M

//SMPPTFIN DD DSN=SYMDUMP91.PTFS(XX#####),DISP=SHR

//                      DD DSN=SYMDUMP91.PTFS(XX#####),DISP=SHR

//                      DD DSN=SYMDUMP91.PTFS,(XX#####), DISP=SHR

//                      DD DSN=SYMDUMP91.PTFS(XX#####),DISP=SHR

//SMPCNTL DD *

SET BDY(GLOBAL).

RECEIVE SELECT(

                           RO#####

                           RO#####

                           RO#####

                           RO#####

                           )

                           SYSMODS . 

The following JCL can be used to apply the fixes. An apply CHECK should be done first. Once the apply CHECK is successful the check can be removed and the fixes can be applied. The BYPASS(HOLDSYSTEM)  can be used if any of the fixes contain ++HOLD actions.

The SET BDY(CAIT0) is the default target zone (CAIT0)  shipped with the base product. If  the default target zone (CAIT0) was changed during the install it will have to be adjusted to reflect the new name.  

 //APPLY        EXEC PGM=GIMSMP,

//                    REGION=0M,

//                    PARM='CSI=SYMDUMP.CSI',

//SMPCNTL DD *

SET BDY(CAIT0).

APPLY SELECT(

                             XX#####

                             XX#####

                             XX#####

                             XX#####

                            )

                            CHECK

                             BYPASS(HOLDSYSTEM).