PDSGEN

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.

Installation

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:

  • added the code for macro BAS to the front of the program to satisfy calls to the nonexistent BAS macro under MVS 3.8/IFOX00
  • processed the source with an awk script - alcblank.awk - to replace totally blank lines with a comment line to satisfy IFOX00
  • added JCL to assemble and link PDSGEN into SYS2.LINKLIB

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.

 

Executing PDSGEN

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:

This page was last updated on April 22, 2008 .