Common COMXJCA

1 Modification
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comxjca +++|
00002  M01S00002.comxjca +++|#     COMXJCA - *SSEXEC* JOB COMMUNICATION AREA.                     #
00003  M01S00003.comxjca +++|                                               CONTROL NOLIST;
00004  M01S00004.comxjca +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comxjca +++|                                               CONTROL LIST;
00006  M01S00006.comxjca +++|                                               CONTROL FI;
00007  M01S00007.comxjca +++|      BEGIN  # COMXJCA #
00008  M01S00008.comxjca +++|
00009  M01S00009.comxjca +++|#
00010  M01S00010.comxjca +++|***   COMXJCA - EXEC JOB COMMUNICATION AREA.
00011  M01S00011.comxjca +++|*
00012  M01S00012.comxjca +++|*     *COMXJCA* IDENTIFIES VARIABLES WHICH RESIDE IN
00013  M01S00013.comxjca +++|*     RA THROUGH RA+104B.
00014  M01S00014.comxjca +++|#
00015  M01S00015.comxjca +++|
00016  M01S00016.comxjca +++|
00017  M01S00017.comxjca +++|
00018  M01S00018.comxjca +++|      COMMON XJCACOM;
00019  M01S00019.comxjca +++|
00020  M01S00020.comxjca +++|        BEGIN  # XJCACOM #
00021  M01S00021.comxjca +++|
00022  M01S00022.comxjca +++|        BASED
00023  M01S00023.comxjca +++|        ARRAY RA$AREA [0:0] P(1);    # JOB COMMUNICATION AREA #
00024  M01S00024.comxjca +++|          BEGIN
00025  M01S00025.comxjca +++|          ITEM RA$WORD    U(O"00",00,60);  # FULL WORD REFERENCE #
00026  M01S00026.comxjca +++|          ITEM RA$IDLEDWN B(O"00",44,01);  # IDLEDOWN FLAG #
00027  M01S00001.msea012 +++|          ITEM RA$SW2     B(O"00",52,01);  # SENSE SWITCH 2 #
00028  M01S00027.comxjca +++|          ITEM RA$SSPN    C(O"50",00,07);  # SUBSYSTEM NAME #
00029  M01S00028.comxjca +++|          ITEM RA$SSCODE  U(O"50",42,18);  # SUBSYSTEM CODE #
00030  M01S00029.comxjca +++|          ITEM RA$SSWWRD  U(O"51",00,60);  # *RA* WORD 51B #
00031  M01S00030.comxjca +++|          ITEM RA$SSCINLK B(O"51",00,01);  # INTERLOCK FLAG #
00032  M01S00031.comxjca +++|          ITEM RA$SSCPP   B(O"51",01,01);  # PRIVILEGED PROGRAMS FLAG #
00033  M01S00032.comxjca +++|          ITEM RA$SSCXP   U(O"51",06,18);  # EXCHANGE PACKAGE ADDRESS #
00034  M01S00033.comxjca +++|          ITEM RA$SSCVF   B(O"51",24,01);  # VARIABLE MOVE FLAG #
00035  M01S00034.comxjca +++|          ITEM RA$SSCLP   U(O"51",25,17);  # LENGTH OF PARAMETER AREA #
00036  M01S00035.comxjca +++|          ITEM RA$SSCAP   U(O"51",42,18);  # *UCP* PARAMETER ADDRESS #
00037  M01S00036.comxjca +++|          ITEM RA$NWA     U(O"65",42,18);  # LOADER NEXT WORD ADDRESS #
00038  M01S00037.comxjca +++|          ITEM RA$TDAMRB  C(O"70",00,60);  # *TDAM* REQUEST BLOCK #
00039  M01S00038.comxjca +++|          ITEM RA$TDAM    U(O"70",00,60);  # FIRST WORD OF *TDAM*
00040  M01S00039.comxjca +++|                                             REQUEST #
00041  M01S00040.comxjca +++|          ITEM RA$TRACE   B(O"76",00,01);  # TRACE MODE FLAG #
00042  M01S00041.comxjca +++|          ITEM RA$MINFL   U(O"101",42,18); # MINIMUM FIELD LENGTH #
00043  M01S00042.comxjca +++|          ITEM RA$HHA     U(O"104",42,18); # HIGHEST HIGH ADDRESS #
00044  M01S00043.comxjca +++|          END
00045  M01S00044.comxjca +++|
00046  M01S00045.comxjca +++|        END  # XJCACOM #
00047  M01S00046.comxjca +++|
00048  M01S00047.comxjca +++|      END  # COMXJCA #
00049  M01S00048.comxjca +++|
00050  M01S00049.comxjca +++|                                               CONTROL LIST;