100100****************************************************************** 100200* COPY/UTIL/DATE/WORKAREA. *020503PK 100300* WORKING-STORAGE FIELDS FOR THE Q-SERIES DATE ROUTINES. * 100380******************************************************************980601PK 100381* *980601PK 100382* Copyright (C) 1989-2002: *021123PK 100383* Paradigm Corporation *021123PK 100384* 9625 Black Mountain Road, Suite 218 *021123PK 100385* San Diego, California 92126-4598 USA *021123PK 100386* voice +1-858-536-5533; fax 858-536-5545 *021123PK 100387* http://www.digm.com *021123PK 100388* *021123PK 100389* This material may be copied and used for any purpose *021101PK 100390* providing this copyright notice is preserved and that *021101PK 100391* appropriate credit is given. *021101PK 100392* *021101PK 100393* This material is offered AS-IS WITH NO WARRANTY. *021101PK 100394* Paradigm hereby disclaims all warranties respecting this *021101PK 100395* material, expressed or implied, including without limita- *021101PK 100396* tion warranty of design, merchantability, fitness for a *021101PK 100397* particular purpose and against infringement. *021101PK 100398* *980601PK 100400****************************************************************** 100500* 2002-05-03 P.KIMPEL 020503PK 100501* ORIGINAL VERSION, CLONED FROM SCPD COPY/LIB/DATE/WORKAREA. 020503PK 100510* 2002-06-10 P.KIMPEL 020610PK 100511* ADD TIME-IN, -OUT HHMM BREAKOUT FIELDS. 020610PK 100520* 2002-11-23 P.KIMPEL 021123PK 100521* REMOVE OBSOLETE FISCAL YEAR ITEMS. 021123PK 110000****************************************************************** 110100*01 WDA-DATE-AREA. 110102 05 WDA-TIME-6-FACTOR VALUE 0.00003840 REAL. 951213PK 110104 05 WDA-SEC-PER-TICK VALUE 0.0000024 REAL. 011206PK 110106 05 WDA-SEC-PER-DAY VALUE 86400 REAL. 011206PK 110110 05 WDA-MIN-DATE PIC 9(8) VALUE 19000301. 980601PK 110120 05 WDA-MAX-DATE PIC 9(8) VALUE 21000228. 980601PK 110130 05 WDA-CENTURY-BIAS PIC 9(4) VALUE 95. 980601PK 110170 05 WDA-YEAR-BASIS PIC 9(4) VALUE 1900. 980601PK 110500 980601PK 110510 05 WDA-IN-DATE PIC 9(8). 980601PK 110520 05 WDA-IN-FIELDS REDEFINES WDA-IN-DATE. 980601PK 110530 10 WDA-IN-YYMM PIC 9(6). 980601PK 110540 10 FILLER PIC 9(2). 980601PK 110550 05 WDA-IN-YYMM-FIELDS REDEFINES WDA-IN-DATE. 980601PK 110560 10 WDA-IN-YY PIC 9(4). 980601PK 110570 10 WDA-IN-MMDD PIC 9(4). 980601PK 110580 05 WDA-IN-CCYYMMDD REDEFINES WDA-IN-DATE. 980601PK 110590 10 WDA-IN-CC PIC 9(2). 980601PK 110600 10 WDA-IN-YYMMDD PIC 9(6). 980601PK 110610 10 WDA-IN-YYMMDD-FIELDS REDEFINES WDA-IN-YYMMDD. 980601PK 110620 15 WDA-IN-CY PIC 9(2). 980601PK 110630 15 WDA-IN-MM PIC 9(2). 980601PK 110640 15 WDA-IN-DD PIC 9(2). 980601PK 110700 980601PK 110710 05 WDA-TIME-IN PIC 9(8). 980601PK 110720 05 WDA-TIME-HHMMSS-IN REDEFINES WDA-TIME-IN 980601PK 110730 PIC 9(6)V99. 980601PK 110740 05 WDA-TIME-IN-FIELDS REDEFINES WDA-TIME-IN. 980601PK 110742 10 WDA-TIME-IN-HHMM PIC 9(4). 020610PK 110744 10 WDA-TIME-IN-HHMM-FIELDS REDEFINES WDA-TIME-IN-HHMM. 020610PK 110750 15 WDA-TIME-IN-HOUR PIC 9(2). 020610PK 110760 15 WDA-TIME-IN-MINUTE PIC 9(2). 020610PK 110770 10 WDA-TIME-IN-SECOND PIC 9(2)V99. 980601PK 110900 980601PK 110910 05 WDA-OUT-DATE PIC 9(8). 980601PK 110920 05 WDA-OUT-FIELDS REDEFINES WDA-OUT-DATE. 980601PK 110930 10 WDA-OUT-YYMM PIC 9(6). 980601PK 110940 10 FILLER PIC 9(2). 980601PK 110950 05 WDA-OUT-YYMM-FIELDS REDEFINES WDA-OUT-DATE. 980601PK 110960 10 WDA-OUT-YY PIC 9(4). 980601PK 110970 10 WDA-OUT-MMDD PIC 9(4). 980601PK 110980 05 WDA-OUT-CCYYMMDD REDEFINES WDA-OUT-DATE. 980601PK 110990 10 WDA-OUT-CC PIC 9(2). 980601PK 111000 10 WDA-OUT-YYMMDD PIC 9(6). 980601PK 111010 10 WDA-OUT-YYMMDD-FIELDS REDEFINES WDA-OUT-YYMMDD. 980601PK 111020 15 WDA-OUT-CY PIC 9(2). 980601PK 111030 15 WDA-OUT-MM PIC 9(2). 980601PK 111040 15 WDA-OUT-DD PIC 9(2). 980601PK 111200 980601PK 111210 05 WDA-TIME-OUT PIC 9(8). 980601PK 111220 05 WDA-TIME-HHMMSS-OUT REDEFINES WDA-TIME-OUT 980601PK 111230 PIC 9(6)V99. 980601PK 111240 05 WDA-TIME-OUT-FIELDS REDEFINES WDA-TIME-OUT. 980601PK 111242 10 WDA-TIME-OUT-HHMM PIC 9(4). 020610PK 111244 10 WDA-TIME-OUT-HHMM-FIELDS REDEFINES WDA-TIME-OUT-HHMM. 020610PK 111250 15 WDA-TIME-OUT-HOUR PIC 9(2). 020610PK 111260 15 WDA-TIME-OUT-MINUTE PIC 9(2). 020610PK 111270 10 WDA-TIME-OUT-SECOND PIC 9(2)V99. 980601PK 112000 980601PK 112020 05 WDA-TIME-6-IN SYNC REAL. 980601PK 112040 05 WDA-TIME-6-OUT REAL. 980601PK 112060 05 WDA-TIMESTAMP-IN PIC S9(11) BINARY.980601PK 112080 05 WDA-TIMESTAMP-OUT PIC S9(11) BINARY.980601PK 112100 05 WDA-JULIAN PIC S9(11) BINARY.980601PK 112120 05 WDA-INCREMENT PIC S9(11) BINARY.980601PK 112140 05 WDA-WEEK-DAY PIC 9(1) BINARY.980601PK 112160 05 WDA-WORK-DAY PIC S9(11) BINARY.980601PK 112180 05 WDA-WORK-YY PIC 9(4) BINARY.980601PK 112200 05 WDA-WORK-MM PIC 9(2) BINARY.980601PK 112220 05 WDA-WORK-DD PIC 9(2) BINARY.980601PK 112240 05 WDA-VALID-DATE PIC 9(1) BINARY.980601PK 112260 05 WDA-TIME-6-TIME PIC S9(11) BINARY.980601PK 112280 05 WDA-TIME-6-DATE PIC S9(11) BINARY.980601PK 112300 05 WDA-TIME-6-YEAR PIC S9(11) BINARY.980601PK 112320 05 WDA-TIME-6-DAY PIC S9(11) BINARY.980601PK 112340 05 WDA-SYS-TIMER REAL. 011206PK 112360 05 WDA-SYS-TOD REAL. 011206PK 112380 05 WDA-SYS-TIMESTAMP REAL. 011206PK 112400 05 WDA-BOD-TIMESTAMP REAL. 011206PK 112420 05 WDA-EOD-TIMESTAMP REAL. 011206PK 113000 980601PK 113010 05 WDA-SAVE-DATE PIC 9(8). 980601PK 113020 05 WDA-SAVE-DATE-FIELDS REDEFINES WDA-SAVE-DATE. 980601PK 113030 10 WDA-SAVE-YY PIC 9(4). 980601PK 113040 10 WDA-SAVE-MM PIC 9(2). 980601PK 113050 10 WDA-SAVE-DD PIC 9(2). 980601PK 113100 980601PK 113110 05 WDA-SYS-DATE PIC 9(8). 980601PK 113120 05 WDA-SYS-DATE-FIELDS REDEFINES WDA-SYS-DATE. 980601PK 113130 10 WDA-SYS-YY PIC 9(4). 980601PK 113140 10 WDA-SYS-MM PIC 9(2). 980601PK 113150 10 WDA-SYS-DD PIC 9(2). 980601PK 113200 980601PK 113210 05 WDA-SYS-TIME PIC 9(8). 980601PK 113220 05 WDA-SYS-HHMMSS REDEFINES WDA-SYS-TIME 980601PK 113230 PIC 9(6)V9(2). 980601PK 113240 05 WDA-SYS-HHMM-SS REDEFINES WDA-SYS-TIME. 980601PK 113250 10 WDA-SYS-HHMM PIC 9(4). 980601PK 113260 10 WDA-SYS-HH-MM REDEFINES WDA-SYS-HHMM. 980601PK 113270 15 WDA-SYS-HOUR PIC 9(2). 980601PK 113280 15 WDA-SYS-MIN PIC 9(2). 980601PK 113290 10 WDA-SYS-SEC PIC 9(2)V9(2). 980601PK 114000 980601PK 114800 05 WDA-MM-DD-YYYY. 980601PK 114900 10 WDA-MDY-MM PIC 9(2). 900124PK 115000 10 WDA-MDY-D1 PIC X(1). 900124PK 115100 10 WDA-MDY-DD PIC 9(2). 900124PK 115200 10 WDA-MDY-D2 PIC X(1). 900124PK 115300 10 WDA-MDY-YYYY PIC 9(4). 980601PK 115400 05 WDA-YYYY-MM-DD. 980601PK 115500 10 WDA-YMD-YYYY PIC 9(4). 980601PK 115600 10 WDA-YMD-D1 PIC X(1). 980601PK 115700 10 WDA-YMD-MM PIC 9(2). 980601PK 115800 10 WDA-YMD-D2 PIC X(1). 980601PK 115900 10 WDA-YMD-DD PIC 9(2). 980601PK 116000 05 WDA-DD-MMM-YYYY. 980601PK 116100 10 WDA-DMY-DD PIC 9(2). 980601PK 116200 10 WDA-DMY-D1 PIC X(1). 980601PK 116300 10 WDA-DMY-MMM PIC X(3). 980601PK 116400 10 WDA-DMY-D2 PIC X(1). 980601PK 116500 10 WDA-DMY-YYYY PIC 9(4). 980601PK 120000 05 WDA-DOW-VALUES. 980601PK 120100 10 WDA-SUNDAY PIC 9(1) VALUE 1. 980601PK 120200 10 FILLER PIC X(9) VALUE "Sunday". 980601PK 120300 10 WDA-MONDAY PIC 9(1) VALUE 2. 980601PK 120400 10 FILLER PIC X(9) VALUE "Monday". 980601PK 120500 10 WDA-TUESDAY PIC 9(1) VALUE 3. 980601PK 120600 10 FILLER PIC X(9) VALUE "Tuesday". 980601PK 120700 10 WDA-WEDNESDAY PIC 9(1) VALUE 4. 980601PK 120800 10 FILLER PIC X(9) VALUE "Wednesday". 980601PK 120900 10 WDA-THURSDAY PIC 9(1) VALUE 5. 980601PK 121000 10 FILLER PIC X(9) VALUE "Thursday". 980601PK 121100 10 WDA-FRIDAY PIC 9(1) VALUE 6. 980601PK 121200 10 FILLER PIC X(9) VALUE "Friday". 980601PK 121300 10 WDA-SATURDAY PIC 9(1) VALUE 7. 980601PK 121400 10 FILLER PIC X(9) VALUE "Saturday". 980601PK 121500 05 WDA-DOW-TABLE REDEFINES WDA-DOW-VALUES 980601PK 121600 OCCURS 7 INDEXED WDA-DWX. 980601PK 121700 10 WDA-DOW-INDEX PIC 9(1). 980601PK 121800 10 WDA-DOW-NAME. 980601PK 121850 15 WDA-DOW-NAME-3 PIC X(3). 980601PK 121900 15 FILLER PIC X(6). 980601PK 122000 05 WDA-MONTH-VALUES. 980601PK 122100 10 WDA-JANUARY PIC 9(2) VALUE 1. 980601PK 122200 10 FILLER PIC X(9) VALUE "January". 980601PK 122300 10 WDA-FEBRUARY PIC 9(2) VALUE 2. 980601PK 122400 10 FILLER PIC X(9) VALUE "February". 980601PK 122500 10 WDA-MARCH PIC 9(2) VALUE 3. 980601PK 122600 10 FILLER PIC X(9) VALUE "March". 980601PK 122700 10 WDA-APRIL PIC 9(2) VALUE 4. 980601PK 122800 10 FILLER PIC X(9) VALUE "April". 980601PK 122900 10 WDA-MAY PIC 9(2) VALUE 5. 980601PK 123000 10 FILLER PIC X(9) VALUE "May". 980601PK 123100 10 WDA-JUNE PIC 9(2) VALUE 6. 980601PK 123200 10 FILLER PIC X(9) VALUE "June". 980601PK 123300 10 WDA-JULY PIC 9(2) VALUE 7. 980601PK 123400 10 FILLER PIC X(9) VALUE "July". 980601PK 123500 10 WDA-AUGUST PIC 9(2) VALUE 8. 980601PK 123600 10 FILLER PIC X(9) VALUE "August". 980601PK 123700 10 WDA-SEPTEMBER PIC 9(2) VALUE 9. 980601PK 123800 10 FILLER PIC X(9) VALUE "September". 980601PK 123900 10 WDA-OCTOBER PIC 9(2) VALUE 10. 980601PK 124000 10 FILLER PIC X(9) VALUE "October". 980601PK 124100 10 WDA-NOVEMBER PIC 9(2) VALUE 11. 980601PK 124200 10 FILLER PIC X(9) VALUE "November". 980601PK 124300 10 WDA-DECEMBER PIC 9(2) VALUE 12. 980601PK 124400 10 FILLER PIC X(9) VALUE "December". 980601PK 124500 05 WDA-MONTH-TABLE REDEFINES WDA-MONTH-VALUES 980601PK 124600 OCCURS 12 INDEXED WDA-DMX. 980601PK 124700 10 WDA-MONTH-INDEX PIC 9(2). 980601PK 124800 10 WDA-MONTH-NAME. 980601PK 124900 15 WDA-MONTH-NAME-3 PIC X(3). 980601PK 125000 15 FILLER PIC X(6). 980601PK