Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:deck:mlsexec
Deck MLSEXEC
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.mlsexec +++| IDENT MLSEXEC,MLSEXEC 00002 M00S00002.mlsexec +++| ABS 00003 M00S00003.mlsexec +++| SST 00004 M00S00004.mlsexec +++| SYSCOM B1 00005 M00S00005.mlsexec +++| ENTRY SETFAL 00006 M00S00006.mlsexec +++| ENTRY SETJAL 00007 M00S00007.mlsexec +++| ENTRY SETPFAC 00008 M00S00008.mlsexec +++| ENTRY SETPFAL
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2616 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.ns2616 +++| ENTRY RFL= 00010 M00S00009.mlsexec +++| ENTRY SDM=
| Line S00010 Modification History | |
|---|---|
M01 (Removed by) | ns2616 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00010.ns2616 ---| ENTRY RFL=
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2616 |
Seq # *Modification Id* Act ----------------------------+ 00012 M01S00002.ns2616 +++| ENTRY SSJ= 00013 M00S00011.mlsexec +++| TITLE MLSEXEC - SECURITY COMMAND PROCESSOR. 00014 M00S00012.mlsexec +++|*COMMENT MLSEXEC - SECURITY COMMAND PROCESSOR.
| Line S00013 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00015 M01S00013.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00016 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00017 M00S00014.mlsexec +++| SPACE 4,10 00018 M00S00015.mlsexec +++|*** MLSEXEC - SECURITY COMMAND PROCESSOR. 00019 M00S00016.mlsexec +++|* M. S. PESCHMAN. 82/08/20. 00020 M00S00017.mlsexec +++|* P. J. ENGLE. 82/10/01. 00021 M00S00018.mlsexec +++| SPACE 4,10 00022 M00S00019.mlsexec +++|*** MLSEXEC PROCESSES MULTI-LEVEL SECURITY COMMANDS FOR ALTERING 00023 M00S00020.mlsexec +++|* A JOB OR FILE ACCESS LEVELS AND CATEGORIES. 00024 M00S00021.mlsexec +++|* 00025 M00S00022.mlsexec +++|* COMMAND DESCRIPTION 00026 M00S00023.mlsexec +++|* 00027 M00S00024.mlsexec +++|* SETFAL SET FILE ACCESS LEVEL. 00028 M00S00025.mlsexec +++|* SETJAL SET JOB ACCESS LEVEL. 00029 M00S00026.mlsexec +++|* SETPFAC SET PERMANENT FILE ACCESS CATEGORIES. 00030 M00S00027.mlsexec +++|* SETPFAL SET PERMANENT FILE ACCESS LEVEL. 00031 M00S00028.mlsexec +++| SETFAL SPACE 4,10 00032 M00S00029.mlsexec +++|*** SETFAL COMMAND CALL. 00033 M00S00030.mlsexec +++|* 00034 M00S00031.mlsexec +++|* SETFAL,LFN,AL=LEVEL. 00035 M00S00032.mlsexec +++|* 00036 M00S00033.mlsexec +++|* LFN = LOCAL FILE NAME. 00037 M00S00034.mlsexec +++|* 00038 M00S00035.mlsexec +++|* LEVEL = ACCESS LEVEL. VALID ACCESS LEVEL NAMES 00039 M00S00036.mlsexec +++|* ARE DEFINED IN *COMSMLS*. 00040 M00S00037.mlsexec +++| SETJAL SPACE 4,10 00041 M00S00038.mlsexec +++|*** SETJAL COMMAND CALL. 00042 M00S00039.mlsexec +++|* 00043 M00S00040.mlsexec +++|* SETJAL,AL=LEVEL. 00044 M00S00041.mlsexec +++|* 00045 M00S00042.mlsexec +++|* LEVEL = ACCESS LEVEL. VALID ACCESS LEVEL NAMES 00046 M00S00043.mlsexec +++|* ARE DEFINED IN *COMSMLS*. 00047 M00S00044.mlsexec +++| SETPFAC SPACE 4,30 00048 M00S00045.mlsexec +++|*** SETPFAC COMMAND CALL. 00049 M00S00046.mlsexec +++|* 00050 M00S00047.mlsexec +++|* SETPFAC,PFN,AC=CAT1,CAT2,...,CATN/PN=PACKNAM,R=DEVICE,NA,WB. 00051 M00S00048.mlsexec +++|* 00052 M00S00049.mlsexec +++|* PFN = PERMANENT FILE NAME. 00053 M00S00050.mlsexec +++|* 00054 M00S00051.mlsexec +++|* CATX = ACCESS CATEGORIES. VALID ACCESS CATEGORIES NAMES 00055 M00S00052.mlsexec +++|* ARE DEFINED IN *COMSMLS*. WHEN THE CATEGORY NAME 00056 M00S00053.mlsexec +++|* IS PREFACED BY A MINUS (-) THE CATEGORY IS DELETED 00057 M00S00054.mlsexec +++|* FROM THE FILE. IF THE CATEGORY NAME IS PREFACED 00058 M00S00055.mlsexec +++|* BY A PLUS (+) THE CATEGORY IS ADDED TO THE FILE. 00059 M00S00056.mlsexec +++|* IF THE FIRST CATEGORY SPECIFIED IS *0* ALL CATEGORIES 00060 M00S00057.mlsexec +++|* WILL INITIALLY BE CLEARED. 00061 M00S00058.mlsexec +++|* 00062 M00S00059.mlsexec +++|* PACKNAM = OPTIONAL AUXILIARY PACK NAME. 00063 M00S00060.mlsexec +++|* 00064 M00S00061.mlsexec +++|* DEVICE = DEVICE TYPE OF AUXILIARY PACK. 00065 M00S00062.mlsexec +++|* 00066 M00S00063.mlsexec +++|* NA = NO ABORT OPTION. IF SET PROGRAM WILL NOT 00067 M00S00064.mlsexec +++|* ABORT. IF THE FILE IS BUSY THE JOB 00068 M00S00065.mlsexec +++|* WILL BE SUSPENDED UNTIL THE FILE IS 00069 M00S00066.mlsexec +++|* AVAILABLE. FOR ALL OTHER CONDITIONS, 00070 M00S00067.mlsexec +++|* THE ERROR MESSAGE WILL BE ISSUED AND 00071 M00S00068.mlsexec +++|* THE PROGRAM WILL CONTINUE. *NA* CANNOT BE 00072 M00S00069.mlsexec +++|* SPECIFIED TOGETHER WITH *WB*. 00073 M00S00070.mlsexec +++|* 00074 M00S00071.mlsexec +++|* WB = WAIT BUSY OPTION. IF SET, PROGRAM WILL 00075 M00S00072.mlsexec +++|* WAIT FOR BUSY FILES AND PACK MOUNTS, BUT 00076 M00S00073.mlsexec +++|* ALL OTHER ERRORS WILL CAUSE ABORTS. *WB* 00077 M00S00074.mlsexec +++|* CANNOT BE SPECIFIED TOGETHER WITH *NA*. 00078 M00S00075.mlsexec +++| SETPFAL SPACE 4,40 00079 M00S00076.mlsexec +++|*** SETPFAL COMMAND CALL. 00080 M00S00077.mlsexec +++|* 00081 M00S00078.mlsexec +++|* SETPFAL,PFN,AL=LEVEL/PN=PACKNAM,R=DEVICE,NA,WB. 00082 M00S00079.mlsexec +++|* 00083 M00S00080.mlsexec +++|* PFN = PERMANENT FILE NAME. 00084 M00S00081.mlsexec +++|* 00085 M00S00082.mlsexec +++|* LEVEL = ACCESS LEVEL. VALID ACCESS LEVEL NAMES ARE 00086 M00S00083.mlsexec +++|* DEFINED IN *COMSMLS*. 00087 M00S00084.mlsexec +++|* 00088 M00S00085.mlsexec +++|* PACKNAM = OPTIONAL AUXILARY PACK NAME. 00089 M00S00086.mlsexec +++|* 00090 M00S00087.mlsexec +++|* DEVICE = DEVICE TYPE OF AUXILIARY PACK. 00091 M00S00088.mlsexec +++|* 00092 M00S00089.mlsexec +++|* NA = NO ABORT OPTION. IF SET PROGRAM WILL NOT 00093 M00S00090.mlsexec +++|* ABORT. IF THE FILE IS BUSY THE JOB 00094 M00S00091.mlsexec +++|* WILL BE SUSPENDED UNTIL THE FILE IS 00095 M00S00092.mlsexec +++|* AVAILABLE. FOR ALL OTHER CONDITIONS, 00096 M00S00093.mlsexec +++|* THE ERROR MESSAGE WILL BE ISSUED AND 00097 M00S00094.mlsexec +++|* THE PROGRAM WILL CONTINUE. *NA* CANNOT BE 00098 M00S00095.mlsexec +++|* SPECIFIED TOGETHER WITH *WB*. 00099 M00S00096.mlsexec +++|* 00100 M00S00097.mlsexec +++|* WB = WAIT BUSY OPTION. IF SET, PROGRAM WILL 00101 M00S00098.mlsexec +++|* WAIT FOR BUSY FILES AND PACK MOUNTS, BUT 00102 M00S00099.mlsexec +++|* ALL OTHER ERRORS WILL CAUSE ABORTS. *WB* 00103 M00S00100.mlsexec +++|* CANNOT BE SPECIFIED TOGETHER WITH *NA*. 00104 M00S00101.mlsexec +++| SPACE 4,15 00105 M00S00102.mlsexec +++|*** DAYFILE MESSAGES. 00106 M00S00103.mlsexec +++|* 00107 M00S00104.mlsexec +++|* * UNKNOWN ACCESS CATEGORY NAME.* = THE COMMAND 00108 M00S00105.mlsexec +++|* CONTAINS AN UNKNOWN ACCESS CATEGORY NAME. 00109 M00S00106.mlsexec +++|* 00110 M00S00107.mlsexec +++|* * UNKNOWN ACCESS LEVEL NAME.* = THE COMMAND 00111 M00S00108.mlsexec +++|* CONTAINS AN UNKNOWN ACCESS LEVEL NAME. 00112 M00S00109.mlsexec +++|* 00113 M00S00110.mlsexec +++|* * INCORRECT ARGUMENT.* = THE COMMAND CONTAINS 00114 M00S00111.mlsexec +++|* AN INCORRECT ARGUMENT. 00115 M00S00112.mlsexec +++| SPACE 4,10 00116 M00S00113.mlsexec +++|* COMMON DECKS. 00117 M00S00114.mlsexec +++| 00118 M00S00115.mlsexec +++|*CALL COMCMAC 00119 M00S00116.mlsexec +++|*CALL COMSMLS 00120 M00S00117.mlsexec +++|*CALL COMSPFM 00121 M00S00118.mlsexec +++|*CALL COMSSSJ 00122 M00S00119.mlsexec +++| SPACE 4,10 00123 M00S00120.mlsexec +++|**** ASSEMBLY CONSTANTS. 00124 M00S00121.mlsexec +++| 00125 M00S00122.mlsexec +++| 00126 M00S00123.mlsexec +++| FBUFL EQU 201B FILE BUFFER LENGTH 00127 M00S00124.mlsexec +++|**** 00128 M00S00125.mlsexec +++| SPACE 4,10 00129 M00S00126.mlsexec +++| SDM= EQU 0 SUPPRESS DAYFILE MESSAGE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2616 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00003.ns2616 +++| SSJ= EQU 0 SPECIAL SYSTEM JOB (*SETPFAC* ONLY) 00131 M00S00127.mlsexec +++| TITLE FETS AND RESERVED LOCATIONS. 00132 M00S00128.mlsexec +++| ORG 120B 00133 M00S00129.mlsexec +++| MLSEXEC BSS 0 00134 M00S00130.mlsexec +++| SPACE 4,10 00135 M00S00131.mlsexec +++|* FETS. 00136 M00S00132.mlsexec +++| 00137 M00S00133.mlsexec +++| 00138 M00S00134.mlsexec +++| F FILEB FBUF,FBUFL,FET=CFLM FET FOR *LFM* AND *PFM* REQUESTS 00139 M00S00135.mlsexec +++| .F BSS 0 00140 M00S00136.mlsexec +++| ORG F+1 00141 M00S00137.mlsexec +++| VFD 13/0,1/1,22/0,6/CFLM-5,18/FBUF 00142 M00S00138.mlsexec +++| ORG .F 00143 M00S00139.mlsexec +++| SPACE 4,10 00144 M00S00140.mlsexec +++|* RESERVED LOCATIONS. 00145 M00S00141.mlsexec +++| 00146 M00S00142.mlsexec +++| 00147 M00S00143.mlsexec +++| ACAT CON 0 ACCESS CATEGORIES 00148 M00S00144.mlsexec +++| ALVL CON 0 ACCESS LEVEL 00149 M00S00145.mlsexec +++| FNAM CON 0 FILE NAME 00150 M00S00146.mlsexec +++| NABT CON 0 NO ABORT FLAG 00151 M00S00147.mlsexec +++| NONZ CON 1 NON-ZERO WORD 00152 M00S00148.mlsexec +++| PKNM CON 0 PACK NAME 00153 M00S00149.mlsexec +++| RESD CON 0 RESIDENCE OF FILE 00154 M00S00150.mlsexec +++| SCFL CON 0 SET/CLEAR FLAG 00155 M00S00151.mlsexec +++| WBSY CON 0 WAIT WHILE BUSY FLAG 00156 M00S00152.mlsexec +++| ZERO CON 0 ZERO WORD FOR *ARG* DEFAULT 00157 M00S00153.mlsexec +++| TITLE SETFAL - SET FILE ACCESS LEVEL. 00158 M00S00154.mlsexec +++|** SETFAL,LFN,AL=LEVEL. 00159 M00S00155.mlsexec +++|* 00160 M00S00156.mlsexec +++|* SET THE SECURITY ACCESS LEVEL OF FILE *LFN* TO LEVEL *AL*. 00161 M00S00157.mlsexec +++| 00162 M00S00158.mlsexec +++| 00163 M00S00159.mlsexec +++| SETFAL BSS 0 ENTRY 00164 M00S00160.mlsexec +++| SB1 1 00165 M01S00004.ns2616 +++| DISSJ DISABLE *SSJ=* 00166 M00S00161.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE 00167 M00S00162.mlsexec +++| SB2 B0+ SET FIRST PARAMETER NOT TO BE EQUIVALENCED 00168 M00S00163.mlsexec +++| SB5 TARG+5 SET ARGUMENT TABLE ADDRESS 00169 M00S00164.mlsexec +++| RJ PRP PROCESS PARAMETERS 00170 M00S00165.mlsexec +++| SB2 B0+ 00171 M00S00166.mlsexec +++| SA1 ALVL 00172 M00S00167.mlsexec +++| RJ VLC VALIDATE ACCESS LEVEL 00173 M00S00168.mlsexec +++| SX5 ALER 00174 M00S00169.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS LEVEL NAME 00175 M00S00170.mlsexec +++| BX6 X2 00176 M00S00171.mlsexec +++| SA6 ALVL SAVE ACCESS LEVEL 00177 M00S00172.mlsexec +++| SETFAL F,ALVL SET FILE ACCESS LEVEL 00178 M00S00173.mlsexec +++| ENDRUN 00179 M00S00174.mlsexec +++| TITLE SETJAL - SET JOB ACCESS LEVEL. 00180 M00S00175.mlsexec +++|** SETJAL,AL=LEVEL. 00181 M00S00176.mlsexec +++|* 00182 M00S00177.mlsexec +++|* SET THE SECURITY ACCESS LEVEL OF THE JOB TO LEVEL *AL*. 00183 M00S00178.mlsexec +++| 00184 M00S00179.mlsexec +++| 00185 M00S00180.mlsexec +++| SETJAL BSS 0 ENTRY 00186 M00S00181.mlsexec +++| SB1 1 00187 M01S00005.ns2616 +++| DISSJ DISABLE *SSJ=* 00188 M00S00182.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE 00189 M00S00183.mlsexec +++| SB2 1 SET FIRST PARAMETER TO BE EQUIVALENCED 00190 M00S00184.mlsexec +++| SB5 TARG+5 SET ARGUMENT TABLE ADDRESS 00191 M00S00185.mlsexec +++| RJ PRP PROCESS PARAMETERS 00192 M00S00186.mlsexec +++| SB2 B0+ 00193 M00S00187.mlsexec +++| SA1 ALVL ACCESS LEVEL TO VALIDATE 00194 M00S00188.mlsexec +++| RJ VLC VALIDATE ACCESS LEVEL 00195 M00S00189.mlsexec +++| SX5 ALER 00196 M00S00190.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS LEVEL NAME 00197 M00S00191.mlsexec +++| BX6 X2 00198 M00S00192.mlsexec +++| SA6 ALVL SAVE ACCESS LEVEL 00199 M00S00193.mlsexec +++| SETJAL ALVL SET JOB ACCESS LEVEL 00200 M00S00194.mlsexec +++| ENDRUN 00201 M00S00195.mlsexec +++| TITLE SETPFAC - SET PERMANENT FILE ACCESS CATEGORY. 00202 M00S00196.mlsexec +++|** SETPFAC,PFN,AC=CAT1,CAT2,...,CATN/PN=PACKNAM,R=DEVICE,NA,WB. 00203 M00S00197.mlsexec +++|* 00204 M00S00198.mlsexec +++|* CHANGE THE ACCESS CATEGORIES OF THE PERMANENT FILE *PFN*. 00205 M00S00199.mlsexec +++|* 00206 M00S00200.mlsexec +++|* PFN = PERMANENT FILE NAME. 00207 M00S00201.mlsexec +++|* AC = ACCESS CATEGORIES. 00208 M00S00202.mlsexec +++|* PN = OPTIONAL AUXILIARY PACK NAME. 00209 M00S00203.mlsexec +++|* R = DEVICE TYPE OF AUXILIARY PACK. 00210 M00S00204.mlsexec +++|* NA = THE NO ABORT OPTION. 00211 M00S00205.mlsexec +++|* WB = THE WAIT-IF-BUSY OPTION. 00212 M00S00206.mlsexec +++| 00213 M00S00207.mlsexec +++| 00214 M00S00208.mlsexec +++| SETPFAC BSS 0 ENTRY 00215 M00S00209.mlsexec +++| SB1 1 00216 M00S00210.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE 00217 M00S00211.mlsexec +++| 00218 M00S00212.mlsexec +++|* SAVE FILE NAME. 00219 M00S00213.mlsexec +++| 00220 M00S00214.mlsexec +++| SA1 ARGR GET FIRST ARGUMENT 00221 M00S00215.mlsexec +++| SX5 IAER 00222 M00S00216.mlsexec +++| ZR X1,ABT IF NO ARGUMENTS 00223 M00S00217.mlsexec +++| MX0 42 SAVE FILE NAME 00224 M00S00218.mlsexec +++| BX6 X0*X1 00225 M00S00219.mlsexec +++| SA6 FNAM 00226 M00S00220.mlsexec +++| SX2 3 SET FET COMPLETE 00227 M00S00221.mlsexec +++| BX6 X2+X6 00228 M00S00222.mlsexec +++| SA6 F 00229 M00S00223.mlsexec +++| BX2 -X0*X1 00230 M00S00224.mlsexec +++| NZ X2,ABT IF ILLEGAL SEPARATOR 00231 M00S00225.mlsexec +++| 00232 M00S00226.mlsexec +++|* CHECK THAT *AC* PARAMETER IS SPECIFIED. 00233 M00S00227.mlsexec +++| 00234 M00S00228.mlsexec +++| SA2 SACA 00235 M00S00229.mlsexec +++| SA1 A1+B1 00236 M00S00230.mlsexec +++| BX2 X2-X1 00237 M00S00231.mlsexec +++| NZ X2,ABT IF INCORRECT ARGUMENT 00238 M00S00232.mlsexec +++| 00239 M00S00233.mlsexec +++|* CHECK IF ANY OPTIONAL PARAMETERS SPECIFIED. 00240 M00S00234.mlsexec +++| 00241 M00S00235.mlsexec +++| SAC1 SA1 A1+1 SEARCH FOR DELIMITER */* 00242 M00S00236.mlsexec +++| ZR X1,SAC2 IF END OF ARGUMENTS 00243 M00S00237.mlsexec +++| SX2 X1-1R/ 00244 M00S00238.mlsexec +++| NZ X2,SAC1 IF NOT */* 00245 M00S00239.mlsexec +++| SA2 ACTR GET ARGUMENT COUNT 00246 M00S00240.mlsexec +++| SX3 A1-ARGR+1 00247 M00S00241.mlsexec +++| IX3 X2-X3 00248 M00S00242.mlsexec +++| SB4 X3 SET ARGUMENT COUNT 00249 M00S00243.mlsexec +++| SA4 A1+1 SET FIRST ARGUMENT 00250 M00S00244.mlsexec +++| SB5 TARG SET ARGUMENT TABLE 00251 M00S00245.mlsexec +++| RJ ARG PROCESS ARGUMENTS 00252 M00S00246.mlsexec +++| SX5 IAER 00253 M00S00247.mlsexec +++| NZ X1,ABT IF INCORRECT ARGUMENT 00254 M00S00248.mlsexec +++| SA1 A1 SIGNAL END OF CATEGORIES TO CHECK 00255 M00S00249.mlsexec +++| MX0 42 00256 M00S00250.mlsexec +++| BX6 X0*X1 00257 M00S00251.mlsexec +++| SA6 A1 00258 M00S00252.mlsexec +++| SX6 B0+ 00259 M00S00253.mlsexec +++| SA6 A1+1 00260 M00S00254.mlsexec +++| RJ PNA PROCESS *NA* AND *WB* OPTIONS 00261 M00S00255.mlsexec +++| 00262 M00S00256.mlsexec +++|* GET CURRENT ACCESS CATEGORIES. 00263 M00S00257.mlsexec +++| 00264 M00S00258.mlsexec +++| SAC2 CATLIST F,FNAM,,,PKNM,RESD 00265 M01S00006.ns2616 +++| DISSJ DISABLE *SSJ=* 00266 M00S00259.mlsexec +++| SA1 F+1 GET ADDRESS OF BUFFER 00267 M00S00260.mlsexec +++| SA1 X1+FCFC GET ACCESS CATEGORIES 00268 M00S00261.mlsexec +++| MX0 -32 00269 M00S00262.mlsexec +++| BX6 -X0*X1 00270 M00S00263.mlsexec +++| SA6 ACAT STORE ACCESS CATEGORIES 00271 M00S00264.mlsexec +++| 00272 M00S00265.mlsexec +++|* CHECK IF CLEAR ALL CATEGORIES. 00273 M00S00266.mlsexec +++| 00274 M00S00267.mlsexec +++| SA1 ARGR+2 00275 M00S00268.mlsexec +++| SA2 =1L0 00276 M00S00269.mlsexec +++| BX6 X2-X1 00277 M00S00270.mlsexec +++| NZ X6,SAC3 IF NOT *0* 00278 M00S00271.mlsexec +++| SA6 ACAT 00279 M00S00272.mlsexec +++| SA1 A1+1 GET FIRST CATEGORY 00280 M00S00273.mlsexec +++| ZR X1,SAC8 IF NO CATEGORIES 00281 M00S00274.mlsexec +++| 00282 M00S00275.mlsexec +++|* CHECK SPECIFIED CATEGORIES. 00283 M00S00276.mlsexec +++| 00284 M00S00277.mlsexec +++| SAC3 MX0 42 00285 M00S00278.mlsexec +++| BX2 X0*X1 00286 M00S00279.mlsexec +++| NZ X2,SAC6 IF CATEGORY NAME 00287 M00S00280.mlsexec +++| 00288 M00S00281.mlsexec +++|* CHECK IF CATEGORY TO BE SET OR CLEARED. 00289 M00S00282.mlsexec +++| 00290 M00S00283.mlsexec +++| BX3 -X0*X1 ISOLATE SEPARATOR 00291 M00S00284.mlsexec +++| SX4 X3-1R- 00292 M00S00285.mlsexec +++| NZ X4,SAC4 IF NOT *-* 00293 M00S00286.mlsexec +++| SX6 -1 SIGNAL CATEGORY CLEAR 00294 M00S00287.mlsexec +++| SA6 SCFL 00295 M00S00288.mlsexec +++| EQ SAC5 CLEAR CATEGORY 00296 M00S00289.mlsexec +++| 00297 M00S00290.mlsexec +++| SAC4 SX4 X3-1R+ 00298 M00S00291.mlsexec +++| ZR X4,SAC5 IF *+* 00299 M00S00292.mlsexec +++| SX5 IAER 00300 M00S00293.mlsexec +++| EQ ABT PROCESS ILLEGAL SEPARATOR 00301 M00S00294.mlsexec +++| 00302 M00S00295.mlsexec +++|* VALIDATE ACCESS CATEGORY. 00303 M00S00296.mlsexec +++| 00304 M00S00297.mlsexec +++| SAC5 SA1 A1+1 POSITION TO CATEGORY NAME 00305 M00S00298.mlsexec +++| SAC6 BX3 -X0*X1 00306 M00S00299.mlsexec +++| SB2 B1 SIGNAL VALIDATE ACCESS CATEGORY 00307 M00S00300.mlsexec +++| SX5 IAER 00308 M00S00301.mlsexec +++| NZ X3,ABT IF ILLEGAL SEPARATOR 00309 M00S00302.mlsexec +++| RJ VLC VALIDATE ACCESS CATEGORY 00310 M00S00303.mlsexec +++| SX5 ACER 00311 M00S00304.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS CATEGORY 00312 M00S00305.mlsexec +++| SX0 1 00313 M00S00306.mlsexec +++| SB2 X2 00314 M00S00307.mlsexec +++| LX2 X0,B2 00315 M00S00308.mlsexec +++| SA3 ACAT GET CURRENT ACCESS CATEGORIES 00316 M00S00309.mlsexec +++| SA4 SCFL GET SET/CLEAR FLAG 00317 M00S00310.mlsexec +++| BX6 -X2*X3 CLEAR ACCESS CATEGORY 00318 M00S00311.mlsexec +++| NG X4,SAC7 IF CLEAR ACCESS CATEGORY 00319 M00S00312.mlsexec +++| BX6 X6+X2 SET ACCESS CATEGORY 00320 M00S00313.mlsexec +++| SAC7 SA6 ACAT 00321 M00S00314.mlsexec +++| 00322 M00S00315.mlsexec +++|* CHECK IF MORE CATEGORIES TO PROCESS 00323 M00S00316.mlsexec +++| 00324 M00S00317.mlsexec +++| 00325 M00S00318.mlsexec +++| SX6 B0+ RESET SET/CLEAR FLAG 00326 M00S00319.mlsexec +++| SA6 SCFL 00327 M00S00320.mlsexec +++| SA1 A1+1 GET NEXT CATEGORY 00328 M00S00321.mlsexec +++| NZ X1,SAC3 IF MORE CATEGORIES 00329 M00S00322.mlsexec +++| 00330 M00S00323.mlsexec +++|* SET PERMANENT FILE ACCESS CATEGORY. 00331 M00S00324.mlsexec +++| 00332 M00S00325.mlsexec +++| SAC8 SETPFAC F,,ACAT,PKNM,RESD SET FILE ACCESS CATEGORIES 00333 M00S00326.mlsexec +++| RJ CES CHECK ERROR STATUS 00334 M00S00327.mlsexec +++| ZR X6,SAC9 IF FILE BUSY 00335 M00S00328.mlsexec +++| ENDRUN 00336 M00S00329.mlsexec +++| 00337 M00S00330.mlsexec +++| SAC9 ROLLOUT ZERO ROLL OUT UNTIL FILE AVAILABLE 00338 M00S00331.mlsexec +++| EQ SAC8 RETRY AFTER ROLLED IN 00339 M00S00332.mlsexec +++| 00340 M00S00333.mlsexec +++| 00341 M00S00334.mlsexec +++| SACA VFD 12/2LAC,42/0,6/1L= 00342 M00S00335.mlsexec +++| TITLE SETPFAL - SET PERMANENT FILE ACCESS LEVEL. 00343 M00S00336.mlsexec +++|** SETPFAL,PFN,AL=LEVEL/PN=PACKNAME,R=TYPE,NA,WB. 00344 M00S00337.mlsexec +++|* 00345 M00S00338.mlsexec +++|* CHANGE THE ACCESS LEVEL OF THE PERMANENT FILE *PFN*. 00346 M00S00339.mlsexec +++|* 00347 M00S00340.mlsexec +++|* PFN = PERMANENT FILE NAME. 00348 M00S00341.mlsexec +++|* AL = ACCESS LEVEL. 00349 M00S00342.mlsexec +++|* PN = OPTIONAL AUXILIARY PACK NAME. 00350 M00S00343.mlsexec +++|* R = DEVICE TYPE. 00351 M00S00344.mlsexec +++|* NA = THE NO ABORT OPTION. 00352 M00S00345.mlsexec +++|* WB = THE WAIT-IF-BUSY OPTION. 00353 M00S00346.mlsexec +++| 00354 M00S00347.mlsexec +++| 00355 M00S00348.mlsexec +++| SETPFAL BSS 0 ENTRY 00356 M00S00349.mlsexec +++| SB1 1 00357 M01S00007.ns2616 +++| DISSJ DISABLE *SSJ=* 00358 M00S00350.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE 00359 M00S00351.mlsexec +++| SB2 B0+ SET FIRST PARAMETER NOT TO BE EQUIVALENCED 00360 M00S00352.mlsexec +++| SB5 TARG SET ARGUMENT TABLE 00361 M00S00353.mlsexec +++| RJ PRP PROCESS PARAMETERS 00362 M00S00354.mlsexec +++| RJ PNA PROCESS *NA* AND *WB* OPTIONS 00363 M00S00355.mlsexec +++| SB2 B0+ 00364 M00S00356.mlsexec +++| SA1 ALVL ACCESS LEVEL TO CHECK 00365 M00S00357.mlsexec +++| RJ VLC VALIDATE ACCESS LEVEL 00366 M00S00358.mlsexec +++| SX5 ALER 00367 M00S00359.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS LEVEL NAME 00368 M00S00360.mlsexec +++| BX6 X2 00369 M00S00361.mlsexec +++| SA6 ALVL 00370 M00S00362.mlsexec +++| SAL1 SETPFAL F,,ALVL,PKNM,RESD SET PERMANENT FILE ACCESS LEVEL 00371 M00S00363.mlsexec +++| RJ CES CHECK ERROR STATUS 00372 M00S00364.mlsexec +++| ZR X6,SAL2 IF FILE BUSY 00373 M00S00365.mlsexec +++| ENDRUN 00374 M00S00366.mlsexec +++| 00375 M00S00367.mlsexec +++| SAL2 ROLLOUT ZERO ROLL OUT UNTIL FILE AVAILABLE 00376 M00S00368.mlsexec +++| EQ SAL1 RETRY AFTER ROLLED IN 00377 M00S00369.mlsexec +++| TITLE SUBROUTINES. 00378 M00S00370.mlsexec +++| ABT SPACE 4,10 00379 M00S00371.mlsexec +++|** ABT - ABORT JOB. 00380 M00S00372.mlsexec +++|* 00381 M00S00373.mlsexec +++|* ISSUE DAYFILE MESSAGE THEN ABORT. 00382 M00S00374.mlsexec +++|* 00383 M00S00375.mlsexec +++|* ENTRY (X5) = ADDRESS OF ERROR MESSAGE. 00384 M00S00376.mlsexec +++|* 00385 M00S00377.mlsexec +++|* MACROS ABORT, MESSAGE. 00386 M00S00378.mlsexec +++| 00387 M00S00379.mlsexec +++| 00388 M00S00380.mlsexec +++| ABT BSS 0 ENTRY 00389 M00S00381.mlsexec +++| MESSAGE X5 ISSUE DAYFILE MESSAGE 00390 M00S00382.mlsexec +++| ABORT ABORT JOB 00391 M00S00383.mlsexec +++| 00392 M00S00384.mlsexec +++| 00393 M00S00385.mlsexec +++| ACER DATA C* UNKNOWN ACCESS CATEGORY NAME.* 00394 M00S00386.mlsexec +++| ALER DATA C* UNKNOWN ACCESS LEVEL NAME.* 00395 M00S00387.mlsexec +++| IAER DATA C* INCORRECT ARGUMENT.* 00396 M00S00388.mlsexec +++| CES SPACE 4,15 00397 M00S00389.mlsexec +++|** CES - CHECK ERROR STATUS. 00398 M00S00390.mlsexec +++|* 00399 M00S00391.mlsexec +++|* ABORT IF *WAIT BUSY* WAS SPECIFIED, AND AN ERROR 00400 M00S00392.mlsexec +++|* OTHER THAN *FILE BUSY* IS DETECTED. 00401 M00S00393.mlsexec +++|* 00402 M00S00394.mlsexec +++|* ENTRY (X2) = FET ADDRESS. 00403 M00S00395.mlsexec +++|* 00404 M00S00396.mlsexec +++|* EXIT (X6) = 0 IF *FILE BUSY* ERROR. 00405 M00S00397.mlsexec +++|* 00406 M00S00398.mlsexec +++|* USES X - 1, 6. 00407 M00S00399.mlsexec +++|* A - 1, 6. 00408 M00S00400.mlsexec +++|* 00409 M00S00401.mlsexec +++|* MACROS ABORT. 00410 M00S00402.mlsexec +++| 00411 M00S00403.mlsexec +++| 00412 M00S00404.mlsexec +++| CES SUBR ENTRY/EXIT 00413 M00S00405.mlsexec +++| MX6 -8 CHECK ERROR STATUS FIELD 00414 M00S00406.mlsexec +++| SA1 X2 00415 M00S00407.mlsexec +++| AX1 10 00416 M00S00408.mlsexec +++| BX1 -X6*X1 00417 M00S00409.mlsexec +++| ZR X1,CESX IF NO ERROR 00418 M00S00410.mlsexec +++| SX6 X1-/ERRMSG/FBS 00419 M00S00411.mlsexec +++| ZR X6,CESX IF *FILE BUSY* STATUS 00420 M00S00412.mlsexec +++| SA1 WBSY 00421 M00S00413.mlsexec +++| ZR X1,CESX IF *NA* RATHER THAN *WB* 00422 M00S00414.mlsexec +++| ABORT ABORT (ERROR MESSAGE ISSUED BY *PFM*) 00423 M00S00415.mlsexec +++| IDM SPACE 4,20 00424 M00S00416.mlsexec +++|** IDM - ISSUE SECURED DAYFILE MESSAGE. 00425 M00S00417.mlsexec +++|* 00426 M00S00418.mlsexec +++|* REMOVE SECURITY ACCESS LEVEL VALUE FROM THE COMMAND 00427 M00S00419.mlsexec +++|* AND ISSUE THE COMMAND TO THE JOB AND TO THE 00428 M00S00420.mlsexec +++|* SYSTEM DAYFILE. 00429 M00S00421.mlsexec +++|* 00430 M00S00422.mlsexec +++|* EXIT COMMAND ISSUED TO DAYFILE. 00431 M00S00423.mlsexec +++|* 00432 M00S00424.mlsexec +++|* USES X - 4, 5. 00433 M00S00425.mlsexec +++|* A - 4, 5. 00434 M00S00426.mlsexec +++|* B - 2, 6. 00435 M00S00427.mlsexec +++|* 00436 M00S00428.mlsexec +++|* CALLS RSP. 00437 M00S00429.mlsexec +++|* 00438 M00S00430.mlsexec +++|* MACROS MESSAGE. 00439 M00S00431.mlsexec +++| 00440 M00S00432.mlsexec +++| 00441 M00S00433.mlsexec +++| IDM SUBR ENTRY/EXIT 00442 M00S00434.mlsexec +++| 00443 M00S00435.mlsexec +++|* FORMAT PARAMETER REGISTERS FOR *RSP*. 00444 M00S00436.mlsexec +++| 00445 M00S00437.mlsexec +++| SA4 TARG SET ARGUMENT TABLE 00446 M00S00438.mlsexec +++| SA5 CCDR CONTROL CARD FWA 00447 M00S00439.mlsexec +++| SB2 B0+ NO PARAMETERS TO SKIP 00448 M00S00440.mlsexec +++| SB6 IDMA PARAMETER TO BE REMOVED 00449 M00S00441.mlsexec +++| 00450 M00S00442.mlsexec +++|* REMOVE PARAMETER AND ISSUE DAYFILE MESSAGE. 00451 M00S00443.mlsexec +++| 00452 M00S00444.mlsexec +++| RJ RSP REMOVE SECURITY PARAMETER 00453 M00S00445.mlsexec +++| MESSAGE CCDR,0,R ISSUE DAYFILE MESSAGE 00454 M00S00446.mlsexec +++| EQ IDMX RETURN 00455 M00S00447.mlsexec +++| 00456 M00S00448.mlsexec +++| 00457 M00S00449.mlsexec +++| IDMA CON 0LAL PARAMETER TO BE REMOVED BY *RSP* 00458 M00S00450.mlsexec +++| CON 0 END OF ARGUMENT TABLE 00459 M00S00451.mlsexec +++| PNA SPACE 4,10 00460 M00S00452.mlsexec +++|** PNA - PROCESS *NO ABORT* AND *WAIT BUSY* OPTIONS. 00461 M00S00453.mlsexec +++|* 00462 M00S00454.mlsexec +++|* ENTRY (NABT) = 1 IF *NO ABORT* SPECIFIED. 00463 M00S00455.mlsexec +++|* (WBSY) = 1 IF *WAIT BUSY* REQUESTED. 00464 M00S00456.mlsexec +++|* 00465 M00S00457.mlsexec +++|* EXIT ERROR PROCESSING BIT SET IF REQUIRED. 00466 M00S00458.mlsexec +++|* TO *ABT* IF BOTH *NA* AND *WB* SPECIFIED. 00467 M00S00459.mlsexec +++|* 00468 M00S00460.mlsexec +++|* USES X - 1, 2, 5, 6. 00469 M00S00461.mlsexec +++|* A - 1, 2, 6. 00470 M00S00462.mlsexec +++| 00471 M00S00463.mlsexec +++| 00472 M00S00464.mlsexec +++| PNA SUBR ENTRY/EXIT 00473 M00S00465.mlsexec +++| SA1 NABT 00474 M00S00466.mlsexec +++| SA2 WBSY 00475 M00S00467.mlsexec +++| IX1 X1+X2 00476 M00S00468.mlsexec +++| ZR X1,PNAX IF NEITHER *NA* OR *WB* SPECIFIED 00477 M00S00469.mlsexec +++| SX1 X1-2 00478 M00S00470.mlsexec +++| SX5 IAER 00479 M00S00471.mlsexec +++| ZR X1,ABT IF BOTH *NA* AND *WB* SPECIFIED 00480 M00S00472.mlsexec +++| SA1 F+1 SET ERROR PROCESSING BIT 00481 M00S00473.mlsexec +++| SX6 B1 00482 M00S00474.mlsexec +++| LX6 44 00483 M00S00475.mlsexec +++| BX6 X1+X6 00484 M00S00476.mlsexec +++| SA6 A1 00485 M00S00477.mlsexec +++| EQ PNAX RETURN 00486 M00S00478.mlsexec +++| PRP SPACE 4,15 00487 M00S00479.mlsexec +++|** PRP - PROCESS CONTROL CARD PARAMETERS. 00488 M00S00480.mlsexec +++|* 00489 M00S00481.mlsexec +++|* ENTRY (B2).NE.0 IF FIRST PARAMETER TO BE EQUIVALENCED. 00490 M00S00482.mlsexec +++|* (B5) = ADDRESS OF ARGUMENT TABLE IN *ARG* FORMAT. 00491 M00S00483.mlsexec +++|* 00492 M00S00484.mlsexec +++|* EXIT CONTROL CARD PARAMETERS PROCESSED. 00493 M00S00485.mlsexec +++|* TO *ABT* IF ERROR. 00494 M00S00486.mlsexec +++|* 00495 M00S00487.mlsexec +++|* USES X - 0, 1, 2, 4, 5, 6, 7. 00496 M00S00488.mlsexec +++|* A - 1, 4, 6. 00497 M00S00489.mlsexec +++|* B - 4. 00498 M00S00490.mlsexec +++|* 00499 M00S00491.mlsexec +++|* CALLS ARG. 00500 M00S00492.mlsexec +++| 00501 M00S00493.mlsexec +++| 00502 M00S00494.mlsexec +++| PRP SUBR ENTRY/EXIT 00503 M00S00495.mlsexec +++| SA1 ACTR 00504 M00S00496.mlsexec +++| SB4 X1 00505 M00S00497.mlsexec +++| R= A4,ARGR 00506 M00S00498.mlsexec +++| SX5 IAER 00507 M00S00499.mlsexec +++| ZR B4,ABT IF NO ARGUMENTS 00508 M00S00500.mlsexec +++| SX7 X4-1R= 00509 M00S00501.mlsexec +++| ZR X7,PRP1 IF FIRST PARAMETER IS EQUIVALENCED 00510 M00S00502.mlsexec +++| NZ B2,ABT IF FIRST PARAMETER SHOULD BE EQUIVALENCED 00511 M00S00503.mlsexec +++| MX0 42 00512 M00S00504.mlsexec +++| BX6 X0*X4 SET FIRST PARAMETER AS FILE NAME 00513 M00S00505.mlsexec +++| SX2 3 00514 M00S00506.mlsexec +++| BX6 X2+X6 SET FET COMPLETE 00515 M00S00507.mlsexec +++| SA6 F 00516 M00S00508.mlsexec +++| SA4 A4+B1 00517 M00S00509.mlsexec +++| SB4 B4-B1 00518 M00S00510.mlsexec +++| ZR X4,ABT IF NO MORE PARAMETERS 00519 M00S00511.mlsexec +++| EQ PRP2 PROCESS REMAINING ARGUMENTS 00520 M00S00512.mlsexec +++| 00521 M00S00513.mlsexec +++| PRP1 ZR B2,ABT IF FIRST PARAMETER SHOULD BE UNEQUIVALENCED 00522 M00S00514.mlsexec +++| PRP2 RJ ARG PROCESS EQUIVALENCED PARAMETERS 00523 M00S00515.mlsexec +++| NZ X1,ABT IF INCORRECT ARGUMENT 00524 M00S00516.mlsexec +++| EQ PRPX RETURN 00525 M00S00517.mlsexec +++| 00526 M00S00518.mlsexec +++| 00527 M00S00519.mlsexec +++| TARG BSS 0 ARGUMENT TABLE 00528 M00S00520.mlsexec +++| PN ARG ZERO,PKNM 00529 M00S00521.mlsexec +++| R ARG ZERO,RESD 00530 M00S00522.mlsexec +++| NA ARG -NONZ,NABT 00531 M00S00523.mlsexec +++| WB ARG -NONZ,WBSY 00532 M00S00524.mlsexec +++| AC ARG ZERO,ACAT,400B 00533 M00S00525.mlsexec +++| AL ARG ZERO,ALVL,400B 00534 M00S00526.mlsexec +++| ARG END OF TABLE 00535 M00S00527.mlsexec +++| SPACE 4,10 00536 M00S00528.mlsexec +++|* COMMON DECKS. 00537 M00S00529.mlsexec +++| 00538 M00S00530.mlsexec +++|*CALL COMCARG 00539 M00S00531.mlsexec +++|*CALL COMCCPM 00540 M00S00532.mlsexec +++|*CALL COMCLFM 00541 M00S00533.mlsexec +++|*CALL COMCPFM 00542 M00S00534.mlsexec +++|*CALL COMCRSP 00543 M00S00535.mlsexec +++|*CALL COMCSYS 00544 M00S00536.mlsexec +++|*CALL COMCVLC 00545 M00S00537.mlsexec +++| SPACE 4,10 00546 M00S00538.mlsexec +++| USE LITERALS 00547 M00S00539.mlsexec +++| FBUF EQU * FILE BUFFER 00548 M00S00540.mlsexec +++| RFL= EQU FBUF+FBUFL 00549 M00S00541.mlsexec +++| END
cdc/nos2.source/opl.opl871/deck/mlsexec.txt · Last modified: (external edit)