Common COMCEDT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comcedt +++|          CTEXT  COMCEDT - EDIT DATE OR TIME FROM PACKED FORMAT.
00002  M00S00002.comcedt +++|          SPACE  4
00003  M00S00003.comcedt +++|          IF     -DEF,QUAL$,1
00004  M00S00004.comcedt +++|          QUAL   COMCEDT
00005  M00S00005.comcedt +++|          BASE   D

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP.  1971.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.comcedt +++|          SPACE  4
00009  M00S00008.comcedt +++|***       EDT - EDIT DATE OR TIME FROM PACKED FORMAT.
00010  M00S00009.comcedt +++|*         D. A. HIVELEY.  71/01/13.
00011  M00S00010.comcedt +++|          SPACE  4

Line S00011 Modification History
`M01` (Removed by)	`ns2486`

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00011.ns2486  ---|***              EDT EDITS AN 18 BIT PACKED DATE OR TIME INTO

Line S00001 Modification History
`M01` (Added by)	`ns2486`

Seq #  *Modification Id* Act 
----------------------------+
00013  M01S00001.ns2486  +++|***              EDT EDITS A 19 BIT PACKED DATE OR TIME INTO
00014  M00S00012.comcedt +++|*         A 10 CHARACTER, DECIMAL DISPLAY, EDITED DATE OR TIME.
00015  M00S00013.comcedt +++|*

Line S00014 Modification History
`M01` (Removed by)	`ns2486`

Seq #  *Modification Id* Act 
----------------------------+
00016  M01S00014.ns2486  ---|*         ENTRY  (X1) = PACKED NUMBER (LOWER 18 BITS).

Line S00002 Modification History
`M01` (Added by)	`ns2486`

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00002.ns2486  +++|*         ENTRY  (X1) = PACKED NUMBER (LOWER 19 BITS).
00018  M00S00015.comcedt +++|*                (X2) = SEPARATOR CHARACTER.
00019  M00S00016.comcedt +++|*                        */* FOR DATE.
00020  M00S00017.comcedt +++|*                        *.* FOR TIME.
00021  M00S00018.comcedt +++|*
00022  M00S00019.comcedt +++|*         EXIT   (X6) = EDITED DATE OR TIME.
00023  M00S00020.comcedt +++|*                        TIME = * HH.MM.SS.*.
00024  M00S00021.comcedt +++|*                        DATE = * YY/MM/DD.*.
00025  M00S00022.comcedt +++|*
00026  M00S00023.comcedt +++|*         CALLS  CDD.
00027  M00S00024.comcedt +++|*
00028  M00S00025.comcedt +++|*         USES   A  1,2,3,6,7.
00029  M00S00026.comcedt +++|*                X  2,3,6,7.
00030  M00S00027.comcedt +++|*                B  NONE.
00031  M00S00028.comcedt +++|
00032  M00S00029.comcedt +++|
00033  M00S00030.comcedt +++| EDT      PS                 ENTRY/EXIT
00034  M00S00031.comcedt +++|          SX3    1R          SET SEPARATORS IN MASK
00035  M00S00032.comcedt +++|          LX2    18
00036  M00S00033.comcedt +++|          LX3    54
00037  M00S00034.comcedt +++|          BX6    X3+X2
00038  M00S00035.comcedt +++|          LX2    18
00039  M00S00036.comcedt +++|          BX6    X6+X2
00040  M00S00037.comcedt +++|          LX1    48
00041  M00S00038.comcedt +++|          SX3    1R.
00042  M00S00039.comcedt +++|          BX6    X6+X3
00043  M00S00040.comcedt +++|          MX3    -9          PICK OFF FIRST FIELD
00044  M00S00041.comcedt +++|          SA6    EDTA
00045  M00S00042.comcedt +++|          BX7    X1
00046  M00S00043.comcedt +++|          BX1    -X3*X1
00047  M00S00044.comcedt +++|          SA7    EDTB
00048  M00S00045.comcedt +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
00049  M00S00046.comcedt +++|          MX2    -12
00050  M00S00047.comcedt +++|          BX6    -X2*X6
00051  M00S00048.comcedt +++|          SA6    EDTC
00052  M00S00049.comcedt +++|          SA1    A7          PICK OFF SECOND FIELD
00053  M00S00050.comcedt +++|          MX2    -6
00054  M00S00051.comcedt +++|          LX1    6
00055  M00S00052.comcedt +++|          BX3    -X2*X1
00056  M00S00053.comcedt +++|          SX1    X3+100
00057  M00S00054.comcedt +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
00058  M00S00055.comcedt +++|          SA1    A6
00059  M00S00056.comcedt +++|          LX1    18
00060  M00S00057.comcedt +++|          MX3    -12
00061  M00S00058.comcedt +++|          BX6    -X3*X6
00062  M00S00059.comcedt +++|          BX6    X1+X6
00063  M00S00060.comcedt +++|          SA1    A7          PICK OFF THIRD FIELD
00064  M00S00061.comcedt +++|          LX6    18
00065  M00S00062.comcedt +++|          MX2    -6
00066  M00S00063.comcedt +++|          SA6    A6
00067  M00S00064.comcedt +++|          LX1    12
00068  M00S00065.comcedt +++|          BX3    -X2*X1
00069  M00S00066.comcedt +++|          SX1    X3+100
00070  M00S00067.comcedt +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
00071  M00S00068.comcedt +++|          SA1    A6
00072  M00S00069.comcedt +++|          MX3    -12
00073  M00S00070.comcedt +++|          BX6    -X3*X6
00074  M00S00071.comcedt +++|          BX6    X6+X1
00075  M00S00072.comcedt +++|          SA1    EDTA        BOOLEAN IN PUNCTUATION
00076  M00S00073.comcedt +++|          LX6    6
00077  M00S00074.comcedt +++|          BX6    X6+X1
00078  M00S00075.comcedt +++|          EQ     EDT         RETURN
00079  M00S00076.comcedt +++|
00080  M00S00077.comcedt +++|
00081  M00S00078.comcedt +++| EDTA     BSS    1           MASK HOLD AREA
00082  M00S00079.comcedt +++| EDTB     BSS    1           PACKED DATA HOLD AREA
00083  M00S00080.comcedt +++| EDTC     BSS    1           DISPLAY DATA HOLD AREA
00084  M00S00081.comcedt +++|          SPACE  4
00085  M00S00082.comcedt +++|          BASE   *
00086  M00S00083.comcedt +++| QUAL$    IF     -DEF,QUAL$
00087  M00S00084.comcedt +++|          QUAL   *
00088  M00S00085.comcedt +++| EDT      EQU    /COMCEDT/EDT
00089  M00S00086.comcedt +++| QUAL$    ENDIF
00090  M00S00087.comcedt +++|          ENDX