I m in bed but I remember the DECB
I just put in my working storage dsect
Like so
WS_DSECT
DS 18F
IHADECB DSECT=NO
WORKAREA. DS. CL100
On Mon, Mar 13, 2023 at 12:03 AM Seymour J Metz <[email protected]> wrote:
> That's not all of the code. How did you define WRITEWRK and DECB?
>
> ________________________________________
> From: IBM Mainframe Discussion List <[email protected]> on behalf
> of Joseph Reichman <[email protected]>
> Sent: Sunday, March 12, 2023 11:27 PM
> To: [email protected]
> Subject: IEC036I 002-30 trying to write messages to snapx
>
> 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
>
> ----------------------------------------------------------------------
> For IBM-MAIN subscribe / signoff / archive access instructions,
> send email to [email protected] with the message: INFO IBM-MAIN
>
--
Joe Reichman
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
