Seymour I think I need to make the workarea +8, +4 for the RDW and +4 for the BDW Unlike qsam BSAM you have to write a block It’s something like that
> On Mar 13, 2023, at 1:13 AM, Joseph Reichman <[email protected]> wrote: > > 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
