How to copy an individual PROTSYM file member from one PROTSYM file to a second PROTSYM file?
Article ID: 22061
Updated On:
Products
Issue/Introduction
The PROTSYM file batch utility program IN25UTIL is used to maintain the PROTSYM file.
If you need to copy an individual PROTSYM file member from one PROTSYM file to a second PROTSYM file you will need to use the UNLOAD= and RELOAD= IN25UTIL utility parameters.
Resolution
Use batch utility program IN25UTIL parameter UNLOAD=PROGRAM NAME to copy the program in question to a sequential dataset. The sequential dataset must have the DCB listed below. Allocate several cylinders for the sequential file so it is large enough to avoid space problems.
Record format . . . : FB
In the next step issue a RELOAD=PROGRAM NAME into the PROTSYM file of your choice.
In the JCL example below the UNLOAD step copies the PROTSYM member in question from the FROM PROTSYM file to the sequential file. In the RELOAD step the member in question is copied from the sequential file to the TARGET PROTSYM file.
//UNLOAD EXEC PGM=IN25UTIL,REGION=4096K
//MESSAGE DD SYSOUT=*
//PROTSYM DD DSN=FROM.PROTSYM,DISP=SHR
//UNLOAD DD DSN=UNLOAD.SEQ.PROTSYM,DISP=SHR
//CARDS DD *
PASSWORD=12345678
UNLOAD=PROGRAM NAME
/*
//RELOAD EXEC PGM=IN25UTIL,REGION=4096K
//MESSAGE DD SYSOUT=*
//RELOAD DD DSN=UNLOAD.SEQ.PROTSYM,DISP=SHR
//PROTSYM DD DISP=SHR,DSN=TARGET.PROTSYM
//CARDS DD *
PASSWORD=12345678
RELOAD=PROGRAM NAME
REPORT
//
Additional Information
Feedback
