Try this (attached): it worked OK in 1997. Cheers, Chris Poncelet (retired sysprog)
On 14/12/2021 05:53, Weizman arbel wrote: > hello , > > i want to do this from batch. > > IEBPTPCH (PUNCH TYPORG=PO) > add MEMBER NAME > in front of each member > and i want to prevent it. > > i did not find a way through IEBCOPY > > ( i know the way by rexx ) > > thanks > > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > . > ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
// <JOB CARD> //* //********************************************************************* //* JOB TO COPY ALL MEMBERS OF A PDS TO A SEQUENTIAL DATASET, WITH * //* EACH MEMBER SIMPLY HEADED BY "MEMBER NAME <MEMBER NAME>" TO * //* DISTINGUISH IT FROM THE OTHER MEMBERS. * //* * //* NOTE: CHECK IEBPTPCH.SYSUT2.DCB=LRECL=? AS THE ASSUMPTION IS 80 * //* * //* CHANGE ALL '@' TO WHATEVER THE DSN IS SUPPOSED TO BE * //* * //* 97/12/02 CMP * //********************************************************************* //* //DELETE EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * DELETE &SYSUID..@ NVSAM SCRATCH PURGE SET MAXCC EQ 0 //* //IEBPTPCH EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=@ //SYSUT2 DD DISP=(NEW,PASS), // UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE), // DCB=(RECFM=FBA,LRECL=81,BLKSIZE=0,DSORG=PS) //SYSIN DD * PUNCH TYPORG=PO //* //IEBGENER EXEC PGM=IEBGENER //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=(OLD,DELETE),DSN=*.IEBPTPCH.SYSUT2 //SYSUT2 DD DISP=(NEW,CATLG),DSN=&SYSUID..@, // UNIT=SYSDA,SPACE=(CYL,(10,10),RLSE), // DCB=(@,DSORG=PS) //SYSIN DD * GENERATE MAXFLDS=1 RECORD FIELD=(,2) /* //* // //********************************************************************* //* ALTERNATIVE WAY TO COPY ALL MEMBERS OF A PDS TO SEQUENTIAL (FLAT) * //* FILE AND THEN BACK AGAIN TO A PDS, USING IEBCOPY * //* * //* * //* 97/12/02 CMP * //********************************************************************* //* //EXPORT EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN00 DD DISP=SHR,DSN=<WHATEVER LOADLIB (IN THIS CASE) DSN> //OUT00 DD DISP=(,CATLG),SPACE=(TRK,10,RLSE), // DSN=<WHATEVER LOADLIB DSN>.FLAT,DSORG=PS //SYSIN DD * COPY INDD=IN00,OUTDD=OUT00 /* //* //IMPORT EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //IN00 DD DISP=SHR, // DSN=<WHATEVER LOADLIB DSN>.FLAT //OUT00 DD DISP=(,CATLG),SPACE=(TRK,(2,0,1),RLSE), // DSN=<WHATEVER LOADLIB DSN #2 OR WHATEVER ELSE>, // DCB=(RECFM=U,LRECL=0,BLKSIZE=27998,DSORG=PO) //SYSIN DD * COPY INDD=IN00,OUTDD=OUT00 /* //* // ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
