*COMDECK SETJCI 
          IDENT  SETJCI 
          ENTRY  SETJCI 
          SYSCOM B1 
          TITLE  SETJCI - SET JOB CONTROL INFORMATION.
          COMMENT SET JOB CONTROL INFORMATION.
          COMMENT COPYRIGHT CONTROL DATA CORP.  1979. 
 SETJCI   SPACE  4,25 
***       SETJCI - SET JOB CONTROL INFORMATION. 
* 
*         CALL SETJCI(ADDR) 
* 
*         ENTRY  (ADDR) = A TWO WORD ARRAY SPECIFYING JOB 
*                         CONTROL INFORMATION.
* 
*         EXIT   JOB CONTROL INFORMATION SET IN USER,S
*                CONTROL POINT AREA.
* 
*         SETJCI(ADDR);   (*SYMPL* CALL)
* 
*         ENTRY  (ADDR) = A TWO WORD ARRAY SPECIFYING 
*                         JOB CONTROL INFORMATION.
*                         THE FORMAT OF THE ARRAY IS- 
**T ADDR  6/EFG,18/REG,12/CCL,12/EM,6/SSW,6/0 
**T,      6/EF,18/R3,18/R2,18/R1
*         EFG = GLOBAL ERROR FLAG.
*         REG = GLOBAL REGISTER.
*         CCL = RESERVED FOR CCL USE. 
*         EM  = EXIT MODE (REFER TO *NOS* REFERENCE VOL. 2).
*         SSW = SENSE SWITCHES. 
*         EF  = LAST ERROR FLAG ENCOUNTERED.
*         R3  = JOB CONTROL REGISTER 3. 
*         R2  = JOB CONTROL REGISTER 2. 
*         R1  = JOB CONTROL REGISTER 1. 
* 
*         EXIT   JOB CONTROL INFORMATION SET IN USER,S
*                CONTROL POINT AREA.
* 
*         USES   B - 1. 
* 
*         MACROS SETJCI.
  
  
 SETJCI   SUBR               ENTRY/EXIT 
          SB1    1
          SETJCI X1 
          EQ     SETJCIX     RETURN 
  
          END 
