CloneSet3


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
1151510.992record_01_description_entry
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
11142931
CCCC1.COB
21143417
CCCC10.COB
31142950
CCCC11.COB
41142740
CCCC12.COB
51142783
CCCC13.COB
61143304
CCCC14.COB
71153545
CCCC15.COB
81143147
CCCC2.COB
9114609
CCCC3.COB
101142855
CCCC4.COB
111142723
CCCC5.COB
121142848
CCCC6.COB
13114874
CCCC7.COB
141142669
CCCC8.COB
151142906
CCCC9.COB
Clone Instance
1
Line Count
114
Source Line
2931
Source File
CCCC1.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
2
Line Count
114
Source Line
3417
Source File
CCCC10.COB

      *
      *
      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
3
Line Count
114
Source Line
2950
Source File
CCCC11.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
4
Line Count
114
Source Line
2740
Source File
CCCC12.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
5
Line Count
114
Source Line
2783
Source File
CCCC13.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
6
Line Count
114
Source Line
3304
Source File
CCCC14.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
7
Line Count
115
Source Line
3545
Source File
CCCC15.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.
                   88  PAGE-IS-FULL               VALUE 56 THROUGH 99.


Clone Instance
8
Line Count
114
Source Line
3147
Source File
CCCC2.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
9
Line Count
114
Source Line
609
Source File
CCCC3.COB

      *
      * * * * * * * *       REPORT HEADINGS       * * * * * * * *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
10
Line Count
114
Source Line
2855
Source File
CCCC4.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
11
Line Count
114
Source Line
2723
Source File
CCCC5.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
12
Line Count
114
Source Line
2848
Source File
CCCC6.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
13
Line Count
114
Source Line
874
Source File
CCCC7.COB

      *
      * * * * * * * *       REPORT HEADINGS       * * * * * * * *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
14
Line Count
114
Source Line
2669
Source File
CCCC8.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone Instance
15
Line Count
114
Source Line
2906
Source File
CCCC9.COB

      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03  HEADING-LINE            PIC X(133) VALUE SPACES.
           03  HEADING-TITLE-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X(29).
               05  WIDE-HEADING-LOCATION
                                       PIC X(75).
               05  FILLER              PIC X(29).
           03  HEADING-STATISTICS-LINE
                       REDEFINES HEADING-LINE.
               05  FILLER              PIC X.
               05  LEFT-STATISTIC      PIC X(31).
               05  FILLER              PIC X(26).
               05  NARROW-RIGHT-STATISTIC
                                       PIC X(18).
               05  FILLER              PIC X(39).
               05  WIDE-RIGHT-STATISTIC
                                       PIC X(18).
           03  HEADER-STATISTICS.
               05  HEADER-REPORT-PAGE.
                   07  FILLER          PIC X(8)   VALUE SPACES.
                   07  FILLER          PIC X(5)   VALUE 'PAGE '.
                   07  HEADER-PAGE-NUMBER
                                       PIC Z(5)   VALUE SPACES.
               05  HEADER-REPORT-DATE.
                   07  HEADER-MONTH    PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X      VALUE SPACE.
                   07  HEADER-DAY      PIC Z(2)   VALUE SPACES.
                   07  FILLER          PIC X(4)   VALUE ', 19'.
                   07  HEADER-YEAR     PIC Z(2)   VALUE SPACES.
               05  HEADER-REPORT-TIME.
                   07  FILLER          PIC X(6)   VALUE 'TIME'.
                   07  HEADER-TIME-AREA           VALUE SPACES.
                       09  HEADER-TIME PIC Z9/99.
               05  HEADER-REPORT-ID.
                   07  FILLER          PIC X(11)  VALUE 'REPORT-ID: '.
                   07  PROGRAM-NAME    PIC X(20)  VALUE SPACES.
           03  HEADER-MONTH-NAMES.
               05  JANUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  JANUARY'.
               05  FEBRUARY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' FEBRUARY'.
               05  MARCH.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    MARCH'.
               05  APRIL.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '    APRIL'.
               05  MAY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '      MAY'.
               05  JUNE.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JUNE'.
               05  JULY.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '     JULY'.
               05  AUGUST.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '   AUGUST'.
               05  SEPTEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE 'SEPTEMBER'.
               05  OCTOBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE '  OCTOBER'.
               05  NOVEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' NOVEMBER'.
               05  DECEMBER.
                   07  FULL-MONTH-NAME PIC X(9)   VALUE ' DECEMBER'.
           03  HEADER-MONTH-TABLE
                       REDEFINES HEADER-MONTH-NAMES
                       OCCURS 12 TIMES
                       INDEXED BY HEADER-MONTH-INDEX.
               05 HEADER-MONTH-NAME.
                   07  FULL-MONTH-NAME PIC X(9).
           03  HEADER-HOLDING-AREA.
               05  REPORT-DATE         PIC 9(6).
               05  EXPANDED-REPORT-DATE
                           REDEFINES REPORT-DATE.
                   07  REPORT-YEAR     PIC 9(2).
                   07  REPORT-MONTH    PIC 9(2).
                   07  REPORT-DAY      PIC 9(2).
               05  REPORT-TIME         PIC 9(8).
               05  EXPANDED-REPORT-TIME
                           REDEFINES REPORT-TIME.
                   07  ACTUAL-CLOCK-TIME
                                       PIC 9(4).
                   07  FILLER          PIC 9(4).
               05  MIS-PILOT-TITLE.
                   07  FILLER          PIC X(23)  VALUE SPACES.
                   07  FILLER          PIC X(11)  VALUE 'MANAGEMENT'.
                   07  FILLER          PIC X(12)  VALUE 'INFORMATION'.
                   07  FILLER          PIC X(6)   VALUE 'SYSTEM'.
               05  COMMUNITY-COLLEGE-TITLE.
                   07  FILLER          PIC X(9)   VALUE SPACES.
                   07  FILLER          PIC X(12)  VALUE 'C A L I F O '.
                   07  FILLER          PIC X(12)  VALUE 'R N I A   C '.
                   07  FILLER          PIC X(12)  VALUE 'O M M U N I '.
                   07  FILLER          PIC X(12)  VALUE 'T Y   C O L '.
                   07  FILLER          PIC X(9)   VALUE 'L E G E S'.
               05  MAXIMUM-LINES-PER-PAGE
                                       PIC 9(2)   VALUE 59.
           03  HEADER-SWITCHES-AND-FLAGS.
               05  FIRST-PAGE-SWITCH   PIC 9      VALUE 1.
                   88  FIRST-PAGE                 VALUE 1.
               05  FIRST-PAGE-FLAG     PIC 9      VALUE 1.
               05  REPORT-WIDTH-SWITCH PIC X      VALUE 'W'.
                   88  WIDE-PAPER-REQUIRED        VALUE 'W'.
                   88  NARROW-PAPER-REQUIRED      VALUE 'N'.
               05  WIDE-PAPER-FLAG     PIC X      VALUE 'W'.
               05  NARROW-PAPER-FLAG   PIC X      VALUE 'N'.
           03  HEADER-WORKAREA-COUNTERS           VALUE ZEROS.
               05  REPORT-PAGE-COUNTER PIC 9(5).
               05  REPORT-LINE-COUNTER PIC 9(2).
                   88  TOP-OF-PAGE                VALUE ZEROS.


