CloneSet8


Previous CloneSetNext CloneSetBack to Main Report
Clone
Mass
Clones in
CloneSet
Parameter
Count
Clone
Similarity
Syntax Category
[Sequence Length]
851001.000record_01_description_entry
Clone AbstractionParameter Bindings
Clone Instance
(Click to see clone)
Line CountSource Line
Source File
1852653
CCCC12.COB
2852696
CCCC13.COB
3853217
CCCC14.COB
4853458
CCCC15.COB
585993
CCCC3.COB
6852768
CCCC4.COB
7852636
CCCC5.COB
8852761
CCCC6.COB
9851211
CCCC7.COB
10852819
CCCC9.COB
Clone Instance
1
Line Count
85
Source Line
2653
Source File
CCCC12.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
2
Line Count
85
Source Line
2696
Source File
CCCC13.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
3
Line Count
85
Source Line
3217
Source File
CCCC14.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
4
Line Count
85
Source Line
3458
Source File
CCCC15.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
5
Line Count
85
Source Line
993
Source File
CCCC3.COB

      *
      *
      *
      * * * * * * * *      VALIDATION TABLES      * * * * * * * *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
6
Line Count
85
Source Line
2768
Source File
CCCC4.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
7
Line Count
85
Source Line
2636
Source File
CCCC5.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
8
Line Count
85
Source Line
2761
Source File
CCCC6.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
9
Line Count
85
Source Line
1211
Source File
CCCC7.COB

      *
      * * * * * * * *      VALIDATION TABLES      * * * * * * * *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone Instance
10
Line Count
85
Source Line
2819
Source File
CCCC9.COB

      *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03  DATE-FORMAT-FLAG        PIC 9      VALUE 1.
                   88  YYMMDD-DATE-FORMAT         VALUE 1.
                   88  MMDD-DATE-FORMAT           VALUE 2.
                   88  YYMM-DATE-FORMAT           VALUE 3.
           03  DATE-FLAGS                         VALUE ZEROS.
               05  DATE-VALIDATION-FLAG
                                       PIC 9.
                   88  DATE-IS-VALID              VALUE 1.
                   88  DATE-NOT-NUMERIC           VALUE 2.
                   88  DATE-MISSING               VALUE 3.
               05  MONTH-FLAG
                                       PIC 9.
                   88  VALID-MONTH                VALUE 1.
               05  DAY-FLAG            PIC 9.
                   88  VALID-DAY                  VALUE 1.
               05  MAXIMUM-DAY-FLAG    PIC 9(2).
                   88  THIRTY-DAY-MONTH           VALUE 4 6 9 11.
                   88  THIRTY-ONE-DAY-MONTH
                           VALUE 1 3 5 7 8 10 12.
                   88  FEBRUARY                   VALUE 2.
           03  YYMMDD-DATE-WORKAREA.
               05  YYMMDD-YEAR         PIC 9(2).
               05  YYMMDD-MONTH        PIC 9(2).
               05  YYMMDD-DAY          PIC 9(2).
           03  MMDD-DATE-WORKAREA.
               05  MMDD-DATE-WORK-FIELDS.
                   07  MMDD-MONTH      PIC 9(2).
                   07  MMDD-DAY        PIC 9(2).
               05  MMDD-YEAR           PIC 9(2).
           03  YYMM-DATE-WORKAREA.
               05  YYMM-YEAR           PIC 9(2).
               05  YYMM-MONTH          PIC 9(2).
           03  CENTURY-WORKAREA.
               05  CENTURY             PIC 9(2)   VALUE 19.
               05  YEAR                PIC 9(2)   VALUE ZERO.
           03  CENTURY-FOR-COMPUTATION
                       REDEFINES CENTURY-WORKAREA
                                       PIC 9(4).
           03  MONTH-DAY-WORKAREA                 VALUE ZERO.
               05  MONTH-WORKAREA      PIC 9(2).
                   88  VALID-MONTH-VALUE          VALUES 1 THROUGH 12.
               05  DAY-WORKAREA        PIC 9(2).
           03  LEAP-YEAR-WORK                     VALUE ZERO.
               05  LEAP-YEAR-QUOTIENT  PIC 9(4).
               05  LEAP-YEAR-REMAINDER
                                       PIC 9(2).
                   88  LEAP-YEAR                  VALUE ZERO.
          03  DATE-ROUTINE-VALUES.
              05  YYMMDD-FORMAT-VALUE  PIC 9      VALUE 1.
              05  MMDD-FORMAT-VALUE    PIC 9      VALUE 2.
              05  YYMM-FORMAT-VALUE    PIC 9      VALUE 3.
              05  DATE-MISSING-FLAG    PIC 9      VALUE 3.
              05  DATE-NOT-NUMERIC-FLAG
                                       PIC 9      VALUE 2.
              05  MONTH-OF-30-DAYS     PIC 9(2)   VALUE 30.
              05  MONTH-OF-31-DAYS     PIC 9(2)   VALUE 31.
              05  MONTH-OF-29-DAYS     PIC 9(2)   VALUE 29.
              05  MONTH-OF-28-DAYS     PIC 9(2)   VALUE 28.
              05  DIVISOR-FOR-LEAP-YEAR
                                       PIC 9      VALUE 4.


