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
