Common COMPSES

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compses +++|          CTEXT  COMPSES - SET ERROR STATUS IN LOCAL MST (STLL).
00002  M00S00002.compses +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compses +++|          QUAL   COMPSES

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

Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compses +++| SES      SPACE  4
00006  M00S00005.compses +++|***       SES - SET ERROR STATUS IN LOCAL MST WORD *STLL*.
00007  M00S00006.compses +++|*         P. D. HAAS.        75/11/04.
00008  M00S00007.compses +++| SES      SPACE  4
00009  M00S00008.compses +++|***              SES ISSUES A MONITOR REQUEST TO SET OR CLEAR
00010  M00S00009.compses +++|*         AN ERROR STATUS IN THE *STLL* WORD OF THE MST.
00011  M00S00010.compses +++|*
00012  M00S00011.compses +++|*         ENTRY  (A) = ERROR CODE.
00013  M00S00012.compses +++|*                    = 0 IF ERROR STATUS TO BE CLEARED.

Line S00013 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00014  M01S00013.ns22000 ---|*                (T5) = EQUIPMENT NUMBER.

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

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00001.ns22000 +++|*                (T5) = EST ORDINAL.
00016  M00S00014.compses +++|*
00017  M00S00015.compses +++|*         EXIT   (A) = 0.
00018  M00S00016.compses +++|*
00019  M00S00017.compses +++|*         USES   CM - CM+4.
00020  M00S00018.compses +++|
00021  M00S00019.compses +++|
00022  M00S00020.compses +++| SES      SUBR               ENTRY/EXIT
00023  M00S00021.compses +++|          STD    CM+2        SET ERROR CODE

Line S00022 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00024  M01S00022.ns22000 ---|          LDD    T5          INSERT EQUIPMENT NUMBER

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

Seq #  *Modification Id* Act 
----------------------------+
00025  M01S00002.ns22000 +++|          LDD    T5          INSERT EST ORDINAL
00026  M00S00023.compses +++|          STD    CM+1
00027  M00S00024.compses +++|          LDN    SERS        SET SUBFUNCTION
00028  M00S00025.compses +++|          STD    CM+3

Line S00026 Modification History
`M01` (Removed by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00029  M01S00026.253l688 ---|          MONITOR STBM       ISSUE REQUEST

Line S00001 Modification History
`M01` (Added by)	`253l688`

Seq #  *Modification Id* Act 
----------------------------+
00030  M01S00001.253l688 +++|          MONITOR  SMDM      ISSUE REQUEST
00031  M00S00027.compses +++|          UJN    SESX        RETURN
00032  M00S00028.compses +++| SES      SPACE  4
00033  M00S00029.compses +++| QUAL$    IF     -DEF,QUAL$
00034  M00S00030.compses +++|          QUAL   *
00035  M00S00031.compses +++| SES      EQU    /COMPSES/SES
00036  M00S00032.compses +++| QUAL$    ENDIF
00037  M00S00033.compses +++|          ENDX