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 Im making things complicated but I didnt 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%7Ca5384b0b51bd47b8246608db23b83213%7C9e857255df574c47a0c00546460380cb%7C0%7C0%7C638143046240514940%7CUnknown%7CTWFpbGZsb3d8eyJWIjoiMC4wLjAwMDAiLCJQIjoiV2luMzIiLCJBTiI6Ik1haWwiLCJXVCI6Mn0%3D%7C3000%7C%7C%7C&sdata=1GXHejiPW0r%2FVJ1HXT1ML7iuT276UrtX8j7M8wwnXIw%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://www.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
