I'm trying to UNLOAD a Librarian Master to a PDS(E) using the following JCL. It works fine except:
1) It requires UPDATE authority to the LIBR master, (which is, IMHO, stupid for a copy, and limits usability), 2) It does not update the PDS stats. Reading an old post from John McKown (2005), to get around the RACF problem, he says to try: // LABEL=(,,,IN), on the LIBR DD, MASTER. I did and it doesn't. Any help will be appreciated: //LIBR2PDS PROC LIBRIN='', LIBRARIAN DATASET NAME // PDSOUT='' PDS OUT NAME //* //LIBR EXEC PGM=AFOLIBR2,PARM='NRJS,NJTA' //MASTER DD DISP=SHR,DSN=&LIBRIN //OSJOB DD DSN=&&OSJOB1,DISP=(,PASS), // UNIT=SYSDA, // SPACE=(CYL,(5,2),RLSE), // DCB=(LRECL=80,RECFM=FB,DSORG=PS,BLKSIZE=6080) //SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA //SYSIN DD DUMMY,BLKSIZE=80 //* //UNLOAD EXEC PGM=AFOLIBR2,PARM='NRJS,NJTA',REGION=0M //LIST DD DUMMY //MASTER DD DISP=SHR,DSN=&LIBRIN,LABEL=(,,,IN) //OSJOB DD DSN=&PDSOUT,DISP=SHR //SYSPRINT DD SYSOUT=*,DCB=RECFM=FBA //SYSIN DD DSN=&&OSJOB1,DISP=(OLD,PASS) //* // PEND //* //LIBR2PDS EXEC LIBR2PDS, // LIBRIN='my.libr.master', // PDSOUT='my.preallcated.pdse' //LIBR.SYSIN DD * -OPT GPO -SEL NAME=,EXEC(R),TEMP,COPYDDOFF,CCOPYOFF -EDIT /-INC/=INC/ -END Someone else said to use the -EXTRACT function as opposed to the -SEL. I substituted -EXTRACT for -SEL and got other errors: GPO HAS READ THE FOLLOWING RECORD(S): -EXTRACT NAME=,EXEC(R),TEMP,COPYDDOFF,CCOPYOFF *** ERROR *** INVALID GPO SYNTAX NEAR POSITION 16 Thanks for your anticipated help. Ren Brenton Black Knight Financial Services 601 Riverside Ave., Jacksonville, FL 32204 The information contained in this message is proprietary and/or confidential. If you are not the intended recipient, please: (i) delete the message and all copies; (ii) do not disclose, distribute or use the message in any manner; and (iii) notify the sender immediately. In addition, please be aware that any message addressed to our domain is subject to archiving and review by persons other than the intended recipient. Thank you. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
