How to copy Librarian printer modules (PRMOD) from a master file to a PDS?

Products

• Librarian

Issue/Introduction

Trying to copy all printer listing modules (PRMOD) from a librarian master file to a PDS file.

When using the utility copy,  the lines get truncated from 121 or 133 to 80 bytes.

How can PRMOD members in a traditional Librarian Master file be copied to a PDS without truncation?

Resolution

The only way to copy them is one at a time using either -SEL LIST or using IEBGENER and SUBSYS=LAM.

Using IEBGENER and LAM:

//* IEBGENER TO COPY A PRMOD MEMBER FROM THE MF TO A PDS.
//STEP1 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DSN=LIBR.MAST(member1),DISP=SHR,
// DCB=(BLKSIZE=133,RECFM=F),SUBSYS=LAM
//SYSUT2 DD DSN=PDS.FILE(member1),DISP=SHR
//SYSIN DD DUMMY
//

 

 

Using Librarian -SEL LIST:

//* LIST A PRMOD MEMBER FROM THE MF TO A PDS
//LIB EXEC PGM=AFOLIBR,PARM='NRJS,NJTA'
//SYSPRINT DD SYSOUT=*
//INDEX DD SYSOUT=*
//LIST DD DSN=PDS.FILE(member1),DISP=SHR
//MASTER DD DSN=LIBR.MASTER
//OSJOB DD DUMMY
//SYSIN DD *
-SEL member1,LIST
-END
/*

Additional Information

Consider using Librarian Wide Record Master files for PRMOD members instead of a traditional Master file.

Wide Record Master files allow the use of utility copy on PRMOD members to process multiple members at a time.