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
