How do I copy all printer modules from a master file to a PDS?

Document ID : KB000050552
Last Modified Date : 06/08/2018
Show Technical Document Details
Introduction:

I am trying to copy all printer listing modules (PRMOD) from a librarian master file to a PDS file.
Using the utility copy the lines get truncated from 121 or 133 to 80 bytes.
How can I copy the PRMOD members without truncation?

Instructions:

There are a lot of restrictions on the use of printer PRMOD members.
You can't use the utility copy on them as they get truncated.
You can't use ELIPS utility copy either.
The only way to copy them is one at a time using either -SEL LIST or using IEBGENER and SUBSYS=LAM.

Below is some sample JCL.

  1. 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
    //
  2. Using -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:
In future instead of using a standard master file you should use librarian wide master files for PRMOD members.
Wide master files will allow the use of utility copy on PRMOD members to process multiple members at a time.