This function sets a correlation ID for the transaction.
Use the following CICS command level program example to code this function:
....+....1....+....2....+....3....+....4....+....5....+....6||7.. DFHEISTG DSECT , MEIC GSVCMEI GEN_COMMAREA,DSECT=NO module DFHEIENT MVC MEIC_Function,=AL4(MEIC_SetField) Function MVC MEIC_F005_FldCode,=AL4(MEIC_F005_FC_CorID) MVI MEIC_F005_CorID_Type,MEIC_F005_CorID_User MVI MEIC_F005_CorID_Len,16 MVC MEIC_F005_CorID_Data(16),=CL16'1234567890123456' EXEC CICS LINK PROGRAM('GSVCMEI') X COMMAREA(MEIC) X LENGTH(=AL2(MEIC_L)) EXEC CICS RETURN
Copyright © 2014 CA.
All rights reserved.
|
|