Common COMCEDT

2 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcedt +++|          CTEXT  COMCEDT - EDIT DATE OR TIME FROM PACKED FORMAT.
00002  M01S00002.comcedt +++|          SPACE  4
00003  M01S00003.comcedt +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcedt +++|          QUAL   COMCEDT
00005  M01S00005.comcedt +++|          BASE   D

Line S00006 Modification History
`M01` (Added by)	`comcedt`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORP.  1971.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcedt +++|          SPACE  4
00009  M01S00008.comcedt +++|***       EDT - EDIT DATE OR TIME FROM PACKED FORMAT.
00010  M01S00009.comcedt +++|*         D. A. HIVELEY.  71/01/13.
00011  M01S00010.comcedt +++|          SPACE  4

Line S00011 Modification History
`M01` (Added by)	`comcedt`
`M02` (Updated by)	`ns2486`

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

Line S00014 Modification History
`M01` (Added by)	`comcedt`
`M02` (Updated by)	`ns2486`

Seq #  *Modification Id* Act 
----------------------------+
00016  M02S00014.ns2486  ---|*         ENTRY  (X1) = PACKED NUMBER (LOWER 18 BITS).
00017  M01S00002.ns2486  +++|*         ENTRY  (X1) = PACKED NUMBER (LOWER 19 BITS).
00018  M01S00015.comcedt +++|*                (X2) = SEPARATOR CHARACTER.
00019  M01S00016.comcedt +++|*                        */* FOR DATE.
00020  M01S00017.comcedt +++|*                        *.* FOR TIME.
00021  M01S00018.comcedt +++|*
00022  M01S00019.comcedt +++|*         EXIT   (X6) = EDITED DATE OR TIME.
00023  M01S00020.comcedt +++|*                        TIME = * HH.MM.SS.*.
00024  M01S00021.comcedt +++|*                        DATE = * YY/MM/DD.*.
00025  M01S00022.comcedt +++|*
00026  M01S00023.comcedt +++|*         CALLS  CDD.
00027  M01S00024.comcedt +++|*
00028  M01S00025.comcedt +++|*         USES   A  1,2,3,6,7.
00029  M01S00026.comcedt +++|*                X  2,3,6,7.
00030  M01S00027.comcedt +++|*                B  NONE.
00031  M01S00028.comcedt +++|
00032  M01S00029.comcedt +++|
00033  M01S00030.comcedt +++| EDT      PS                 ENTRY/EXIT
00034  M01S00031.comcedt +++|          SX3    1R          SET SEPARATORS IN MASK
00035  M01S00032.comcedt +++|          LX2    18
00036  M01S00033.comcedt +++|          LX3    54
00037  M01S00034.comcedt +++|          BX6    X3+X2
00038  M01S00035.comcedt +++|          LX2    18
00039  M01S00036.comcedt +++|          BX6    X6+X2
00040  M01S00037.comcedt +++|          LX1    48
00041  M01S00038.comcedt +++|          SX3    1R.
00042  M01S00039.comcedt +++|          BX6    X6+X3
00043  M01S00040.comcedt +++|          MX3    -9          PICK OFF FIRST FIELD
00044  M01S00041.comcedt +++|          SA6    EDTA
00045  M01S00042.comcedt +++|          BX7    X1
00046  M01S00043.comcedt +++|          BX1    -X3*X1
00047  M01S00044.comcedt +++|          SA7    EDTB
00048  M01S00045.comcedt +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
00049  M01S00046.comcedt +++|          MX2    -12
00050  M01S00047.comcedt +++|          BX6    -X2*X6
00051  M01S00048.comcedt +++|          SA6    EDTC
00052  M01S00049.comcedt +++|          SA1    A7          PICK OFF SECOND FIELD
00053  M01S00050.comcedt +++|          MX2    -6
00054  M01S00051.comcedt +++|          LX1    6
00055  M01S00052.comcedt +++|          BX3    -X2*X1
00056  M01S00053.comcedt +++|          SX1    X3+100
00057  M01S00054.comcedt +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
00058  M01S00055.comcedt +++|          SA1    A6
00059  M01S00056.comcedt +++|          LX1    18
00060  M01S00057.comcedt +++|          MX3    -12
00061  M01S00058.comcedt +++|          BX6    -X3*X6
00062  M01S00059.comcedt +++|          BX6    X1+X6
00063  M01S00060.comcedt +++|          SA1    A7          PICK OFF THIRD FIELD
00064  M01S00061.comcedt +++|          LX6    18
00065  M01S00062.comcedt +++|          MX2    -6
00066  M01S00063.comcedt +++|          SA6    A6
00067  M01S00064.comcedt +++|          LX1    12
00068  M01S00065.comcedt +++|          BX3    -X2*X1
00069  M01S00066.comcedt +++|          SX1    X3+100
00070  M01S00067.comcedt +++|          RJ     CDD         CONVERT TO DECIMAL DISPLAY
00071  M01S00068.comcedt +++|          SA1    A6
00072  M01S00069.comcedt +++|          MX3    -12
00073  M01S00070.comcedt +++|          BX6    -X3*X6
00074  M01S00071.comcedt +++|          BX6    X6+X1
00075  M01S00072.comcedt +++|          SA1    EDTA        BOOLEAN IN PUNCTUATION
00076  M01S00073.comcedt +++|          LX6    6
00077  M01S00074.comcedt +++|          BX6    X6+X1
00078  M01S00075.comcedt +++|          EQ     EDT         RETURN
00079  M01S00076.comcedt +++|
00080  M01S00077.comcedt +++|
00081  M01S00078.comcedt +++| EDTA     BSS    1           MASK HOLD AREA
00082  M01S00079.comcedt +++| EDTB     BSS    1           PACKED DATA HOLD AREA
00083  M01S00080.comcedt +++| EDTC     BSS    1           DISPLAY DATA HOLD AREA
00084  M01S00081.comcedt +++|          SPACE  4
00085  M01S00082.comcedt +++|          BASE   *
00086  M01S00083.comcedt +++| QUAL$    IF     -DEF,QUAL$
00087  M01S00084.comcedt +++|          QUAL   *
00088  M01S00085.comcedt +++| EDT      EQU    /COMCEDT/EDT
00089  M01S00086.comcedt +++| QUAL$    ENDIF
00090  M01S00087.comcedt +++|          ENDX