Clone AbstractionParameter Count: 0Parameter Bindings

      *
      * * * * * * * *      VALIDATION TABLES      * * * * * * * *
      *
      *
      * * * * * * * *      VALIDATION TABLES      * * * * * * * *
      *
       01  DATE-VALIDATION-WORKAREA.
      ****************************************************************
      *                                                              *
      *      D A T E  V A L I D A T I O N  W O R K  A R E A          *
      *                                                              *
      *      INSTRUCTIONS:                                           *
      *      1.  MOVE THE DATE TO BE VALIDATED TO THE FOLLOWING      *
      *          FIELDS FOR THE GIVEN FORMATS:                       *
      *          A.  YYMMDD FORMAT -- MOVE TO: YYMMDD-DATE-WORKAREA  *
      *          B.  MMDD FORMAT   -- MOVE TO: MMDD-DATE-WORK-FIELDS *
      *              (NOTE BELOW FOR DETERMINING LEAP YEAR FOR MMDD  *
      *              DATE FORMAT.)                                   *
      *          C.  YYMM FORMAT   -- MOVE TO: YYMM-DATE-WORKAREA    *
      *      2.  WHEN PERFORMING THE PROCEDURE THAT USES THIS WORK   *
      *          AREA, FILL IN THE APPROPRIATE DATE-FORMAT-FLAG      *
      *          VALUES: 1, 2 OR 3.  SEE 03 LEVEL DATE-FORMAT-FLAG.  *
      *      3.  IF USING THE MMDD-DATE-FORMAT (VALUE 2), THE YEAR   *
      *          YOU WISH TO USE TO DETERMINE IF IT IS A LEAP YEAR   *
      *          MUST BE FILLED IN.  MOVE THIS VALUE INTO THE        *
      *          MMDD-YEAR DATA ITEM.  DO THIS PRIOR TO PERFORMING   *
      *          THE PROCEDURE DATVALP.                              *
      *                                                              *
      *      NOTE:  THE DEFAULT DATE IS SET TO THE YYMMDD FORMAT.    *
      *                                                              *
      ****************************************************************
           03 DATE-FORMAT-FLAG
              PIC 9
              VALUE 1.
              88 YYMMDD-DATE-FORMAT
                 VALUE 1.
              88 MMDD-DATE-FORMAT
                 VALUE 2.
              88 YYMM-DATE-FORMAT
                 VALUE 3.
           03 DATE-FLAGS
              VALUE ZEROS.
              05 DATE-VALIDATION-FLAG
                 PIC 9.
                 88 DATE-IS-VALID
                    VALUE 1.
                 88 DATE-NOT-NUMERIC
                    VALUE 2.
                 88 DATE-MISSING
                    VALUE 3.
              05 MONTH-FLAG
                 PIC 9.
                 88 VALID-MONTH
                    VALUE 1.
              05 DAY-FLAG
                 PIC 9.
                 88 VALID-DAY
                    VALUE 1.
              05 MAXIMUM-DAY-FLAG
                 PIC 9(2).
                 88 THIRTY-DAY-MONTH
                    VALUE 4
                          6
                          9
                          11.
                 88 THIRTY-ONE-DAY-MONTH
                    VALUE 1
                          3
                          5
                          7
                          8
                          10
                          12.
                 88 FEBRUARY
                    VALUE 2.
           03 YYMMDD-DATE-WORKAREA.
              05 YYMMDD-YEAR
                 PIC 9(2).
              05 YYMMDD-MONTH
                 PIC 9(2).
              05 YYMMDD-DAY
                 PIC 9(2).
           03 MMDD-DATE-WORKAREA.
              05 MMDD-DATE-WORK-FIELDS.
                 07 MMDD-MONTH
                    PIC 9(2).
                 07 MMDD-DAY
                    PIC 9(2).
              05 MMDD-YEAR
                 PIC 9(2).
           03 YYMM-DATE-WORKAREA.
              05 YYMM-YEAR
                 PIC 9(2).
              05 YYMM-MONTH
                 PIC 9(2).
           03 CENTURY-WORKAREA.
              05 CENTURY
                 PIC 9(2)
                 VALUE 19.
              05 YEAR
                 PIC 9(2)
                 VALUE ZERO.
           03 CENTURY-FOR-COMPUTATION
              REDEFINES CENTURY-WORKAREA
              PIC 9(4).
           03 MONTH-DAY-WORKAREA
              VALUE ZERO.
              05 MONTH-WORKAREA
                 PIC 9(2).
                 88 VALID-MONTH-VALUE
                    VALUES 1 THROUGH 12.
              05 DAY-WORKAREA
                 PIC 9(2).
           03 LEAP-YEAR-WORK
              VALUE ZERO.
              05 LEAP-YEAR-QUOTIENT
                 PIC 9(4).
              05 LEAP-YEAR-REMAINDER
                 PIC 9(2).
                 88 LEAP-YEAR
                    VALUE ZERO.
           03 DATE-ROUTINE-VALUES.
              05 YYMMDD-FORMAT-VALUE
                 PIC 9
                 VALUE 1.
              05 MMDD-FORMAT-VALUE
                 PIC 9
                 VALUE 2.
              05 YYMM-FORMAT-VALUE
                 PIC 9
                 VALUE 3.
              05 DATE-MISSING-FLAG
                 PIC 9
                 VALUE 3.
              05 DATE-NOT-NUMERIC-FLAG
                 PIC 9
                 VALUE 2.
              05 MONTH-OF-30-DAYS
                 PIC 9(2)
                 VALUE 30.
              05 MONTH-OF-31-DAYS
                 PIC 9(2)
                 VALUE 31.
              05 MONTH-OF-29-DAYS
                 PIC 9(2)
                 VALUE 29.
              05 MONTH-OF-28-DAYS
                 PIC 9(2)
                 VALUE 28.
              05 DIVISOR-FOR-LEAP-YEAR
                 PIC 9
                 VALUE 4.
 

CloneAbstraction
Parameter Bindings
Parameter
Index
Clone
Instance
Parameter
Name
Value
None