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
