./ ADD NAME=DATEUTIL 000100******************************************************************DATEUTIL 000700******************************************************************DATEUTIL 004000 05 DATEUTIL-MESSAGE PIC X(130). DQF20115 004100 05 DATEUTIL-WORK-AREA REDEFINES DATEUTIL-MESSAGE. DQF20115 001000 10 DU-FUNCTION PIC X(10). DATEUTIL 004300 10 DU-NUMBER PIC 9(08). DQF20115 001200 10 DU-DATE-1 PIC X(20). DATEUTIL 001300 10 DU-DAY-1-FORMAT PIC X(03). DATEUTIL 001400 10 DU-MONTH-1-FORMAT PIC X(05). DATEUTIL 001500 10 DU-YEAR-1-FORMAT PIC X(04). DATEUTIL 004800 10 DU-YEAR-1-SWITCH PIC X(02). DQF20115 004900 10 DU-YEAR-1-SWITCH-NUM REDEFINES DQF20115 005000 DU-YEAR-1-SWITCH PIC 9(02). DQF20115 005100 10 DU-DATE-1-FORMAT-CODE PIC 9(02). DQF20115 005200 88 DU-DATE-1-VALID-CODE VALUES 01 THRU 54. DQF20115 005300 10 DU-DATE-1-FORMAT-CODE-A REDEFINES DQF20115 005400 DU-DATE-1-FORMAT-CODE PIC X(02). DQF20115 001600 10 DU-DATE-1-FORMAT PIC X(20). DATEUTIL 001700 10 DU-DATE-2 PIC X(20). DATEUTIL 001800 10 DU-DAY-2-FORMAT PIC X(03). DATEUTIL 001900 10 DU-MONTH-2-FORMAT PIC X(05). DATEUTIL 002000 10 DU-YEAR-2-FORMAT PIC X(04). DATEUTIL 006000 10 DU-YEAR-2-SWITCH PIC X(02). DQF20115 006100 10 DU-YEAR-2-SWITCH-NUM REDEFINES DQF20115 006200 DU-YEAR-2-SWITCH PIC 9(02). DQF20115 006300 10 DU-DATE-2-FORMAT-CODE PIC 9(02). DQF20115 006400 88 DU-DATE-2-VALID-CODE VALUES 01 THRU 54. DQF20115 006500 10 DU-DATE-2-FORMAT-CODE-A REDEFINES DQF20115 006600 DU-DATE-2-FORMAT-CODE PIC X(02). DQF20115 002100 10 DU-DATE-2-FORMAT PIC X(20). DATEUTIL