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?
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.
- 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 -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/*
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.