This all started by me trying to find out how space was taken by a dataset DSCB info which led me to CVAFDIR It needed the DEB of the VTOC Maybe I should of used OBTAIN/CAMLIST
Sent from my iPhone > On May 3, 2016, at 4:09 PM, J R <jayare...@hotmail.com> wrote: > > The RDJFCB doesn't care too much about the DCB other than for the DDNAME and > where to put the copy of the JFCB. > > I'm not really sure what you're trying to do. Unless you actually want to > access your dataset rather than its DSCB, why do you want to access the VTOC? > > > Back in the '60s, this sort of thing was in the System Programmer's Guide. > It may be in Using Datasets or something similar now. > > However , you've lost me now. I don't know why you need the DEB. But you > should be able to get to it from the DCB. > > Sent from my iPhone > >> On May 3, 2016, at 15:54, michelbutz <michealb...@comcast.net> wrote: >> >> Okay then the DCB on the open type=j is for the VTOC how about the DCB for >> the RDJFCB >> The original DCB in my program was for VB >> Dataset >> I hate bothering everybody is this documented anywhere i.e how to get the >> deb of the VTOC >> >> >> Sent from my iPhone >> >>> On May 3, 2016, at 3:44 PM, J R <jayare...@hotmail.com> wrote: >>> >>> You should use BSAM, ie. READ, not GET, KEYLEN=44, BLKSIZE=140? (Not sure, >>> it's been a long time). Then read until you see your damage in the key >>> area. Or, if you are more adventurous, you could use BDAM and search >>> directly for the key you are interested in. >>> >>> Sent from my iPhone >>> >>>> On May 3, 2016, at 15:11, michelbutz <michealb...@comcast.net> wrote: >>>> >>>> Something strange is bombed on the open >>>> Message IEC141I the dataset it in the message is sys1.vtoc >>>> The DCB whose DSCB I am trying to access is a VB have that DCB on the >>>> open type=j >>>> >>>> Sent from my iPhone >>>> >>>>> On May 3, 2016, at 2:35 PM, J R <jayare...@hotmail.com> wrote: >>>>> >>>>> Do the RDJFCB first, *then* move the 44X'4' to JFCBDSNM. >>>>> >>>>> Sent from my iPhone >>>>> >>>>>> On May 3, 2016, at 14:30, michelbutz <michealb...@comcast.net> wrote: >>>>>> >>>>>> I am still getting return code 4 in R15 CVSTAT is 8 >>>>>> >>>>>> I first move 44X'04' to JFCBDSNM >>>>>> I then do a READJFCB FILE >>>>>> Everything is okay I get R15 = 0 >>>>>> I then do OPEN FILE,TYPE=J >>>>>> R15 = 0 >>>>>> I then do ICM. R11,B'0111',DCBDEBA >>>>>> XC BUFLIST(BFLHLN+BFLELN),BUFLIST >>>>>> OI BFLHFL,BFLHDSCB >>>>>> MVI. BFLHNOE,1 >>>>>> LA. R6,DS1FMTID >>>>>> ST. R6,BFLEBUF >>>>>> OI. BFLEFL,BFLECHR >>>>>> MVI. BFLELTH,DSCBLTH >>>>>> >>>>>> CVAFDIR ACCESS=READ,DSN=DSN,BUFLIST=BUFLIST,DEB=(R11) >>>>>> >>>>>> I get rerun code 4 in R15 and CVSTAT is 08 invalid DEB >>>>>> >>>>>> Sent from my iPhone >>>>>> >>>>>>> On May 3, 2016, at 1:56 PM, J R <n...@hotmail.com> wrote: >>>>>>> >>>>>>> Nope. >>>>>>> >>>>>>> Sent from my iPhone >>>>>>> >>>>>>>> On May 3, 2016, at 13:55, Staller, Allan <allan.stal...@wunderman.com> >>>>>>>> wrote: >>>>>>>> >>>>>>>> ITYM 44x'40' >>>>>>>> >>>>>>>> <snip> >>>>>>>> >>>>>>>> So, as I posted before: >>>>>>>> >>>>>>>> VTOC DSN is 44X'4' >>>>>>>> >>>>>>>> This email � including attachments � may contain confidential >>>>>>>> information. If you are not the intended recipient, do not copy, >>>>>>>> distribute or act on it. Instead, notify the sender immediately and >>>>>>>> delete the message. >>>>>>>> >>>>>>>> ---------------------------------------------------------------------- >>>>>>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>>>>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>>>>> >>>>>>> ---------------------------------------------------------------------- >>>>>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>>>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>>>> >>>>>> ---------------------------------------------------------------------- >>>>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>>> >>>>> ---------------------------------------------------------------------- >>>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>>> >>>> ---------------------------------------------------------------------- >>>> For IBM-MAIN subscribe / signoff / archive access instructions, >>>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >>> >>> ---------------------------------------------------------------------- >>> For IBM-MAIN subscribe / signoff / archive access instructions, >>> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
