Hi Frank,
If you want to print the contents of a complete PDS or specific members of a PDS, you could use IEB PTPCH - This version prints each member of an entire PDS - //OVERFORM OUTPUT CLASS=D,PAGEDEF=A18C,FORMDEF=A18C,FORMS=0201, // DEST=U14 //STEP1 EXEC PGM=IEBPTPCH //SYSUT1 DD DSNAME=xxx.PD.xxxx.mypds,disp=shr //SYSUT2 DD SYSOUT=(,),OUTPUT=*.OVERFORM //SYSPRINT DD SYSOUT=* //SYSIN DD * PRINT TYPORG=PO,MAXFLDS=1 RECORD FIELD=(80) /* This one prints selected members of a PDS - //OVERFORM OUTPUT CLASS=A,FORMS=8411,FCB=8411,COPIES=2 //STEP1 EXEC PGM=IEBPTPCH //SYSUT1 DD DISP=SHR, // DSN=SYS2.PARMLIB //SYSUT2 DD SYSOUT=(,),OUTPUT=*.OVERFORM //SYSPRINT DD SYSOUT=* //SYSIN DD * PUNCH TYPORG=PO,MAXNAME=1 set maxname = number of members to print MEMBER NAME=JES2PARM specifiy each member like this MEMBER NAME=PROG00 /* HTH, Linda Mooney ----- Original Message ----- From: "Frank Allan Rasmussen" <[email protected]> To: [email protected] Sent: Wednesday, April 14, 2010 5:09:05 AM GMT -08:00 US/Canada Pacific Subject: Print of members in concatanated PDS'es. Hello Is the a unility where it is possible to do something like this: PRINT MEMBER=XYZ,DD=ABC And the JCL //ABC DD DISP=SHR,DSN=X.B // DD DISP=SHR,DSN=X.A Output MEMBER XYZ found in DSN X.A <member> We have a auditor on site and he is looking into our parmlibs. Venlig hilsen Frank Allan Rasmussen IT, It-Drift [email protected]<mailto:[email protected]> Direkte tlf. 76631650 Mobil: 29201650 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
