61 lines
4.7 KiB
COBOL
61 lines
4.7 KiB
COBOL
00001 ***** 10/15/98
|
|
00002 * DTSIL005
|
|
00003 * DTSIL005 ABSOLUTE TIME EDIT/CONVERSION MODULE LINKAGE. LV008
|
|
00004 * DTSIL005
|
|
00005 * CL**5
|
|
00006 * 09/29/1998 ADDED L005-SLASH-8-DATE TO LINKAGE CL**5
|
|
00007 * (REPLACING FILLER). EHH CL**5
|
|
00008 * CL**6
|
|
00009 * 10/14/1998 ADDED L005-DATE-8-SLASH-TIME CL**6
|
|
00010 * TO LINKAGE. CL**6
|
|
00011 * CHANGE FILLER FROM 12 TO 30 BYTES. CL**6
|
|
00012 ***** DTSIL005
|
|
00013 CL**3
|
|
00014 10 L005-OPTION PIC X(01). DTSIL005
|
|
00015 88 L005-FROM-SYS VALUE '1'. DTSIL005
|
|
00016 88 L005-FROM-ABSTIME VALUE '2'. DTSIL005
|
|
00017 88 L005-FROM-NINES-COMPLEMENT VALUE '3'. DTSIL005
|
|
00018 88 L005-FROM-DATE-TIME VALUE '4'. DTSIL005
|
|
00019 CL**3
|
|
00020 10 L005-ABSTIME PIC S9(15) COMP-3. DTSIL005
|
|
00021 CL**3
|
|
00022 10 L005-NINES-COMPLEMENT-ABSTIME DTSIL005
|
|
00023 PIC S9(15) COMP-3. DTSIL005
|
|
00024 CL**3
|
|
00025 10 L005-DATE PIC S9(09) COMP-3. DTSIL005
|
|
00026 CL**3
|
|
00027 10 L005-TIME PIC S9(07) COMP-3. DTSIL005
|
|
00028 CL**3
|
|
00029 10 L005-SLASH-DATE. DTSIL005
|
|
00030 15 L005-SLASH-MO PIC 9(02). DTSIL005
|
|
00031 15 FILLER PIC X(01). DTSIL005
|
|
00032 15 L005-SLASH-DA PIC 9(02). DTSIL005
|
|
00033 15 FILLER PIC X(01). DTSIL005
|
|
00034 15 L005-SLASH-YR PIC 9(02). DTSIL005
|
|
00035 DTSIL005
|
|
00036 CL**3
|
|
00037 10 L005-DISPLAY-TIME. DTSIL005
|
|
00038 15 L005-DISPLAY-H PIC 9(02). DTSIL005
|
|
00039 15 FILLER PIC X(01). DTSIL005
|
|
00040 15 L005-DISPLAY-M PIC 9(02). DTSIL005
|
|
00041 15 FILLER PIC X(01). DTSIL005
|
|
00042 15 L005-DISPLAY-S PIC 9(02). DTSIL005
|
|
00043 CL**4
|
|
00044 10 L005-SLASH-8-DATE. CL**4
|
|
00045 15 L005-SLASH-8-MO PIC 9(02). CL**4
|
|
00046 15 FILLER PIC X(01). CL**4
|
|
00047 15 L005-SLASH-8-DA PIC 9(02). CL**4
|
|
00048 15 FILLER PIC X(01). CL**4
|
|
00049 15 L005-SLASH-8-YR PIC 9(04). CL**4
|
|
00050 CL**3
|
|
00051 10 L005-DATE-8-SLASH-TIME. CL**6
|
|
00052 15 L005-DATE-8-YR PIC 9(04). CL**8
|
|
00053 15 L005-DATE-8-MO PIC 9(02). CL**6
|
|
00054 15 L005-DATE-8-DA PIC 9(02). CL**6
|
|
00055 15 FILLER PIC X(01). CL**7
|
|
00056 15 L005-TIME-HH PIC 9(02). CL**6
|
|
00057 15 L005-TIME-MM PIC 9(02). CL**6
|
|
00058 15 L005-TIME-SS PIC 9(02). CL**6
|
|
00059 CL**6
|
|
00060 10 FILLER PIC X(30). CL**6
|