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
