00001 *****                                                             09/29/98
00002 *                                                                 DTSIL007
00003 *    DTSIL007  CALENDAR YEAR EDIT/CONVERSION.                        LV004
00004 *                                                                 DTSIL007
00005 *****                                                             DTSIL007
00006                                                                      CL**4
00007          10  L007-OPTION                 PIC  X(01).              DTSIL007
00008              88  L007-FROM-YR-4              VALUE '1'.           DTSIL007
00009              88  L007-FROM-YR-2              VALUE '2'.           DTSIL007
00010                                                                      CL**4
00011          10  L007-RETURN-CODE            PIC  X(01).              DTSIL007
00012              88  L007-VALID-YR               VALUE '0'.           DTSIL007
00013              88  L007-NOT-VALID-YR           VALUE '1'.           DTSIL007
00014                                                                      CL**4
00015          10  L007-YR-4-X                 PIC  X(04).              DTSIL007
00016          10  L007-YR-4-9 REDEFINES L007-YR-4-X                    DTSIL007
00017                                          PIC  9(04).              DTSIL007
00018                                                                      CL**4
00019          10  L007-YR-2-X                 PIC  X(02).              DTSIL007
00020          10  L007-YR-2-9 REDEFINES L007-YR-2-X                    DTSIL007
00021                                          PIC  9(02).              DTSIL007
00022                                                                      CL**4
00023          10  L007-START-YRQ              PIC S9(05)      COMP-3.  DTSIL007
00024                                                                      CL**4
00025          10  L007-END-YRQ                PIC S9(05)      COMP-3.  DTSIL007
00026                                                                      CL**4
00027          10  FILLER                      PIC  X(16).              DTSIL007