4. EXCEPTIONS › 4.3 Detailed Exception Descriptions › 04020: CICS Wait for Storage in EDSA

04020: CICS Wait for Storage in EDSA

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 or unreasonably
large storage requests above the 16 megabyte line.

RATIONALE:   A wait on CICS EDSA (extended dynamic storage
area) occurs when an unconditional request (SUSPEND=YES) for
resource SMEDSA cannot be satisfied.  This can be attributed
to the task having issued an unconditional GETMAIN request
for an unreasonably large amount of storage, or to the
systems getting too close to SOS, or to the storage becoming
too fragmented for the request to be satisfied.

DEFINITION:  This exception is noted when an CMF exception
class record is produced 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:  04020                                          */
 /* TITLE:  CICS WAIT FOR STORAGE IN EDSA                  */
 /* FILE:  DETAIL.CICCIN01                                 */
 /* ****************************************************** */
IF CINCODE = 20
 THEN DO;
  EXCCODE='04020'; SEVERITY='I'; MGMTAREA='PERFORMANCE';
  EXCDESC1 = CINTEXT;
  EXCDESC2= 'TRAN=' || TRANCODE ||
            'TERM=' || TERMINAL ||
            'USER=' || USERID ;
  LINK HIT;
END;

THRESHOLD MODIFICATION:  None required