Abend U4093 in Co:Z Launcher when calling multiple times

[Daniel]

Currently we are investigating the possibillity to use COZ.

In this regard we are calling Co:Z Launcher (COZLNCH) several times (>1) within one single REXX.
The Rexx itself is executed within one JCL Step via IKJEFT01.

The first COZLNCH call/execution works perfectly fine.
The second one fails with a condition U4093.

Do you have any suggestions on how we could resolve this issue?


TECHNICAL DETAILS
=================

1) ABEND MESSAGE

Code: Select all

IEA995I SYMPTOM DUMP OUTPUT  642                             
  USER COMPLETION CODE=4093 REASON CODE=00000090             
 TIME=12.15.32  SEQ=00186  CPU=0000  ASID=0035               
 PSW AT TIME OF ERROR  078D1000   801D05A4  ILC 2  INTC 0D   
   ACTIVE LOAD MODULE           ADDRESS=001CE0F0  OFFSET=0000
   NAME=CEEBINIT                                             
   DATA AT PSW  001D059E - 00181610  0A0DA7F4  001C1811      
   AR/GR 0: 96B6747A/84000000   1: 00000000/84000FFD         
         2: 00000000/00000090   3: 00000000/000000FF         
         4: 00000000/1797B300   5: 00000000/801D8788         
         6: 00000000/1797B300   7: 00000000/1797B7B0         
         8: 00000000/80000000   9: 00000000/097CE736         
         A: 00000000/00000001   B: 00000000/801D04D0         
         C: 00000000/1797CB48   D: 00000000/17C3A418         
         E: 00000000/897CCE22   F: 00000000/00000090         
 END OF SYMPTOM DUMP      

Code: Select all

CEE5101C During initialization, the callable service BPX1MSS failed. The system return code was 0000000156 , the
         reason code was 000000FF . The application will be terminated.

2) OPERATING SYSTEM
z/OS 1.12


3) CODE EXAMPLE (JCL)

Code: Select all

//**********************************************************
//* JCL Step for calling REXX for COZ call (CCMRXCOZ)                                      
//**********************************************************
//STEP0010 EXEC PGM=IKJEFT01,                               
//             PARM='CCMRXCOZ'                              
//*DATEI:  REXX LIB                                         
//SYSEXEC  DD DSN=REXX.EXEC.LIB,DISP=SHR        
//*                                                         
//STEPLIB  DD DISP=SHR,DSN=COZ.LOAD                 
//COZCONF  DD DISP=SHR,DSN=COZ.SAMPLE(COZCFGD)      
//         DD *                                             
ssh-options=-oStrictHostKeyChecking=no                      
server-env-PASSWD_DSN=//COZ.PASSWORD(PASSWD)      
server-env-SSH_ASKPASS=/usr/lpp/coz/bin/read_passwd_dsn.sh  
server-env-DISPLAY=none                                     
server-path=/usr/lpp/coz/bin/cozserver                      
/*                                                          
//SYSTSPRT DD  SYSOUT=*                                     
//SYSTSIN  DD  DUMMY                                        
//*                                                         
//BSTERR   DD  SYSOUT=*
//STDENV   DD  DUMMY   
//STDIN    DD  *       
# test command for COZ
whoami                 
/*                     
//STDERR   DD  SYSOUT=*
//STDOUT   DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//*          

4) CODE EXAMPLE (REXX)

Code: Select all

/* Rexx --------------------------------------------------------------*/
/* multiple COZ calls */

       call f2_run_coz      
       call f2_run_coz      

exit
/*--------------------------------------------------------------------*/
f2_run_coz:                                                             

    'COZLNCH / myuserid@serverurl.com'                  

    if rc = 0 then say "COZ ends with RC "rc  
              else say "COZ ends with RC "rc 
return 0

[dovetail]

We aren't sure why you want want to do this? We haven't tested running/calling COZLNCH multiple times like this.
We tried your example bu can't reproduce this on z/OS 1.13

It looks to us to be an issue with reusing the main TCB with multiiple invocations of a z/OS Unix process (LE Enclave)
You might want to open a PMR with IBM to see if they have any suggestions

You might have better luck if you create a new TCB for each COZLNCH invocation via ATTACH. This will create a new LE enclave on each invocation, which I would expect to resolve your issue:

/* REXX */
..
address ATTCHMVS "COZLNCH parms"
say 'RC='rc

[Daniel]

Hello Dovetail,

You might have better luck if you create a new TCB for each COZLNCH invocation via ATTACH. This will create a new LE enclave on each invocation, which I would expect to resolve your issue:

/* REXX */
..
address ATTCHMVS "COZLNCH parms"
say 'RC='rc

Unfortunately the way via ATTCHMVS (and various alternatives) did not solve this issue.

We tried your example bu can't reproduce this on z/OS 1.13

This was a very good hint. After upgrading to z/OS 1.13. this error is fixed.
Cannot determine which IBM PTF exactly now has solved the root cause, but anyway, with z/OS 1.13. COZ works as expected and is able to beeing called multiple times within one JCL Step.

Thanks for your support.
Kind regards,
Daniel