> TESTMESS DC X'000000050005000040F1F2F3F4' * Corrected to: TESTMESS DC X'000D00000009000040F1F2F3F4' TESTBL DC X'000D0000' 4 + sum of record lengths TEDTRL DC X'00090000' 4 + Data length = 9 TESTDATA DC X'40F1F2F3F4' C'b1234' so length = 5
On Wed, Mar 15, 2023 at 6:23 PM Joseph Reichman <[email protected]> wrote: > > 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 -- Mike A Schwab, Springfield IL USA Where do Forest Rangers go to get away from it all? ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
