4. EXCEPTIONS › 4.3 Detailed Exception Descriptions › 04025: CICS Program Compressions

04025: CICS Program Compressions

FILE:             CICS Incident File
SAS FILE NAME:    DETAIL.CICCIN01
SOURCE LOCATION:  prefix.MICS.USER.SOURCE(DYCICEXC)

SEVERITY:  Impacting            (SEVERITY='I')
MANAGEMENT AREA:  Performance   (MGMTAREA='PERFORMANCE')

PURPOSE:  Identifies CICS storage constraint.

RATIONALE:  Dynamic storage for non-resident programs are not
freed at end of task.  Therefore, CICS performs a function
called "program compression" to remove programs from storage
when either a GETMAIN cannot be satisfied from available free
storage, or the number of free storage pages is lower than
the threshold defined for storage cushion.  A high number of
program compressions indicates storage constraint and tuning
is needed.

DEFINITION:   This exception is noted when a CMF exception
class record (pre-CICS 3.1.1) is written for this condition.

EXCEPTION STATEMENTS:  The SAS statements identifying the
exception situation and describing the condition are stored
in the source member named in SOURCE LOCATION and are
described below.

 /* ****************************************************** */
 /* EX NR:  04025                                          */
 /* TITLE:  CICS PROGRAM COMPRESSION                       */
 /* FILE:  DETAIL.CICCIN01                                 */
 /* ****************************************************** */
IF CINCODE = 25
 THEN DO;
  EXCCODE='04025'; SEVERITY='I'; MGMTAREA='PERFORMANCE';
  EXCDESC1 = CINTEXT;
  EXCDESC2= 'TRAN=' || TRANCODE ||
            'TERM=' || TERMINAL ||
            'OPER=' || OPERID ;
  LINK HIT;
END;

THRESHOLD MODIFICATION:  None required