Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.compcut +++| CTEXT COMPCUT - CLEAR PERMANENT FILE DEVICE INTERLOCK.
00002 M00S00002.compcut +++| SPACE 4
00003 M00S00003.compcut +++| IF -DEF,QUAL$,1
00004 M00S00004.compcut +++| QUAL COMPCUT
| Line S00005 Modification History |
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00005 M01S00005.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 1975.
| Line S00001 Modification History |
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00007 M00S00006.compcut +++| CUT SPACE 4
00008 M00S00007.compcut +++|*** CUT - CLEAR PERMANENT FILE DEVICE INTERLOCK.
00009 M00S00008.compcut +++|* R. J. THIELEN. 75/04/17.
00010 M00S00009.compcut +++|* C. R. LUND. 81/06/09.
00011 M00S00010.compcut +++| CUT SPACE 4
00012 M00S00011.compcut +++|*** CUT CLEARS THE PERMANENT FILE DEVICE INTERLOCK ON A
00013 M00S00012.compcut +++|* MASS STORAGE EQUIPMENT.
00014 M00S00013.compcut +++|*
| Line S00014 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00015 M01S00014.ns22000 ---|* ENTRY (T5) = EQUIPMENT TO CLEAR INTERLOCK ON.
| Line S00001 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00016 M01S00001.ns22000 +++|* ENTRY (T5) = EST ORDINAL TO CLEAR INTERLOCK ON.
00017 M00S00015.compcut +++|*
00018 M00S00016.compcut +++|* USES CM - CM+4.
00019 M00S00017.compcut +++|*
00020 M00S00018.compcut +++|* NOTE THIS COMMON DECK REQUIRES THE PRESENCE
00021 M00S00019.compcut +++|* OF *COMSCPS* AND *COMSEVT*.
00022 M00S00020.compcut +++|
00023 M00S00021.compcut +++|
00024 M00S00022.compcut +++| CUT SUBR ENTRY/EXIT
| Line S00023 Modification History |
M01 (Removed by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00025 M01S00023.ns22000 ---| LDD T5 SET EQUIPMENT PARAMETER
| Line S00002 Modification History |
M01 (Added by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00026 M01S00002.ns22000 +++| LDD T5 SET EST ORDINAL
00027 M00S00024.compcut +++| STD CM+1
00028 M00S00025.compcut +++| LDN CPIS CLEAR DEVICE INTERLOCK
00029 M00S00026.compcut +++| STD CM+3
00030 M00S00027.compcut +++| MONITOR STBM
00031 M00S00028.compcut +++| LDN ZERL
00032 M00S00029.compcut +++| CRD CM
00033 M00S00030.compcut +++| LDN PFUE ISSUE EVENT NOTICE FOR CLEARED INTERLOCK
00034 M00S00031.compcut +++| STD CM+4
00035 M00S00032.compcut +++| MONITOR EATM
00036 M00S00033.compcut +++| UJN CUTX EXIT
00037 M00S00034.compcut +++| SPACE 4
00038 M00S00035.compcut +++| QUAL$ IF -DEF,QUAL$
00039 M00S00036.compcut +++| QUAL *
00040 M00S00037.compcut +++| CUT EQU /COMPCUT/CUT
00041 M00S00038.compcut +++| QUAL$ ENDIF
00042 M00S00039.compcut +++| ENDX