On 12/8/2011 9:34 AM, Lindy Mayfield wrote:
Thank you. Very much.
I don't know what specifically caused the S0C4, you say it was the EODAD
address?
Part of the causes of my problems are most likely due to the overly pedantic
way that I go about learning something new. First I got the OPEN to work.
Then CLOSE, then a test PUT. Then the GET/PUT loop. When I couldn't figure
out where the problem was I put an ABEND one statement after the other until I
figured out what line caused the problem.
This is in my ASM code:
COPYFILE CSECT ,
COPYFILE AMODE 24
COPYFILE RMODE 24
And this is what I told the LKED:
//LKED EXEC PGM=IEWL,REGION=2M,COND=(0,NE),
// PARM='LIST,XREF,MAP,RENT,REUS,REFR,NCAL'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=(DISK,SEP=(SYSLIN,SYSLMOD)),SPACE=(CYL,(1,1))
//SYSLMOD DD DISP=SHR,DSN=IBMUSER.LINDY.LOAD
//SYSLIN DD DISP=(OLD,PASS),DSN=&&OBJ1
// DD *
ENTRY COPYFILE
NAME COPYFILE(R)
/*EOF
The /*EOF is useless and meaningless
Why are you using RENT, REUS, REFR as binder parms?
Your program is not reentrant nor refreshable; guess it
might be reusable, but that's usually reserved for
subroutines.
-----Original Message-----
From: IBM Mainframe Assembler List [mailto:[email protected]] On
Behalf Of Martin Truebner
Sent: Thursday, December 08, 2011 6:15 PM
To: [email protected]
Subject: Re: ASM Program to copy a file
Lindy,
here is some more
2. Those horrible S0C4's. First one was a S0C4-10, unknown module,
and happened on the OPEN. How could I have debugged this? The
problem that I found from reading (yes reading the docs, I do) the
docs carefully, was that DCB's have to be in 24 bit mode storage.
Whoops. Where (and what kind of) in the dump would show that
information?
If you look at the expansion of the DCB macro...you will see that EODAD is
stored in a 3 byte fields. I know that the VSE LNKEDT does tell you that the
module you try to link with an attribute of RMODE ANY/31 does have addresses
that use only 3 bytes. I have no clue why the BINDER does not behave the
same...wait, it could be that you had RMODE in the control-information for the
LNKEDT/binder in which case the system determines...if s/he demands it...no
need to complain - (he knows what he is doing).
--
Kind regards,
-Steve Comstock
The Trainer's Friend, Inc.
303-355-2752
http://www.trainersfriend.com
* To get a good Return on your Investment, first make an investment!
+ Training your people is an excellent investment
* Try our tool for calculating your Return On Investment
for training dollars at
http://www.trainersfriend.com/ROI/roi.html
