Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.mlsexec +++| IDENT MLSEXEC,MLSEXEC
00002 M01S00002.mlsexec +++| ABS
00003 M01S00003.mlsexec +++| SST
00004 M01S00004.mlsexec +++| SYSCOM B1
00005 M01S00005.mlsexec +++| ENTRY SETFAL
00006 M01S00006.mlsexec +++| ENTRY SETJAL
00007 M01S00007.mlsexec +++| ENTRY SETPFAC
00008 M01S00008.mlsexec +++| ENTRY SETPFAL
00009 M01S00001.ns2616 +++| ENTRY RFL=
00010 M01S00009.mlsexec +++| ENTRY SDM=
| Line S00010 Modification History |
M01 (Added by) | mlsexec |
M02 (Updated by) | ns2616 |
Seq # *Modification Id* Act
----------------------------+
00011 M02S00010.ns2616 ---| ENTRY RFL=
00012 M01S00002.ns2616 +++| ENTRY SSJ=
00013 M01S00011.mlsexec +++| TITLE MLSEXEC - SECURITY COMMAND PROCESSOR.
00014 M01S00012.mlsexec +++|*COMMENT MLSEXEC - SECURITY COMMAND PROCESSOR.
| Line S00013 Modification History |
M01 (Added by) | mlsexec |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act
----------------------------+
00015 M02S00013.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1982.
00016 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00017 M01S00014.mlsexec +++| SPACE 4,10
00018 M01S00015.mlsexec +++|*** MLSEXEC - SECURITY COMMAND PROCESSOR.
00019 M01S00016.mlsexec +++|* M. S. PESCHMAN. 82/08/20.
00020 M01S00017.mlsexec +++|* P. J. ENGLE. 82/10/01.
00021 M01S00018.mlsexec +++| SPACE 4,10
00022 M01S00019.mlsexec +++|*** MLSEXEC PROCESSES MULTI-LEVEL SECURITY COMMANDS FOR ALTERING
00023 M01S00020.mlsexec +++|* A JOB OR FILE ACCESS LEVELS AND CATEGORIES.
00024 M01S00021.mlsexec +++|*
00025 M01S00022.mlsexec +++|* COMMAND DESCRIPTION
00026 M01S00023.mlsexec +++|*
00027 M01S00024.mlsexec +++|* SETFAL SET FILE ACCESS LEVEL.
00028 M01S00025.mlsexec +++|* SETJAL SET JOB ACCESS LEVEL.
00029 M01S00026.mlsexec +++|* SETPFAC SET PERMANENT FILE ACCESS CATEGORIES.
00030 M01S00027.mlsexec +++|* SETPFAL SET PERMANENT FILE ACCESS LEVEL.
00031 M01S00028.mlsexec +++| SETFAL SPACE 4,10
00032 M01S00029.mlsexec +++|*** SETFAL COMMAND CALL.
00033 M01S00030.mlsexec +++|*
00034 M01S00031.mlsexec +++|* SETFAL,LFN,AL=LEVEL.
00035 M01S00032.mlsexec +++|*
00036 M01S00033.mlsexec +++|* LFN = LOCAL FILE NAME.
00037 M01S00034.mlsexec +++|*
00038 M01S00035.mlsexec +++|* LEVEL = ACCESS LEVEL. VALID ACCESS LEVEL NAMES
00039 M01S00036.mlsexec +++|* ARE DEFINED IN *COMSMLS*.
00040 M01S00037.mlsexec +++| SETJAL SPACE 4,10
00041 M01S00038.mlsexec +++|*** SETJAL COMMAND CALL.
00042 M01S00039.mlsexec +++|*
00043 M01S00040.mlsexec +++|* SETJAL,AL=LEVEL.
00044 M01S00041.mlsexec +++|*
00045 M01S00042.mlsexec +++|* LEVEL = ACCESS LEVEL. VALID ACCESS LEVEL NAMES
00046 M01S00043.mlsexec +++|* ARE DEFINED IN *COMSMLS*.
00047 M01S00044.mlsexec +++| SETPFAC SPACE 4,30
00048 M01S00045.mlsexec +++|*** SETPFAC COMMAND CALL.
00049 M01S00046.mlsexec +++|*
00050 M01S00047.mlsexec +++|* SETPFAC,PFN,AC=CAT1,CAT2,...,CATN/PN=PACKNAM,R=DEVICE,NA,WB.
00051 M01S00048.mlsexec +++|*
00052 M01S00049.mlsexec +++|* PFN = PERMANENT FILE NAME.
00053 M01S00050.mlsexec +++|*
00054 M01S00051.mlsexec +++|* CATX = ACCESS CATEGORIES. VALID ACCESS CATEGORIES NAMES
00055 M01S00052.mlsexec +++|* ARE DEFINED IN *COMSMLS*. WHEN THE CATEGORY NAME
00056 M01S00053.mlsexec +++|* IS PREFACED BY A MINUS (-) THE CATEGORY IS DELETED
00057 M01S00054.mlsexec +++|* FROM THE FILE. IF THE CATEGORY NAME IS PREFACED
00058 M01S00055.mlsexec +++|* BY A PLUS (+) THE CATEGORY IS ADDED TO THE FILE.
00059 M01S00056.mlsexec +++|* IF THE FIRST CATEGORY SPECIFIED IS *0* ALL CATEGORIES
00060 M01S00057.mlsexec +++|* WILL INITIALLY BE CLEARED.
00061 M01S00058.mlsexec +++|*
00062 M01S00059.mlsexec +++|* PACKNAM = OPTIONAL AUXILIARY PACK NAME.
00063 M01S00060.mlsexec +++|*
00064 M01S00061.mlsexec +++|* DEVICE = DEVICE TYPE OF AUXILIARY PACK.
00065 M01S00062.mlsexec +++|*
00066 M01S00063.mlsexec +++|* NA = NO ABORT OPTION. IF SET PROGRAM WILL NOT
00067 M01S00064.mlsexec +++|* ABORT. IF THE FILE IS BUSY THE JOB
00068 M01S00065.mlsexec +++|* WILL BE SUSPENDED UNTIL THE FILE IS
00069 M01S00066.mlsexec +++|* AVAILABLE. FOR ALL OTHER CONDITIONS,
00070 M01S00067.mlsexec +++|* THE ERROR MESSAGE WILL BE ISSUED AND
00071 M01S00068.mlsexec +++|* THE PROGRAM WILL CONTINUE. *NA* CANNOT BE
00072 M01S00069.mlsexec +++|* SPECIFIED TOGETHER WITH *WB*.
00073 M01S00070.mlsexec +++|*
00074 M01S00071.mlsexec +++|* WB = WAIT BUSY OPTION. IF SET, PROGRAM WILL
00075 M01S00072.mlsexec +++|* WAIT FOR BUSY FILES AND PACK MOUNTS, BUT
00076 M01S00073.mlsexec +++|* ALL OTHER ERRORS WILL CAUSE ABORTS. *WB*
00077 M01S00074.mlsexec +++|* CANNOT BE SPECIFIED TOGETHER WITH *NA*.
00078 M01S00075.mlsexec +++| SETPFAL SPACE 4,40
00079 M01S00076.mlsexec +++|*** SETPFAL COMMAND CALL.
00080 M01S00077.mlsexec +++|*
00081 M01S00078.mlsexec +++|* SETPFAL,PFN,AL=LEVEL/PN=PACKNAM,R=DEVICE,NA,WB.
00082 M01S00079.mlsexec +++|*
00083 M01S00080.mlsexec +++|* PFN = PERMANENT FILE NAME.
00084 M01S00081.mlsexec +++|*
00085 M01S00082.mlsexec +++|* LEVEL = ACCESS LEVEL. VALID ACCESS LEVEL NAMES ARE
00086 M01S00083.mlsexec +++|* DEFINED IN *COMSMLS*.
00087 M01S00084.mlsexec +++|*
00088 M01S00085.mlsexec +++|* PACKNAM = OPTIONAL AUXILARY PACK NAME.
00089 M01S00086.mlsexec +++|*
00090 M01S00087.mlsexec +++|* DEVICE = DEVICE TYPE OF AUXILIARY PACK.
00091 M01S00088.mlsexec +++|*
00092 M01S00089.mlsexec +++|* NA = NO ABORT OPTION. IF SET PROGRAM WILL NOT
00093 M01S00090.mlsexec +++|* ABORT. IF THE FILE IS BUSY THE JOB
00094 M01S00091.mlsexec +++|* WILL BE SUSPENDED UNTIL THE FILE IS
00095 M01S00092.mlsexec +++|* AVAILABLE. FOR ALL OTHER CONDITIONS,
00096 M01S00093.mlsexec +++|* THE ERROR MESSAGE WILL BE ISSUED AND
00097 M01S00094.mlsexec +++|* THE PROGRAM WILL CONTINUE. *NA* CANNOT BE
00098 M01S00095.mlsexec +++|* SPECIFIED TOGETHER WITH *WB*.
00099 M01S00096.mlsexec +++|*
00100 M01S00097.mlsexec +++|* WB = WAIT BUSY OPTION. IF SET, PROGRAM WILL
00101 M01S00098.mlsexec +++|* WAIT FOR BUSY FILES AND PACK MOUNTS, BUT
00102 M01S00099.mlsexec +++|* ALL OTHER ERRORS WILL CAUSE ABORTS. *WB*
00103 M01S00100.mlsexec +++|* CANNOT BE SPECIFIED TOGETHER WITH *NA*.
00104 M01S00101.mlsexec +++| SPACE 4,15
00105 M01S00102.mlsexec +++|*** DAYFILE MESSAGES.
00106 M01S00103.mlsexec +++|*
00107 M01S00104.mlsexec +++|* * UNKNOWN ACCESS CATEGORY NAME.* = THE COMMAND
00108 M01S00105.mlsexec +++|* CONTAINS AN UNKNOWN ACCESS CATEGORY NAME.
00109 M01S00106.mlsexec +++|*
00110 M01S00107.mlsexec +++|* * UNKNOWN ACCESS LEVEL NAME.* = THE COMMAND
00111 M01S00108.mlsexec +++|* CONTAINS AN UNKNOWN ACCESS LEVEL NAME.
00112 M01S00109.mlsexec +++|*
00113 M01S00110.mlsexec +++|* * INCORRECT ARGUMENT.* = THE COMMAND CONTAINS
00114 M01S00111.mlsexec +++|* AN INCORRECT ARGUMENT.
00115 M01S00112.mlsexec +++| SPACE 4,10
00116 M01S00113.mlsexec +++|* COMMON DECKS.
00117 M01S00114.mlsexec +++|
00118 M01S00115.mlsexec +++|*CALL COMCMAC
00119 M01S00116.mlsexec +++|*CALL COMSMLS
00120 M01S00117.mlsexec +++|*CALL COMSPFM
00121 M01S00118.mlsexec +++|*CALL COMSSSJ
00122 M01S00119.mlsexec +++| SPACE 4,10
00123 M01S00120.mlsexec +++|**** ASSEMBLY CONSTANTS.
00124 M01S00121.mlsexec +++|
00125 M01S00122.mlsexec +++|
00126 M01S00123.mlsexec +++| FBUFL EQU 201B FILE BUFFER LENGTH
00127 M01S00124.mlsexec +++|****
00128 M01S00125.mlsexec +++| SPACE 4,10
00129 M01S00126.mlsexec +++| SDM= EQU 0 SUPPRESS DAYFILE MESSAGE
00130 M01S00003.ns2616 +++| SSJ= EQU 0 SPECIAL SYSTEM JOB (*SETPFAC* ONLY)
00131 M01S00127.mlsexec +++| TITLE FETS AND RESERVED LOCATIONS.
00132 M01S00128.mlsexec +++| ORG 120B
00133 M01S00129.mlsexec +++| MLSEXEC BSS 0
00134 M01S00130.mlsexec +++| SPACE 4,10
00135 M01S00131.mlsexec +++|* FETS.
00136 M01S00132.mlsexec +++|
00137 M01S00133.mlsexec +++|
00138 M01S00134.mlsexec +++| F FILEB FBUF,FBUFL,FET=CFLM FET FOR *LFM* AND *PFM* REQUESTS
00139 M01S00135.mlsexec +++| .F BSS 0
00140 M01S00136.mlsexec +++| ORG F+1
00141 M01S00137.mlsexec +++| VFD 13/0,1/1,22/0,6/CFLM-5,18/FBUF
00142 M01S00138.mlsexec +++| ORG .F
00143 M01S00139.mlsexec +++| SPACE 4,10
00144 M01S00140.mlsexec +++|* RESERVED LOCATIONS.
00145 M01S00141.mlsexec +++|
00146 M01S00142.mlsexec +++|
00147 M01S00143.mlsexec +++| ACAT CON 0 ACCESS CATEGORIES
00148 M01S00144.mlsexec +++| ALVL CON 0 ACCESS LEVEL
00149 M01S00145.mlsexec +++| FNAM CON 0 FILE NAME
00150 M01S00146.mlsexec +++| NABT CON 0 NO ABORT FLAG
00151 M01S00147.mlsexec +++| NONZ CON 1 NON-ZERO WORD
00152 M01S00148.mlsexec +++| PKNM CON 0 PACK NAME
00153 M01S00149.mlsexec +++| RESD CON 0 RESIDENCE OF FILE
00154 M01S00150.mlsexec +++| SCFL CON 0 SET/CLEAR FLAG
00155 M01S00151.mlsexec +++| WBSY CON 0 WAIT WHILE BUSY FLAG
00156 M01S00152.mlsexec +++| ZERO CON 0 ZERO WORD FOR *ARG* DEFAULT
00157 M01S00153.mlsexec +++| TITLE SETFAL - SET FILE ACCESS LEVEL.
00158 M01S00154.mlsexec +++|** SETFAL,LFN,AL=LEVEL.
00159 M01S00155.mlsexec +++|*
00160 M01S00156.mlsexec +++|* SET THE SECURITY ACCESS LEVEL OF FILE *LFN* TO LEVEL *AL*.
00161 M01S00157.mlsexec +++|
00162 M01S00158.mlsexec +++|
00163 M01S00159.mlsexec +++| SETFAL BSS 0 ENTRY
00164 M01S00160.mlsexec +++| SB1 1
00165 M01S00004.ns2616 +++| DISSJ DISABLE *SSJ=*
00166 M01S00161.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE
00167 M01S00162.mlsexec +++| SB2 B0+ SET FIRST PARAMETER NOT TO BE EQUIVALENCED
00168 M01S00163.mlsexec +++| SB5 TARG+5 SET ARGUMENT TABLE ADDRESS
00169 M01S00164.mlsexec +++| RJ PRP PROCESS PARAMETERS
00170 M01S00165.mlsexec +++| SB2 B0+
00171 M01S00166.mlsexec +++| SA1 ALVL
00172 M01S00167.mlsexec +++| RJ VLC VALIDATE ACCESS LEVEL
00173 M01S00168.mlsexec +++| SX5 ALER
00174 M01S00169.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS LEVEL NAME
00175 M01S00170.mlsexec +++| BX6 X2
00176 M01S00171.mlsexec +++| SA6 ALVL SAVE ACCESS LEVEL
00177 M01S00172.mlsexec +++| SETFAL F,ALVL SET FILE ACCESS LEVEL
00178 M01S00173.mlsexec +++| ENDRUN
00179 M01S00174.mlsexec +++| TITLE SETJAL - SET JOB ACCESS LEVEL.
00180 M01S00175.mlsexec +++|** SETJAL,AL=LEVEL.
00181 M01S00176.mlsexec +++|*
00182 M01S00177.mlsexec +++|* SET THE SECURITY ACCESS LEVEL OF THE JOB TO LEVEL *AL*.
00183 M01S00178.mlsexec +++|
00184 M01S00179.mlsexec +++|
00185 M01S00180.mlsexec +++| SETJAL BSS 0 ENTRY
00186 M01S00181.mlsexec +++| SB1 1
00187 M01S00005.ns2616 +++| DISSJ DISABLE *SSJ=*
00188 M01S00182.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE
00189 M01S00183.mlsexec +++| SB2 1 SET FIRST PARAMETER TO BE EQUIVALENCED
00190 M01S00184.mlsexec +++| SB5 TARG+5 SET ARGUMENT TABLE ADDRESS
00191 M01S00185.mlsexec +++| RJ PRP PROCESS PARAMETERS
00192 M01S00186.mlsexec +++| SB2 B0+
00193 M01S00187.mlsexec +++| SA1 ALVL ACCESS LEVEL TO VALIDATE
00194 M01S00188.mlsexec +++| RJ VLC VALIDATE ACCESS LEVEL
00195 M01S00189.mlsexec +++| SX5 ALER
00196 M01S00190.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS LEVEL NAME
00197 M01S00191.mlsexec +++| BX6 X2
00198 M01S00192.mlsexec +++| SA6 ALVL SAVE ACCESS LEVEL
00199 M01S00193.mlsexec +++| SETJAL ALVL SET JOB ACCESS LEVEL
00200 M01S00194.mlsexec +++| ENDRUN
00201 M01S00195.mlsexec +++| TITLE SETPFAC - SET PERMANENT FILE ACCESS CATEGORY.
00202 M01S00196.mlsexec +++|** SETPFAC,PFN,AC=CAT1,CAT2,...,CATN/PN=PACKNAM,R=DEVICE,NA,WB.
00203 M01S00197.mlsexec +++|*
00204 M01S00198.mlsexec +++|* CHANGE THE ACCESS CATEGORIES OF THE PERMANENT FILE *PFN*.
00205 M01S00199.mlsexec +++|*
00206 M01S00200.mlsexec +++|* PFN = PERMANENT FILE NAME.
00207 M01S00201.mlsexec +++|* AC = ACCESS CATEGORIES.
00208 M01S00202.mlsexec +++|* PN = OPTIONAL AUXILIARY PACK NAME.
00209 M01S00203.mlsexec +++|* R = DEVICE TYPE OF AUXILIARY PACK.
00210 M01S00204.mlsexec +++|* NA = THE NO ABORT OPTION.
00211 M01S00205.mlsexec +++|* WB = THE WAIT-IF-BUSY OPTION.
00212 M01S00206.mlsexec +++|
00213 M01S00207.mlsexec +++|
00214 M01S00208.mlsexec +++| SETPFAC BSS 0 ENTRY
00215 M01S00209.mlsexec +++| SB1 1
00216 M01S00210.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE
00217 M01S00211.mlsexec +++|
00218 M01S00212.mlsexec +++|* SAVE FILE NAME.
00219 M01S00213.mlsexec +++|
00220 M01S00214.mlsexec +++| SA1 ARGR GET FIRST ARGUMENT
00221 M01S00215.mlsexec +++| SX5 IAER
00222 M01S00216.mlsexec +++| ZR X1,ABT IF NO ARGUMENTS
00223 M01S00217.mlsexec +++| MX0 42 SAVE FILE NAME
00224 M01S00218.mlsexec +++| BX6 X0*X1
00225 M01S00219.mlsexec +++| SA6 FNAM
00226 M01S00220.mlsexec +++| SX2 3 SET FET COMPLETE
00227 M01S00221.mlsexec +++| BX6 X2+X6
00228 M01S00222.mlsexec +++| SA6 F
00229 M01S00223.mlsexec +++| BX2 -X0*X1
00230 M01S00224.mlsexec +++| NZ X2,ABT IF ILLEGAL SEPARATOR
00231 M01S00225.mlsexec +++|
00232 M01S00226.mlsexec +++|* CHECK THAT *AC* PARAMETER IS SPECIFIED.
00233 M01S00227.mlsexec +++|
00234 M01S00228.mlsexec +++| SA2 SACA
00235 M01S00229.mlsexec +++| SA1 A1+B1
00236 M01S00230.mlsexec +++| BX2 X2-X1
00237 M01S00231.mlsexec +++| NZ X2,ABT IF INCORRECT ARGUMENT
00238 M01S00232.mlsexec +++|
00239 M01S00233.mlsexec +++|* CHECK IF ANY OPTIONAL PARAMETERS SPECIFIED.
00240 M01S00234.mlsexec +++|
00241 M01S00235.mlsexec +++| SAC1 SA1 A1+1 SEARCH FOR DELIMITER */*
00242 M01S00236.mlsexec +++| ZR X1,SAC2 IF END OF ARGUMENTS
00243 M01S00237.mlsexec +++| SX2 X1-1R/
00244 M01S00238.mlsexec +++| NZ X2,SAC1 IF NOT */*
00245 M01S00239.mlsexec +++| SA2 ACTR GET ARGUMENT COUNT
00246 M01S00240.mlsexec +++| SX3 A1-ARGR+1
00247 M01S00241.mlsexec +++| IX3 X2-X3
00248 M01S00242.mlsexec +++| SB4 X3 SET ARGUMENT COUNT
00249 M01S00243.mlsexec +++| SA4 A1+1 SET FIRST ARGUMENT
00250 M01S00244.mlsexec +++| SB5 TARG SET ARGUMENT TABLE
00251 M01S00245.mlsexec +++| RJ ARG PROCESS ARGUMENTS
00252 M01S00246.mlsexec +++| SX5 IAER
00253 M01S00247.mlsexec +++| NZ X1,ABT IF INCORRECT ARGUMENT
00254 M01S00248.mlsexec +++| SA1 A1 SIGNAL END OF CATEGORIES TO CHECK
00255 M01S00249.mlsexec +++| MX0 42
00256 M01S00250.mlsexec +++| BX6 X0*X1
00257 M01S00251.mlsexec +++| SA6 A1
00258 M01S00252.mlsexec +++| SX6 B0+
00259 M01S00253.mlsexec +++| SA6 A1+1
00260 M01S00254.mlsexec +++| RJ PNA PROCESS *NA* AND *WB* OPTIONS
00261 M01S00255.mlsexec +++|
00262 M01S00256.mlsexec +++|* GET CURRENT ACCESS CATEGORIES.
00263 M01S00257.mlsexec +++|
00264 M01S00258.mlsexec +++| SAC2 CATLIST F,FNAM,,,PKNM,RESD
00265 M01S00006.ns2616 +++| DISSJ DISABLE *SSJ=*
00266 M01S00259.mlsexec +++| SA1 F+1 GET ADDRESS OF BUFFER
00267 M01S00260.mlsexec +++| SA1 X1+FCFC GET ACCESS CATEGORIES
00268 M01S00261.mlsexec +++| MX0 -32
00269 M01S00262.mlsexec +++| BX6 -X0*X1
00270 M01S00263.mlsexec +++| SA6 ACAT STORE ACCESS CATEGORIES
00271 M01S00264.mlsexec +++|
00272 M01S00265.mlsexec +++|* CHECK IF CLEAR ALL CATEGORIES.
00273 M01S00266.mlsexec +++|
00274 M01S00267.mlsexec +++| SA1 ARGR+2
00275 M01S00268.mlsexec +++| SA2 =1L0
00276 M01S00269.mlsexec +++| BX6 X2-X1
00277 M01S00270.mlsexec +++| NZ X6,SAC3 IF NOT *0*
00278 M01S00271.mlsexec +++| SA6 ACAT
00279 M01S00272.mlsexec +++| SA1 A1+1 GET FIRST CATEGORY
00280 M01S00273.mlsexec +++| ZR X1,SAC8 IF NO CATEGORIES
00281 M01S00274.mlsexec +++|
00282 M01S00275.mlsexec +++|* CHECK SPECIFIED CATEGORIES.
00283 M01S00276.mlsexec +++|
00284 M01S00277.mlsexec +++| SAC3 MX0 42
00285 M01S00278.mlsexec +++| BX2 X0*X1
00286 M01S00279.mlsexec +++| NZ X2,SAC6 IF CATEGORY NAME
00287 M01S00280.mlsexec +++|
00288 M01S00281.mlsexec +++|* CHECK IF CATEGORY TO BE SET OR CLEARED.
00289 M01S00282.mlsexec +++|
00290 M01S00283.mlsexec +++| BX3 -X0*X1 ISOLATE SEPARATOR
00291 M01S00284.mlsexec +++| SX4 X3-1R-
00292 M01S00285.mlsexec +++| NZ X4,SAC4 IF NOT *-*
00293 M01S00286.mlsexec +++| SX6 -1 SIGNAL CATEGORY CLEAR
00294 M01S00287.mlsexec +++| SA6 SCFL
00295 M01S00288.mlsexec +++| EQ SAC5 CLEAR CATEGORY
00296 M01S00289.mlsexec +++|
00297 M01S00290.mlsexec +++| SAC4 SX4 X3-1R+
00298 M01S00291.mlsexec +++| ZR X4,SAC5 IF *+*
00299 M01S00292.mlsexec +++| SX5 IAER
00300 M01S00293.mlsexec +++| EQ ABT PROCESS ILLEGAL SEPARATOR
00301 M01S00294.mlsexec +++|
00302 M01S00295.mlsexec +++|* VALIDATE ACCESS CATEGORY.
00303 M01S00296.mlsexec +++|
00304 M01S00297.mlsexec +++| SAC5 SA1 A1+1 POSITION TO CATEGORY NAME
00305 M01S00298.mlsexec +++| SAC6 BX3 -X0*X1
00306 M01S00299.mlsexec +++| SB2 B1 SIGNAL VALIDATE ACCESS CATEGORY
00307 M01S00300.mlsexec +++| SX5 IAER
00308 M01S00301.mlsexec +++| NZ X3,ABT IF ILLEGAL SEPARATOR
00309 M01S00302.mlsexec +++| RJ VLC VALIDATE ACCESS CATEGORY
00310 M01S00303.mlsexec +++| SX5 ACER
00311 M01S00304.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS CATEGORY
00312 M01S00305.mlsexec +++| SX0 1
00313 M01S00306.mlsexec +++| SB2 X2
00314 M01S00307.mlsexec +++| LX2 X0,B2
00315 M01S00308.mlsexec +++| SA3 ACAT GET CURRENT ACCESS CATEGORIES
00316 M01S00309.mlsexec +++| SA4 SCFL GET SET/CLEAR FLAG
00317 M01S00310.mlsexec +++| BX6 -X2*X3 CLEAR ACCESS CATEGORY
00318 M01S00311.mlsexec +++| NG X4,SAC7 IF CLEAR ACCESS CATEGORY
00319 M01S00312.mlsexec +++| BX6 X6+X2 SET ACCESS CATEGORY
00320 M01S00313.mlsexec +++| SAC7 SA6 ACAT
00321 M01S00314.mlsexec +++|
00322 M01S00315.mlsexec +++|* CHECK IF MORE CATEGORIES TO PROCESS
00323 M01S00316.mlsexec +++|
00324 M01S00317.mlsexec +++|
00325 M01S00318.mlsexec +++| SX6 B0+ RESET SET/CLEAR FLAG
00326 M01S00319.mlsexec +++| SA6 SCFL
00327 M01S00320.mlsexec +++| SA1 A1+1 GET NEXT CATEGORY
00328 M01S00321.mlsexec +++| NZ X1,SAC3 IF MORE CATEGORIES
00329 M01S00322.mlsexec +++|
00330 M01S00323.mlsexec +++|* SET PERMANENT FILE ACCESS CATEGORY.
00331 M01S00324.mlsexec +++|
00332 M01S00325.mlsexec +++| SAC8 SETPFAC F,,ACAT,PKNM,RESD SET FILE ACCESS CATEGORIES
00333 M01S00326.mlsexec +++| RJ CES CHECK ERROR STATUS
00334 M01S00327.mlsexec +++| ZR X6,SAC9 IF FILE BUSY
00335 M01S00328.mlsexec +++| ENDRUN
00336 M01S00329.mlsexec +++|
00337 M01S00330.mlsexec +++| SAC9 ROLLOUT ZERO ROLL OUT UNTIL FILE AVAILABLE
00338 M01S00331.mlsexec +++| EQ SAC8 RETRY AFTER ROLLED IN
00339 M01S00332.mlsexec +++|
00340 M01S00333.mlsexec +++|
00341 M01S00334.mlsexec +++| SACA VFD 12/2LAC,42/0,6/1L=
00342 M01S00335.mlsexec +++| TITLE SETPFAL - SET PERMANENT FILE ACCESS LEVEL.
00343 M01S00336.mlsexec +++|** SETPFAL,PFN,AL=LEVEL/PN=PACKNAME,R=TYPE,NA,WB.
00344 M01S00337.mlsexec +++|*
00345 M01S00338.mlsexec +++|* CHANGE THE ACCESS LEVEL OF THE PERMANENT FILE *PFN*.
00346 M01S00339.mlsexec +++|*
00347 M01S00340.mlsexec +++|* PFN = PERMANENT FILE NAME.
00348 M01S00341.mlsexec +++|* AL = ACCESS LEVEL.
00349 M01S00342.mlsexec +++|* PN = OPTIONAL AUXILIARY PACK NAME.
00350 M01S00343.mlsexec +++|* R = DEVICE TYPE.
00351 M01S00344.mlsexec +++|* NA = THE NO ABORT OPTION.
00352 M01S00345.mlsexec +++|* WB = THE WAIT-IF-BUSY OPTION.
00353 M01S00346.mlsexec +++|
00354 M01S00347.mlsexec +++|
00355 M01S00348.mlsexec +++| SETPFAL BSS 0 ENTRY
00356 M01S00349.mlsexec +++| SB1 1
00357 M01S00007.ns2616 +++| DISSJ DISABLE *SSJ=*
00358 M01S00350.mlsexec +++| RJ IDM ISSUE DAYFILE MESSAGE
00359 M01S00351.mlsexec +++| SB2 B0+ SET FIRST PARAMETER NOT TO BE EQUIVALENCED
00360 M01S00352.mlsexec +++| SB5 TARG SET ARGUMENT TABLE
00361 M01S00353.mlsexec +++| RJ PRP PROCESS PARAMETERS
00362 M01S00354.mlsexec +++| RJ PNA PROCESS *NA* AND *WB* OPTIONS
00363 M01S00355.mlsexec +++| SB2 B0+
00364 M01S00356.mlsexec +++| SA1 ALVL ACCESS LEVEL TO CHECK
00365 M01S00357.mlsexec +++| RJ VLC VALIDATE ACCESS LEVEL
00366 M01S00358.mlsexec +++| SX5 ALER
00367 M01S00359.mlsexec +++| NG X2,ABT IF UNKNOWN ACCESS LEVEL NAME
00368 M01S00360.mlsexec +++| BX6 X2
00369 M01S00361.mlsexec +++| SA6 ALVL
00370 M01S00362.mlsexec +++| SAL1 SETPFAL F,,ALVL,PKNM,RESD SET PERMANENT FILE ACCESS LEVEL
00371 M01S00363.mlsexec +++| RJ CES CHECK ERROR STATUS
00372 M01S00364.mlsexec +++| ZR X6,SAL2 IF FILE BUSY
00373 M01S00365.mlsexec +++| ENDRUN
00374 M01S00366.mlsexec +++|
00375 M01S00367.mlsexec +++| SAL2 ROLLOUT ZERO ROLL OUT UNTIL FILE AVAILABLE
00376 M01S00368.mlsexec +++| EQ SAL1 RETRY AFTER ROLLED IN
00377 M01S00369.mlsexec +++| TITLE SUBROUTINES.
00378 M01S00370.mlsexec +++| ABT SPACE 4,10
00379 M01S00371.mlsexec +++|** ABT - ABORT JOB.
00380 M01S00372.mlsexec +++|*
00381 M01S00373.mlsexec +++|* ISSUE DAYFILE MESSAGE THEN ABORT.
00382 M01S00374.mlsexec +++|*
00383 M01S00375.mlsexec +++|* ENTRY (X5) = ADDRESS OF ERROR MESSAGE.
00384 M01S00376.mlsexec +++|*
00385 M01S00377.mlsexec +++|* MACROS ABORT, MESSAGE.
00386 M01S00378.mlsexec +++|
00387 M01S00379.mlsexec +++|
00388 M01S00380.mlsexec +++| ABT BSS 0 ENTRY
00389 M01S00381.mlsexec +++| MESSAGE X5 ISSUE DAYFILE MESSAGE
00390 M01S00382.mlsexec +++| ABORT ABORT JOB
00391 M01S00383.mlsexec +++|
00392 M01S00384.mlsexec +++|
00393 M01S00385.mlsexec +++| ACER DATA C* UNKNOWN ACCESS CATEGORY NAME.*
00394 M01S00386.mlsexec +++| ALER DATA C* UNKNOWN ACCESS LEVEL NAME.*
00395 M01S00387.mlsexec +++| IAER DATA C* INCORRECT ARGUMENT.*
00396 M01S00388.mlsexec +++| CES SPACE 4,15
00397 M01S00389.mlsexec +++|** CES - CHECK ERROR STATUS.
00398 M01S00390.mlsexec +++|*
00399 M01S00391.mlsexec +++|* ABORT IF *WAIT BUSY* WAS SPECIFIED, AND AN ERROR
00400 M01S00392.mlsexec +++|* OTHER THAN *FILE BUSY* IS DETECTED.
00401 M01S00393.mlsexec +++|*
00402 M01S00394.mlsexec +++|* ENTRY (X2) = FET ADDRESS.
00403 M01S00395.mlsexec +++|*
00404 M01S00396.mlsexec +++|* EXIT (X6) = 0 IF *FILE BUSY* ERROR.
00405 M01S00397.mlsexec +++|*
00406 M01S00398.mlsexec +++|* USES X - 1, 6.
00407 M01S00399.mlsexec +++|* A - 1, 6.
00408 M01S00400.mlsexec +++|*
00409 M01S00401.mlsexec +++|* MACROS ABORT.
00410 M01S00402.mlsexec +++|
00411 M01S00403.mlsexec +++|
00412 M01S00404.mlsexec +++| CES SUBR ENTRY/EXIT
00413 M01S00405.mlsexec +++| MX6 -8 CHECK ERROR STATUS FIELD
00414 M01S00406.mlsexec +++| SA1 X2
00415 M01S00407.mlsexec +++| AX1 10
00416 M01S00408.mlsexec +++| BX1 -X6*X1
00417 M01S00409.mlsexec +++| ZR X1,CESX IF NO ERROR
00418 M01S00410.mlsexec +++| SX6 X1-/ERRMSG/FBS
00419 M01S00411.mlsexec +++| ZR X6,CESX IF *FILE BUSY* STATUS
00420 M01S00412.mlsexec +++| SA1 WBSY
00421 M01S00413.mlsexec +++| ZR X1,CESX IF *NA* RATHER THAN *WB*
00422 M01S00414.mlsexec +++| ABORT ABORT (ERROR MESSAGE ISSUED BY *PFM*)
00423 M01S00415.mlsexec +++| IDM SPACE 4,20
00424 M01S00416.mlsexec +++|** IDM - ISSUE SECURED DAYFILE MESSAGE.
00425 M01S00417.mlsexec +++|*
00426 M01S00418.mlsexec +++|* REMOVE SECURITY ACCESS LEVEL VALUE FROM THE COMMAND
00427 M01S00419.mlsexec +++|* AND ISSUE THE COMMAND TO THE JOB AND TO THE
00428 M01S00420.mlsexec +++|* SYSTEM DAYFILE.
00429 M01S00421.mlsexec +++|*
00430 M01S00422.mlsexec +++|* EXIT COMMAND ISSUED TO DAYFILE.
00431 M01S00423.mlsexec +++|*
00432 M01S00424.mlsexec +++|* USES X - 4, 5.
00433 M01S00425.mlsexec +++|* A - 4, 5.
00434 M01S00426.mlsexec +++|* B - 2, 6.
00435 M01S00427.mlsexec +++|*
00436 M01S00428.mlsexec +++|* CALLS RSP.
00437 M01S00429.mlsexec +++|*
00438 M01S00430.mlsexec +++|* MACROS MESSAGE.
00439 M01S00431.mlsexec +++|
00440 M01S00432.mlsexec +++|
00441 M01S00433.mlsexec +++| IDM SUBR ENTRY/EXIT
00442 M01S00434.mlsexec +++|
00443 M01S00435.mlsexec +++|* FORMAT PARAMETER REGISTERS FOR *RSP*.
00444 M01S00436.mlsexec +++|
00445 M01S00437.mlsexec +++| SA4 TARG SET ARGUMENT TABLE
00446 M01S00438.mlsexec +++| SA5 CCDR CONTROL CARD FWA
00447 M01S00439.mlsexec +++| SB2 B0+ NO PARAMETERS TO SKIP
00448 M01S00440.mlsexec +++| SB6 IDMA PARAMETER TO BE REMOVED
00449 M01S00441.mlsexec +++|
00450 M01S00442.mlsexec +++|* REMOVE PARAMETER AND ISSUE DAYFILE MESSAGE.
00451 M01S00443.mlsexec +++|
00452 M01S00444.mlsexec +++| RJ RSP REMOVE SECURITY PARAMETER
00453 M01S00445.mlsexec +++| MESSAGE CCDR,0,R ISSUE DAYFILE MESSAGE
00454 M01S00446.mlsexec +++| EQ IDMX RETURN
00455 M01S00447.mlsexec +++|
00456 M01S00448.mlsexec +++|
00457 M01S00449.mlsexec +++| IDMA CON 0LAL PARAMETER TO BE REMOVED BY *RSP*
00458 M01S00450.mlsexec +++| CON 0 END OF ARGUMENT TABLE
00459 M01S00451.mlsexec +++| PNA SPACE 4,10
00460 M01S00452.mlsexec +++|** PNA - PROCESS *NO ABORT* AND *WAIT BUSY* OPTIONS.
00461 M01S00453.mlsexec +++|*
00462 M01S00454.mlsexec +++|* ENTRY (NABT) = 1 IF *NO ABORT* SPECIFIED.
00463 M01S00455.mlsexec +++|* (WBSY) = 1 IF *WAIT BUSY* REQUESTED.
00464 M01S00456.mlsexec +++|*
00465 M01S00457.mlsexec +++|* EXIT ERROR PROCESSING BIT SET IF REQUIRED.
00466 M01S00458.mlsexec +++|* TO *ABT* IF BOTH *NA* AND *WB* SPECIFIED.
00467 M01S00459.mlsexec +++|*
00468 M01S00460.mlsexec +++|* USES X - 1, 2, 5, 6.
00469 M01S00461.mlsexec +++|* A - 1, 2, 6.
00470 M01S00462.mlsexec +++|
00471 M01S00463.mlsexec +++|
00472 M01S00464.mlsexec +++| PNA SUBR ENTRY/EXIT
00473 M01S00465.mlsexec +++| SA1 NABT
00474 M01S00466.mlsexec +++| SA2 WBSY
00475 M01S00467.mlsexec +++| IX1 X1+X2
00476 M01S00468.mlsexec +++| ZR X1,PNAX IF NEITHER *NA* OR *WB* SPECIFIED
00477 M01S00469.mlsexec +++| SX1 X1-2
00478 M01S00470.mlsexec +++| SX5 IAER
00479 M01S00471.mlsexec +++| ZR X1,ABT IF BOTH *NA* AND *WB* SPECIFIED
00480 M01S00472.mlsexec +++| SA1 F+1 SET ERROR PROCESSING BIT
00481 M01S00473.mlsexec +++| SX6 B1
00482 M01S00474.mlsexec +++| LX6 44
00483 M01S00475.mlsexec +++| BX6 X1+X6
00484 M01S00476.mlsexec +++| SA6 A1
00485 M01S00477.mlsexec +++| EQ PNAX RETURN
00486 M01S00478.mlsexec +++| PRP SPACE 4,15
00487 M01S00479.mlsexec +++|** PRP - PROCESS CONTROL CARD PARAMETERS.
00488 M01S00480.mlsexec +++|*
00489 M01S00481.mlsexec +++|* ENTRY (B2).NE.0 IF FIRST PARAMETER TO BE EQUIVALENCED.
00490 M01S00482.mlsexec +++|* (B5) = ADDRESS OF ARGUMENT TABLE IN *ARG* FORMAT.
00491 M01S00483.mlsexec +++|*
00492 M01S00484.mlsexec +++|* EXIT CONTROL CARD PARAMETERS PROCESSED.
00493 M01S00485.mlsexec +++|* TO *ABT* IF ERROR.
00494 M01S00486.mlsexec +++|*
00495 M01S00487.mlsexec +++|* USES X - 0, 1, 2, 4, 5, 6, 7.
00496 M01S00488.mlsexec +++|* A - 1, 4, 6.
00497 M01S00489.mlsexec +++|* B - 4.
00498 M01S00490.mlsexec +++|*
00499 M01S00491.mlsexec +++|* CALLS ARG.
00500 M01S00492.mlsexec +++|
00501 M01S00493.mlsexec +++|
00502 M01S00494.mlsexec +++| PRP SUBR ENTRY/EXIT
00503 M01S00495.mlsexec +++| SA1 ACTR
00504 M01S00496.mlsexec +++| SB4 X1
00505 M01S00497.mlsexec +++| R= A4,ARGR
00506 M01S00498.mlsexec +++| SX5 IAER
00507 M01S00499.mlsexec +++| ZR B4,ABT IF NO ARGUMENTS
00508 M01S00500.mlsexec +++| SX7 X4-1R=
00509 M01S00501.mlsexec +++| ZR X7,PRP1 IF FIRST PARAMETER IS EQUIVALENCED
00510 M01S00502.mlsexec +++| NZ B2,ABT IF FIRST PARAMETER SHOULD BE EQUIVALENCED
00511 M01S00503.mlsexec +++| MX0 42
00512 M01S00504.mlsexec +++| BX6 X0*X4 SET FIRST PARAMETER AS FILE NAME
00513 M01S00505.mlsexec +++| SX2 3
00514 M01S00506.mlsexec +++| BX6 X2+X6 SET FET COMPLETE
00515 M01S00507.mlsexec +++| SA6 F
00516 M01S00508.mlsexec +++| SA4 A4+B1
00517 M01S00509.mlsexec +++| SB4 B4-B1
00518 M01S00510.mlsexec +++| ZR X4,ABT IF NO MORE PARAMETERS
00519 M01S00511.mlsexec +++| EQ PRP2 PROCESS REMAINING ARGUMENTS
00520 M01S00512.mlsexec +++|
00521 M01S00513.mlsexec +++| PRP1 ZR B2,ABT IF FIRST PARAMETER SHOULD BE UNEQUIVALENCED
00522 M01S00514.mlsexec +++| PRP2 RJ ARG PROCESS EQUIVALENCED PARAMETERS
00523 M01S00515.mlsexec +++| NZ X1,ABT IF INCORRECT ARGUMENT
00524 M01S00516.mlsexec +++| EQ PRPX RETURN
00525 M01S00517.mlsexec +++|
00526 M01S00518.mlsexec +++|
00527 M01S00519.mlsexec +++| TARG BSS 0 ARGUMENT TABLE
00528 M01S00520.mlsexec +++| PN ARG ZERO,PKNM
00529 M01S00521.mlsexec +++| R ARG ZERO,RESD
00530 M01S00522.mlsexec +++| NA ARG -NONZ,NABT
00531 M01S00523.mlsexec +++| WB ARG -NONZ,WBSY
00532 M01S00524.mlsexec +++| AC ARG ZERO,ACAT,400B
00533 M01S00525.mlsexec +++| AL ARG ZERO,ALVL,400B
00534 M01S00526.mlsexec +++| ARG END OF TABLE
00535 M01S00527.mlsexec +++| SPACE 4,10
00536 M01S00528.mlsexec +++|* COMMON DECKS.
00537 M01S00529.mlsexec +++|
00538 M01S00530.mlsexec +++|*CALL COMCARG
00539 M01S00531.mlsexec +++|*CALL COMCCPM
00540 M01S00532.mlsexec +++|*CALL COMCLFM
00541 M01S00533.mlsexec +++|*CALL COMCPFM
00542 M01S00534.mlsexec +++|*CALL COMCRSP
00543 M01S00535.mlsexec +++|*CALL COMCSYS
00544 M01S00536.mlsexec +++|*CALL COMCVLC
00545 M01S00537.mlsexec +++| SPACE 4,10
00546 M01S00538.mlsexec +++| USE LITERALS
00547 M01S00539.mlsexec +++| FBUF EQU * FILE BUFFER
00548 M01S00540.mlsexec +++| RFL= EQU FBUF+FBUFL
00549 M01S00541.mlsexec +++| END