          IDENT  SUN,111B
          TITLE  SUN - SET USER NUMBER FOR SYOT JOBS.
          ABS
          SST
          SYSCOM B1
          ENTRY  SUN
          ENTRY  VAL=
          ENTRY  RFL=
          ENTRY  SSJ=
          SPACE  4,10
***       SUN - SET USER NUMBER.
*
*         B. R. HANSON       82/10/29.
          SPACE  4,10
***              *SUN* CHANGES THE CURRENT CATALOG TO THE CATALOG
*         FOR THE SPECIFIED USER.  THIS WORKS EQUIVALENT TO THE
*         *USER* CARD EXCEPT THAT THE PASSWORD IS NOT NEEDED AND
*         THIS CONTROL STATEMENT MAY ONLY BE USED FROM SYSTEM ORIGIN.
          SPACE  4,10
***       CALL.
*
*         SUN(USERNAME)
*
*         USERNAME  DESIRED USER NAME.
          SPACE  4,10
OPL XTEXT COMCMAC
OPL XTEXT COMSSSJ
OPL XTEXT COMSPRD
          EJECT
**        SUN.
*


          ORG    111B
SUN       SB1    1
          MOVE   3,(SSJ=+ALMS),SAVE
          GETJO  ORIGIN
          SA1    ORIGIN
          SX2    SYOT
          BX3    X1-X2
          NZ     X3,ABORT    IF NOT SYOT
          SA1    ARGR        GET UN
          MX0    42
          BX6    X1*X0
          SA6    PBLOCK
          VALID  PBLOCK
          MOVE   3,SAVE,(SSJ=+ALMS)
*
* MOVE VALIDATION INFO TO SSJ BLOCK
*
          SA2    PBLOCK
          BX7    X2
          SA7    SSJ=+UIDS
 DONE     ENDRUN

 ABORT    MESSAGE (=C*ILLEGAL USER ACCESS.*)
          ABORT
          SPACE  4,10
 ORIGIN   BSS    1
 SAVE     BSS    3
 PBLOCK   CON    0
          CON    1           DO NOT CHECK PW
          BSSZ   8
          SPACE  4,10
OPL XTEXT COMCCPM
OPL XTEXT COMCSYS
OPL XTEXT COMCMVE
          SPACE  4,10
VAL=      EQU    0
SSJ=      VFD    12/0,24/0,12/PRCS,12/0
          BSSZ   SSJL-1
          SPACE  4,10
RFL=      END
