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%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
