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
