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
