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]> > 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 ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
