Command Error

JCW2
JCW2 used Ask the Experts™
on
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
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Top Expert 2014

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

IBM####.PART3.DATA(Z196)
Top Expert 2014

Commented:
After which command are you getting an error and what is the error?

Author

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
Ensure you’re charging the right price for your IT

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!

Author

Commented:
How do I qualify the pds name? I attempted to do something like that twice.
Top Expert 2014

Commented:
I don't know your environment.  What does "IBM####" mean to you?

Author

Commented:
My user id. In my case, IBM0428 as the #'s represent varying numbers.
Top Expert 2014

Commented:
Then try this:

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

Open in new window

Author

Commented:
This resulted in a new error.
Top Expert 2014

Commented:
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.

Author

Commented:
I forgot this file.
T20JOB2.txt

Author

Commented:
I've run the compiler job, PGM1 exists in my load PDS, and it looks like the program is still not working.

Author

Commented:
Additionally, the prefix was removed before that test.
Top Expert 2014

Commented:
Did you write or modify PGM1 source?
Top Expert 2014
Commented:
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.
Top Expert 2014

Commented:
the OC4 is a protected memory violation.

Author

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.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial