5. FILES › 5.2 CICS Information Area Files › 5.2.7 CICS System Activity File (CICCSY) › 5.2.7.4 CICCSY Retrieval Examples

5.2.7.4 CICCSY Retrieval Examples

In the examples, a SAS macro variable is used to specify the
DDname part of the CA MICS file name. These macro variables
are a standard part of CA MICS and are available for all
files. The macro variable name has the form &diiit, where d
is the database identifier, iii is the information area
name, and t is the timespan.  For the examples, a database
identifier of P is used.  The identifier is installation
dependent, so you should find out what the identifiers are at
your installation.

1.  Print yesterday's average short response by hour.

      PROC PRINT DATA=&PCICD.CICCSY01;
      ID HOUR; VAR SYSID CICSID CSYAVSTM;
      RUN;

2.  Generate a vertical bar graph of ended transaction
    activity for each hour of the day for the day before
    yesterday.

      PROC CHART DATA=&PCICD..CICCSY02;
      VBAR HOUR /
      MIDPOINTS=0 TO 23 BY 01 SUMVAR=CSYTRANS TYPE=SUM
      DISCRETE;
      RUN;

3.  Generate a block chart of the percentage of CPU time
    spent in each major CICS service facility.

      DATA SUMF (KEEP= TIMETYPE PERCENT);
      SET &PCICD..CICCSY01 END=EOF;
      RETAIN TOTTOT TSRTOT SRBTOT CPJTOT TCPTOT
             USRTOT 0;
         TSRTOT + CSYTSRTM;
         SRBTOT + CSYSRBTM;
         CPJTOT + CSYCPJTM;
         TCPTOT + CSYTCPTM;
         USRTOT + CSYUSRTM;
         IF EOF  THEN DO;
           TOTTOT+TSRTOT+SRBTOT+
                  CPJTOT+TCPTOT+USRTOT;
           IF TOTTOT NE 0  THEN DO;
             TIMETYPE = 'TSR';
             PERCENT  = 100 * TSRTOT / TOTTOT;
             OUTPUT SUMF;
             TIMETYPE = 'SRB';
             PERCENT  = 100 * SRBTOT / TOTTOT;
             OUTPUT SUMF;
             TIMETYPE = 'CPJ';
             PERCENT  = 100 * CPJTOT / TOTTOT;
             OUTPUT SUMF;
             TIMETYPE = 'TCP';
             PERCENT  = 100 * TCPTOT / TOTTOT;
             OUTPUT SUMF;
             TIMETYPE = 'USR';
             PERCENT  = 100 * USRTOT / TOTTOT;
             OUTPUT SUMF;
           END;
         END; RUN;
         PROC CHART DATA=SUMF;
         BLOCK TIMETYPE / SUMVAR=PERCENT ; RUN;