First of all, congrats on showing your code.
Probably due to the DECB not being properly initialized.
You need a READ with MF=L in your constant area and need to copy it top the
working storage copy.
IREAD READ whatever,MF=L
LREAD EQU *-IREAD
MVC DECB(LREAD),IREAD
On Sun, 12 Mar 2023 23:27:56 -0400 Joseph Reichman <[email protected]>
wrote:
:>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
--
Binyamin Dissen <[email protected]>
http://www.dissensoftware.com
Director, Dissen Software, Bar & Grill - Israel
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
