Here is the scenario...
 
PROGRAM1 is in LPA (actually, dynamically added to the MLPA in this  case 
during testing, but it the sequence also fails if it is in LPA) and is  marked 
as 
"RF RN RU", amode31, rmode any. The following sequence is executed by  an 
unauthorized, key 8 program...
 
1. LOAD EP=PROGRAM1     This works correctly.
 
2. IDENTIFY EP=PROGRAMA,ENTRY=(entry point returned from LOAD)    This works.
 
3. ATTACH EP=PROGRAMA   This works. A subtask is attached and  PROGRAM1 runs.
 
If I use XDC at this point to display the TCB's (L TASKS), it shows a  
subtask named PROGRAMA, which is what I expected.
 
4. PROGRAMA is subsequently detached correctly. XDC says the subtask is  gone.
 
5. LOAD EP=PROGRAM1      Again, this works  correctly. Same entry point 
returned.
 
6. IDENTIFY EP=PROGRAMA,ENTRY=(entry point returned from  LOAD)    This fails 
with R15=8.
 
In the above steps, the results of both LOADs (step 1 and step 5) return  the 
identical entry point, and that entry point is used for both IDENTIFY  
macros. There are no intervening DELETEs. I don't understand why the IDENTIFY  
macro 
in step 6 fails. Also, if after the IDENTIFY fails, I try to attach  PROGRAM1 
(instead of PROGRAMA) which is in PLPA, it fails with a S806-C.
 
Last oddity...All of this works correctly, i.e., second IDENTIFY works and  I 
can subsequently do another ATTACH of PROGRAMA, if I take PROGRAM1 out of 
PLPA  and move it into the STEPLIB concatenation.
 
FYI...PROGRAM1 is actually the CICS program DFHSKTSK, and PROGRAMA is  just 
another name I want to be able to "call" it. This is all running in a  
"controlled" CICS region, so the task doing the above sequence is not the job  
step 
task.
 
Thanks,
Ira Broussard

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html

Reply via email to