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
