CloneSet12


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
951040.973paragraph_list[3]
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1956238
CCCC10.COB
2956370
CCCC10.COB
3953939
CCCC12.COB
4954077
CCCC12.COB
5956422
CCCC15.COB
6956546
CCCC15.COB
7953563
CCCC3.COB
8953687
CCCC3.COB
9955739
CCCC7.COB
10955863
CCCC7.COB
Clone Instance
1
Line Count
95
Source Line
6238
Source File
CCCC10.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
2
Line Count
95
Source Line
6370
Source File
CCCC10.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
3
Line Count
95
Source Line
3939
Source File
CCCC12.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
4
Line Count
95
Source Line
4077
Source File
CCCC12.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
5
Line Count
95
Source Line
6422
Source File
CCCC15.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
6
Line Count
95
Source Line
6546
Source File
CCCC15.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
7
Line Count
95
Source Line
3563
Source File
CCCC3.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
8
Line Count
95
Source Line
3687
Source File
CCCC3.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
9
Line Count
95
Source Line
5739
Source File
CCCC7.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone Instance
10
Line Count
95
Source Line
5863
Source File
CCCC7.COB

      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2.
           ACCEPT REPORT-DATE
                   IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                   IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                   IN HEADER-MONTH-TABLE
                   (REPORT-MONTH) TO
                      HEADER-MONTH.
           MOVE REPORT-DAY
                   IN HEADER-HOLDING-AREA TO
                      HEADER-DAY
                   IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                   IN HEADER-HOLDING-AREA TO
                      HEADER-YEAR
                   IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                   IN HEADER-HOLDING-AREA TO
                      HEADER-TIME
                   IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING       ALL '/'
                                   BY ':'.
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      NARROW-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2.
           MOVE COMMUNITY-COLLEGE-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                   IN HEADER-HOLDING-AREA TO
                      WIDE-HEADING-LOCATION
                   IN HEADING-TITLE-LINE.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO
                      LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO
                      WIDE-RIGHT-STATISTIC.
           WRITE PRINT-RECORD-2
             FROM       HEADING-LINE
                   AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.


Clone AbstractionParameter Count: 4Parameter Bindings

        [[#22aba280]].
           ACCEPT REPORT-DATE
                    IN HEADER-HOLDING-AREA
             FROM DATE.
           ACCEPT REPORT-TIME
                    IN HEADER-HOLDING-AREA
             FROM TIME.
           MOVE FULL-MONTH-NAME
                  IN HEADER-MONTH-TABLE (REPORT-MONTH) TO HEADER-MONTH.
           MOVE REPORT-DAY
                  IN HEADER-HOLDING-AREA TO HEADER-DAY
                                              IN HEADER-STATISTICS.
           MOVE REPORT-YEAR
                  IN HEADER-HOLDING-AREA TO HEADER-YEAR
                                              IN HEADER-STATISTICS.
           MOVE ACTUAL-CLOCK-TIME
                  IN HEADER-HOLDING-AREA TO HEADER-TIME
                                              IN HEADER-STATISTICS.
           MOVE ZERO TO FIRST-PAGE-SWITCH.
           INSPECT HEADER-TIME-AREA
             REPLACING
               ALL
                 '/'
                   BY ':'.
        [[#22aba3c0]].
           MOVE COMMUNITY-COLLEGE-TITLE
                  IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                  IN HEADER-HOLDING-AREA TO HEADING-TITLE-LINE.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO NARROW-RIGHT-STATISTIC.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO NARROW-RIGHT-STATISTIC.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
        [[#22aba020]].
           MOVE COMMUNITY-COLLEGE-TITLE
                  IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION
                                              IN HEADING-TITLE-LINE.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING PAGE.
           MOVE SPACES TO HEADING-LINE.
           MOVE MIS-PILOT-TITLE
                  IN HEADER-HOLDING-AREA TO WIDE-HEADING-LOCATION
                                              IN HEADING-TITLE-LINE.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-TIME TO LEFT-STATISTIC.
           MOVE HEADER-REPORT-PAGE TO WIDE-RIGHT-STATISTIC.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
           MOVE HEADER-REPORT-ID TO LEFT-STATISTIC.
           MOVE HEADER-REPORT-DATE TO WIDE-RIGHT-STATISTIC.
           WRITE [[#22aba2e0]]
             FROM HEADING-LINE
             AFTER ADVANCING 1 LINE.
           MOVE SPACES TO HEADING-LINE.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
11[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2 
12[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE 
13[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE 
14[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2 
15[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2 
16[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE 
17[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE 
18[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2 
19[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE 
110[[#22aba280]]
      *
      *
       1HDR-FIRST-PAGE-ROUTINE-2 
21[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2 
22[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE 
23[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE 
24[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2 
25[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2 
26[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE 
27[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE 
28[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2 
29[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE 
210[[#22aba3c0]]
      *
      *
       2HDR-NARROW-PAPER-ROUTINE-2 
31[[#22aba2e0]]
       PRINT-RECORD-2 
32[[#22aba2e0]]
       PRINT-RECORD 
33[[#22aba2e0]]
       PRINT-RECORD 
34[[#22aba2e0]]
       PRINT-RECORD-2 
35[[#22aba2e0]]
       PRINT-RECORD-2 
36[[#22aba2e0]]
       PRINT-RECORD 
37[[#22aba2e0]]
       PRINT-RECORD 
38[[#22aba2e0]]
       PRINT-RECORD-2 
39[[#22aba2e0]]
       PRINT-RECORD 
310[[#22aba2e0]]
       PRINT-RECORD-2 
41[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2 
42[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE 
43[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE 
44[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2 
45[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2 
46[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE 
47[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE 
48[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2 
49[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE 
410[[#22aba020]]
      *
      *
       3HDR-WIDE-PAPER-ROUTINE-2