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
