Many CICS transactions execute programs that are not defined to CICS. Knowing the names of non-CICS or external programs that are being used lets you track their usage.
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 MVS MEIC_Function,=AL4(MEIC_ProgramUse) Function MVC MEIC_F002_Program,=CL08'program' Program EXEC CICS LINK PROGRAM('GSVCMEI') X COMMAREA(MEIC) X LENGTH(=AL2(MEIC_L)) EXEC CICS RETURN
Program usage parameters:
Specifies an eight-character program name.
Copyright © 2014 CA.
All rights reserved.
|
|