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

Reply via email to