Command Error

Disclaimer: I'm taking a class.

In this problem, I'm trying to understand why


free fi(asmin asmout)
allocate fi(asmout) da(*) shr reuse
allocate fi(asmin)  da(part3.data(z196)) shr reuse
call load(pgm1)
/*

isn't working properly.
T020.txt
I020.txt
pgm1.txt
Z196.txt
PGM1CMP.txt
JCW2Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

aikimarkCommented:
according to the T020.txt file, you need to qualify the PDS name

IBM####.PART3.DATA(Z196)
giltjrCommented:
After which command are you getting an error and what is the error?
JCW2Author Commented:
the input is

free fi(asmin asmout)
allocate fi(asmout) da(*) shr reuse
allocate fi(asmin)  da(part3.data(z196)) shr reuse
call load(pgm1)
/*

into TSO and the error was:

call load(pgm1)                                      
IKJ56641I PGM1     ENDED DUE TO ERROR+                
IKJ56641I SYSTEM ABEND CODE 0C4   REASON CODE 00000011
Get Blueprints for Increased Customer Retention

The IT Service Excellence Tool Kit has best practices to keep your clients happy and business booming. Inside, you’ll find everything you need to increase client satisfaction and retention, become more competitive, and increase your overall success.

JCW2Author Commented:
How do I qualify the pds name? I attempted to do something like that twice.
aikimarkCommented:
I don't know your environment.  What does "IBM####" mean to you?
JCW2Author Commented:
My user id. In my case, IBM0428 as the #'s represent varying numbers.
aikimarkCommented:
Then try this:

allocate fi(asmin)  da(IBM0428.part3.data(z196)) shr reuse

Open in new window

JCW2Author Commented:
This resulted in a new error.
aikimarkCommented:
Have you run the program compilation job?
Does PGM1 exist in your load PDS?

Remove the "IBM0428." prefix.  Using that qualification requires the file name be enclosed in apostrophes.
JCW2Author Commented:
I forgot this file.
T20JOB2.txt
JCW2Author Commented:
I've run the compiler job, PGM1 exists in my load PDS, and it looks like the program is still not working.
JCW2Author Commented:
Additionally, the prefix was removed before that test.
aikimarkCommented:
Did you write or modify PGM1 source?
giltjrCommented:
You don't have to worry about the prefix, unless it is something different from your user-id.  By default TSO will prefix all files with your user-id, unless you enclose them in single quotes.  Say your user-id is "USER99", then:

allocate fi(asmin)  da(part3.data(z196)) shr reuse

is the same as:

allocate fi(asmin)  da('user99.part3.data(z196)') shr reuse

The commands are working fine.  The problem is that PGM1 is not completing it is abending (abnormal termination) with a system completeion code of 0C4 (zero-C-four).  You need to look up what that code is.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
aikimarkCommented:
the OC4 is a protected memory violation.
JCW2Author Commented:
I've determined what the problem was in the source code. Apparently the commands should have used abc and xyz instead of asmin and asmout, unless I changed the part of the code corresponding to those names.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Mainframe Languages

From novice to tech pro — start learning today.