>> Not being sure if the original post required individual members, the output > of IEBPTPCH could be modified..... > from : MEMBER NAME to ./ ADD etc etc
Tony, It certainly can be done. We did not hear anything from OP and hence did not show the IEBPTCH - SORT - IEBUPDTE route. For anyone who is interested here is the JCL //****************************************************************** //* PUNCH ALL MEMBERS TO A SEQUENTIAL FILE (CREATES AN FBA FILE) * //****************************************************************** //STEP0100 EXEC PGM=IEBPTPCH //SYSPRINT DD SYSOUT=* //SYSUT1 DD DISP=SHR,DSN=Your Input FB PDS //SYSUT2 DD DSN=&&PDSMEM,DISP=(,PASS),SPACE=(CYL,(X,Y),RLSE) //SYSIN DD * PUNCH TYPORG=PO //* //****************************************************************** //* CREATE CONTROL CARDS AS INPUT FOR IEBUPDTE PROGRAM * //****************************************************************** //STEP0200 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=&&PDSMEM,DISP=SHR //SORTOUT DD DSN=&&O,DISP=(,PASS),SPACE=(CYL,(Y,Y),RLSE),RECFM=FB //SYSIN DD * OPTION COPY INREC BUILD=(2,80) OUTREC IFTHEN=(WHEN=(1,11,CH,EQ,C'MEMBER NAME'), BUILD=(C'./ ADD NAME=',14,8,80:X)) //* //****************************************************************** //* CREATE A VB PDS FROM A SEQUENTIAL FB FILE * //* X = Primay Space Y = Secondary Space Z = Directory Blocks * //* 1 Directory Block can contain 5 or 6 members * //* DirBlocksReq = INT(Num Of Member To Create / 5 + .99 ) * //****************************************************************** //****************************************************************** //STEP0300 EXEC PGM=IEBUPDTE,PARM=NEW,COND=(0,NE,STEP0200) //SYSUT2 DD DSN=Your Output VB PDS, // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // DCB=(RECFM=VB,LRECL=84), // SPACE=(CYL,(X,Y,Z),RLSE) //SYSPRINT DD SYSOUT=* //SYSIN DD DSN=&&O,DISP=(OLD,PASS) Thanks, Kolusu IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> wrote on 02/13/2015 09:07:14 AM: > From: "Tony's Basement Computer" <tbabo...@comcast.net> > To: IBM-MAIN@LISTSERV.UA.EDU > Date: 02/13/2015 09:10 AM > Subject: Re: FB to VB PDS > Sent by: IBM Mainframe Discussion List <IBM-MAIN@LISTSERV.UA.EDU> > > Not being sure if the original post required individual members, the output > of IEBPTPCH could be modified..... > from : MEMBER NAME to ./ ADD etc etc > so as to provide input to IEBUPDTE. I'm not sure of how trailing blanks > will be treated. > I did something like this years ago, but in reverse, VB to FB. I had the > luxury of PDSMAN but the concept is the same. > > Editorial P.S. : I never liked VB in the past, still don't, won't like it > for the next few months. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN