It’s just abend code reason code PSW 8/16 regs 31/64 access regs don’t think any one line is > 80
Thanks > On Mar 13, 2023, at 10:17 AM, Joseph Reichman <[email protected]> wrote: > > Got it thanks > >> On Mar 13, 2023, at 10:03 AM, Seymour J Metz <[email protected]> wrote: >> >> If your longest message is 120 then you only need 129. >> >> >> -- >> Shmuel (Seymour J.) Metz >> http://mason.gmu.edu/~smetz3 >> >> ________________________________________ >> From: IBM Mainframe Discussion List [[email protected]] on behalf of >> Joseph Reichman [[email protected]] >> Sent: Monday, March 13, 2023 9:40 AM >> To: [email protected] >> Subject: Re: IEC036I 002-30 trying to write messages to snapx >> >> So MF=L ( in constant storage initializes the DECB) but I think I have to >> build an entire block before I issue the WRITE macro not sure if I have more >> than 882 bytes it may only be one block >> >> Thank you >> >>>> On Mar 13, 2023, at 9:33 AM, Binyamin Dissen <[email protected]> >>>> wrote: >>> >>> Once the DECB is built you can reuse it . >>> >>> On Mon, 13 Mar 2023 09:10:14 -0400 Joseph Reichman <[email protected]> >>> wrote: >>> >>> :>My question is when do issue the WRITE macro when I have constructed a >>> complete block or after every record >>> :> >>> :>Thanks >>> :> >>> :>> On Mar 13, 2023, at 8:52 AM, Seymour J Metz <[email protected]> wrote: >>> :>> >>> :>> ?You don't need to write a large block but you do need to construct >>> both a BDW and an RDW. The length in the RDW should be 5 (control character >>> plus RDW) than the length of the text, and the lenght in the BDW should be >>> 4 more than that.. >>> :>> >>> :>> >>> :>> -- >>> :>> Shmuel (Seymour J.) Metz >>> :>> http://mason.gmu.edu/~smetz3 >>> :>> >>> :>> ________________________________________ >>> :>> From: IBM Mainframe Discussion List [[email protected]] on >>> behalf of Joseph Reichman [[email protected]] >>> :>> Sent: Monday, March 13, 2023 7:43 AM >>> :>> To: [email protected] >>> :>> Subject: Re: IEC036I 002-30 trying to write messages to snapx >>> :>> >>> :>> I move the iread ( list version of read ) in constants area to the decb >>> layout ? >>> :>> >>> :>> with macrf=w do I have to build the block on my own ? >>> :>> What I am asking do I have to have a ds cl882 and accumulate as many >>> records as I can with 1 BDW and 1 or more RDW. I know this sounds like I’m >>> making things complicated but I didn’t make it so snap did by having >>> macrf=W instead of qsam just asking >>> :>> >>> :>>> On Mar 13, 2023, at 6:03 AM, Binyamin Dissen >>> <[email protected]> wrote: >>> :>>> >>> :>>> ?First of all, congrats on showing your code. >>> :>>> >>> :>>> Probably due to the DECB not being properly initialized. >>> :>>> >>> :>>> You need a READ with MF=L in your constant area and need to copy it >>> top the >>> :>>> working storage copy. >>> :>>> >>> :>>> >>> :>>> IREAD READ whatever,MF=L >>> :>>> LREAD EQU *-IREAD >>> :>>> >>> :>>> >>> :>>> >>> :>>> >>> :>>> MVC DECB(LREAD),IREAD >>> :>>> >>> :>>> >>> :>>> >>> :>>> >>> :>>> On Sun, 12 Mar 2023 23:27:56 -0400 Joseph Reichman >>> <[email protected]> >>> :>>> wrote: >>> :>>> >>> :>>> :>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 >>> :>>> >>> :>>> -- >>> :>>> Binyamin Dissen <[email protected]> >>> :>>> >>> https://nam11.safelinks.protection.outlook.com/?url=http%3A%2F%2Fwww.dissensoftware.com%2F&data=05%7C01%7Csmetz3%40gmu.edu%7Cf10d394ae8df44d7ccee08db23ca888c%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638143125001271106%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=zpawdRdP0LaFYebDxIvSnOslmC%2BRb0qdho04eXxeH7Q%3D&reserved=0 >>> :>>> >>> :>>> Director, Dissen Software, Bar & Grill - Israel >>> :>>> >>> :>>> ---------------------------------------------------------------------- >>> :>>> 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 >>> :> >>> :>---------------------------------------------------------------------- >>> :>For IBM-MAIN subscribe / signoff / archive access instructions, >>> :>send email to [email protected] with the message: INFO IBM-MAIN >>> >>> -- >>> Binyamin Dissen <[email protected]> >>> http://secure-web.cisco.com/1xY8yMt6hxjgH93o-c7tIxy7PU0KxMn57cxUkA7HzS4vpYrK7kOh-yUcSTgi_ozjT6eH978-rhLUf77h5pbc_r_etZmGjOaBk9mA0ej_J5RIGkWCVkQvL3r-ERH8rc-DtnGDwSMo5QAyfH4XYEjC_oSpqBNhzKJ3C4Knd_bJrjkcXpue1_3PBBwQ9ekV-l37iwo5EKCXXFcnZvga0gNrtDVKjzInrjDCrWN8sBUhh6QNe99qBV3LWvAQYhngAGuH0qNZtDHlXmOlivvVIy2vld0N07ylGzlIhDcFd_HU_YLEEXJP_MK38dqBnd7qr0nLijR5Oml0A4nAAQvlVNp59LoiU7LBQZBG-SVttVVom7CA5Azb3WIawa--Wzxc2WTQA03I2lIhaA3cuowaGj6eNpVdVN-ZfD6SDWRJ_fTqktrM/http%3A%2F%2Fwww.dissensoftware.com >>> >>> Director, Dissen Software, Bar & Grill - Israel >>> >>> ---------------------------------------------------------------------- >>> 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
