What is ADRSUB?

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

What is ADRSUB and what function does it serve?  

 

ADRSUB is the DDNAME for the  Internal Reader (IRDR) and is only used with CA Ideal and CA Dataquery.  

An internal reader is a special SYSOUT data set that other programs can use to submit jobs, control statements, and commands to JES2.

Jobs which allocate internal reader and time-sharing users use the internal readers to submit jobs.

 

Internal Reader can be used to submit batch jobs from a CICS program.

That functionality is exploited by CA Dataquery and CA Ideal via the VPE component of CA IPC.

 

ADRSUB is defined in the following installation CAVQSAMP library members:                 

  - IPCVPEB (to add IRDR ROSFD definitions)

      IRDR     ROSFD  DDNAME=ADRSUB,ACCMETH=SEQ,RECFM=F,  

               LRECL=80,BLKSIZE=80,PRODUCT=IGN        

                                                                     

  - VQCUS01 (to add ADRSUB to the CICS startup JCL)

     //ADRSUB   DD  SYSOUT=(A,INTRDR)                          

                                                                   

  - VQ14CSD or VQ15CSD (to add TDQUEUE entry definitions) see VQ14CSD entry for IRDR below: 

       DEFINE TDQUEUE(IRDR) GROUP(VQ14GRP) DESCRIPTION(VPE INTERNAL READER) 

             TYPE(EXTRA) DATABUFFERS(1) DDNAME(ADRSUB)               

             OPENTIME(INITIAL) TYPEFILE(OUTPUT) RECORDSIZE(80)       

             RECORDFORMAT(FIXED)    BLOCKFORMAT(UNBLOCKED)               

                                                                                                                                           

Refer to CA-IPC for z/OS Installation and Maintenance Guide,  "Post-Installation Steps" for more details on CICS modifications.                      

Refer to CA Dataquery for CA Datacom Administrator Guide,  "Installing the Internal Reader" for more details on the Internal Reader.              

 

To verify if the IRDR entry is defined under CICS you may enter commands :

CEDA (CEDC or CEDB) VIEW TDQUEUE(IRDR) GROUP(*)  or CEMT INQUIR TDQUEUE(IRDR)