User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comcpfp.002

Common COMCPFP Part 002

4 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01702  M01S00895.286l859 +++|          SA1    CPAR+/COMSPFS/CPDA+X1
01703  M01S00896.286l859 +++|          LX1    B3
01704  M01S00897.286l859 +++|          PL     X1,SMK1     IF NOT *DA* SELECTED DEVICE
01705  M01S00898.286l859 +++|          SA1    SMKB
01706  M01S00899.286l859 +++|          SA2    A1+B1
01707  M01S00900.286l859 +++|          SB7    B7+B1       COUNT *DA* DEVICE FOUND
01708  M01S00901.286l859 +++|          BX6    X1+X6       ACCUMULATE *DA* DEVICES MASK
01709  M01S00902.286l859 +++|          BX7    X2+X7       ACCUMULATE *DA* DEVICES DIRECT MASK
01710  M01S00903.286l859 +++|          SA6    A1
01711  M01S00904.286l859 +++|          SA7    A2
01712  M01S00905.286l859 +++|          EQ     SMK1        PROCESS NEXT DEVICE
01713  M01S00906.286l859 +++|
01714  M01S00907.286l859 +++|*         CHECK *DN* OR *TD* DEVICE FOUND AND APPLY *DN* OR *TD* DEVICE
01715  M01S00908.286l859 +++|*         MASK CONSTRAINTS.
01716  M01S00909.286l859 +++|
01717  M01S00910.286l859 +++| SMK3     ZR     B4,SMK6     IF NO *DN* OR *TD* DEVICE
01718  M01S00911.286l859 +++|          NZ     B5,SMK4     IF DEVICE FOUND
01719  M01S00912.286l859 +++|          SB2    ERMN        * SELECTED MASTER OR TRUE DEVICE NOT ...*
01720  M01S00913.286l859 +++|          EQ     ABT         ABORT
01721  M01S00914.286l859 +++|
01722  M01S00915.286l859 +++| SMK4     SA1    CPAR+/COMSPFS/CPDN
01723  M01S00916.286l859 +++|          NZ     X1,SMK5     IF *DN* SPECIFIED
01724  M01S00917.286l859 +++|          ZR     X5,SMK5     IF *PFLOAD*, SKIP *TD* RESIDENCY CHECK
01725  M01S00918.286l859 +++|          SA3    SMKA        SET IAPF MASK
01726  M01S00919.286l859 +++|          SA2    SMKA+1
01727  M01S00920.286l859 +++|          EQ     SMK7        PROCESS *TD* DEVICE DAPF RESIDENCY
01728  M01S00921.286l859 +++|
01729  M01S00922.286l859 +++| SMK5     SA3    SMKA        SET IAPF MASK FOR FILES CATALOGED ON *DN*
01730  M01S00923.286l859 +++|          SX4    X3+         SET DAPF MASK FOR FILES CATALOGED ON *DN*
01731  M01S00924.286l859 +++|
01732  M01S00925.286l859 +++|*         PROCESS *DA* DEVICE SELECTIONS.  IF NOT ALL SELECTED *DA*
01733  M01S00926.286l859 +++|*         DEVICES WERE FOUND, THE DIRECT ACCESS FILE CONSTRAINT IS NOT
01734  M01S00927.286l859 +++|*         APPLIED BECAUSE THE DIRECT ACCESS MASKS OF THE MISSING
01735  M01S00928.286l859 +++|*         DEVICES ARE NOT KNOWN.
01736  M01S00929.286l859 +++|
01737  M01S00930.286l859 +++| SMK6     ZR     B6,SMK8     IF NOT PROCESSING *DA* DEVICE SELECTIONS
01738  M01S00931.286l859 +++|          SA1    SMKB
01739  M01S00932.286l859 +++|          SA2    A1+B1
01740  M01S00933.286l859 +++|          BX3    X3*X1       EXCLUDE IAPF-S NOT ON *DA* DEVICES
01741  M01S00934.286l859 +++|          NE     B6,B7,SMK8  IF NOT ALL *DA* DEVICES FOUND
01742  M01S00935.286l859 +++|
01743  M01S00936.286l859 +++|*         PROCESS *TD* OR *DA* DIRECT ACCESS FILE RESIDENCY CONSTRAINT.
01744  M01S00937.286l859 +++|*         DIRECT ACCESS FILES CATALOGED ON THE SUBFAMILY USER INDICES
01745  M01S00938.286l859 +++|*         CAN RESIDE ON THE MASTER DEVICE EVEN IF NOT PERMITTED BY THE
01746  M01S00939.286l859 +++|*         DIRECT ACCESS DEVICE MASK.  *SYSTEMX* FILES SUCH AS
01747  M01S00940.286l859 +++|*         TERMINATED DAYFILES CAN RESIDE ON ANY DEVICE.  THE *SXUF*
01748  M01S00941.286l859 +++|*         FLAG IS SET IF *SYSTEMX* DIRECT ACCESS FILES IN VIOLATION OF
01749  M01S00942.286l859 +++|*         THE MASKS OF THE SELECTED RESIDENCY DEVICES ARE THE ONLY
01750  M01S00943.286l859 +++|*         SUBFAMILY 7 DIRECT ACCESS FILES TO BE PROCESSED.
01751  M01S00944.286l859 +++|
01752  M01S00945.286l859 +++| SMK7     BX2    X3+X2       INCLUDE FORCED MASTER RESIDENT DAPF-S
01753  M01S00946.286l859 +++|          SX6    X2+
01754  M01S00947.286l859 +++|          SX1    200B
01755  M01S00948.286l859 +++|          BX2    X2+X1       INCLUDE *SYSTEMX* DAPF-S
01756  M01S00949.286l859 +++|          BX4    X4*X2       EXCLUDE DAPF-S NOT ON SELECTED DEVICES
01757  M01S00950.286l859 +++|          BX6    X2-X6
01758  M01S00951.286l859 +++|          SA6    SXUF        PRESET *SYSTEMX* ONLY UI STATUS
01759  M01S00952.286l859 +++|
01760  M01S00953.286l859 +++|*         APPLY INDIRECT OR DIRECT ACCESS ONLY CONSTRAINT.
01761  M01S00954.286l859 +++|
01762  M01S00955.286l859 +++| SMK8     SA1    CPAR+/COMSPFS/CPOP
01763  M01S00956.286l859 +++|          BX6    X3+X4       FORM COMBINED DIRECT/INDIRECT MASK
01764  M01S00957.286l859 +++|          LX1    59-55
01765  M01S00958.286l859 +++|          PL     X1,SMK9     IF NOT DIRECT ONLY SELECTION
01766  M01S00959.286l859 +++|          SX6    X4+         SELECT DIRECTS ONLY
01767  M01S00960.286l859 +++| SMK9     LX1    59-56-59+55
01768  M01S00961.286l859 +++|          PL     X1,SMK10    IF NOT INDIRECT ONLY SELECTION
01769  M01S00962.286l859 +++|          BX6    X3          SELECT INDIRECTS ONLY
01770  M01S00963.286l859 +++|
01771  M01S00964.286l859 +++|*         APPLY USER INDEX SELECTIONS CONSTRAINT.
01772  M01S00965.286l859 +++|
01773  M01S00966.286l859 +++| SMK10    SA2    CPAR+/COMSPFS/CPDI
01774  M01S00967.286l859 +++|          SA1    /COMSPFS/FISP
01775  M01S00968.286l859 +++|          ZR     X2,SMK11    IF NO *PFLOAD* DESTINATION USER INDEX
01776  M01S00969.286l859 +++|          BX7    X2
01777  M01S00970.286l859 +++|          SX1    SMKC        SET LIST ADDRESS
01778  M01S00971.286l859 +++|          SA7    SMKC        SET ENTRY IN LIST
01779  M01S00972.286l859 +++| SMK11    ZR     X1,SMK12    IF NO USER INDEX SELECTIONS
01780  M01S00973.286l859 +++|          RJ     SUM         SET COMPOSITE USER INDEX MASK
01781  M01S00974.286l859 +++|          BX6    X6*X4       INCLUDE SELECTED USER INDICES
01782  M01S00975.286l859 +++| SMK12    ZR     X6,SMK13    IF NO FILES SELECTED
01783  M01S00976.286l859 +++|          SA6    MASK        SET FILE SELECTION MASK
01784  M01S00977.286l859 +++|          SA1    SXUF
01785  M01S00978.286l859 +++|          BX6    X6*X1       CLEAR FLAG IF NO *SYSTEMX* FILES SELECTED
01786  M01S00979.286l859 +++|          SA6    A1
01787  M01S00980.286l859 +++|          EQ     SMKX        RETURN
01788  M01S00981.286l859 +++|
01789  M01S00982.286l859 +++|*         PROCESS NO FILES SELECTED.
01790  M01S00983.286l859 +++|
01791  M01S00984.286l859 +++| SMK13    SB2    ERNF        * NO FILES SELECTED.*
01792  M01S00985.286l859 +++|          EQ     ABT         ABORT
01793  M01S00986.286l859 +++|
01794  M01S00987.286l859 +++|
01795  M01S00988.286l859 +++| SMKA     CON    0           *DN* OR *TD* DEVICE MASK
01796  M01S00989.286l859 +++|          CON    0           *DN* OR *TD* DEVICE DAPF MASK
01797  M01S00990.286l859 +++|
01798  M01S00991.286l859 +++| SMKB     CON    0           *DA* DEVICES COMPOSITE MASK
01799  M01S00992.286l859 +++|          CON    0           *DA* DEVICES COMPOSITE DAPF MASK
01800  M01S00993.286l859 +++|
01801  M01S00994.286l859 +++| SMKC     CON    0           DESTINATION USER INDEX
01802  M01S00995.286l859 +++|          CON    0           LIST TERMINATOR
01803  M01S00996.286l859 +++|          SPACE  4,10
01804  M01S00997.286l859 +++|*         DEVICE ACCESS ERROR MESSAGES.
01805  M01S00998.286l859 +++|
01806  M01S00999.286l859 +++|
01807  M01S01000.286l859 +++| ERMN     DATA   C* SELECTED MASTER OR TRUE DEVICE NOT FOUND.*
01808  M01S01001.286l859 +++| ERNF     DATA   C* NO FILES SELECTED.*
01809  M01S01002.286l859 +++|
01810  M01S01003.286l859 +++|
01811  M01S01004.286l859 +++| DVA$     ENDIF
01812  M01S01005.286l859 +++|          SPACE  4,10
01813  M01S01006.286l859 +++| PFD$     IF     DEF,PFD$
01814  M01S01007.286l859 +++|          TITLE  COMCPFP - PFDUMP/PFDM PRESET ROUTINES.
01815  M01S00776.comcpfp +++| CAL      SPACE  4,15
01816  M01S00777.comcpfp +++|**        CAL - CHECK ACCESS LEVELS.
01817  M01S00778.comcpfp +++|*
01818  M01S00779.comcpfp +++|*         ENTRY  (SYSS) = SYSTEM SECURITY MODE.
Line S00780 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01819  M02S00780.286l859 ---|*                (PCLA) = LOWER ACCESS LEVEL TO PROCESS.
Line S00781 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01820  M02S00781.286l859 ---|*                (PCUA) = UPPER ACCESS LEVEL TO PROCESS.
01821  M01S00782.comcpfp +++|*                (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT.
01822  M01S00783.comcpfp +++|*                (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT.
01823  M01S00784.comcpfp +++|*
Line S00785 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01824  M02S00785.286l859 ---|*         EXIT   (PCLA) AND (PCUA) CHANGED TO THE *LA* AND *UA*
Line S00786 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01825  M02S00786.286l859 ---|*                VALUES, IF SPECIFIED.
01826  M01S01008.286l859 +++|*         EXIT   (PCLA) = LOWER ACCESS LEVEL TO PROCESS IF NO ERROR.
01827  M01S01009.286l859 +++|*                (PCUA) = UPPER ACCESS LEVEL TO PROCESS IF NO ERROR.
01828  M01S00787.comcpfp +++|*                (X2) .GE. 0 IF RANGE WITHIN SYSTEM ACCESS LIMITS.
01829  M01S00788.comcpfp +++|*                (X2) .LT. 0 IF RANGE NOT WITHIN SYSTEM ACCESS LIMITS.
01830  M01S00789.comcpfp +++|*
Line S00790 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01831  M02S00790.286l859 ---|*         USES   X - 0, 1, 2, 3, 4, 6, 7.
Line S00791 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01832  M02S00791.286l859 ---|*                A - 1, 2, 3, 4, 6, 7.
01833  M01S01010.286l859 +++|*         USES   X - 0, 1, 2, 3, 6, 7.
01834  M01S01011.286l859 +++|*                A - 1, 2, 6, 7.
01835  M01S00792.comcpfp +++|
01836  M01S00793.comcpfp +++|
01837  M01S00794.comcpfp +++| CAL      SUBR               ENTRY/EXIT
01838  M01S00795.comcpfp +++|          SA1    CPAR+/COMSPFS/CPLA
01839  M01S00796.comcpfp +++|          SA2    CPAR+/COMSPFS/CPUA
Line S00797 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01840  M02S00797.286l859 ---|          MX0    -5
01841  M01S01012.286l859 +++|          MX0    -3
01842  M01S00798.comcpfp +++|          BX6    -X0*X1
01843  M01S00799.comcpfp +++|          BX7    -X0*X2
Line S00800 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01844  M02S00800.286l859 ---|          ZR     X2,CAL1     IF NO ACCESS LEVELS SPECIFIED
Line S00801 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01845  M02S00801.286l859 ---|          SA6    PCLA        SET RANGE
01846  M01S01013.286l859 +++|          NZ     X2,CAL4     IF ACCESS LEVELS SPECIFIED
01847  M01S01014.286l859 +++|          SA2    SYSS
01848  M01S01015.286l859 +++|          ZR     X2,CALX     IF NOT SECURE SYSTEM
01849  M01S01016.286l859 +++|
01850  M01S01017.286l859 +++|*         DETERMINE LOWER AND UPPER ACCESS LEVEL LIMITS OF DEVICES.
01851  M01S01018.286l859 +++|
01852  M01S01019.286l859 +++|          SA1    MSTT+1
01853  M01S01020.286l859 +++|          SX6    7           INITIALIZE LOWER ACCESS LEVEL
01854  M01S01021.286l859 +++|          SX7    B0+         INITIALIZE UPPER ACCESS LEVEL
01855  M01S01022.286l859 +++| CAL1     LX1    -30
01856  M01S01023.286l859 +++|          BX2    -X0*X1      DEVICE UPPER ACCESS LEVEL LIMIT
01857  M01S01024.286l859 +++|          LX1    -3
01858  M01S01025.286l859 +++|          BX1    -X0*X1      DEVICE LOWER ACCESS LEVEL LIMIT
01859  M01S01026.286l859 +++|          IX3    X7-X2
01860  M01S01027.286l859 +++|          PL     X3,CAL2     IF PREVIOUS UPPER .GE. CURRENT
01861  M01S01028.286l859 +++|          BX7    X2          SET NEW UPPER LIMIT
01862  M01S01029.286l859 +++| CAL2     IX3    X1-X6
01863  M01S01030.286l859 +++|          PL     X3,CAL3     IF PREVIOUS LOWER .LE. CURRENT
01864  M01S01031.286l859 +++|          BX6    X1          SET NEW LOWER LIMIT
01865  M01S01032.286l859 +++| CAL3     SA1    A1+2
01866  M01S01033.286l859 +++|          NZ     X1,CAL1     IF MORE DEVICES TO PROCESS
01867  M01S01034.286l859 +++|
01868  M01S01035.286l859 +++|*         COMPARE DEVICE LIMITS WITH SYSTEM LIMITS.
01869  M01S01036.286l859 +++|
01870  M01S01037.286l859 +++|          SA1    SYLA
01871  M01S01038.286l859 +++|          SA2    SYUA
01872  M01S01039.286l859 +++|          IX2    X2-X7
01873  M01S01040.286l859 +++|          NG     X2,CALX     IF UPPER LIMIT OUT OF RANGE
01874  M01S01041.286l859 +++|          IX2    X6-X1
01875  M01S01042.286l859 +++|          NG     X2,CALX     IF LOWER LIMIT OUT OF RANGE
01876  M01S01043.286l859 +++|
01877  M01S01044.286l859 +++|*         SET LOWER AND UPPER ACCESS LEVELS TO PROCESS.
01878  M01S01045.286l859 +++|
01879  M01S01046.286l859 +++| CAL4     SA6    PCLA        SET RANGE
01880  M01S00802.comcpfp +++|          SA7    PCUA
01881  M01S00803.comcpfp +++|          EQ     CALX        RETURN
Line S00804 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01882  M02S00804.286l859 ---|
Line S00805 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01883  M02S00805.286l859 ---| CAL1     SA2    SYSS
Line S00806 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01884  M02S00806.286l859 ---|          ZR     X2,CALX     IF NOT SECURE SYSTEM
Line S00807 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01885  M02S00807.286l859 ---|          SA1    PCLA        CHECK RANGE WITHIN SYSTEM LIMITS
Line S00808 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01886  M02S00808.286l859 ---|          SA2    PCUA
Line S00809 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01887  M02S00809.286l859 ---|          SA3    SYLA
Line S00810 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01888  M02S00810.286l859 ---|          SA4    SYUA
Line S00811 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01889  M02S00811.286l859 ---|          IX2    X4-X2
Line S00812 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01890  M02S00812.286l859 ---|          NG     X2,CALX     IF UPPER LEVEL OUT OF RANGE
Line S00813 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01891  M02S00813.286l859 ---|          IX2    X1-X3       (X2) .LT. 0 IF LOWER LEVEL OUT OF RANGE
Line S00814 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01892  M02S00814.286l859 ---|          EQ     CALX        RETURN
Line S00815 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01893  M02S00815.286l859 ---| EBE      SPACE  4,15
Line S00816 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01894  M02S00816.286l859 ---|**        EBE - EVALUATE BOOLEAN EXPRESSION.
Line S00817 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01895  M02S00817.286l859 ---|*
Line S00818 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01896  M02S00818.286l859 ---|*         ENTRY  (X2) = BOOLEAN VARIABLES.
Line S00819 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01897  M02S00819.286l859 ---|*                (X1) = FIRST WORD OF BOOLEAN EXPRESSION.
Line S00820 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01898  M02S00820.286l859 ---|*                (A1) = ADDRESS OF FIRST WORD OF BOOLEAN EXPRESSION.
Line S00821 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01899  M02S00821.286l859 ---|*
Line S00822 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01900  M02S00822.286l859 ---|*         EXIT   (X2) = BOOLEAN VARIABLES.
Line S00823 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01901  M02S00823.286l859 ---|*                (X6) = 0 IF EXPRESSION IS FALSE.
Line S00824 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01902  M02S00824.286l859 ---|*                     = NON-ZERO IF EXPRESSION IS TRUE.
Line S00825 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01903  M02S00825.286l859 ---|*
Line S00826 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01904  M02S00826.286l859 ---|*         USES   X - 1, 3, 6.
Line S00827 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01905  M02S00827.286l859 ---|*                A - 1, 3.
Line S00828 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01906  M02S00828.286l859 ---|
Line S00829 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01907  M02S00829.286l859 ---|
Line S00830 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01908  M02S00830.286l859 ---| EBE2     SX6    B0+         SET STATUS FOR FALSE EXPRESSION
Line S00831 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01909  M02S00831.286l859 ---|
Line S00832 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01910  M02S00832.286l859 ---| EBE      SUBR               ENTRY/EXIT
Line S00833 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01911  M02S00833.286l859 ---| EBE1     ZR     X1,EBE2     IF END OF BOOLEAN EXPRESSION
Line S00834 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01912  M02S00834.286l859 ---|          SA3    A1+B1       GET VARIABLE COMPLEMENT FLAGS
Line S00835 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01913  M02S00835.286l859 ---|          BX1    X1*X2
Line S00836 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01914  M02S00836.286l859 ---|          BX6    X1-X3
Line S00837 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01915  M02S00837.286l859 ---|          SA1    A3+B1       GET NEXT VARIABLE MASK
Line S00838 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01916  M02S00838.286l859 ---|          NZ     X6,EBE1     IF TERM NOT TRUE
Line S00839 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01917  M02S00839.286l859 ---|          SX6    B1          SET STATUS FOR TRUE EXPRESSION
Line S00840 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01918  M02S00840.286l859 ---|          EQ     EBEX        RETURN
Line S00841 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01919  M02S00841.286l859 ---| LDN      SPACE  4,15
Line S00842 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01920  M02S00842.286l859 ---|**        LDN - LOCATE DEVICE NUMBER.
Line S00843 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01921  M02S00843.286l859 ---|*
Line S00844 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01922  M02S00844.286l859 ---|*         ENTRY  (X1) = DEVICE NUMBER TO SEARCH FOR.
Line S00845 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01923  M02S00845.286l859 ---|*
Line S00846 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01924  M02S00846.286l859 ---|*         EXIT   (X1) = UNCHANGED.
Line S00847 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01925  M02S00847.286l859 ---|*                (X2) = 0 IF DEVICE NOT FOUND.
Line S00848 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01926  M02S00848.286l859 ---|*                     = FIRST WORD OF MASS STORAGE TABLE INFORMATION IF
Line S00849 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01927  M02S00849.286l859 ---|*                       DEVICE FOUND.
Line S00850 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01928  M02S00850.286l859 ---|*                (B2) = ADDRESS OF FIRST WORD OF MASS STORAGE TABLE
Line S00851 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01929  M02S00851.286l859 ---|*                       INFORMATION FOR DEVICE IF FOUND.
Line S00852 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01930  M02S00852.286l859 ---|*
Line S00853 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01931  M02S00853.286l859 ---|*         USES   X - 2, 3, 6, 7.
Line S00854 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01932  M02S00854.286l859 ---|*                A - 2.
Line S00855 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01933  M02S00855.286l859 ---|*                B - 2, 3.
Line S00856 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01934  M02S00856.286l859 ---|
Line S00857 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01935  M02S00857.286l859 ---|
Line S00858 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01936  M02S00858.286l859 ---| LDN      SUBR               ENTRY/EXIT
Line S00859 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01937  M02S00859.286l859 ---|          SB2    MSTT        SET ADDRESS OF MASS STORAGE TABLE
Line S00860 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01938  M02S00860.286l859 ---|          MX3    -6
Line S00861 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01939  M02S00861.286l859 ---|          SB3    B1+B1
Line S00862 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01940  M02S00862.286l859 ---| LDN1     SA2    B2
Line S00863 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01941  M02S00863.286l859 ---|          ZR     X2,LDNX     IF END OF MASS STORAGE TABLE
Line S00864 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01942  M02S00864.286l859 ---|          BX6    -X3*X2
Line S00865 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01943  M02S00865.286l859 ---|          IX7    X1-X6
Line S00866 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01944  M02S00866.286l859 ---|          ZR     X7,LDNX     IF CORRECT DEVICE
Line S00867 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01945  M02S00867.286l859 ---|          SB2    B2+B3
Line S00868 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01946  M02S00868.286l859 ---|          EQ     LDN1        CHECK NEXT DEVICE
Line S00869 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01947  M02S00869.286l859 ---| LUI      SPACE  4,20
Line S00870 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01948  M02S00870.286l859 ---|**        LUI - LOCATE USER INDEX.
Line S00871 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01949  M02S00871.286l859 ---|*
Line S00872 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01950  M02S00872.286l859 ---|*         ENTRY  (X1) = USER INDEX TO FIND MASTER DEVICE FOR.
Line S00873 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01951  M02S00873.286l859 ---|*
Line S00874 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01952  M02S00874.286l859 ---|*         EXIT   (X1) = UNCHANGED.
Line S00875 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01953  M02S00875.286l859 ---|*                (X2) = 0 IF MASTER DEVICE NOT FOUND FOR USER INDEX.
Line S00876 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01954  M02S00876.286l859 ---|*                     = FIRST WORD OF MASS STORAGE TABLE INFORMATION IF
Line S00877 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01955  M02S00877.286l859 ---|*                       USER INDEX FOUND.
Line S00878 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01956  M02S00878.286l859 ---|*                (X3) = SECOND WORD OF MASS STORAGE TABLE INFORMATION
Line S00879 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01957  M02S00879.286l859 ---|*                       IF USER INDEX FOUND.
Line S00880 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01958  M02S00880.286l859 ---|*                (B2) = ADDRESS OF FIRST WORD OF MASS STORAGE TABLE
Line S00881 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01959  M02S00881.286l859 ---|*                       INFORMATION FOR DEVICE IF FOUND.
Line S00882 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01960  M02S00882.286l859 ---|*
Line S00883 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01961  M02S00883.286l859 ---|*         USES   X - 2, 3, 6.
Line S00884 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01962  M02S00884.286l859 ---|*                A - 2, 3.
Line S00885 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01963  M02S00885.286l859 ---|*                B - 2, 3.
Line S00886 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01964  M02S00886.286l859 ---|
Line S00887 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01965  M02S00887.286l859 ---|
Line S00888 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01966  M02S00888.286l859 ---| LUI      SUBR               ENTRY/EXIT
Line S00889 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01967  M02S00889.286l859 ---|          SB2    MSTT        SET ADDRESS OF MASS STORAGE TABLE
Line S00890 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01968  M02S00890.286l859 ---|          MX2    -3          SET MASK BIT SHIFT COUNT
Line S00891 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01969  M02S00891.286l859 ---|          BX6    -X2*X1
Line S00892 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01970  M02S00892.286l859 ---|          SB3    X6-59
Line S00893 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01971  M02S00893.286l859 ---| LUI1     SA2    B2
Line S00894 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01972  M02S00894.286l859 ---|          SA3    B2+B1
Line S00895 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01973  M02S00895.286l859 ---|          ZR     X2,LUIX     IF END OF MASS STORAGE TABLE
Line S00896 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01974  M02S00896.286l859 ---|          AX6    X3,B3       POSITION MASK BIT
Line S00897 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01975  M02S00897.286l859 ---|          NG     X6,LUIX     IF CORRECT DEVICE
Line S00898 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01976  M02S00898.286l859 ---|          SB2    A3+B1
Line S00899 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01977  M02S00899.286l859 ---|          EQ     LUI1        CHECK NEXT DEVICE
01978  M01S00900.comcpfp +++| OSP      SPACE  4,15
01979  M01S00901.comcpfp +++|**        OSP - OUTPUT SELECTION PARAMETERS.
01980  M01S00902.comcpfp +++|*
01981  M01S00903.comcpfp +++|*         ENTRY  CPAR = CRACKED PARAMETER ARRAY ADDRESS.
01982  M01S00904.comcpfp +++|*
01983  M01S00905.comcpfp +++|*         EXIT   SELECTION PARAMETERS WRITTEN TO OUTPUT FILE.
01984  M01S00906.comcpfp +++|*
01985  M01S00907.comcpfp +++|*         USES   X - 0, 1, 2, 5, 6.
01986  M01S00908.comcpfp +++|*                A - 0, 1, 2, 5, 6.
01987  M01S00909.comcpfp +++|*
01988  M01S00910.comcpfp +++|*         CALLS  COD, ZTB.
01989  M01S00911.comcpfp +++|*
01990  M01S00912.comcpfp +++|*         MACROS EDATE, ETIME, WRITEH.
01991  M01S00913.comcpfp +++|
01992  M01S00914.comcpfp +++|
01993  M01S00915.comcpfp +++| OSP      SUBR               ENTRY/EXIT
01994  M01S00916.comcpfp +++|          SA1    CPAR+/COMSPFS/CPLB
01995  M01S00917.comcpfp +++|          ZR     X1,OSPX     IF OUTPUT FILE NOT SELECTED
Line S00918 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
01996  M02S00918.286l859 ---|          WRITEH OUTPUT,OSPO,1
01997  M01S01047.286l859 +++|          WRITEH O,OSPO,1
01998  M01S01048.286l859 +++|          SA1    MASK        SET FILE SELECTION MASK
01999  M01S01049.286l859 +++|          RJ     COD
02000  M01S01050.286l859 +++|          SA6    OSPA+2
02001  M01S00919.comcpfp +++|          SA1    /COMSPFS/UTLN  SET UTILITY NAME
02002  M01S00920.comcpfp +++|          SX6    1R*
02003  M01S00921.comcpfp +++|          LX6    54
02004  M01S00922.comcpfp +++|          LX1    -6
02005  M01S00923.comcpfp +++|          BX1    X1+X6
02006  M01S00924.comcpfp +++|          RJ     ZTB         BLANK FILL NAME
02007  M01S00925.comcpfp +++|          SA6    OSPB
02008  M01S00926.comcpfp +++|          SA5    /COMSPFS/STDT
02009  M01S00927.comcpfp +++|          BX1    X5
02010  M01S00928.comcpfp +++|          AX1    18
02011  M01S00929.comcpfp +++|          EDATE  X1          SET DATE
02012  M01S00930.comcpfp +++|          SA6    OSPB+1
02013  M01S00931.comcpfp +++|          MX1    -18
02014  M01S00932.comcpfp +++|          BX1    -X1*X5
02015  M01S00933.comcpfp +++|          ETIME  X1          SET TIME
02016  M01S00934.comcpfp +++|          SA6    OSPB+2
Line S00935 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02017  M02S00935.286l859 ---|          WRITEH OUTPUT,OSPB,3
02018  M01S01051.286l859 +++|          WRITEH O,OSPB,3
02019  M01S00936.comcpfp +++|          SA1    /COMSPFS/UTLC
Line S00937 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02020  M02S00937.286l859 ---|          SX1    X1-/COMSPFS/DUUT
Line S00938 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02021  M02S00938.286l859 ---|          NZ     X1,OSP1     IF NOT *PFDUMP*
02022  M01S00939.comcpfp +++|          WRITEH X2,OSPA,4
Line S00940 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02023  M02S00940.286l859 ---| OSP1     SA1    CPAR+/COMSPFS/CPIP
02024  M01S01052.286l859 +++|          SA1    CPAR+/COMSPFS/CPIP
02025  M01S00941.comcpfp +++|          ZR     X1,OSP2     IF PROCESSING NOT INHIBITED
02026  M01S00942.comcpfp +++|          WRITEH X2,OSPD,3
02027  M01S00943.comcpfp +++| OSP2     SA1    CPAR+/COMSPFS/CPDT
02028  M01S00944.comcpfp +++|          ZR     X1,OSP3     IF NOT DESTAGE DUMP
02029  M01S00945.comcpfp +++|          WRITEH X2,OSPG,3
02030  M01S00946.comcpfp +++| OSP3     SA1    CPAR+/COMSPFS/CPSD
02031  M01S00947.comcpfp +++|          ZR     X1,OSP4     IF INHIBIT DATES NOT TO BE RESET
02032  M01S00948.comcpfp +++|          WRITEH X2,OSPS,4
02033  M01S00949.comcpfp +++| OSP4     SA5    CPAR+/COMSPFS/CPOP
02034  M01S00950.comcpfp +++|          MX0    1
02035  M01S00951.comcpfp +++|          LX0    47-59
02036  M01S00952.comcpfp +++|          BX1    X0*X5
02037  M01S00953.comcpfp +++|          ZR     X1,OSP5     IF FILE STAGING NOT SUPPRESSED
02038  M01S00954.comcpfp +++|          WRITEH X2,OSPR,3
02039  M01S00955.comcpfp +++| OSP5     MX0    2
02040  M01S00956.comcpfp +++|          LX5    3
02041  M01S00957.comcpfp +++|          BX5    X0*X5
02042  M01S00958.comcpfp +++|          ZR     X5,OSP7     IF NOT INDIRECT OR DIRECT ONLY
02043  M01S00959.comcpfp +++|          PL     X5,OSP6     IF DIRECT ONLY
Line S00960 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02044  M02S00960.286l859 ---|          WRITEH OUTPUT,OSPL,3
02045  M01S01053.286l859 +++|          WRITEH O,OSPL,3
02046  M01S00961.comcpfp +++|          EQ     OSP7        CHECK ACCESS LEVEL OPTIONS
02047  M01S00962.comcpfp +++|
Line S00963 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02048  M02S00963.286l859 ---| OSP6     WRITEH OUTPUT,OSPM,3
02049  M01S01054.286l859 +++| OSP6     WRITEH O,OSPM,3
02050  M01S00964.comcpfp +++| OSP7     SA1    CPAR+/COMSPFS/CPLA
02051  M01S00965.comcpfp +++|          ZR     X1,OSP8     IF NO ACCESS LEVELS SPECIFIED
02052  M01S00966.comcpfp +++|          SA1    PCLA
02053  M01S00967.comcpfp +++|          SA2    TALV+X1     GET ACCESS LEVEL NAME
02054  M01S00968.comcpfp +++|          MX0    42
02055  M01S00969.comcpfp +++|          BX1    X0*X2
02056  M01S00970.comcpfp +++|          RJ     ZTB
02057  M01S00971.comcpfp +++|          SA6    OSPT+2      ADD LEVEL TO MESSAGE
02058  M01S00972.comcpfp +++|          SA1    PCUA
02059  M01S00973.comcpfp +++|          SA2    TALV+X1     GET ACCESS LEVEL NAME
02060  M01S00974.comcpfp +++|          BX1    X0*X2
02061  M01S00975.comcpfp +++|          MX0    -42
02062  M01S00976.comcpfp +++|          RJ     ZTB
02063  M01S00977.comcpfp +++|          LX6    -18         ADD LEVEL TO MESSAGE
02064  M01S00978.comcpfp +++|          BX6    -X0*X6
02065  M01S00979.comcpfp +++|          SA1    OSPT+3
02066  M01S00980.comcpfp +++|          BX1    X0*X1
02067  M01S00981.comcpfp +++|          BX6    X1+X6
02068  M01S00982.comcpfp +++|          SA6    A1
Line S00983 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02069  M02S00983.286l859 ---|          WRITEH OUTPUT,OSPT,4
02070  M01S01055.286l859 +++|          WRITEH O,OSPT,4
02071  M01S00984.comcpfp +++| OSP8     SA5    CPAR+/COMSPFS/CPOP
02072  M01S00985.comcpfp +++|          MX0    3
02073  M01S00986.comcpfp +++|          BX5    X0*X5
02074  M01S00987.comcpfp +++|          ZR     X5,OSP11    IF NO DATE OPTION SPECIFIED
02075  M01S00988.comcpfp +++|          LX5    1-59        SET *CREATED*, *ACCESSED* OR *MODIFIED*
02076  M01S00989.comcpfp +++|          SA1    OSPH+X5
02077  M01S00990.comcpfp +++|          BX6    X1
02078  M01S00991.comcpfp +++|          SA6    OSPB
02079  M01S00992.comcpfp +++|          SA5    CPAR+/COMSPFS/CPAD
02080  M01S00993.comcpfp +++|          ZR     X5,OSP9     IF *AD=YYMMDD* NOT SPECIFIED
02081  M01S00994.comcpfp +++|          SA1    OSPI        SET *AFTER* IN MESSAGE
02082  M01S00995.comcpfp +++|          BX6    X1
02083  M01S00996.comcpfp +++|          SA6    A6+B1
02084  M01S00997.comcpfp +++|          BX1    X5          SET AFTER DATE IN MESSAGE
02085  M01S00998.comcpfp +++|          AX1    18-0
02086  M01S00999.comcpfp +++|          EDATE  X1
02087  M01S01000.comcpfp +++|          SA6    OSPB+2
02088  M01S01001.comcpfp +++|          MX0    -18         SET AFTER TIME IN MESSAGE
02089  M01S01002.comcpfp +++|          BX1    -X0*X5
02090  M01S01003.comcpfp +++|          ETIME  X1
02091  M01S01004.comcpfp +++|          SA6    OSPB+3
02092  M01S01005.comcpfp +++| OSP9     SA5    CPAR+/COMSPFS/CPBD
02093  M01S01006.comcpfp +++|          ZR     X5,OSP10    IF *BD=YYMMDD* NOT SPECIFIED
02094  M01S01007.comcpfp +++|          SA1    OSPJ        SET *BEFORE* IN MESSAGE
02095  M01S01008.comcpfp +++|          BX6    X1
02096  M01S01009.comcpfp +++|          SA6    A6+B1
02097  M01S01010.comcpfp +++|          BX1    X5          SET BEFORE DATE IN MESSAGE
02098  M01S01011.comcpfp +++|          AX1    18-0
02099  M01S01012.comcpfp +++|          SA0    A6+1
02100  M01S01013.comcpfp +++|          EDATE  X1
02101  M01S01014.comcpfp +++|          SA6    A0
02102  M01S01015.comcpfp +++|          MX0    -18         SET BEFORE TIME IN MESSAGE
02103  M01S01016.comcpfp +++|          BX1    -X0*X5
02104  M01S01017.comcpfp +++|          SA0    A6+B1
02105  M01S01018.comcpfp +++|          ETIME  X1
02106  M01S01019.comcpfp +++|          SA6    A0+
Line S01020 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02107  M02S01020.286l859 ---| OSP10    WRITEH OUTPUT,OSPB,A6-OSPB+1  WRITE DATE SELECTION MESSAGE
02108  M01S01056.286l859 +++| OSP10    WRITEH O,OSPB,A6-OSPB+1  WRITE DATE SELECTION MESSAGE
02109  M01S01021.comcpfp +++|
02110  M01S01022.comcpfp +++| OSP11    SA2    /COMSPFS/FISP
02111  M01S01023.comcpfp +++|          SA1    CPAR+/COMSPFS/CPUI
02112  M01S01024.comcpfp +++|          ZR     X2,OSP13    IF NO FILE SELECTIONS
02113  M01S01025.comcpfp +++|          ZR     X1,OSP12    IF SELECTIONS FOR MULTIPLE USER INDICES
02114  M01S01026.comcpfp +++|          RJ     COD         CONVERT USER INDEX
02115  M01S01027.comcpfp +++|          SA6    OSPF+3
Line S01028 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02116  M02S01028.286l859 ---|          WRITEH OUTPUT,OSPF,4
02117  M01S01057.286l859 +++|          WRITEH O,OSPF,4
02118  M01S01029.comcpfp +++|          EQ     OSP13       WRITE FINAL OUTPUT LINE
02119  M01S01030.comcpfp +++|
Line S01031 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02120  M02S01031.286l859 ---| OSP12    WRITEH OUTPUT,OSPE,5
Line S01032 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02121  M02S01032.286l859 ---| OSP13    WRITEH OUTPUT,OSPO,1
02122  M01S01058.286l859 +++| OSP12    WRITEH O,OSPE,5
02123  M01S01059.286l859 +++| OSP13    WRITEH O,OSPO,1
02124  M01S01033.comcpfp +++|          EQ     OSPX        RETURN
02125  M01S01034.comcpfp +++|
02126  M01S01035.comcpfp +++|
Line S01036 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02127  M02S01036.286l859 ---| OSPA     DATA   30C PFDUMP DEVICE MASK
02128  M01S01060.286l859 +++| OSPA     DATA   30C FILE SELECTION MASK
02129  M01S01037.comcpfp +++| OSPB     DATA   80C
02130  M01S01038.comcpfp +++| OSPC     DATA   30C *PFUUUUU
02131  M01S01039.comcpfp +++| OSPD     DATA   30H PROCESSING INHIBITED
02132  M01S01040.comcpfp +++| OSPE     DATA   50H SELECTED FILES FOR MULTIPLE USER INDICES
02133  M01S01041.comcpfp +++| OSPF     DATA   40H SELECTED FILES FOR USER INDEX
02134  M01S01042.comcpfp +++| OSPG     DATA   30H DESTAGE FILES TO TAPE
02135  M01S01043.comcpfp +++| OSPH     DATA   10H MODIFIED
02136  M01S01044.comcpfp +++|          DATA   10H ACCESSED
02137  M01S01045.comcpfp +++|          DATA   10H CREATED
02138  M01S01046.comcpfp +++| OSPI     DATA   10H AFTER
02139  M01S01047.comcpfp +++| OSPJ     DATA   10H BEFORE
02140  M01S01048.comcpfp +++| OSPL     DATA   30H INDIRECT ACCESS FILES ONLY
02141  M01S01049.comcpfp +++| OSPM     DATA   30H DIRECT ACCESS FILES ONLY
02142  M01S01050.comcpfp +++| OSPO     DATA   10H1
02143  M01S01051.comcpfp +++| OSPR     DATA   30H FILE STAGING SUPPRESSED
02144  M01S01052.comcpfp +++| OSPS     DATA   40H RESET DISK SPACE RELEASE INHIBIT DATES
02145  M01S01053.comcpfp +++| OSPT     DATA   40H ACCESS LEVELS FROM           TO
Line S01054 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02146  M02S01054.286l859 ---| SBS      SPACE  4,20
Line S01055 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02147  M02S01055.286l859 ---|**        SBS - SET BOOLEAN SELECTION PARAMETERS.
Line S01056 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02148  M02S01056.286l859 ---|*
Line S01057 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02149  M02S01057.286l859 ---|*         ENTRY  (CPAR) = CRACKED PARAMETER ARRAY.
Line S01058 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02150  M02S01058.286l859 ---|*                (MSTT) = MASS STORAGE TABLE.
Line S01059 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02151  M02S01059.286l859 ---|*
Line S01060 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02152  M02S01060.286l859 ---|*         EXIT   (BFSP) = BOOLEAN FILE SELECTION PARAMETERS.  SEE
Line S01061 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02153  M02S01061.286l859 ---|*                         DOCUMENTATION OF BOOLEAN FILE SELECTION
Line S01062 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02154  M02S01062.286l859 ---|*                         VARIABLES.
Line S01063 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02155  M02S01063.286l859 ---|*                (CPAR+/COMSPFS/CPDD) = 36/0,18/*MSTT* ADDRESS,6/DD IF
Line S01064 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02156  M02S01064.286l859 ---|*                                       *DD* PARAMETER WAS SPECIFIED.
Line S01065 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02157  M02S01065.286l859 ---|*                EXIT TO *ABT* IF A SPECIFIED DEVICE NUMBER WAS NOT
Line S01066 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02158  M02S01066.286l859 ---|*                FOUND IN *MSTT*.
Line S01067 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02159  M02S01067.286l859 ---|*
Line S01068 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02160  M02S01068.286l859 ---|*         USES   X - 1, 2, 4, 6, 7.
Line S01069 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02161  M02S01069.286l859 ---|*                A - 1, 2, 6.
Line S01070 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02162  M02S01070.286l859 ---|*
Line S01071 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02163  M02S01071.286l859 ---|*         CALLS  LDN, LUI.
Line S01072 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02164  M02S01072.286l859 ---|*
Line S01073 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02165  M02S01073.286l859 ---|*         MACROS EDITS.
Line S01074 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02166  M02S01074.286l859 ---|
Line S01075 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02167  M02S01075.286l859 ---|
Line S01076 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02168  M02S01076.286l859 ---|*         PROCESS NO DEVICE FOR USER INDEX ERROR.
Line S01077 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02169  M02S01077.286l859 ---|
Line S01078 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02170  M02S01078.286l859 ---| SBS8     SX2    B1          SET NO FILES SELECTED STATUS
Line S01079 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02171  M02S01079.286l859 ---|          LX2    FNFS
Line S01080 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02172  M02S01080.286l859 ---|          BX4    X4+X2
Line S01081 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02173  M02S01081.286l859 ---|
Line S01082 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02174  M02S01082.286l859 ---|*         SAVE BOOLEAN FILE SELECTION PARAMETERS.
Line S01083 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02175  M02S01083.286l859 ---|
Line S01084 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02176  M02S01084.286l859 ---| SBS9     BX6    X4          SAVE BOOLEAN FILE SELECTION PARAMETERS
Line S01085 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02177  M02S01085.286l859 ---|          SA6    BFSP
Line S01086 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02178  M02S01086.286l859 ---|
Line S01087 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02179  M02S01087.286l859 ---| SBS      SUBR               ENTRY/EXIT
Line S01088 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02180  M02S01088.286l859 ---|          SA1    CPAR+/COMSPFS/CPOP  EVALUATE DAPF ONLY BIT
Line S01089 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02181  M02S01089.286l859 ---|          MX2    -1
Line S01090 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02182  M02S01090.286l859 ---|          LX1    0-55
Line S01091 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02183  M02S01091.286l859 ---|          BX4    -X2*X1
Line S01092 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02184  M02S01092.286l859 ---|          LX4    DAFO
Line S01093 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02185  M02S01093.286l859 ---|          LX1    0-56-0+55   EVALUATE IAPF ONLY BIT
Line S01094 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02186  M02S01094.286l859 ---|          BX2    -X2*X1
Line S01095 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02187  M02S01095.286l859 ---|          LX2    IAFO
Line S01096 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02188  M02S01096.286l859 ---|          BX4    X4+X2
Line S01097 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02189  M02S01097.286l859 ---|          SA1    CPAR+/COMSPFS/CPDN
Line S01098 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02190  M02S01098.286l859 ---|          ZR     X1,SBS1     IF *DN* PARAMETER NOT SPECIFIED
Line S01099 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02191  M02S01099.286l859 ---|          SX2    B1          SET *DN* SPECIFIED STATUS
Line S01100 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02192  M02S01100.286l859 ---|          LX2    DNSP
Line S01101 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02193  M02S01101.286l859 ---|          BX4    X4+X2
Line S01102 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02194  M02S01102.286l859 ---|          RJ     LDN         LOCATE DEVICE NUMBER
Line S01103 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02195  M02S01103.286l859 ---|          ZR     X2,SBS7     IF DEVICE NOT FOUND
Line S01104 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02196  M02S01104.286l859 ---|          SA1    B2+B1       GET DEVICE MASK
Line S01105 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02197  M02S01105.286l859 ---|          MX2    -8
Line S01106 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02198  M02S01106.286l859 ---|          BX6    -X2*X1
Line S01107 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02199  M02S01107.286l859 ---|          ZR     X6,SBS1     IF *DN* NOT A MASTER DEVICE
Line S01108 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02200  M02S01108.286l859 ---|          SX2    B1          SET *DN* MASTER DEVICE STATUS
Line S01109 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02201  M02S01109.286l859 ---|          LX2    DNMD
Line S01110 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02202  M02S01110.286l859 ---|          BX4    X4+X2
Line S01111 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02203  M02S01111.286l859 ---| SBS1     SA1    CPAR+/COMSPFS/CPTD
Line S01112 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02204  M02S01112.286l859 ---|          ZR     X1,SBS2     IF *TD* PARAMETER NOT SPECIFIED
Line S01113 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02205  M02S01113.286l859 ---|          SX2    B1          SET *TD* SPECIFIED STATUS
Line S01114 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02206  M02S01114.286l859 ---|          LX2    TDSP
Line S01115 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02207  M02S01115.286l859 ---|          BX4    X4+X2
Line S01116 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02208  M02S01116.286l859 ---|          RJ     LDN         LOCATE TRUE DEVICE NUMBER
Line S01117 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02209  M02S01117.286l859 ---|          ZR     X2,SBS7     IF DEVICE NOT FOUND
Line S01118 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02210  M02S01118.286l859 ---|          SA1    B2+B1       GET DEVICE MASK
Line S01119 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02211  M02S01119.286l859 ---|          MX2    -8
Line S01120 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02212  M02S01120.286l859 ---|          BX6    -X2*X1
Line S01121 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02213  M02S01121.286l859 ---|          ZR     X6,SBS2     IF *TD* NOT A MASTER DEVICE
Line S01122 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02214  M02S01122.286l859 ---|          SX2    B1          SET *TD* MASTER DEVICE STATUS
Line S01123 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02215  M02S01123.286l859 ---|          LX2    TDMD
Line S01124 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02216  M02S01124.286l859 ---|          BX4    X4+X2
Line S01125 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02217  M02S01125.286l859 ---| SBS2     SA1    CPAR+/COMSPFS/CPDN
Line S01126 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02218  M02S01126.286l859 ---|          SA2    CPAR+/COMSPFS/CPTD
Line S01127 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02219  M02S01127.286l859 ---|          BX6    X1-X2
Line S01128 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02220  M02S01128.286l859 ---|          NZ     X6,SBS3     IF *DN* AND *TD* NOT EQUAL
Line S01129 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02221  M02S01129.286l859 ---|          SX2    B1          SET MATCHING *DN*/*TD* STATUS
Line S01130 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02222  M02S01130.286l859 ---|          LX2    DNTD
Line S01131 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02223  M02S01131.286l859 ---|          BX4    X4+X2
Line S01132 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02224  M02S01132.286l859 ---| SBS3     SA1    CPAR+/COMSPFS/CPDI
Line S01133 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02225  M02S01133.286l859 ---|          NZ     X1,SBS4     IF *DI* PARAMETER SPECIFIED
Line S01134 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02226  M02S01134.286l859 ---|          SA1    CPAR+/COMSPFS/CPUI
Line S01135 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02227  M02S01135.286l859 ---|          ZR     X1,SBS6     IF *UI* PARAMETER NOT SPECIFIED
Line S01136 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02228  M02S01136.286l859 ---|          SX6    X1+         SET *DI* = *UI*
Line S01137 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02229  M02S01137.286l859 ---|          SA6    CPAR+/COMSPFS/CPDI
Line S01138 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02230  M02S01138.286l859 ---| SBS4     SX2    B1          SET *DI* SPECIFIED STATUS
Line S01139 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02231  M02S01139.286l859 ---|          LX2    DISP
Line S01140 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02232  M02S01140.286l859 ---|          BX4    X4+X2
Line S01141 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02233  M02S01141.286l859 ---|          RJ     LUI         LOCATE USER INDEX
Line S01142 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02234  M02S01142.286l859 ---|          ZR     X2,SBS8     IF NO DEVICE FOUND FOR *DI*
Line S01143 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02235  M02S01143.286l859 ---|          SA1    CPAR+/COMSPFS/CPDN  CHECK IF *DI* CATALOGED ON *DN*
Line S01144 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02236  M02S01144.286l859 ---|          MX6    -6          GET DEVICE FOR *DI*
Line S01145 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02237  M02S01145.286l859 ---|          BX7    -X6*X2
Line S01146 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02238  M02S01146.286l859 ---|          IX1    X1-X7
Line S01147 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02239  M02S01147.286l859 ---|          SX2    B1
Line S01148 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02240  M02S01148.286l859 ---|          NZ     X1,SBS5     IF *DI* NOT CATALOGED ON *DN*
Line S01149 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02241  M02S01149.286l859 ---|          LX2    DIDN        SET *DI* CATALOGED ON *DN* STATUS
Line S01150 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02242  M02S01150.286l859 ---|          BX4    X4+X2
Line S01151 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02243  M02S01151.286l859 ---| SBS5     SA1    CPAR+/COMSPFS/CPTD  CHECK IF *DI* CATALOGED ON *TD*
Line S01152 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02244  M02S01152.286l859 ---|          IX6    X1-X7
Line S01153 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02245  M02S01153.286l859 ---|          NZ     X6,SBS6     IF *DI* NOT CATALOGED ON *TD*
Line S01154 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02246  M02S01154.286l859 ---|          SX2    B1          SET *DI* CATALOGED ON *TD* STATUS
Line S01155 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02247  M02S01155.286l859 ---|          LX2    DITD
Line S01156 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02248  M02S01156.286l859 ---|          BX4    X4+X2
Line S01157 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02249  M02S01157.286l859 ---| SBS6     SA1    CPAR+/COMSPFS/CPDD
Line S01158 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02250  M02S01158.286l859 ---|          ZR     X1,SBS9     IF *DD* NOT SPECIFIED
Line S01159 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02251  M02S01159.286l859 ---|          RJ     LDN         LOCATE DESTINATION DEVICE
Line S01160 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02252  M02S01160.286l859 ---|          ZR     X2,SBS7     IF DEVICE NOT FOUND
Line S01161 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02253  M02S01161.286l859 ---|          SX2    B2          ADD *MSTT* ADDRESS TO *DD* PARAMETER
Line S01162 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02254  M02S01162.286l859 ---|          LX2    6
Line S01163 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02255  M02S01163.286l859 ---|          BX6    X2+X1
Line S01164 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02256  M02S01164.286l859 ---|          SA6    A1
Line S01165 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02257  M02S01165.286l859 ---|          EQ     SBS9        SAVE FILE SELECTION PARAMETERS
Line S01166 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02258  M02S01166.286l859 ---|
Line S01167 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02259  M02S01167.286l859 ---|*         PROCESS DEVICE NOT FOUND ERROR.
Line S01168 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02260  M02S01168.286l859 ---|
Line S01169 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02261  M02S01169.286l859 ---| SBS7     BX6    X1          SAVE DEVICE NUMBER
Line S01170 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02262  M02S01170.286l859 ---|          SA6    MPDN
Line S01171 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02263  M02S01171.286l859 ---|          EDITS  MEDN        BUILD DEVICE NOT FOUND MESSAGE
Line S01172 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02264  M02S01172.286l859 ---|          SX1    X5          SET MESSAGE ADDRESS
Line S01173 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02265  M02S01173.286l859 ---|          EQ     ABT         ABORT
Line S01174 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02266  M02S01174.286l859 ---|          SPACE  4,20
Line S01175 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02267  M02S01175.286l859 ---|**        BOOLEAN FILE SELECTION VARIABLES.
Line S01176 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02268  M02S01176.286l859 ---|*
Line S01177 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02269  M02S01177.286l859 ---|*                A SET OF BOOLEAN VARIABLES DESCRIBING VARIOUS FILE
Line S01178 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02270  M02S01178.286l859 ---|*         SELECTION CONDITIONS IS DEFINED BELOW.  EACH VARIABLE IS
Line S01179 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02271  M02S01179.286l859 ---|*         GIVEN A SYMBOLIC NAME WHICH IS MNEMONIC OF THE FILE SELECTION
Line S01180 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02272  M02S01180.286l859 ---|*         CRITERIA THAT IT REPRESENTS.  FOR EXAMPLE, THE CONDITION
Line S01181 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02273  M02S01181.286l859 ---|*         *DEVICE NUMBER PARAMETER WAS SPECIFIED* IS GIVEN THE SYMBOLIC
Line S01182 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02274  M02S01182.286l859 ---|*         NAME *DNSP*.  THE SET OF BOOLEAN FILE SELECTION VARIABLES IS
Line S01183 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02275  M02S01183.286l859 ---|*         STORED IN A 60 BIT WORD (*BFSP*) WITH EACH VARIABLE BEING
Line S01184 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02276  M02S01184.286l859 ---|*         REPRESENTED BY A UNIQUE BIT POSITION WITHIN THE WORD.  THE
Line S01185 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02277  M02S01185.286l859 ---|*         BIT NUMBER THAT REPRESENTS A GIVEN BOOLEAN VARIABLE IS
Line S01186 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02278  M02S01186.286l859 ---|*         DETERMINED BY THE VALUE ASSIGNED TO THE SYMBOLIC NAME FOR
Line S01187 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02279  M02S01187.286l859 ---|*         THAT VARIABLE.  THE BIT WILL BE SET IF THE VARIABLE IS TRUE
Line S01188 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02280  M02S01188.286l859 ---|*         AND CLEAR IF THE VARIABLE IS FALSE.
Line S01189 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02281  M02S01189.286l859 ---|*
Line S01190 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02282  M02S01190.286l859 ---|*                THE DETERMINATION OF THE VALUE (TRUE OR FALSE) OF EACH
Line S01191 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02283  M02S01191.286l859 ---|*         BOOLEAN VARIABLE IS DONE BY SUBROUTINE *SBS* (SET BOOLEAN
Line S01192 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02284  M02S01192.286l859 ---|*         SELECTION PARAMETERS) BASED ON SELECTION PARAMETERS CONTAINED
Line S01193 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02285  M02S01193.286l859 ---|*         IN *CPAR* AND MASS STORAGE TABLE INFORMATION CONTAINED IN
Line S01194 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02286  M02S01194.286l859 ---|*         *MSTT*.
Line S01195 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02287  M02S01195.286l859 ---|
Line S01196 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02288  M02S01196.286l859 ---|
Line S01197 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02289  M02S01197.286l859 ---|          LOC    0           SET BIT POSITION OF FIRST BOOLEAN VARIABLE
Line S01198 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02290  M02S01198.286l859 ---| DAFO     BSS    1           DIRECT ACCESS FILES ONLY
Line S01199 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02291  M02S01199.286l859 ---| DIDN     BSS    1           *DI* CATALOGED ON DEVICE NUMBER
Line S01200 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02292  M02S01200.286l859 ---| DISP     BSS    1           *DI* SPECIFIED
Line S01201 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02293  M02S01201.286l859 ---| DITD     BSS    1           *DI* CATALOGED ON TRUE DEVICE NUMBER
Line S01202 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02294  M02S01202.286l859 ---| DNMD     BSS    1           DEVICE NUMBER SPECIFIES MASTER DEVICE
Line S01203 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02295  M02S01203.286l859 ---| DNSP     BSS    1           DEVICE NUMBER SPECIFIED
Line S01204 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02296  M02S01204.286l859 ---| DNTD     BSS    1           DEVICE NUMBER SAME AS TRUE DEVICE NUMBER
Line S01205 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02297  M02S01205.286l859 ---| FNFS     BSS    1           FORCE NO FILES SELECTED
Line S01206 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02298  M02S01206.286l859 ---| IAFO     BSS    1           INDIRECT ACCESS FILES ONLY
Line S01207 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02299  M02S01207.286l859 ---| TDMD     BSS    1           TRUE DEVICE NUMBER SPECIFIES MASTER DEVICE
Line S01208 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02300  M02S01208.286l859 ---| TDSP     BSS    1           TRUE DEVICE NUMBER SPECIFIED
Line S01209 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02301  M02S01209.286l859 ---|          ORG    *O-*
Line S01210 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02302  M02S01210.286l859 ---|          SPACE  4,30
Line S01211 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02303  M02S01211.286l859 ---|**        FILE SELECTION BOOLEAN EXPRESSIONS.
Line S01212 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02304  M02S01212.286l859 ---|*
Line S01213 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02305  M02S01213.286l859 ---|*                A SET OF FILE SELECTION BOOLEAN EXPRESSIONS IS DEFINED
Line S01214 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02306  M02S01214.286l859 ---|*         BELOW.  EACH EXPRESSION IS GIVEN A SYMBOLIC NAME THAT IS
Line S01215 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02307  M02S01215.286l859 ---|*         MNEMONIC OF THE SELECTION CONDITION THAT IT DEFINES.  FOR
Line S01216 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02308  M02S01216.286l859 ---|*         EXAMPLE, THE BOOLEAN EXPRESSION FOR DETERMINING THE STATUS OF
Line S01217 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02309  M02S01217.286l859 ---|*         THE SINGLE DEVICE FLAG IS GIVEN THE SYMBOLIC NAME *SDFL*.
Line S01218 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02310  M02S01218.286l859 ---|*
Line S01219 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02311  M02S01219.286l859 ---|*                EACH EXPRESSION IS A FUNCTION OF THE BOOLEAN FILE
Line S01220 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02312  M02S01220.286l859 ---|*         SELECTION VARIABLES DEFINED ABOVE AND STORED IN WORD *BFSP*.
Line S01221 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02313  M02S01221.286l859 ---|*         THE SYMBOLIC NAME GIVEN AN EXPRESSION IS EQUAL TO THE MEMORY
Line S01222 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02314  M02S01222.286l859 ---|*         ADDRESS OF THE INTERNAL CODE FOR THE EXPRESSION.  THIS
Line S01223 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02315  M02S01223.286l859 ---|*         ADDRESS CAN BE PASSED TO *EBE* (EVALUATE BOOLEAN EXPRESSION)
Line S01224 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02316  M02S01224.286l859 ---|*         ALONG WITH THE VALUES OF THE FILE SELECTION VARIABLES FROM
Line S01225 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02317  M02S01225.286l859 ---|*         *BFSP* TO DETERMINE THE VALUE OF AN EXPRESSION.  THE BOOLEAN
Line S01226 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02318  M02S01226.286l859 ---|*         VALUE RESULTING FROM EVALUATING AN EXPRESSION CAN THEN BE
Line S01227 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02319  M02S01227.286l859 ---|*         USED TO DETERMINE IF A GIVEN ACTION SHOULD BE TAKEN.  FOR
Line S01228 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02320  M02S01228.286l859 ---|*         EXAMPLE, IF THE BOOLEAN EXPRESSION *SDFL* MENTIONED ABOVE
Line S01229 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02321  M02S01229.286l859 ---|*         EVALUATES AS TRUE, THE SINGLE DEVICE FLAG WOULD BE SET.  IF
Line S01230 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02322  M02S01230.286l859 ---|*         IT EVALUATES AS FALSE, THE SINGLE DEVICE FLAG WOULD BE
Line S01231 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02323  M02S01231.286l859 ---|*         CLEARED.
Line S01232 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02324  M02S01232.286l859 ---|
Line S01233 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02325  M02S01233.286l859 ---|
Line S01234 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02326  M02S01234.286l859 ---| SDFL     BOOL   (DISP,DNMD,(DNSP,TDMD,-DNTD),(TDSP,-DISP,-DNSP,IAFO))
Line S01235 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02327  M02S01235.286l859 ---| NMDN     BOOL   ((DNSP,-DNMD))
Line S01236 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02328  M02S01236.286l859 ---| NMTD     BOOL   ((TDSP,DISP,-DITD),(TDSP,DNSP,-DNTD),(TDSP,-TDMD))
Line S01237 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02329  M02S01237.286l859 ---| TDSL     BOOL   ((-DISP,-DNSP,TDSP))
Line S01238 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02330  M02S01238.286l859 ---| FMDN     BOOL   (DNMD)
Line S01239 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02331  M02S01239.286l859 ---| FMTD     BOOL   ((TDMD,-DISP,-DNMD))
Line S01240 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02332  M02S01240.286l859 ---| FMDI     BOOL   (DISP)
Line S01241 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02333  M02S01241.286l859 ---| NFSL     BOOL   ((DISP,DNMD,-DIDN),(DNSP,-DNMD,TDSP,-TDMD,-DNTD),(IAFO,
Line S01242 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02334  M02S01242.286l859 ---|,DNSP,-DNMD),(IAFO,TDSP,-TDMD),(IAFO,TDSP,DISP,-DITD),(IAFO,TDSP,DNSP,-D
Line S01243 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02335  M02S01243.286l859 ---|,NTD),(TDMD,DISP,-DITD,DNSP,-DNMD),FNFS)
Line S01244 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02336  M02S01244.286l859 ---| SFP      SPACE  4,15
Line S01245 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02337  M02S01245.286l859 ---|**        SFP - SET PERMANENT FILE PARAMETERS.
Line S01246 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02338  M02S01246.286l859 ---|*
Line S01247 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02339  M02S01247.286l859 ---|*         ENTRY  (CPAR) = CRACKED PARAMETER ARRAY.
Line S01248 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02340  M02S01248.286l859 ---|*
Line S01249 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02341  M02S01249.286l859 ---|*         EXIT   (GPAR - GPAR+2) = ORIGINAL USER PARAMETER VALUES.
Line S01250 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02342  M02S01250.286l859 ---|*                PERMANENT FILE PARAMETERS SET IN CONTROL POINT AREA.
Line S01251 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02343  M02S01251.286l859 ---|*
Line S01252 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02344  M02S01252.286l859 ---|*         USES   X - 1, 2, 3, 6, 7.
Line S01253 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02345  M02S01253.286l859 ---|*                A - 1, 2, 6, 7.
Line S01254 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02346  M02S01254.286l859 ---|*
Line S01255 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02347  M02S01255.286l859 ---|*         MACROS GETPFP, SETPFP.
Line S01256 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02348  M02S01256.286l859 ---|
Line S01257 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02349  M02S01257.286l859 ---|
Line S01258 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02350  M02S01258.286l859 ---| SFP      SUBR               ENTRY/EXIT
Line S01259 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02351  M02S01259.286l859 ---|          GETPFP GPAR        GET CURRENT PARAMETERS
Line S01260 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02352  M02S01260.286l859 ---|          SA1    GPAR        SET PARAMETER FLAGS IN BLOCK
Line S01261 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02353  M02S01261.286l859 ---|          SX6    FMPR+PKPR+UNPR+UIPR
Line S01262 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02354  M02S01262.286l859 ---|          BX7    X1+X6
Line S01263 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
02355  M02S01263.286l859 ---|          SA2    CPAR+/COMSPFS/CPFN  SET FAMILY NAME IN BLOCK
Proceed to Part 3
cdc/nos2.source/opl.opl871/common/comcpfp.002.txt ยท Last modified: by 127.0.0.1