The get field data correlation ID function retrieves 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 DSA_CorID DS 0CL130 DSA_CorID_Type DS AL1 DSA_CorID_Len DS AL1 DSA_CorID_Data DS CL128 module DFHEIENT MVC MEIC_Function,=AL4(MEIC_GetField) Function MVC MEIC_F008_FldCode,=AL4(MEIC_F008_FC_CorID) EXEC CICS LINK PROGRAM('GSVCMEI') X COMMAREA(MEIC) X LENGTH(=AL2(MEIC_L)) MVC DSA_CorID,MEIC_F008_CorID EXEC CICS RETURN
Copyright © 2014 CA.
All rights reserved.
|
|