2 Modifications

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=

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.

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