LRECL=125
TESTBL DC X'00810000' 4 + sum of record lengths = 129
TESTRL DC X'007D0000' 4 + Data length = 125
TESTCC DC X'40'
TESTDATA DC CL120'----+----1----+----2----+----3----+----4----+----5X
'----+----6----+----7----+----8----+----9----+----A----+----B----+----C'
On Wed, Mar 15, 2023 at 8:08 PM Mike Schwab <[email protected]> wrote:
>
> > 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?
--
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
