>> 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 <[email protected]> wrote on
02/13/2015 09:07:14 AM:
> From: "Tony's Basement Computer" <[email protected]>
> To: [email protected]
> Date: 02/13/2015 09:10 AM
> Subject: Re: FB to VB PDS
> Sent by: IBM Mainframe Discussion List <[email protected]>
>
> 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 [email protected] with the message: INFO IBM-MAIN
