Common COMKKIM

1 Modification

Source

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

Line S00004 Modification History
`M01` (Added by)	`comkkim`
`M02` (Updated by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00004  M02S00004.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
00005  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00006  M01S00005.comkkim +++| KIM      SPACE  4,10
00007  M01S00006.comkkim +++|***       COMKKIM - K-DISPLAY INFORMATIVE MESSAGE DEFINITIONS FOR TAF.
00008  M01S00007.comkkim +++|*         B.C. ANTIN.        78/06/15.
00009  M01S00008.comkkim +++|*         D. O. HAMNES.      78/06/15.
00010  M01S00009.comkkim +++|          SPACE  4
00011  M01S00010.comkkim +++|***              COMKKIM CONTAINS EQUIVALENCES AND MICRO DEFINITIONS
00012  M01S00011.comkkim +++|*         FOR COMMUNICATION/UNIFORMITY OF K-DISPLAY INFORMATIVE
00013  M01S00012.comkkim +++|*         MESSAGES BETWEEN TAF AND SYSTEM TASKS SUCH AS *SYSMSG*.
00014  M01S00013.comkkim +++| KDMES    SPACE  4,10
00015  M01S00014.comkkim +++|**        KDMES - K-DISPLAY MESSAGE DEFINITION.
00016  M01S00015.comkkim +++|*
00017  M01S00016.comkkim +++|* L       KDMES  N,S
00018  M01S00017.comkkim +++|*         ENTRY  *L* = SYMBOL TO BE EQUATED TO *N*.
00019  M01S00018.comkkim +++|*                *N* = MESSAGE CODE NUMBER.
00020  M01S00019.comkkim +++|*                *S* = MESSAGE OF LENGTH .LE. 15 CHARACTERS.
00021  M01S00020.comkkim +++|*
00022  M01S00021.comkkim +++|*         EXIT   *L* IS EQUATED TO *N*.
00023  M01S00022.comkkim +++|*                A MICRO CONTANING *S* IS DEFINED.
00024  M01S00023.comkkim +++|
00025  M01S00024.comkkim +++|
00026  M01S00025.comkkim +++|          PURGMAC  KDMES
00027  M01S00026.comkkim +++|
00028  M01S00027.comkkim +++|          MACRO  KDMES,L,N,S
00029  M01S00028.comkkim +++| L        EQU    N           DEFINE MESSAGE CODE
00030  M01S00029.comkkim +++| .A       IFC    NE,$S$$     IF MESSAGE TO DEFINE
00031  M01S00030.comkkim +++| L_M      MICRO  1,15,$_S_$  DEFINE MESSAGE
00032  M01S00031.comkkim +++| .A       ENDIF
00033  M01S00032.comkkim +++|          ENDM
00034  M01S00033.comkkim +++|          SPACE  4
00035  M01S00034.comkkim +++| KDM0     KDMES  0           NO PREDETERMINED MESSAGE
00036  M01S00035.comkkim +++| KDM1     KDMES  1,(ILLEGAL COMMAND)
00037  M01S00036.comkkim +++| KDM2     KDMES  2,(DROP IGNORED)
00038  M01S00037.comkkim +++| KDM3     KDMES  3,(FORMAT ERROR)
00039  M01S00038.comkkim +++| KDM4     KDMES  4,(SYSTEM BUSY)
00040  M01S00039.comkkim +++| KDM5     KDMES  5,(TELEX BUSY)
00041  M01S00040.comkkim +++| KDM6     KDMES  6,(NOT AVAILABLE)
00042  M01S00041.comkkim +++|          ENDX