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