CDC Guide for z/OS

10.4.1
- 10.5.8
- 10.5.6
- 10.5.5
- 10.5.4
- 10.5.3
- 10.5.2
- 10.5.1
- 10.5
- 10.4.0 HotFix 1
- 10.4.0

Back Next

Customizing the PowerExchange Sample SAMPUEX2 Exit

If you use the sample SAMPUEX2 exit for populating the PCAT file, use these directions to customize it.

In the JCL for PROLOG flips, before the comment block

* CLOSE THE INTERNAL READER

, add the following highlighted statements:

         CLI   0(4),EOJ                 LAST CARD PROCESSED ?
         BNE   SUBMIT1
*                                                              *STR-01*
* End of cards spotted - if this copy is for Command Log, finish -
* but if it's a Protection Log, continue to submit further cards to
* register PLOG into the plog control file...
*                                                              *STR-01*
         CLI   CASE,C'P'                                       *STR-01*
         BNE   CLOSE                    i.e. it's a CLOG       *STR-01*
         LA    4,1(,4) Skip over first EOJ mark                *STR-01*
SUBMIT2  DS    0H                                              *STR-01*
         MVC   CARD(50),0(4)                                   *STR-01*
         PUT   INTRDR2,CARD                                    *STR-01*
         LA    4,50(,4)                                        *STR-01*
         CLI   0(4),EOJ                 LAST CARD PROCESSED ?  *STR-01*
         BNE   SUBMIT2                                         *STR-01*
*
* CLOSE THE INTERNAL READER
*
CLOSE    DS    0H                                              *STR-01*
         CLOSE (INTRDR2)                CLOSE INTERNAL READER.

Immediately before the comment

* READER DCB

, add the following JCL cards:

* BELOW ARE PWX ADDITIONAL CARDS
         DC    CL50'//PLOGCNTL EXEC PGM=DTLCCADW,COND=(4,LT),'
         DC    CL50'//   PARM=(A)'
         DC    CL50'//STEPLIB   DD DSN=sceerun,DISP=SHR'
         DC    CL50'//          DD DSN=hlq.LOADLIB,DISP=SHR'
         DC    CL50'//DTLCCPLG  DD DSN=*.COPY.DDSIAUS1,DISP=SHR'
         DC    CL50'//DTLCCADA  DD DSN=hlq.DBdbid.PCAT,'
         DC    CL50'//          DISP=SHR'
         DC    CL50'//DTLCFG    DD DSN=hlq.RUNLIB(DBMOVER),'
         DC    CL50'//          DISP=SHR'
         DC    CL50'//DTLMSG    DD DSN=hlq.DTLMSG,'
         DC    CL50'//          DISP=SHR'
         DC    CL50'//DTLKEY    DD DSN=hlq.RUNLIB(LICENSE),'
         DC    CL50'//          DISP=SHR'
         DC    CL50'//DTLSGN    DD DSN=hlq.RUNLIB(SIGNON),'
         DC    CL50'//          DISP=SHR'
         DC    CL50'//DTLLOG    DD SYSOUT=*'
         DC    CL50'//SYSUDUMP  DD DUMMY'
         DC    CL50'//SYSPRINT  DD SYSOUT=*'
ENDALL   DC    AL1(EOJ)
* END OF PWX ADDITIONAL CARDS

Rename Saved Search

Table of Contents

CDC Guide for z/OS

CDC Guide for z/OS

Customizing the PowerExchange Sample SAMPUEX2 Exit

Customizing the PowerExchange Sample SAMPUEX2 Exit