The SET_USERDATA function sets or saves data values associated with an executing 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_SetUserData) Function MVC MEIC_F009_Name,=CL32'dataelementname' MVC MEIC_F009_Type,=AL1(MEIC_F009_EBCDIC) MVC MEIC_F009_DataLen,=Y(256) MVC MEIC_F009_Data(256),=CL256'datavalue' EXEC CICS LINK PROGRAM('GSVCMEI') X COMMAREA(MEIC) X LENGTH(=AL2(MEIC_L)) EXEC CICS RETURN
Copyright © 2014 CA.
All rights reserved.
|
|