The last thing that happened when I made a breakpoint after the write BALR it ended up invoking the Estae again as I had breakpoint at +0 in the Estae
> On Mar 13, 2023, at 1:08 AM, Seymour J Metz <[email protected]> wrote: > > What about WRITEWRK? Did you initialize (not necessary?) DECB? do you have a > dump? What is in DECB and WRITEWRK? > > ________________________________________ > From: IBM Mainframe Discussion List <[email protected]> on behalf of > Joseph Reichman <[email protected]> > Sent: Monday, March 13, 2023 12:09 AM > To: [email protected] > Subject: Re: IEC036I 002-30 trying to write messages to snapx > > I m in bed but I remember the DECB > > I just put in my working storage dsect > > Like so > > WS_DSECT > DS 18F > IHADECB DSECT=NO > WORKAREA. DS. CL100 >> On Mon, Mar 13, 2023 at 12:03 AM Seymour J Metz <[email protected]> wrote: >> >> That's not all of the code. How did you define WRITEWRK and DECB? >> >> ________________________________________ >> From: IBM Mainframe Discussion List <[email protected]> on behalf >> of Joseph Reichman <[email protected]> >> Sent: Sunday, March 12, 2023 11:27 PM >> To: [email protected] >> Subject: IEC036I 002-30 trying to write messages to snapx >> >> Hi >> >> >> >> In my estate routine I have a number of messages where I determine psw >> offset 64 bit registers >> >> >> >> I wto it however I would like to write it to the snap data set >> >> >> >> The DCB IS >> >> >> >> DRDMPDD DCB DDNAME=DBGRDUMP,DSORG=PS,RECFM=VBA,MACRF=(W),BLKSIZE=882X >> >> ,LRECL=125,EXLST=*-* >> >> EXISTS DC AL1(EXLLASTE+EXLRJFCB) >> >> >> >> >> >> My write Is WRITE DECB,SF,DRDMPDD,(R9),'S',MF=E >> >> >> >> The data is the wto messages so I have a 2 byte length proceeding which I >> expand for 4 for the RDW >> >> >> >> I place the list as the first parameter to my subroutine >> >> >> >> So the first parameter is a list of addresses which have a two byte length >> prefix >> >> >> >> Here is the code >> >> >> >> L R7,PARMADDR >> >> XR R0,R0 >> >> MESSLOOP DS 0H >> >> L R6,0(R7) >> >> L R6,0(,R6) >> >> LTR R6,R6 >> >> BZ DOSNAP >> >> TM 0(R6),X'80' >> >> BO LASTMESS >> >> XC WRITEWRK,WRITEWRK >> >> MVC WRITEWRK+2(2),0(R6) >> >> MVI WRITEWRK+4,X'40' >> >> ICM R10,B'0011',0(R6) >> >> BCTR R10,0 >> >> EX R10,MVEWRK >> >> LA R9,WRITEWRK >> >> WRITE DECB,SF,DRDMPDD,(R9),'S',MF=E >> >> CHECK DECB >> >> LA R7,4(,R7) >> >> B MESSLOOP >> >> MVEWRK MVC WRITEWRK+5(0),2(R6) >> >> >> >> This is the message I am getting >> >> >> >> IEC036I 002-30,IGC0005E,JOER,ISPFLITE,DBGRDUMP,0AAB >> >> >> >> The return code 30 from abend 002 is what is listed below but doesn't seem >> to match my case >> >> >> >> 30 One of the following is true: . A READ macro was issued, but the length >> calculated to be read was zero. >> >> . A PUT macro using move mode was issued for a format 'F', 'FB', or 'U' >> QSAM >> data set, but the DCBLRECL field contained zero or a negative value >> >> >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> >> ---------------------------------------------------------------------- >> For IBM-MAIN subscribe / signoff / archive access instructions, >> send email to [email protected] with the message: INFO IBM-MAIN >> > -- > Joe Reichman > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN > > ---------------------------------------------------------------------- > For IBM-MAIN subscribe / signoff / archive access instructions, > send email to [email protected] with the message: INFO IBM-MAIN ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
