| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 115 | 15 | 1 | 0.992 | record_01_description_entry |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 114 | 2931 | CCCC1.COB |
| 2 | 114 | 3417 | CCCC10.COB |
| 3 | 114 | 2950 | CCCC11.COB |
| 4 | 114 | 2740 | CCCC12.COB |
| 5 | 114 | 2783 | CCCC13.COB |
| 6 | 114 | 3304 | CCCC14.COB |
| 7 | 115 | 3545 | CCCC15.COB |
| 8 | 114 | 3147 | CCCC2.COB |
| 9 | 114 | 609 | CCCC3.COB |
| 10 | 114 | 2855 | CCCC4.COB |
| 11 | 114 | 2723 | CCCC5.COB |
| 12 | 114 | 2848 | CCCC6.COB |
| 13 | 114 | 874 | CCCC7.COB |
| 14 | 114 | 2669 | CCCC8.COB |
| 15 | 114 | 2906 | 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.
|
| ||||
*
*
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
* * * * * * * * 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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
* * * * * * * * 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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| |||
*
* * * * * * * * 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 Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| 1 | 1 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS.
88 PAGE-IS-FULL
VALUE 56 THROUGH 99. |
| 1 | 2 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 3 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 4 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 5 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 6 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 7 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 8 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 9 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 10 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 11 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 12 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 13 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 14 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |
| 1 | 15 | [[#22a1b640]] | 88 TOP-OF-PAGE
VALUE ZEROS. |