The GET_FIELD function retrieves the values for specific collected fields.
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_UserID DS CL8 module DFHEIENT MVC MEIC_Function,=AL4(MEIC_GetField) Function MVC MEIC_F008_FldCode,=AL4(MEIC_F008_FC_UserID) EXEC CICS LINK PROGRAM('GSVCMEI') X COMMAREA(MEIC) X LENGTH(=AL2(MEIC_L)) MVC DSA_UserID,MEIC_F008_UserID UserID EXEC CICS RETURN
Copyright © 2014 CA.
All rights reserved.
|
|