Common COMPVPA

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compvpa +++|          CTEXT  COMPVPA - VALIDATE PRIVILEGED ANALYST.
00002  M00S00002.compvpa +++|          SPACE  4,10
00003  M00S00003.compvpa +++|          IF -DEF,QUAL$,1
00004  M00S00004.compvpa +++|          QUAL   COMPVPA
00005  M00S00005.compvpa +++|          BASE   MIXED

Line S00006 Modification History
`M01` (Removed by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.281l803 ---|*         COMMENT  COPYRIGHT CONTROL DATA CORP.  1984.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M00S00007.compvpa +++| VPA      SPACE  4,10
00009  M00S00008.compvpa +++|***       VPA - VALIDATE PRIVILEGED ANALYST.
00010  M00S00009.compvpa +++|*         S. C. CHAMPION.    84/04/11.
00011  M00S00010.compvpa +++|*         P. C. SMITH.       87/11/16.
00012  M00S00011.compvpa +++| VPA      SPACE  4,10
00013  M00S00012.compvpa +++|***       *VPA* VALIDATES USER ACCESS TO PRIVILEGED ANALYST OPERATIONS.
00014  M00S00013.compvpa +++|*
00015  M00S00014.compvpa +++|*         EXIT   (A) = 0, IF PRIVILGED ANALYST OPERATIONS ALLOWED.
00016  M00S00015.compvpa +++|*                (A) .NE. 0, IF USER DOES NOT HAVE *CPAM* VALIDATION,
00017  M00S00016.compvpa +++|*                            OR IF PRIVILEGED ANALYST MODE IS DISABLED.
00018  M00S00017.compvpa +++|*
00019  M00S00018.compvpa +++|*         USES   CM - CM+4.
00020  M00S00019.compvpa +++|*
00021  M00S00020.compvpa +++|*         MACROS NFA.
00022  M00S00021.compvpa +++|
00023  M00S00022.compvpa +++|
00024  M00S00023.compvpa +++| VPA3     LDN    1           DENY PRIVILEGED ANALYST OPERATIONS
00025  M00S00024.compvpa +++|
00026  M00S00025.compvpa +++| VPA      SUBR               ENTRY/EXIT
00027  M00S00026.compvpa +++|          LDD    CP
00028  M00S00027.compvpa +++|          ADK    SEPW
00029  M00S00028.compvpa +++|          CRD    CM
00030  M00S00029.compvpa +++|          LDD    CM
00031  M00S00030.compvpa +++|          SHN    21-2
00032  M00S00031.compvpa +++|          PJN    VPA1        IF CALLER NOT *SSJ=*
00033  M00S00032.compvpa +++|          LDD    CM+3
00034  M00S00033.compvpa +++|          LPN    37
00035  M00S00034.compvpa +++|          ADD    CM+4
00036  M00S00035.compvpa +++|          ZJN    VPA1        IF NO *SSJ=* PARAMETER BLOCK PRESENT
00037  M00S00036.compvpa +++|          NFA    SSJN+AACS   READ *AACW* FROM *SSJ=* PARAMETER BLOCK
00038  M00S00037.compvpa +++|          UJN    VPA2        CHECK FOR *CPAM* VALIDATION BIT
00039  M00S00038.compvpa +++|
00040  M00S00039.compvpa +++| VPA1     LDD    CP          READ *AACW* FROM CONTROL POINT AREA
00041  M00S00040.compvpa +++|          ADK    AACW
00042  M00S00041.compvpa +++| VPA2     CRD    CM
00043  M00S00042.compvpa +++|          LDD    CM+2
00044  M00S00043.compvpa +++|          SHN    21-3
00045  M00S00044.compvpa +++|          PJN    VPA3        IF *CPAM* VALIDATION BIT NOT SET
00046  M00S00045.compvpa +++|          LDK    SSTL        CHECK IF PRIVILEGED ANALYST MODE ENABLED
00047  M00S00046.compvpa +++|          CRD    CM
00048  M00S00047.compvpa +++|          LDD    CM+3
00049  M00S00048.compvpa +++|          SHN    21-6
00050  M00S00049.compvpa +++|          MJP    VPA3        IF PRIVILEGED ANALYST MODE DISABLED
00051  M00S00050.compvpa +++|          LDN    0           GRANT PERMISSION
00052  M00S00051.compvpa +++|          UJP    VPAX        RETURN
00053  M00S00052.compvpa +++|          SPACE  4,10
00054  M00S00053.compvpa +++|          BASE   *
00055  M00S00054.compvpa +++| QUAL$    IF     -DEF,QUAL$
00056  M00S00055.compvpa +++|          QUAL   *
00057  M00S00056.compvpa +++| VPA      EQU    /COMPVPA/VPA
00058  M00S00057.compvpa +++| QUAL$    ENDIF
00059  M00S00058.compvpa +++|          ENDX