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