Page 1 of 1

Generate a delete idcams

PostPosted: Wed Feb 18, 2015 4:02 pm
by samb01
Hello,

i would like to build an delete idcams sysin.

I have a file with a list of file :

 BROWSE    XCF.PRG.FED           
 Command ===>                                       
********************************* Top of Data ******
B.XXX.A3103354                                  1 
B.XXXM.A2318413                                     
B.SI2M.J0717002.OCT2010                             
X.VCS.L1614451                                     
X.FCX1.L2209534                                     


file could have a length of 44
et and i would like to have


DELETE B.XXX.A3103354                                   NVSAM
DELETE B.XXXM.A2318413                                 NVSAM
DELETE B.FCVS.J0717002.OCT2010                   NVSAM
DELETE X.VCS.L1614451                                   NVSAM
DELETE X.FCX1.L2209534                                 NVSAM




Thank's for your help.

Re: Generate a delete idcams

PostPosted: Wed Feb 18, 2015 6:14 pm
by enrico-sorichetti
did You care to search the forum ?

Re: Generate a delete idcams

PostPosted: Thu Feb 19, 2015 4:00 pm
by samb01
i woul just like to know if I'd rather use OUTREC or BUILD ?

Thanks for your help.

Re: Generate a delete idcams

PostPosted: Thu Feb 19, 2015 4:48 pm
by BillyBoyo
  INREC BUILD=(C'DELETE ',1,44,C'NVSAM')


That you get you close.

Re: Generate a delete idcams

PostPosted: Thu Feb 19, 2015 7:54 pm
by samb01
Hello billy Boyo,

thank you, it works. But i can't anderstand why i have dot at the end of each line :

                                                                               
 BROWSE    PROBCF.ECFSOVD.DADSFOR.PART1.DELIDCA       Line 00000000 Col 001 080
  Command ===>                                                  Scroll ===> CSR 
********************************* Top of Data **********************************
DELETE B.XDSD.A3103354                             NVSAM........................
DELETE B.XDSD.A2318413                             NVSAM........................
DELETE B.XDSD.J0717002.OCT2010                     NVSAM........................
DELETE X.XDSD.L3011423                             NVSAM........................
DELETE X.XDSD.L1714235                             NVSAM........................
DELETE X.XDSD.L2818523                             NVSAM........................



Re: Generate a delete idcams

PostPosted: Thu Feb 19, 2015 9:50 pm
by samb01
I succed to remove dots with that sysin

//SYSIN  DD    *                                   
 SORT FIELDS=COPY                                   
 INREC BUILD=(C' DELETE ',1,44,C'NVSAM',174:X)     
//*