How do I to send a program load module and PROTSYM file symbolic member to CA technical support for problem recreation?

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

Question:

How do I to send a program load module and PROTSYM file symbolic member to CA technical support for problem recreation?

Answer:

This JCL example offloads the entire Load library, ALIB dataset and PROTSYM file.
The second JCL example below which is not on the install tape can be used to send in selected programs load modules and PROTSYM members.

The first sample JCL below has two steps. STEP1 offloads the entire load library and ALIB dataset.
In many cases the ALIB dataset is not needed so all references to INDD2 and OUTDD2 can be removed from the JCL so the ALIB is not processed.
STEP2 uses the CA Application Quality and Testing Tools IN25UTIL program to offload the entire PROTSYM file ( program source code ) to a sequential file.

These files can be tersed before they are uploaded to our FTP server.

/**********************************************************************
//*   SENDING YOUR APPLICATION LOAD LIBRARY, PROTSYM AND ALIB TO CA 
//* 
//*   STEPS: 
//*        1) XMIT YOUR APPLICATION LOAD LIBRARY AND ALIB TO TWO 
//*           FLAT FILES 
//*        2) UNLOAD YOUR PROTSYM TO A FLAT FILE 
//* 
//*   NOTE:  AFTER RUNNING THESE 2 STEPS, 3 FILES WILL BE CREATED 
//*          THAT CAN THEN BE FTPED TO CA. 
//**********************************************************************
//STEP1    EXEC PGM=IKJEFT01
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//INDD1    DD DISP=SHR,DSN=APPDSN
//INDD2    DD DISP=SHR,DSN=ALIBDSN
//OUTDD1   DD DSN=DOCHLQ.FLATLOAD,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(TRK,(5,5),RLSE),
//            VOL=SER=VOLUM1
//OUTDD2   DD DSN=DOCHLQ.FLATALIB,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(TRK,(5,5),RLSE),
//            VOL=SER=VOLUM1
//SYSTSIN  DD *
 XMIT TEST.TEST DDNAME(INDD1) OUTDD(OUTDD1)  PDS
 XMIT TEST.TEST DDNAME(INDD2) OUTDD(OUTDD2)  PDS
 /*
//**********************************************************************
//STEP2    EXEC PGM=IN25UTIL,REGION=4M
//STEPLIB  DD DISP=SHR,DSN=CAIHLQ.CAVHLOAD
//MESSAGE  DD SYSOUT=*
//UNLOAD   DD DISP=(NEW,CATLG,DELETE),
//            DSN=DOCHLQ.FLATPROT,
//            UNIT=SYSDA,VOL=SER=VOLUM1,
//            SPACE=(TRK,(9,9),RLSE),
//            DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420)
//PROTSYM  DD DISP=SHR,DSN=PROTSYM.DSN
//CARDS    DD *
UNLOAD=ALL
/*
//

_______________________________________________________________________________________
In this example you are selecting individual program load and PROTSYM members to offload.
In STEP1 you add a SELECT statement and in STEP2 an XMIT statement for each
load member you are sending. In STEP3 you add an UNLOAD= statement for
each PROTSYM member.

These files can be tersed before they are uploaded to our FTP server.

//STEP1    EXEC PGM=IEBCOPY,REGION=1M 
//SYSPRINT DD SYSOUT=* 
//COPY1    DD DISP=SHR, 
//         DSN=user.load 
//SYSUT2   DD DISP=(NEW,PASS),SPACE=(TRK,(20,20,30),RLSE), 
//         UNIT=SYSDA, 
//         DSN=&&TMPPDS 
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(5,5)) 
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(5,5)) 
//SYSIN    DD * 
   COPY INDD=((COPY1,R)),OUTDD=SYSUT2 
   SELECT MEMBER=member_name 
/* 
//STEP2    EXEC PGM=IKJEFT01 
//SYSPRINT DD SYSOUT=* 
//SYSTSPRT DD SYSOUT=* 
//INDD     DD DISP=(OLD,PASS),DSN=&&TMPPDS 
//OUTDD    DD DSN=DOCHLQ.FLATLOAD, 
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=SYSDA,SPACE=(TRK,(5,5),RLSE), 
//            DCB=(RECFM=FB,LRECL=80,BLKSIZE=3120), 
//            VOL=SER=VOLUM1 
//SYSTSIN  DD * 
   XMIT TEST.TEST DDNAME(INDD) OUTDD(OUTDD)  PDS 
/* 
//*
//STEP3    EXEC PGM=IN25UTIL,REGION=2048K 
//STEPLIB  DD DISP=SHR,DSN=CAIHLQ.CAVHLOAD 
//MESSAGE  DD SYSOUT=* 
//UNLOAD   DD DISP=(NEW,CATLG,DELETE), 
//            DSN=DOCHLQ.FLATPROT, 
//            UNIT=SYSDA,VOL=SER=VOLUM1, 
//            SPACE=(TRK,(9,9),RLSE), 
//            DCB=(RECFM=FB,LRECL=2042,BLKSIZE=20420) 
//PROTSYM  DD DISP=SHR,DSN=PROTSYM.DSN
//CARDS    DD * 
   UNLOAD=program name 
/* 
// 

Additional Information:

Reference the CA Application Quality and Testing Tools Symbolic Guide for further information on the options and commands available with IN25UTIL.