Clone AbstractionParameter Count: 1Parameter Bindings

      *
      * * * * * * * *       REPORT HEADINGS       * * * * * * * *
      *
      *
      *
       01  HEADER-WORKAREA.
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *                                                               *
      *                 H E A D E R   W O R K A R E A                 *
      *                                                               *
      * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
      *
           03 HEADING-LINE
              PIC X(133)
              VALUE SPACES.
           03 HEADING-TITLE-LINE
              REDEFINES HEADING-LINE.
              05 FILLER
                 PIC X(29).
              05 WIDE-HEADING-LOCATION
                 PIC X(75).
              05 FILLER
                 PIC X(29).
           03 HEADING-STATISTICS-LINE
              REDEFINES HEADING-LINE.
              05 FILLER
                 PIC X.
              05 LEFT-STATISTIC
                 PIC X(31).
              05 FILLER
                 PIC X(26).
              05 NARROW-RIGHT-STATISTIC
                 PIC X(18).
              05 FILLER
                 PIC X(39).
              05 WIDE-RIGHT-STATISTIC
                 PIC X(18).
           03 HEADER-STATISTICS.
              05 HEADER-REPORT-PAGE.
                 07 FILLER
                    PIC X(8)
                    VALUE SPACES.
                 07 FILLER
                    PIC X(5)
                    VALUE 'PAGE '.
                 07 HEADER-PAGE-NUMBER
                    PIC Z(5)
                    VALUE SPACES.
              05 HEADER-REPORT-DATE.
                 07 HEADER-MONTH
                    PIC X(9)
                    VALUE SPACES.
                 07 FILLER
                    PIC X
                    VALUE SPACE.
                 07 HEADER-DAY
                    PIC Z(2)
                    VALUE SPACES.
                 07 FILLER
                    PIC X(4)
                    VALUE ', 19'.
                 07 HEADER-YEAR
                    PIC Z(2)
                    VALUE SPACES.
              05 HEADER-REPORT-TIME.
                 07 FILLER
                    PIC X(6)
                    VALUE 'TIME'.
                 07 HEADER-TIME-AREA
                    VALUE SPACES.
                    09 HEADER-TIME
                       PIC Z9/99.
              05 HEADER-REPORT-ID.
                 07 FILLER
                    PIC X(11)
                    VALUE 'REPORT-ID: '.
                 07 PROGRAM-NAME
                    PIC X(20)
                    VALUE SPACES.
           03 HEADER-MONTH-NAMES.
              05 JANUARY.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '  JANUARY'.
              05 FEBRUARY.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE ' FEBRUARY'.
              05 MARCH.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '    MARCH'.
              05 APRIL.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '    APRIL'.
              05 MAY.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '      MAY'.
              05 JUNE.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '     JUNE'.
              05 JULY.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '     JULY'.
              05 AUGUST.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '   AUGUST'.
              05 SEPTEMBER.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE 'SEPTEMBER'.
              05 OCTOBER.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE '  OCTOBER'.
              05 NOVEMBER.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE ' NOVEMBER'.
              05 DECEMBER.
                 07 FULL-MONTH-NAME
                    PIC X(9)
                    VALUE ' DECEMBER'.
           03 HEADER-MONTH-TABLE
              REDEFINES HEADER-MONTH-NAMES
              OCCURS 12 TIMES
                INDEXED
                BY
                  HEADER-MONTH-INDEX.
              05 HEADER-MONTH-NAME.
                 07 FULL-MONTH-NAME
                    PIC X(9).
           03 HEADER-HOLDING-AREA.
              05 REPORT-DATE
                 PIC 9(6).
              05 EXPANDED-REPORT-DATE
                 REDEFINES REPORT-DATE.
                 07 REPORT-YEAR
                    PIC 9(2).
                 07 REPORT-MONTH
                    PIC 9(2).
                 07 REPORT-DAY
                    PIC 9(2).
              05 REPORT-TIME
                 PIC 9(8).
              05 EXPANDED-REPORT-TIME
                 REDEFINES REPORT-TIME.
                 07 ACTUAL-CLOCK-TIME
                    PIC 9(4).
                 07 FILLER
                    PIC 9(4).
              05 MIS-PILOT-TITLE.
                 07 FILLER
                    PIC X(23)
                    VALUE SPACES.
                 07 FILLER
                    PIC X(11)
                    VALUE 'MANAGEMENT'.
                 07 FILLER
                    PIC X(12)
                    VALUE 'INFORMATION'.
                 07 FILLER
                    PIC X(6)
                    VALUE 'SYSTEM'.
              05 COMMUNITY-COLLEGE-TITLE.
                 07 FILLER
                    PIC X(9)
                    VALUE SPACES.
                 07 FILLER
                    PIC X(12)
                    VALUE 'C A L I F O '.
                 07 FILLER
                    PIC X(12)
                    VALUE 'R N I A   C '.
                 07 FILLER
                    PIC X(12)
                    VALUE 'O M M U N I '.
                 07 FILLER
                    PIC X(12)
                    VALUE 'T Y   C O L '.
                 07 FILLER
                    PIC X(9)
                    VALUE 'L E G E S'.
              05 MAXIMUM-LINES-PER-PAGE
                 PIC 9(2)
                 VALUE 59.
           03 HEADER-SWITCHES-AND-FLAGS.
              05 FIRST-PAGE-SWITCH
                 PIC 9
                 VALUE 1.
                 88 FIRST-PAGE
                    VALUE 1.
              05 FIRST-PAGE-FLAG
                 PIC 9
                 VALUE 1.
              05 REPORT-WIDTH-SWITCH
                 PIC X
                 VALUE 'W'.
                 88 WIDE-PAPER-REQUIRED
                    VALUE 'W'.
                 88 NARROW-PAPER-REQUIRED
                    VALUE 'N'.
              05 WIDE-PAPER-FLAG
                 PIC X
                 VALUE 'W'.
              05 NARROW-PAPER-FLAG
                 PIC X
                 VALUE 'N'.
           03 HEADER-WORKAREA-COUNTERS
              VALUE ZEROS.
              05 REPORT-PAGE-COUNTER
                 PIC 9(5).
              05 REPORT-LINE-COUNTER
                 PIC 9(2).
                  [[#22a1b640]]
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS.
       88  PAGE-IS-FULL
           VALUE 56 THROUGH 99. 
12[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
13[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
14[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
15[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
16[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
17[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
18[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
19[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
110[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
111[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
112[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
113[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
114[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS. 
115[[#22a1b640]]
       88  TOP-OF-PAGE
           VALUE ZEROS.