There are those times when it is necessary to unload a partitioned data set. The unloaded PDS can the be used in a subsequent restore.
[codesyntax lang=”text”]
//AMBMVS JOB (SYS), 'BROOKS COMPUTING SYSTEMS,LLC',CLASS=A,MSGCLASS=A, // MSGLEVEL=(1,1) //PDSUNLD PROC //SETP0001 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=AMBMVS.PDS.&LLQ //SYSUT2 DD DISP=(,CATLG,DELETE),DSN=AMBMVS.&LLQ..OUT, // UNIT=3390,SPACE=(TRK,(1,2),RLSE),VOL=SER=USR003 //SYSIN DD DISP=SHR,DSN=AMBMVS.PDS.CNTL(UNLD1) // PEND //STEP0001 EXEC PDSUNLD,LLQ=ASM //STEP0002 EXEC PDSUNLD,LLQ=CLIST //STEP0003 EXEC PDSUNLD,LLQ=CNTL //STEP0004 EXEC PDSUNLD,LLQ=COBOL //STEP0005 EXEC PDSUNLD,LLQ=JCL //STEP0006 EXEC PDSUNLD,LLQ=LOAD //STEP0007 EXEC PDSUNLD,LLQ=LPRT //STEP0008 EXEC PDSUNLD,LLQ=OBJ //STEP0009 EXEC PDSUNLD,LLQ=PLIB //STEP0009 EXEC PDSUNLD,LLQ=SPRT
[/codesyntax]
I prefer to use in stream procedures as opposed to cataloged procedures. In stream procedures allow to apply special configuration as in this example and allow the file naming scheme perform all the perfunctory tasks.
It is a simple modification to add or remove addition PDS’s (partitioned data sets).
Mr. Arch Brooks, Software Engineer, Brooks Computing Systems, LLC authored this article.