Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comxjca +++|
00002 M00S00002.comxjca +++|# COMXJCA - *SSEXEC* JOB COMMUNICATION AREA. #
00003 M00S00003.comxjca +++| CONTROL NOLIST;
00004 M00S00004.comxjca +++| CONTROL IFEQ LISTCON,1;
00005 M00S00005.comxjca +++| CONTROL LIST;
00006 M00S00006.comxjca +++| CONTROL FI;
00007 M00S00007.comxjca +++| BEGIN # COMXJCA #
00008 M00S00008.comxjca +++|
00009 M00S00009.comxjca +++|#
00010 M00S00010.comxjca +++|*** COMXJCA - EXEC JOB COMMUNICATION AREA.
00011 M00S00011.comxjca +++|*
00012 M00S00012.comxjca +++|* *COMXJCA* IDENTIFIES VARIABLES WHICH RESIDE IN
00013 M00S00013.comxjca +++|* RA THROUGH RA+104B.
00014 M00S00014.comxjca +++|#
00015 M00S00015.comxjca +++|
00016 M00S00016.comxjca +++|
00017 M00S00017.comxjca +++|
00018 M00S00018.comxjca +++| COMMON XJCACOM;
00019 M00S00019.comxjca +++|
00020 M00S00020.comxjca +++| BEGIN # XJCACOM #
00021 M00S00021.comxjca +++|
00022 M00S00022.comxjca +++| BASED
00023 M00S00023.comxjca +++| ARRAY RA$AREA [0:0] P(1); # JOB COMMUNICATION AREA #
00024 M00S00024.comxjca +++| BEGIN
00025 M00S00025.comxjca +++| ITEM RA$WORD U(O"00",00,60); # FULL WORD REFERENCE #
00026 M00S00026.comxjca +++| ITEM RA$IDLEDWN B(O"00",44,01); # IDLEDOWN FLAG #
| Line S00001 Modification History |
M01 (Added by) | msea012 |
Seq # *Modification Id* Act
----------------------------+
00027 M01S00001.msea012 +++| ITEM RA$SW2 B(O"00",52,01); # SENSE SWITCH 2 #
00028 M00S00027.comxjca +++| ITEM RA$SSPN C(O"50",00,07); # SUBSYSTEM NAME #
00029 M00S00028.comxjca +++| ITEM RA$SSCODE U(O"50",42,18); # SUBSYSTEM CODE #
00030 M00S00029.comxjca +++| ITEM RA$SSWWRD U(O"51",00,60); # *RA* WORD 51B #
00031 M00S00030.comxjca +++| ITEM RA$SSCINLK B(O"51",00,01); # INTERLOCK FLAG #
00032 M00S00031.comxjca +++| ITEM RA$SSCPP B(O"51",01,01); # PRIVILEGED PROGRAMS FLAG #
00033 M00S00032.comxjca +++| ITEM RA$SSCXP U(O"51",06,18); # EXCHANGE PACKAGE ADDRESS #
00034 M00S00033.comxjca +++| ITEM RA$SSCVF B(O"51",24,01); # VARIABLE MOVE FLAG #
00035 M00S00034.comxjca +++| ITEM RA$SSCLP U(O"51",25,17); # LENGTH OF PARAMETER AREA #
00036 M00S00035.comxjca +++| ITEM RA$SSCAP U(O"51",42,18); # *UCP* PARAMETER ADDRESS #
00037 M00S00036.comxjca +++| ITEM RA$NWA U(O"65",42,18); # LOADER NEXT WORD ADDRESS #
00038 M00S00037.comxjca +++| ITEM RA$TDAMRB C(O"70",00,60); # *TDAM* REQUEST BLOCK #
00039 M00S00038.comxjca +++| ITEM RA$TDAM U(O"70",00,60); # FIRST WORD OF *TDAM*
00040 M00S00039.comxjca +++| REQUEST #
00041 M00S00040.comxjca +++| ITEM RA$TRACE B(O"76",00,01); # TRACE MODE FLAG #
00042 M00S00041.comxjca +++| ITEM RA$MINFL U(O"101",42,18); # MINIMUM FIELD LENGTH #
00043 M00S00042.comxjca +++| ITEM RA$HHA U(O"104",42,18); # HIGHEST HIGH ADDRESS #
00044 M00S00043.comxjca +++| END
00045 M00S00044.comxjca +++|
00046 M00S00045.comxjca +++| END # XJCACOM #
00047 M00S00046.comxjca +++|
00048 M00S00047.comxjca +++| END # COMXJCA #
00049 M00S00048.comxjca +++|
00050 M00S00049.comxjca +++| CONTROL LIST;