How to send a program load module and PROTSYM file symbolic member to Broadcom Support?

Products

• InterTest - CICS
• InterTest - Batch

Issue/Introduction

How to send a program load module and PROTSYM file symbolic member to the Broadcom Support team?

 

Resolution

This JCL example offloads the entire load library, ALIB dataset and PROTSYM file.
The second JCL example below 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 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 
//* 
//*   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 BROADCOM. 
//**********************************************************************
//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 
/* 
//