cdc:nos2.source:opl.opl871:deck:0dq
Deck 0DQ
4 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.0dq +++| IDENT 0DQ,DQFX 00002 M01S00002.0dq +++| PERIPH J 00003 M01S00003.0dq +++| BASE MIXED 00004 M01S00004.0dq +++| SST 00005 M01S00005.0dq +++|*COMMENT 0DQ - DEQUEUE FILE.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.0dq +++| TITLE 0DQ - DEQUEUE FILE. 00009 M01S00008.0dq +++| SPACE 4,10 00010 M01S00009.0dq +++|*** 0DQ - DROP QUEUE FILE. 00011 M01S00010.0dq +++|* 00012 M01S00011.0dq +++|* D. R. HILGREN. 79/10/30. 00013 M01S00012.0dq +++|* R. M. DESSEL. 81/03/26. 00014 M01S00013.0dq +++|* P. D. HAAS. 81/06/18. 00015 M01S00014.0dq +++| SPACE 4,10 00016 M01S00015.0dq +++|*** *0DQ* IS A LOCATION-FREE ROUTINE USED TO DROP 00017 M01S00016.0dq +++|* A QFT ENTRY. *0DQ* PERFORMS THE FOLLOWING - 00018 M01S00017.0dq +++|* 1. SEARCH FOR QFT ENTRY. 00019 M01S00018.0dq +++|* 2. CLEAR QFT ENTRY. 00020 M01S00019.0dq +++|* 3. DROP DISK SPACE IF REQUESTED. 00021 M01S00020.0dq +++|* 4. INCREMENT MASS STORAGE PRU COUNTER IF DISK SPACE DROPPED. 00022 M01S00021.0dq +++|* 5. ISSUE ACCOUNT FILE MESSAGE IF FILE REMOVED FROM QUEUE.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00023 M02S00022.ns2663 ---| SPACE 4,10 00024 M01S00001.ns2663 +++| SPACE 4,15 00025 M01S00023.0dq +++|*** ENTRY CONDITIONS. 00026 M01S00024.0dq +++|*
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00027 M02S00025.ns2663 ---|* (QA) = 0. USE EQUIPMENT AND FIRST TRACK TO FIND
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00028 M02S00026.ns2663 ---|* QFT ENTRY.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00029 M02S00027.ns2663 ---|* (QA) = QFT ORDINAL. USE QFT ORDINAL TO FIND ENTRY. 00030 M01S00002.ns2663 +++|* (QA) = 0. USE EQUIPMENT AND FIRST TRACK TO FIND QFT ENTRY. 00031 M01S00003.ns2663 +++|* THE QFT ENTRY WILL BE INTERLOCKED BY *0DQ* PRIOR TO 00032 M01S00004.ns2663 +++|* DELETION FOR FUNCTIONS 0 AND 1. 00033 M01S00005.ns2663 +++|* (QA) = QFT ORDINAL. USE QFT ORDINAL TO FIND ENTRY. THE 00034 M01S00006.ns2663 +++|* CALLER OF *0DQ* MUST INTERLOCK THE QFT ENTRY PRIOR TO 00035 M01S00007.ns2663 +++|* CALLING *0DQ*. 00036 M01S00028.0dq +++|* ((LA)-1) = 0 RELEASE QFT ENTRY AND DISK SPACE. 00037 M01S00029.0dq +++|* = 1 RELEASE QFT ENTRY ONLY. 00038 M01S00030.0dq +++|* = 2 RELEASE DISK SPACE ONLY (FILE NOT IN QFT). 00039 M01S00031.0dq +++|* (FS - FS+4) = FST INFORMATION. 00040 M01S00032.0dq +++| SPACE 4,10 00041 M01S00033.0dq +++|*** EXIT CONDITIONS. 00042 M01S00034.0dq +++|* 00043 M01S00035.0dq +++|* (A) = 0 IF REQUESTED DEQUEUEING OPERATION PERFORMED. 00044 M01S00036.0dq +++|* .LT. 0 IF QUEUE FILE DEVICE INACCESSIBLE. 00045 M01S00001.ns2553 +++|* (T5) = QUEUE FILE DEVICE EST ORDINAL, IF DEVICE INACCESSIBLE. 00046 M01S00037.0dq +++|* 00047 M01S00038.0dq +++|* (QA) = QFT ORDINAL, IF QFT ENTRY FOUND AND DEQUEUED. 00048 M01S00039.0dq +++|* (QA) = 0, IF QFT ENTRY NOT FOUND. 00049 M01S00040.0dq +++|* 00050 M01S00041.0dq +++|* THE QUEUED FILE SYSTEM SECTOR WILL BE READ ON A RELEASE QFT 00051 M01S00042.0dq +++|* ONLY REQUEST (((LA)-1) =1) ONLY IF CREATION MODE IS NOT SET 00052 M01S00043.0dq +++|* IN THE QFT ENTRY. 00053 M01S00044.0dq +++| SPACE 4,10 00054 M01S00045.0dq +++|*** USES. 00055 M01S00046.0dq +++|* 00056 M01S00047.0dq +++|* USES CM - CM+4, T1 - T7. 00057 M01S00048.0dq +++| SPACE 4,10
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00049.ns2663 ---|*** ACCOUNT DAYFILE MESSAGES.
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00059 M02S00050.ns2663 ---|*
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00060 M02S00051.ns2663 ---|*
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00061 M02S00052.ns2663 ---|* *AEQP, C1, JSN, YYMMDD, HHMMSS, DC.*
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00053.ns2663 ---|* QUEUED FILE CREATED ON DATE YYMMDD AT TIME
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00063 M02S00054.ns2663 ---|* HHMMSS WITH ORIGINAL JOB SEQUENCE NAME JSN
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00064 M02S00055.ns2663 ---|* HAS BEEN REMOVED FROM THE QUEUE.
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00065 M02S00056.ns2663 ---|* THE FILE HAD A DISPOSITION CODE OF DC.
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00066 M02S00057.ns2663 ---| SPACE 4,10 00067 M01S00058.0dq +++|* COMMON DECK MACROS AND DEFINITIONS. 00068 M01S00059.0dq +++| 00069 M01S00060.0dq +++| 00070 M01S00061.0dq +++|*CALL COMPMAC 00071 M01S00062.0dq +++|*CALL COMPREL 00072 M01S00063.0dq +++|*CALL COMSCPS
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00073 M02S00064.ns2663 ---|*CALL COMSMSP 00074 M01S00065.0dq +++|*CALL COMSSSE 00075 M01S00066.0dq +++|*CALL COMSZOL 00076 M01S00067.0dq +++| SPACE 4,10 00077 M01S00068.0dq +++|**** DIRECT LOCATION ASSIGNMENTS. 00078 M01S00069.0dq +++| 00079 M01S00070.0dq +++| 00080 M01S00071.0dq +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00081 M01S00072.0dq +++| QA EQU 26 QFT ORDINAL 00082 M01S00073.0dq +++| 00083 M01S00074.0dq +++|**** 00084 M01S00075.0dq +++| TITLE MAIN ROUTINE. 00085 M01S00076.0dq +++|** DQF - MAIN ROUTINE. 00086 M01S00077.0dq +++| 00087 M01S00078.0dq +++| 00088 M01S00079.0dq +++| ORG 5 00089 M01S00080.0dq +++| DQF SUBR ENTRY/EXIT
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00090 M02S00081.ns2663 ---| LDD FS+1
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00091 M02S00082.ns2663 ---| STD T6 00092 M01S00008.ns2663 +++| UJN DQF2 CHECK CALL PARAMETERS 00093 M01S00009.ns2663 +++| 00094 M01S00010.ns2663 +++| DQF1 RJM. EXR CALL *0QM* TO ISSUE ACCOUNTING MESSAGE 00095 M01S00011.ns2663 +++| LDN 0 SET OPERATION COMPLETE 00096 M01S00012.ns2663 +++| UJN DQFX RETURN 00097 M01S00013.ns2663 +++| 00098 M01S00014.ns2663 +++| VFD 24/0LAEQP *AEQP* MESSAGE IDENTIFIER 00099 M01S00015.ns2663 +++| OVLA EQU * *0QM* LOAD ADDRESS 00100 M01S00016.ns2663 +++| 00101 M01S00017.ns2663 +++| DQF2 LDD FS+1 00102 M01S00018.ns2663 +++| STD T6 SET FIRST TRACK 00103 M01S00083.0dq +++| ADD QA 00104 M01S00084.0dq +++| ZJN DQFX IF FILE UNUSED/NULL REQUEST 00105 M01S00085.0dq +++| LDD FS 00106 M01S00086.0dq +++| STD T5 SET EST ORDINAL 00107 M01S00087.0dq +++| LDM -1 00108 M01S00088.0dq +++| STI LA PRESERVE DEQUEUE OPTION 00109 M01S00089.0dq +++| SBN 2
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00110 M02S00090.ns2663 ---| ZJN DQF1 IF FILE NOT IN QFT
| Line S00091 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00111 M02S00091.ns2663 ---| LDN QFTP
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00112 M02S00092.ns2663 ---| CRD CM
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00113 M02S00093.ns2663 ---| LDD CM+1 SET QFT ADDRESS
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00114 M02S00094.ns2663 ---| RAM SGQA
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00115 M02S00095.ns2663 ---| SHN -14
| Line S00096 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00116 M02S00096.ns2663 ---| ADD CM
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00117 M02S00097.ns2663 ---| RAM SGQA-1 00118 M01S00019.ns2663 +++| ZJN DQF3 IF FILE NOT IN QFT 00119 M01S00020.ns2663 +++| RJM IFP INITIALIZE QFT PROCESSOR 00120 M01S00098.0dq +++| RJM SGQ SEARCH GLOBAL QUEUE
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00121 M02S00099.ns2663 ---| ZJN DQFX IF ENTRY NOT FOUND 00122 M01S00021.ns2663 +++| ZJN DQFX IF FILE NOT FOUND 00123 M01S00100.0dq +++| LDD T4 00124 M01S00101.0dq +++| LPN 4
| Line S00102 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00125 M02S00102.ns2663 ---| DQF1 ZJN DQF4 IF NOT CREATION MODE
| Line S00103 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00126 M02S00103.ns2663 ---| DQF2 LDI LA 00127 M01S00022.ns2663 +++| DQF3 NJN DQF4 IF CREATION MODE 00128 M01S00023.ns2663 +++| RJM RSS READ QUEUE FILE SYSTEM SECTOR 00129 M01S00024.ns2663 +++| MJN DQF6 IF RECOVERABLE MASS STORAGE ERROR 00130 M01S00025.ns2663 +++| NJN DQF4 IF ERROR IN SYSTEM SECTOR 00131 M01S00026.ns2663 +++| LDI LA 00132 M01S00027.ns2663 +++| SBN 1 00133 M01S00028.ns2663 +++| ZJN DQF4 IF NOT TO DROP DISK SPACE 00134 M01S00029.ns2663 +++| RJM DDS DROP DISK SPACE 00135 M01S00030.ns2663 +++| MJN DQF6 IF DEVICE INACCESSIBLE 00136 M01S00031.ns2663 +++| DQF4 LDI LA 00137 M01S00104.0dq +++| SBN 2
| Line S00105 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00138 M02S00105.ns2663 ---| ZJN DQF3 IF FILE NOT IN QFT
| Line S00106 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00139 M02S00106.ns2663 ---| SETMS STATUS
| Line S00107 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00140 M02S00107.ns2663 ---| MJN DQF3 IF DEVICE INACCESSIBLE 00141 M01S00032.ns2663 +++| ZJN DQF5 IF FILE NOT IN QFT 00142 M01S00108.0dq +++| LDD QA 00143 M01S00109.0dq +++| STD CM+1 00144 M01S00110.0dq +++| LDN PQFT 00145 M01S00111.0dq +++| STD CM+2 00146 M01S00112.0dq +++| MONITOR MTRM RELEASE QFT ENTRY
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00147 M02S00113.ns2663 ---|* LDN 0
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00148 M02S00114.ns2663 ---| DQF3 LJM DQFX RETURN 00149 M01S00033.ns2663 +++| DQF5 LDM FIQF 00150 M01S00034.ns2663 +++| ZJN DQF8 IF FILE NOT QUEUED 00151 M01S00035.ns2663 +++| LDN OVLA SET *0QM* LOAD ADDRESS 00152 M01S00036.ns2663 +++| RAD LA 00153 M01S00037.ns2663 +++| EXECUTE 0QM,* 00154 M01S00038.ns2663 +++| LJM DQF1-OVLA CALL *0QM* TO ISSUE ACCOUNTING MESSAGE 00155 M01S00115.0dq +++|
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00156 M02S00116.ns2663 ---|* ISSUE ACCOUNTING MESSAGE IF FILE HAS BEEN QUEUED. 00157 M01S00039.ns2663 +++| DQF6 LDM QFIF 00158 M01S00040.ns2663 +++| ZJN DQF7 IF QFT INTERLOCK NOT SET BY *0DQ* 00159 M01S00041.ns2663 +++| LDN CFIN SET CLEAR INTERLOCK FUNCTION 00160 M01S00042.ns2663 +++| RJM IQF CLEAR QFT INTERLOCK 00161 M01S00043.ns2663 +++| DQF7 LCN 0 SET DEVICE INACCESSIBLE 00162 M01S00044.ns2663 +++| DQF8 LJM DQFX RETURN 00163 M01S00117.0dq +++|
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00164 M02S00118.ns2663 ---| DQF4 STD T7 SET SYSTEM SECTOR
| Line S00119 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00165 M02S00119.ns2663 ---| SETMS IO,NS
| Line S00120 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00166 M02S00120.ns2663 ---| MJN DQF3 IF DEVICE INACCESSIBLE
| Line S00121 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00167 M02S00121.ns2663 ---| LDC BFMS READ SYSTEM SECTOR
| Line S00122 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00168 M02S00122.ns2663 ---| RJP RDS
| Line S00123 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00169 M02S00123.ns2663 ---| MJN DQF5 IF READ ERROR
| Line S00124 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00124.ns2663 ---| ENDMS
| Line S00125 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00171 M02S00125.ns2663 ---| LDP BFMS+1
| Line S00126 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00172 M02S00126.ns2663 ---| LMN 77
| Line S00127 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00173 M02S00127.ns2663 ---| NJN DQF5 IF BAD SYSTEM SECTOR LINKAGE
| Line S00128 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00174 M02S00128.ns2663 ---| LDP BFMS
| Line S00129 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00175 M02S00129.ns2663 ---| LMC 3777
| Line S00130 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00176 M02S00130.ns2663 ---| NJN DQF5 IF NOT SYSTEM SECTOR LINKAGE
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00177 M02S00131.ns2663 ---| LDP FTSS
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00178 M02S00132.ns2663 ---| LMD T6
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00179 M02S00133.ns2663 ---| NJN DQF5 IF INCORRECT SYSTEM SECTOR
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00180 M02S00134.ns2663 ---| LDP FGSS
| Line S00135 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00181 M02S00135.ns2663 ---| LPN 1
| Line S00136 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00182 M03S00136.ns2663 ---| ZJN DQF5 IF FILE NOT QUEUED
| Line S00137 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00183 M02S00137.ns2663 ---| STD T7
| Line S00138 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00184 M03S00138.ns2663 ---| RJM IAM ISSUE ACCOUNTING MESSAGE
| Line S00139 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00185 M02S00139.ns2663 ---| DQF5 LDI LA
| Line S00140 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00186 M02S00140.ns2663 ---| SBN 1
| Line S00141 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00187 M03S00141.ns2663 ---| ZJN DQF6 IF NOT TO DROP DISK SPACE
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | 0dq2 |
M03 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00188 M03S00002.ns2663 ---| ZJP DQF2 IF NOT TO DROP DISK SPACE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 0dq2 |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00001.ns2663 ---| ZJP DQF6 IF NOT TO DROP DISK SPACE 00190 M01S00045.ns2663 +++| 00191 M01S00046.ns2663 +++| FIQF CON 0 FILE QUEUED FLAG 00192 M01S00047.ns2663 +++| QFIF CON 0 QFT INTERLOCK SET BY *0DQ* FLAG 00193 M01S00048.ns2663 +++| TITLE SUBROUTINES. 00194 M01S00049.ns2663 +++| DDS SPACE 4,15 00195 M01S00050.ns2663 +++|** DDS - DROP QUEUE FILE DISK SPACE. 00196 M01S00051.ns2663 +++|* 00197 M01S00052.ns2663 +++|* ENTRY (FIQF) .NE. 0 IF FILE QUEUED. 00198 M01S00053.ns2663 +++|* 00199 M01S00054.ns2663 +++|* EXIT (A) .GE. 0 IF DISK SPACE DROPPED. 00200 M01S00055.ns2663 +++|* (A) .LT. 0 IF DEVICE INACCESSIBLE. 00201 M01S00056.ns2663 +++|* MASS STORAGE SECTOR LIMIT INCREMENTED IF FILE NOT 00202 M01S00057.ns2663 +++|* QUEUED. 00203 M01S00058.ns2663 +++|* 00204 M01S00059.ns2663 +++|* USES (CM - CM+2). 00205 M01S00060.ns2663 +++|* 00206 M01S00061.ns2663 +++|* MACROS MONITOR. 00207 M01S00062.ns2663 +++| 00208 M01S00063.ns2663 +++| 00209 M01S00064.ns2663 +++| DDS SUBR ENTRY/EXIT 00210 M01S00142.0dq +++| LDD T6 00211 M01S00143.0dq +++| STD CM+2 00212 M01S00144.0dq +++| LDD T5 RELEASE TRACK CHAIN
| Line S00145 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00213 M02S00145.ns2553 ---| LMC 4000 00214 M01S00003.ns2553 +++| LMC 5000 CHECKPOINT / RETURN ON INACCESSIBLE DEVICE 00215 M01S00146.0dq +++| STD CM+1 00216 M01S00147.0dq +++| MONITOR DTKM 00217 M01S00004.ns2553 +++| LDD CM+1 00218 M01S00005.ns2553 +++| SHN 21-11
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00219 M02S00006.ns2663 ---| MJP DQFX IF DEVICE INACCESSIBLE
| Line S00148 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00220 M02S00148.ns2663 ---| LDD T7
| Line S00149 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2553 |
M03 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00221 M03S00149.ns2663 ---| NJN DQF6 IF FILE QUEUED
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00222 M02S00007.ns2663 ---| NJN DQF7 IF FILE QUEUED 00223 M01S00065.ns2663 +++| MJN DDSX IF DEVICE INACCESSIBLE 00224 M01S00066.ns2663 +++| LDM FIQF 00225 M01S00067.ns2663 +++| NJN DDSX IF FILE QUEUED 00226 M01S00150.0dq +++| 00227 M01S00151.0dq +++|* ACTUAL COUNT OF SECTORS RETURNED VIA *DTKM* IS IN CM+3 - CM+4. 00228 M01S00152.0dq +++| 00229 M01S00153.0dq +++| LDN CICS INCREMENT CP AREA FIELD FUNCTION CODE 00230 M01S00154.0dq +++| STD CM 00231 M01S00155.0dq +++| LDK ACLW ADDRESS OF MASS STORAGE SECTOR LIMIT 00232 M01S00156.0dq +++| STD CM+1 00233 M01S00157.0dq +++| LDN 0D*100+18D POSISTION AND WIDTH OF LIMIT FIELD 00234 M01S00158.0dq +++| STD CM+2 00235 M01S00159.0dq +++| LDD MA UADM FUNCTION MESSAGE BUFFER CONTENTS 00236 M01S00160.0dq +++| CWD CM 00237 M01S00161.0dq +++| LDN 1 SET UADM REQUEST COUNT AND NO DROP OF PPU 00238 M01S00162.0dq +++| STD CM+1 00239 M01S00163.0dq +++| STD CM+2 00240 M01S00164.0dq +++| MONITOR UADM INCREMENT MASS STORAGE SECTOR LIMIT
| Line S00165 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00241 M02S00165.ns2553 ---| DQF6 LJM DQF2 CHECK RELEASE OF QFT ENTRY
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00242 M02S00008.ns2663 ---| DQF6 LDD T7
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00243 M02S00009.ns2663 ---| ZJN DQF8 IF FILE NOT QUEUED
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00010.ns2663 ---| DQF7 RJM IAM
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2553 |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00245 M02S00011.ns2663 ---| DQF8 LJM DQF2 CHECK RELEASE OF QFT ENTRY
| Line S00166 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00246 M02S00166.ns2663 ---| TITLE SUBROUTINES.
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00247 M02S00167.ns2663 ---| SGQ SPACE 4,15 00248 M01S00068.ns2663 +++|* LDN 0 00249 M01S00069.ns2663 +++| LJM DDSX RETURN 00250 M01S00070.ns2663 +++| IQF SPACE 4,15 00251 M01S00071.ns2663 +++|** IQF - SET OR CLEAR QFT INTERLOCK. 00252 M01S00072.ns2663 +++|* 00253 M01S00073.ns2663 +++|* ENTRY (A) = FUNCTION CODE FOR *SFI*. 00254 M01S00074.ns2663 +++|* (QA) = QFT ORDINAL. 00255 M01S00075.ns2663 +++|* 00256 M01S00076.ns2663 +++|* EXIT (A) = 0 IF OPERATION COMPLETE. 00257 M01S00077.ns2663 +++|* (A) .NE. 0 IF ERROR (OPERATOR OVERRIDE). 00258 M01S00078.ns2663 +++|* 00259 M01S00079.ns2663 +++|* USES T1. 00260 M01S00080.ns2663 +++|* 00261 M01S00081.ns2663 +++|* CALLS SFI. 00262 M01S00082.ns2663 +++|* 00263 M01S00083.ns2663 +++|* MACROS SFA. 00264 M01S00084.ns2663 +++| 00265 M01S00085.ns2663 +++| 00266 M01S00086.ns2663 +++| IQF SUBR ENTRY/EXIT 00267 M01S00087.ns2663 +++| STD T1 SET FUNCTION CODE 00268 M01S00088.ns2663 +++| SFA QFT,QA SET QFT ADDRESS 00269 M01S00089.ns2663 +++| RJM SFI INTERLOCK QFT ENTRY 00270 M01S00090.ns2663 +++| UJN IQFX RETURN 00271 M01S00091.ns2663 +++| RSS SPACE 4,20 00272 M01S00092.ns2663 +++|** RSS - READ QUEUE FILE SYSTEM SECTOR. 00273 M01S00093.ns2663 +++|* 00274 M01S00094.ns2663 +++|* ENTRY (A) = 0. 00275 M01S00095.ns2663 +++|* (T5) = EST ORDINAL OF QUEUE FILE. 00276 M01S00096.ns2663 +++|* (T6) = FIRST TRACK OF QUEUE FILE. 00277 M01S00097.ns2663 +++|* 00278 M01S00098.ns2663 +++|* EXIT (A) = 0 IF NO ERROR. 00279 M01S00099.ns2663 +++|* (A) .LT. 0 IF RECOVERABLE MASS STORAGE ERROR. 00280 M01S00100.ns2663 +++|* (A) .GT. 0 IF UNRECOVERABLE MASS STORAGE ERROR OR 00281 M01S00101.ns2663 +++|* ERROR IN SYSTEM SECTOR. 00282 M01S00102.ns2663 +++|* (FIQF) .NE. 0 IF FILE QUEUED. 00283 M01S00103.ns2663 +++|* (FIQF) = 0 IF FILE NOT QUEUED. 00284 M01S00104.ns2663 +++|* 00285 M01S00105.ns2663 +++|* USES T7. 00286 M01S00106.ns2663 +++|* 00287 M01S00107.ns2663 +++|* CALLS RDS. 00288 M01S00108.ns2663 +++|* 00289 M01S00109.ns2663 +++|* MACROS ENDMS, SETMS. 00290 M01S00110.ns2663 +++| 00291 M01S00111.ns2663 +++| 00292 M01S00112.ns2663 +++| RSS3 LMC 2000 00293 M01S00113.ns2663 +++| SHN 21-12 (A) .LT. 0 IF ERROR RECOVERABLE 00294 M01S00114.ns2663 +++| 00295 M01S00115.ns2663 +++| RSS SUBR ENTRY/EXIT 00296 M01S00116.ns2663 +++| STD T7 SET SYSTEM SECTOR READ 00297 M01S00117.ns2663 +++| SETMS IO 00298 M01S00118.ns2663 +++| LDC BFMS READ SYSTEM SECTOR 00299 M01S00119.ns2663 +++| RJP RDS 00300 M01S00120.ns2663 +++| MJN RSS3 IF READ ERROR 00301 M01S00121.ns2663 +++| ENDMS 00302 M01S00122.ns2663 +++| LDP BFMS+1 00303 M01S00123.ns2663 +++| LMN 77 00304 M01S00124.ns2663 +++| NJN RSSX IF NOT SYSTEM SECTOR LINKAGE 00305 M01S00125.ns2663 +++| LDP BFMS 00306 M01S00126.ns2663 +++| LMC 3777 00307 M01S00127.ns2663 +++| NJN RSSX IF NOT SYSTEM SECTOR LINKAGE 00308 M01S00128.ns2663 +++| LDP FTSS 00309 M01S00129.ns2663 +++| LMD T6 00310 M01S00130.ns2663 +++| RSS1 NJN RSSX IF INCORRECT SYSTEM SECTOR 00311 M01S00131.ns2663 +++| LDP FNSS+4 CHECK FILE TYPE 00312 M01S00132.ns2663 +++| SHN -6 00313 M01S00133.ns2663 +++| LMN QFFT 00314 M01S00134.ns2663 +++| ZJN RSS2 IF QUEUE FILE 00315 M01S00135.ns2663 +++| LMN INFT&QFFT 00316 M01S00136.ns2663 +++| NJN RSS1 IF NOT QUEUE FILE 00317 M01S00137.ns2663 +++| RSS2 LDP FGSS SET FILE QUEUED STATUS 00318 M01S00138.ns2663 +++| LPN 1 00319 M01S00139.ns2663 +++| STM FIQF 00320 M01S00140.ns2663 +++| LDN 0 SET NO ERROR 00321 M01S00141.ns2663 +++| LJM RSSX RETURN WITH ERROR STATUS 00322 M01S00142.ns2663 +++| SGQ SPACE 4,25 00323 M01S00168.0dq +++|** SGQ - SEARCH GLOBAL QUEUE. 00324 M01S00169.0dq +++|* 00325 M01S00170.0dq +++|* ENTRY (QA) = 0 IF QFT SEARCH REQUIRED.
| Line S00171 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00326 M02S00171.ns2663 ---|* = QFT ORDINAL.
| Line S00172 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00327 M02S00172.ns2663 ---|* (CM+2) = LIMIT VALUE FOR QFT SEARCH. 00328 M01S00143.ns2663 +++|* = QFT ORDINAL IF SPECIFIED. 00329 M01S00173.0dq +++|* (FS - FS+4) = FST INFORMATION. 00330 M01S00144.ns2663 +++|* QFT INTERLOCKED IF (QA) .NE. 0. 00331 M01S00174.0dq +++|*
| Line S00175 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00332 M02S00175.ns2663 ---|* EXIT (A) = (QA) = 0, IF QFT ENTRY NOT FOUND.
| Line S00176 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00333 M02S00176.ns2663 ---|* (A) = (QA) = QFT ORDINAL, IF ENTRY FOUND. 00334 M01S00145.ns2663 +++|* EXIT (A) = 0, IF QFT ENTRY NOT FOUND OR ERROR IN 00335 M01S00146.ns2663 +++|* INTERLOCKING QFT ENTRY (OPERATOR OVERRIDE). 00336 M01S00147.ns2663 +++|* (QA) = QFT ORDINAL, IF ENTRY FOUND. 00337 M01S00177.0dq +++|* (T4) = CREATION MODE FLAG. 00338 M01S00178.0dq +++|* (T5) = EST ORDINAL. 00339 M01S00179.0dq +++|* (T6) = FIRST TRACK. 00340 M01S00148.ns2663 +++|* (QFIF) .NE. 0 IF QFT ENTRY INTERLOCKED BY *0DQ*. 00341 M01S00180.0dq +++|*
| Line S00181 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00342 M02S00181.ns2663 ---|* USES T0 - T7, CM - CM+1. 00343 M01S00149.ns2663 +++|* USES QA, CM - CM+4, T0 - T7. 00344 M01S00150.ns2663 +++|* 00345 M01S00151.ns2663 +++|* CALLS IQF. 00346 M01S00152.ns2663 +++|* 00347 M01S00153.ns2663 +++|* MACROS ISTORE, SFA. 00348 M01S00182.0dq +++| 00349 M01S00183.0dq +++|
| Line S00184 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00350 M02S00184.ns2663 ---| SGQ1 AOD QA ADVANCE ORDINAL 00351 M01S00154.ns2663 +++| SGQ1 LDN QFTP READ QFT POINTERS 00352 M01S00155.ns2663 +++| CRD CM 00353 M01S00156.ns2663 +++| SGQ2 AOD QA ADVANCE ORDINAL 00354 M01S00185.0dq +++| LMD CM+2
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00355 M02S00186.ns2663 ---| ZJN SGQ4 IF END OF QFT
| Line S00187 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00356 M02S00187.ns2663 ---| SGQ2 CFI QFT,QA
| Line S00188 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00357 M02S00188.ns2663 ---| ADC JSNQ READ CREATION MODE FLAG
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00358 M02S00189.ns2663 ---| SGQA EQU *-1 00359 M01S00157.ns2663 +++| ZJN SGQX IF END OF QFT 00360 M01S00158.ns2663 +++| SGQ3 SFA QFT,QA SET QFT ADDRESS 00361 M01S00159.ns2663 +++| ADK JSNQ READ CREATION MODE FLAG 00362 M01S00190.0dq +++| CRD T0 00363 M01S00191.0dq +++| ADN ENTQ-JSNQ READ MASS STORAGE PARAMETERS 00364 M01S00192.0dq +++| CRD T5
| Line S00193 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00365 M02S00193.ns2663 ---| SGQB LDD T6 COMPARE FIRST TRACK
| Line S00194 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00366 M02S00194.ns2663 ---|* UJN SGQ3 (QFT ORDINAL SPECIFIED) 00367 M01S00160.ns2663 +++| SGQA LDD T6 COMPARE FIRST TRACK 00368 M01S00161.ns2663 +++|* UJN SGQX (QFT ORDINAL SPECIFIED) 00369 M01S00195.0dq +++| LMD FS+1
| Line S00196 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00370 M02S00196.ns2663 ---| NJN SGQ1 IF NO MATCH 00371 M01S00162.ns2663 +++| NJN SGQ2 IF NO MATCH 00372 M01S00197.0dq +++| LDD T5 00373 M01S00198.0dq +++| LMD FS
| Line S00199 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00374 M02S00199.ns2663 ---| NJN SGQ1 IF NOT SAME EQUIPMENT
| Line S00200 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00375 M02S00200.ns2663 ---| SGQ3 LDD QA
| Line S00201 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00376 M02S00201.ns2663 ---| SGQ4 STD QA 00377 M01S00163.ns2663 +++| NJN SGQ2 IF NOT SAME EQUIPMENT 00378 M01S00164.ns2663 +++| LDN SFIN SET INTERLOCK FUNCTION 00379 M01S00165.ns2663 +++| RJM IQF INTERLOCK QFT ENTRY 00380 M01S00166.ns2663 +++| ZJN SGQ4 IF ENTRY INTERLOCKED 00381 M01S00167.ns2663 +++| LDN 1 00382 M01S00168.ns2663 +++| SGQ4 LMN 1 00383 M01S00169.ns2663 +++| STM QFIF SET INTERLOCK FLAG 00384 M01S00202.0dq +++| 00385 M01S00203.0dq +++| SGQ SUBR ENTRY/EXIT 00386 M01S00204.0dq +++| LDD QA
| Line S00205 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00387 M02S00205.ns2663 ---| ZJN SGQ1 IF QFT ORDINAL UNKNOWN
| Line S00206 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00206.ns2663 ---| ISTORE SGQB,(UJN SGQ3) BYPASS QFT SEARCH
| Line S00207 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00389 M02S00207.ns2663 ---| UJN SGQ2 FETCH MASS STORAGE PARAMETERS 00390 M01S00170.ns2663 +++| ZJN SGQ1 IF QFT ORDINAL NOT SPECIFIED 00391 M01S00171.ns2663 +++| ISTORE SGQA,(UJN SGQX) BYPASS QFT SEARCH 00392 M01S00172.ns2663 +++| UJN SGQ3 FETCH MASS STORAGE PARAMETERS 00393 M01S00208.0dq +++| SPACE 4,10 00394 M01S00209.0dq +++|** COMMON DECKS. 00395 M01S00210.0dq +++| 00396 M01S00211.0dq +++|
| Line S00212 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00397 M02S00212.ns2663 ---|*CALL COMPCDD
| Line S00213 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00398 M02S00213.ns2663 ---| EQP$ EQU 0 SELECT STANDARD ACCOUNTING MESSAGE
| Line S00214 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00399 M02S00214.ns2663 ---| ZLO$ EQU 0 SPECIFY ZERO LEVEL OVERLAY CALL
| Line S00215 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00400 M02S00215.ns2663 ---|*CALL COMPIAM 00401 M01S00173.ns2663 +++| QFT$ EQU 1 ASSEMBLE QFT PROCESSOR 00402 M01S00174.ns2663 +++| IFP$ EQU 1 ASSEMBLE REMOTE INITIALIZATION CODE 00403 M01S00175.ns2663 +++|*CALL COMPGFP 00404 M01S00176.ns2663 +++|*CALL COMPSFI 00405 M01S00177.ns2663 +++| 00406 M01S00178.ns2663 +++| 00407 M01S00179.ns2663 +++| IFP HERE *COMPGFP* INITIALIZATION 00408 M01S00216.0dq +++| 00409 M01S00217.0dq +++| 00410 M01S00218.0dq +++| RSTR 00411 M01S00219.0dq +++| SPACE 4,10 00412 M01S00180.ns2663 +++| ERRNG ZDQL-OVLA-ZQML *0QM* OVERFLOWS *0DQ* 00413 M01S00181.ns2663 +++| 00414 M01S00220.0dq +++| OVERFLOW 5,ZDQL 00415 M01S00221.0dq +++| SPACE 4,10 00416 M01S00222.0dq +++| END 00417 M01S00014.0dq +++|0FA
| Line S36993 Modification History | |
|---|---|
M01 (Yanked) (Added by) | @012607 |
M02 (Yanked) (Updated by) | @009032 |
M03 (Yanked) (Updated by) | @020735 |
Seq # *Modification Id* Act ----------------------------+ 00418 M03S36993.@020735 ---| 00419 M01S00005.0dq +++| SST 00420 M01S00006.0dq +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00421 M01S00007.0dq +++|*COMMENT 0FA - RELEASE FAST ATTACH PERMANENT FILE.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | 0dq2 |
Seq # *Modification Id* Act ----------------------------+ 00422 M02S00008.0dq2 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973. 00423 M01S00001.0dq2 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00424 M01S00009.0dq +++| SPACE 4 00425 M01S00010.0dq +++|*** 0FA - RELEASE FAST ATTACH PERMANENT FILE. 00426 M01S00011.0dq +++|* M. E. MADDEN. 73/07/10. 00427 M01S00012.0dq +++|* S. L. KSANDER. 75/05/26. 00428 M01S00013.0dq +++| SPACE 4 00429 M01S00014.0dq +++|*** 0FA IS A LOCATION FREE ROUTINE TO BE USED FOR 00430 M01S00015.0dq +++|* RELEASING FAST ATTACH PERMANENT FILES. 00431 M01S00016.0dq +++|* 00432 M01S00017.0dq +++|* IF THE FILE IS ATTACHED IN WRITE MODE THE MODE BITS 00433 M01S00018.0dq +++|* FOR THE FILE WILL BE UPDATED TO CLEAR THE WRITE LOCKOUT 00434 M01S00019.0dq +++|* STATUS. THE ACTIVE FILE COUNT IN THE MST WILL ALSO 00435 M01S00020.0dq +++|* BE DECREMENTED FOR THIS FILE. AN EVENT WILL BE 00436 M01S00021.0dq +++|* ISSUED TO ROLL IN USERS WAITING FOR THE FILE. 00437 M01S00022.0dq +++|* 00438 M01S00023.0dq +++|* IF THE FILE WAS ATTACHED IN READ MODE THE USER COUNTS FOR 00439 M01S00024.0dq +++|* THE FILE WILL BE UPDATED TO REFLECT ONE LESS USER 00440 M01S00025.0dq +++|* ACCESSING THE FILE. 00441 M01S00026.0dq +++|* 00442 M01S00027.0dq +++|* UPDATING OF THE ECS ENTRY AND THE LOCAL FNT IS HANDLED 00443 M01S00028.0dq +++|* BY CPU MONITOR THROUGH THE *AFAM* MONITOR FUNCTION. 00444 M01S00029.0dq +++| SPACE 4 00445 M01S00030.0dq +++|*** CALL. 00446 M01S00031.0dq +++|* 00447 M01S00032.0dq +++|* ENTRY ((LA)-1) = FILE STATUS. 00448 M01S00033.0dq +++|* 6/,1/0,1/A,1/M,1/E,1/U,1/R 00449 M01S00034.0dq +++|* A = APPEND 00450 M01S00035.0dq +++|* M = MODIFY 00451 M01S00036.0dq +++|* E = EXECUTE 00452 M01S00037.0dq +++|* U = UTILITY ATTACH (ALWAYS ZERO FOR *0FA*) 00453 M01S00038.0dq +++|* R = READ ONLY 00454 M01S00039.0dq +++|* (FS - FS+4) = FST INFORMATION. 00455 M01S00040.0dq +++|* 00456 M01S00041.0dq +++|* EXIT (A) = 0. 00457 M01S00042.0dq +++| SPACE 4 00458 M01S00043.0dq +++|*CALL COMPMAC 00459 M01S00044.0dq +++|*CALL COMSCPS 00460 M01S00045.0dq +++|*CALL COMSMST 00461 M01S00046.0dq +++|*CALL COMSPFM 00462 M01S00047.0dq +++|*CALL COMSZOL 00463 M01S00048.0dq +++|*CALL COMPREL 00464 M01S00049.0dq +++| SPACE 4,10 00465 M01S00050.0dq +++|**** DIRECT LOCATION ASSIGNMENTS. 00466 M01S00051.0dq +++| 00467 M01S00052.0dq +++| 00468 M01S00053.0dq +++| FS EQU 20 - 24 FST INFORMATION (5 LOCATIONS) 00469 M01S00054.0dq +++| 00470 M01S00055.0dq +++|**** 00471 M01S00056.0dq +++| TITLE MAIN ROUTINE. 00472 M01S00057.0dq +++|** DRP - MAIN ROUTINE. 00473 M01S00058.0dq +++| 00474 M01S00059.0dq +++| 00475 M01S00060.0dq +++| ORG 5 00476 M01S00061.0dq +++| DRP SUBR ENTRY/EXIT 00477 M01S00062.0dq +++| RJM SFF SEARCH FOR FILE 00478 M01S00063.0dq +++| LDD CM+3 00479 M01S00064.0dq +++| LPN 77 00480 M01S00065.0dq +++| ZJN DRP0 IF NOT GLOBAL FAST ATTACH FILE 00481 M01S00066.0dq +++| LDD T5 00482 M01S00067.0dq +++| DRP0 STD CM+1 00483 M01S00068.0dq +++| LDD T2 SET FNT ORDINAL IN REQUEST 00484 M01S00069.0dq +++| STD CM+4 00485 M01S00070.0dq +++| LDN RFAS REQUEST RETURN OF FAST ATTACH FILE 00486 M01S00071.0dq +++| STD CM+3 00487 M01S00072.0dq +++| 00488 M01S00073.0dq +++|* DETERMINE MODE OF FILE TO BE RETURNED. 00489 M01S00074.0dq +++| 00490 M01S00075.0dq +++| LDD LA SET TABLE BASE ADDRESS 00491 M01S00076.0dq +++| ADC TFNS 00492 M01S00077.0dq +++| STM DRPA 00493 M01S00078.0dq +++| LDN TFNSL 00494 M01S00079.0dq +++| STD T2 00495 M01S00080.0dq +++| DRP1 SOD T2 DECREMENT TABLE INDEX 00496 M01S00081.0dq +++| MJN DRP2 IF END OF TABLE 00497 M01S00082.0dq +++| LDM -1 00498 M01S00083.0dq +++| LPN 35 SEARCH TABLE FOR MODE 00499 M01S00084.0dq +++| LMM. **,T2 00500 M01S00085.0dq +++| DRPA EQU *-1 00501 M01S00086.0dq +++| NJN DRP1 IF NOT MATCHING STATUS 00502 M01S00087.0dq +++| LDD T2 SET ATTACH MODE IN REQUEST 00503 M01S00088.0dq +++| STD CM+2 00504 M01S00089.0dq +++| MONITOR AFAM RETURN FILE 00505 M01S00090.0dq +++| LDD CM+1 CHECK RETURN STATUS 00506 M01S00091.0dq +++| ZJN DRP3 IF FUNCTION COMPLETE 00507 M01S00092.0dq +++| DRP2 MONITOR HNGM HANG PP 00508 M01S00093.0dq +++| 00509 M01S00094.0dq +++| DRP3 LDD T5 SET EST ORDINAL 00510 M01S00095.0dq +++| STD CM+1 00511 M01S00096.0dq +++| LDN DUCS DECREMENT ACTIVE FILE COUNT 00512 M01S00097.0dq +++| STD CM+3
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | 0dq |
M02 (Updated by) | ns2553 |
Seq # *Modification Id* Act ----------------------------+ 00513 M02S00098.ns2553 ---| MONITOR STBM 00514 M01S00001.ns2553 +++| MONITOR SMDM 00515 M01S00099.0dq +++|* LDN 0 ISSUE EVENT TO INDICATE FILE RETURNED 00516 M01S00100.0dq +++| STD CM+1 00517 M01S00101.0dq +++| LDD T6 SET FIRST TRACK IN EVENT 00518 M01S00102.0dq +++| STD CM+4 00519 M01S00103.0dq +++| LDD T5 SET EQUIPMENT IN EVENT 00520 M01S00104.0dq +++| STD CM+3 00521 M01S00105.0dq +++| MONITOR EATM 00522 M01S00106.0dq +++|* LDN 0 00523 M01S00107.0dq +++| LJM DRPX RETURN 00524 M01S00108.0dq +++| TFNS SPACE 4 00525 M01S00109.0dq +++|* TABLE OF FILE MODES. 00526 M01S00110.0dq +++|* INDEXED BY *PFM* MODE NUMBER. 00527 M01S00111.0dq +++| 00528 M01S00112.0dq +++| 00529 M01S00113.0dq +++| TFNS BSS 0 00530 M01S00114.0dq +++| LOC 0 00531 M01S00115.0dq +++| CON 0 WRITE 00532 M01S00116.0dq +++| CON 1 READ 00533 M01S00117.0dq +++| CON 20 APPEND/EXTEND 00534 M01S00118.0dq +++| CON 5 EXECUTE 00535 M01S00119.0dq +++| CON 77 NULL 00536 M01S00120.0dq +++| CON 30 MODIFY 00537 M01S00121.0dq +++| CON 31 READ ALLOW MODIFY 00538 M01S00122.0dq +++| CON 21 READ ALLOW APPEND/EXTEND 00539 M01S00123.0dq +++| CON 10 UPDATE 00540 M01S00124.0dq +++| CON 11 READ ALLOW UPDATE 00541 M01S00125.0dq +++| LOC *O 00542 M01S00126.0dq +++| TFNSL EQU *-TFNS LENGTH OF TABLE 00543 M01S00127.0dq +++| TITLE SUBROUTINES. 00544 M01S00128.0dq +++| SFF SPACE 4,10 00545 M01S00129.0dq +++|** SFF - SEARCH FOR FAST ATTACH FILE. 00546 M01S00130.0dq +++|* 00547 M01S00131.0dq +++|* ENTRY (FS - FS+4) = FST INFORMATION. 00548 M01S00132.0dq +++|* 00549 M01S00133.0dq +++|* EXIT (T2) = FNT ORDINAL OF FAST ATTACH FILE. 00550 M01S00134.0dq +++|* (T5) = EST ORDINAL. 00551 M01S00135.0dq +++|* (T6) = FIRST TRACK. 00552 M01S00136.0dq +++|* (CM+3) = GLOBAL FAST ATTACH FILE FLAG. 00553 M01S00137.0dq +++|* 00554 M01S00138.0dq +++|* USES T3, T4, CM - CM+4. 00555 M01S00139.0dq +++|* 00556 M01S00140.0dq +++|* MACROS MONITOR, SFA. 00557 M01S00141.0dq +++| 00558 M01S00142.0dq +++| 00559 M01S00143.0dq +++| SFF SUBR ENTRY/EXIT 00560 M01S00144.0dq +++| LDN FNTP FETCH FNT POINTER 00561 M01S00145.0dq +++| CRD T2 00562 M01S00146.0dq +++| LDN 1 INITIALIZE FNT ORDINAL 00563 M01S00147.0dq +++| STD T2 00564 M01S00148.0dq +++| SFF1 SFA FNT,T2 00565 M01S00149.0dq +++| CRD CM 00566 M01S00150.0dq +++| ADN FSTG GET FST INFORMATION 00567 M01S00151.0dq +++| CRD T5 00568 M01S00152.0dq +++| LDD CM+4 CHECK FILE TYPE 00569 M01S00153.0dq +++| SHN -6 00570 M01S00154.0dq +++| LMN FAFT 00571 M01S00155.0dq +++| NJN SFF2 IF NOT FAST ATTACH FILE 00572 M01S00156.0dq +++| LDD T5 00573 M01S00157.0dq +++| LMD FS 00574 M01S00158.0dq +++| NJN SFF2 IF NOT SAME EQUIPMENT 00575 M01S00159.0dq +++| LDD T6 00576 M01S00160.0dq +++| LMD FS+1 00577 M01S00161.0dq +++| ZJN SFFX IF MATCHING TRACK 00578 M01S00162.0dq +++| SFF2 AOD T2 ADVANCE FNT ORDINAL 00579 M01S00163.0dq +++| LMD T4 00580 M01S00164.0dq +++| NJN SFF1 IF NOT END OF FNT 00581 M01S00165.0dq +++| MONITOR HNGM HANG PP 00582 M01S00166.0dq +++|* LDN 0 00583 M01S00167.0dq +++| LJM DRPX EXIT 00584 M01S00168.0dq +++| SPACE 4,10 00585 M01S00169.0dq +++|** COMMON DECKS. 00586 M01S00170.0dq +++| 00587 M01S00171.0dq +++| 00588 M01S00172.0dq +++| FNT$ EQU 1 00589 M01S00173.0dq +++|*CALL COMPGFP 00590 M01S00174.0dq +++| SPACE 4 00591 M01S00175.0dq +++| OVERFLOW 5,ZFAL 00592 M01S00176.0dq +++| END
cdc/nos2.source/opl.opl871/deck/0dq.txt · Last modified: by 127.0.0.1