Thought only RDW was in the upper half it includes 4 bytes for the BDW Thank you I’ll try it out
> On Mar 15, 2023, at 8:39 PM, Seymour J Metz <[email protected]> wrote: > > The first HW is the length for both BDW and RDW. > > BDW DS 0H > DC Y(*-SOF) > DC H'0' > DC Y(*-SOF) > DC H'0' > DC C' ' > SOF EQU * > > ________________________________________ > From: IBM Mainframe Discussion List <[email protected]> on behalf of > Joseph Reichman <[email protected]> > Sent: Wednesday, March 15, 2023 7:22 PM > To: [email protected] > Subject: Help with BSAM WRITE VBA getting 002-30 > > Hi > > > > I have been abending for 2 days doing different things to write abend > messages snaps dataset so first let me post the dcb > > > > DRDMPDD DCB DDNAME=DBGRDUMP,DSORG=PS,RECFM=VBA,MACRF=(W),BLKSIZE=882X > > ,LRECL=125,EXLST=*-* > > > > The exlst is populated before open with JFCB exit do I get the dataset name > of the gdg using RDJFCB > > > > So the last thing I did was just try a simple test let me write 5 bytes out > so I know there has to be a BDW and RDW > > > > The BDW is a full word where the length is low order byte the rdw is in the > high order 2 bytes the low order being 0's > > > > Here is my message > > > > TESTMESS DC X'000000050005000040F1F2F3F4' > > > > I wasn't sure whether the BDW included 4 byte for the BDW itself but I tried > it with both 5 and 9 and got the same 002-30 > > > > I wasn't sure whether it is the address of testmess or the address was in a > fullword > > > > Meaning I tired this > > LA R9,TESTMESS > > ST R9,WTOPTR > > WRITE DECB,SF,DRDMPDD,WTOPTR,'S',MF=E > > > > And I tired this > > LA R9,TESTMESS > > WRITE DECB,SF,DRDMPDD,(R9),'S',MF=E > > > > Here is a bigger picture of the code > > OPEN (DRDMPDD,(OUTPUT)) > > MVC DECB(IWRITELEN),IWRITE > > L R7,PARMADDR Get paramter list > > L R9,0(,R7) > > LTR R9,R9 > > BZ DOSNAP > > LA R9,TESTMESS > > ST R9,WTOPTR > > WRITE DECB,SF,DRDMPDD,WTOPTR,'S',MF=E > > Here is IWRITE > > > > IWRITE WRITE D,SF,DRDMPDD,*-*,'S',MF=L > > IWRITELEN EQU *-IWRITE > > > > My decb is actually in working storage dsect > > > > WS_DSECT DSECT > > DS 18F > > IHADECB DSECT=NO > > PARMADDR DS F > > > > > > Don't really know what else to try > > > > thanks > > > ---------------------------------------------------------------------- > 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
