*COMDECK GETJCI 
          IDENT  GETJCI 
          ENTRY  GETJCI 
          SYSCOM B1 
          TITLE  GETJCI - GET JOB CONTROL INFORMATION.
          COMMENT GET JOB CONTROL INFORMATION.
          COMMENT COPYRIGHT CONTROL DATA CORP.  1985. 
 GETJCI   SPACE  4,25 
***       GETJCI - GET JOB CONTROL INFORMATION. 
* 
*         CALL GETJCI(ADDR) 
* 
*         ENTRY  (ADDR) = A TWO WORD ARRAY. 
* 
*         EXIT   (ADDR) = JOB CONTROL INFORMATION.
* 
*         GETJCI(ADDR);   (*SYMPL* CALL)
* 
*         EXIT   (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 RETURNED TO
*                ADDR.
* 
*         USES   B - 1. 
* 
*         MACROS GETJCI.
  
  
 GETJCI   SUBR               ENTRY/EXIT 
          SB1    1
          GETJCI X1 
          EQ     GETJCIX     RETURN 
  
          END 
