Closed as program error.
Websphere Developer for zSeries V6.0.1: The sysVar.TransactionID is not set as expected running generated COBOL programs. An EGL program wants to use the TransactionID as part of the key for an error. In the generated COBOL program the transactionID is assigned to a program variable: * 2 *> MY_TRANID_COMM.TRANSID = SysVar.transactionID ; MOVE EZESEGTR TO TRANSID IN MY_TRANID_COMM However, it was found that SysVar.transactionID is NULL which leads to the code "MOVE EIBTRNID TO EZESEGTR" never to be run so the program variable does not contain contain the current CICS transaction ID. IF EZESEGTR = LOW-VALUES MOVE EIBTRNID TO EZESEGTR END-IF EZESEGTR is the internal variable for the EGL variable name sysVar.TransactionID used in generated COBOL programs. EZESEGTR is referred to below instead of sysVar.TransactionID. The problem is that in a called program EZESEGTR is set to SPACES and therefore the low-values check fails which in turn means the MOVE EIBTRNID to EZESEGTR is not executed. This is the same behavior as VisualAge Generator. It was determined the generated COBOL should be changed to reflect the current value of EZESEGTR. Therefore, in V6.0.1: - If the called program is the initial entry point for EGL, it should reflect the value of the current CICS transaction ID. - If the called program is not the initial entry point for EGL (a 3270 application or another EGL called program ahead of it), then the EZESEGTR will be whatever value it was upon entry to the called program. This means if the parent main/called program sets EZESEGTR (sysvar.transactionID) to something other than the current tranaction ID, then that will be the value. - If the called program SETS the value of sysvar.transactionID, this value will not be effective/passed back to the parent/called program.
A fixtest is available upon request from support.
See error description.
A fix is available from support.
Reported component name
WD/Z COBOLGEN Z
Reported component ID
Last modified date
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fixed component name
WD/Z COBOLGEN Z
Fixed component ID
Applicable component levels