Am thinking I need to construct the entire block before the write that includes the BDW and each record RDW or since I have the ANSI character at the begining of each logical record combine all logical records and have a BDW and RDW with the same value as the macrf is W not WL where I can pass a record to dfsms
> On Mar 13, 2023, at 1:36 AM, Joseph Reichman <[email protected]> wrote: > > 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
