| Previous CloneSet | Next CloneSet | Back to Main Report |
| Clone Mass | Clones in CloneSet | Parameter Count | Clone Similarity | Syntax Category [Sequence Length] |
|---|---|---|---|---|
| 85 | 10 | 0 | 1.000 | record_01_description_entry |
| Clone Abstraction | Parameter Bindings |
| Clone Instance (Click to see clone) | Line Count | Source Line | Source File |
|---|---|---|---|
| 1 | 85 | 2653 | CCCC12.COB |
| 2 | 85 | 2696 | CCCC13.COB |
| 3 | 85 | 3217 | CCCC14.COB |
| 4 | 85 | 3458 | CCCC15.COB |
| 5 | 85 | 993 | CCCC3.COB |
| 6 | 85 | 2768 | CCCC4.COB |
| 7 | 85 | 2636 | CCCC5.COB |
| 8 | 85 | 2761 | CCCC6.COB |
| 9 | 85 | 1211 | CCCC7.COB |
| 10 | 85 | 2819 | 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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
*
* * * * * * * * 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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
*
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.
|
| ||||
*
* * * * * * * * 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.
|
| ||||
*
*
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.
|
| |||
*
* * * * * * * * 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 Index | Clone Instance | Parameter Name | Value |
|---|---|---|---|
| None | |||