*DECK GETJSN
          IDENT  GETJSN 
*CALL COPYRITE
          ENTRY  GETJSN 
          SYSCOM B1 
          TITLE  GETJSN - GET JOB SEQUENCE NAME.
          COMMENT GETJSN - GET JOB SEQUENCE NAME. 
          SPACE  4,10 
***       GETJSN - GET JOB SEQUENCE NAME. 
* 
*         CALL GETJSN 
* 
*         JSN = GETJSN;       *SYMPL* CALL. 
* 
*         JOB SEQUENCE NAME IS RETURNED RIGHT JUSTIFIED IN X6.
  
  
 GETJSN   SUBR               ENTRY/EXIT 
          SB1    1           REQUIRED BY SYSCOM 
          GETJN  ADDR        GET JOB NAME 
          SA4    ADDR        READ VALUE 
          MX0    36 
          AX4    36          RIGHT JUSTIFY BITS 59-36 
          BX6    -X0*X4      ISOLATE JOB NAME IN X6 
          EQ     GETJSNX     RETURN 
  
 ADDR     BSS    1
  
          END 
