I am in the process of installing CA DADS Plus for CICS PTF RO53206 for CICS TS 5.3. I need sample for the receive.

Document ID : KB000047648
Last Modified Date : 14/02/2018
Show Technical Document Details

Introduction: 

I am in the process of installing CA DADS Plus for CICS PTF RO53206 for CICS TS 5.3. Can you provide me details on how the receive should be coded? I am having an issue with the SMPPTFIN allocation.

Instructions: 

In the example below notice the double bar delimiter (DLM='¦¦') at the start of the fix and at the end of the fix. On the SMPPTFIN statement note the fix goes after the statement

//SMPPTFIN DD DATA,DLM='¦¦

Then at the bottom of the fix you will notice the double bar delimiter.

 ¦¦

For example

//#RO53206 JOB (00000000),'BILL',                                           X

//             NOTIFY=-------,TIME=1440,REGION=5000K,

//             CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1)

//* RECEIVE-APPLY     RO53206

//*

//ESYLIB   JCLLIB ORDER=(DADSPL40.BG57156.UZ.$INSTALL.SAMPJCL)

//OS40SMPE EXEC OS40SMPE

//*

//*

//SMPPTFIN DD DATA,DLM='¦¦'

++APAR     (RO53206)

  DESC     (CTS 5.1 DADS SUPPORT)

 The entire fix goes here

  

¦¦

//*

//RO53206L  DD DSN=DADSPL40.PX0507.RO53206.LOAD,DISP=SHR

//*

//SMPCNTL  DD *

  SET BDY(GLOBAL).

  RECEIVE SELECT ( RO53206 ) SYSMODS .

  SET BDY(CAITGT).

  APPLY   SELECT ( RO53206).

//