Common COMKKIM

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comkkim +++|          CTEXT  COMKKIM - K-DISPLAY INFORMATIVE MESSAGE DEFINITIONS.
00002  M00S00002.comkkim +++|          SPACE  4,10
00003  M00S00003.comkkim +++|          BASE   DECIMAL

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.

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

Seq #  *Modification Id* Act 
----------------------------+
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M00S00005.comkkim +++| KIM      SPACE  4,10
00007  M00S00006.comkkim +++|***       COMKKIM - K-DISPLAY INFORMATIVE MESSAGE DEFINITIONS FOR TAF.
00008  M00S00007.comkkim +++|*         B.C. ANTIN.        78/06/15.
00009  M00S00008.comkkim +++|*         D. O. HAMNES.      78/06/15.
00010  M00S00009.comkkim +++|          SPACE  4
00011  M00S00010.comkkim +++|***              COMKKIM CONTAINS EQUIVALENCES AND MICRO DEFINITIONS
00012  M00S00011.comkkim +++|*         FOR COMMUNICATION/UNIFORMITY OF K-DISPLAY INFORMATIVE
00013  M00S00012.comkkim +++|*         MESSAGES BETWEEN TAF AND SYSTEM TASKS SUCH AS *SYSMSG*.
00014  M00S00013.comkkim +++| KDMES    SPACE  4,10
00015  M00S00014.comkkim +++|**        KDMES - K-DISPLAY MESSAGE DEFINITION.
00016  M00S00015.comkkim +++|*
00017  M00S00016.comkkim +++|* L       KDMES  N,S
00018  M00S00017.comkkim +++|*         ENTRY  *L* = SYMBOL TO BE EQUATED TO *N*.
00019  M00S00018.comkkim +++|*                *N* = MESSAGE CODE NUMBER.
00020  M00S00019.comkkim +++|*                *S* = MESSAGE OF LENGTH .LE. 15 CHARACTERS.
00021  M00S00020.comkkim +++|*
00022  M00S00021.comkkim +++|*         EXIT   *L* IS EQUATED TO *N*.
00023  M00S00022.comkkim +++|*                A MICRO CONTANING *S* IS DEFINED.
00024  M00S00023.comkkim +++|
00025  M00S00024.comkkim +++|
00026  M00S00025.comkkim +++|          PURGMAC  KDMES
00027  M00S00026.comkkim +++|
00028  M00S00027.comkkim +++|          MACRO  KDMES,L,N,S
00029  M00S00028.comkkim +++| L        EQU    N           DEFINE MESSAGE CODE
00030  M00S00029.comkkim +++| .A       IFC    NE,$S$$     IF MESSAGE TO DEFINE
00031  M00S00030.comkkim +++| L_M      MICRO  1,15,$_S_$  DEFINE MESSAGE
00032  M00S00031.comkkim +++| .A       ENDIF
00033  M00S00032.comkkim +++|          ENDM
00034  M00S00033.comkkim +++|          SPACE  4
00035  M00S00034.comkkim +++| KDM0     KDMES  0           NO PREDETERMINED MESSAGE
00036  M00S00035.comkkim +++| KDM1     KDMES  1,(ILLEGAL COMMAND)
00037  M00S00036.comkkim +++| KDM2     KDMES  2,(DROP IGNORED)
00038  M00S00037.comkkim +++| KDM3     KDMES  3,(FORMAT ERROR)
00039  M00S00038.comkkim +++| KDM4     KDMES  4,(SYSTEM BUSY)
00040  M00S00039.comkkim +++| KDM5     KDMES  5,(TELEX BUSY)
00041  M00S00040.comkkim +++| KDM6     KDMES  6,(NOT AVAILABLE)
00042  M00S00041.comkkim +++|          ENDX