COMXJCA 
COMMON
  
#     COMXJCA - *SSEXEC* JOB COMMUNICATION AREA.                     #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMXJCA #
  
# 
***   COMXJCA - EXEC JOB COMMUNICATION AREA.
* 
*     *COMXJCA* IDENTIFIES VARIABLES WHICH RESIDE IN
*     RA THROUGH RA+104B. 
# 
  
  
  
      COMMON XJCACOM; 
  
        BEGIN  # XJCACOM #
  
        BASED 
        ARRAY RA$AREA [0:0] P(1);    # JOB COMMUNICATION AREA # 
          BEGIN 
          ITEM RA$WORD    U(O"00",00,60);  # FULL WORD REFERENCE #
          ITEM RA$IDLEDWN B(O"00",44,01);  # IDLEDOWN FLAG #
          ITEM RA$SW2     B(O"00",52,01);  # SENSE SWITCH 2 # 
          ITEM RA$SSPN    C(O"50",00,07);  # SUBSYSTEM NAME # 
          ITEM RA$SSCODE  U(O"50",42,18);  # SUBSYSTEM CODE # 
          ITEM RA$SSWWRD  U(O"51",00,60);  # *RA* WORD 51B #
          ITEM RA$SSCINLK B(O"51",00,01);  # INTERLOCK FLAG # 
          ITEM RA$SSCPP   B(O"51",01,01);  # PRIVILEGED PROGRAMS FLAG # 
          ITEM RA$SSCXP   U(O"51",06,18);  # EXCHANGE PACKAGE ADDRESS # 
          ITEM RA$SSCVF   B(O"51",24,01);  # VARIABLE MOVE FLAG # 
          ITEM RA$SSCLP   U(O"51",25,17);  # LENGTH OF PARAMETER AREA # 
          ITEM RA$SSCAP   U(O"51",42,18);  # *UCP* PARAMETER ADDRESS #
          ITEM RA$NWA     U(O"65",42,18);  # LOADER NEXT WORD ADDRESS # 
          ITEM RA$TDAMRB  C(O"70",00,60);  # *TDAM* REQUEST BLOCK # 
          ITEM RA$TDAM    U(O"70",00,60);  # FIRST WORD OF *TDAM* 
                                             REQUEST #
          ITEM RA$TRACE   B(O"76",00,01);  # TRACE MODE FLAG #
          ITEM RA$MINFL   U(O"101",42,18); # MINIMUM FIELD LENGTH # 
          ITEM RA$HHA     U(O"104",42,18); # HIGHEST HIGH ADDRESS # 
          END 
  
        END  # XJCACOM #
  
      END  # COMXJCA #
  
                                               CONTROL LIST;
