PDSGEN will read the directories of one or more input partitioned datasets and, using a template card image, generate a card image for each member.
It is located in File #357 of the CBT tape and was written by Carl Hafner at Steli, Inc. in Monroe, NY.
I have extracted the Assembler source for PDSGEN and the sample execution JCL from the CBT tape. I made the following modifications to the Assembler source so that IFOX00 would assemble it:
The installation JCL and Assembler source jobstream - pdsgen$.jcl - and the sample execution jobstream - pdsgen.jcl - are contained in the archive pdsgen.tgz [MD5: 30DAF9D8FB2293FE454F3898458D174A], along with a documentation file - pdsgen.prn. Download the archive and extract the jobstreams (WinZip on Windows/?? or tar on Linux). Submit the jobstream - pdsgen$.jcl - to assemble and link the single load module for PDSGEN into SYS2.LINKLIB. If you don't have SYS2.LINKLIB defined, you will need to modify the jobstream to specify a target load library.
The file pdsgen.jcl contains the JCL to execute PDSGEN, but it will need to be customized before it is submitted:
//*** //*** (CHANGE ALL -PDS-TO-BE-PROCESSED- TO THE PDS TO BE CLEANED UP) //*** (CHANGE ALL -SEQUENTIAL-OUTPUT- TO YOUR OUTPUT FILE) //*** (CHANGE ALL -YOUR-STEPLIB- TO YOUR LOADMOD LIBRARY) //*** //*** GENERATE A SIMPLE LIST OF MEMBERS AND PDS NAMES //*** //CLEANUP EXEC PGM=IEFBR14 //DEL01 DD DSN=-SEQUENTIAL-OUTPUT-, // DISP=(MOD,DELETE,DELETE),UNIT=SYSDA,SPACE=(TRK,0) //*** //*** //PDSGEN EXEC PGM=PDSGEN,REGION=4096K //SYSIN DD * DUPS INDEX //STEPLIB DD DISP=SHR,DSN=-YOUR-STEPLIB- //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=-PDS-TO-BE-PROCESSED- //SYSGEN DD * #MEMBER# IS IN %DSNAME% //SYSOUT DD DSN=-SEQUENTIAL-OUTPUT-,DISP=(,CATLG), // UNIT=TEST,SPACE=(CYL,(1,1)), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=27920) //***
The file pdsgen.prn contains the documentation that is provided for PDSGEN on the CBT tape.
I hope that you have found my instructions useful. If you have questions that I can answer to help expand upon my explanations and examples shown here, please don't hesitate to send them to me:
Return to Site Home Page
This page was last updated on January 17, 2015 .