Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comtbld +++|
00002 M00S00002.comtbld +++|# COMTBLD - COMMON DEFINITIONS FOR *SSBLD* ROUTINES. #
00003 M00S00003.comtbld +++| CONTROL NOLIST;
00004 M00S00004.comtbld +++| CONTROL IFEQ LISTCON,1;
00005 M00S00005.comtbld +++| CONTROL LIST;
00006 M00S00006.comtbld +++| CONTROL FI;
00007 M00S00007.comtbld +++| BEGIN # COMTBLD #
00008 M00S00008.comtbld +++|
00009 M00S00009.comtbld +++|#
00010 M00S00010.comtbld +++|*** COMTBLD - COMMON DEFINITIONS FOR *SSBLD* ROUTINES.
00011 M00S00011.comtbld +++|*
00012 M00S00012.comtbld +++|* COMTBLD CONTAINS THE ITEMS, ARRAYS AND THE
00013 M00S00013.comtbld +++|* COMMON AREA USED BY *SSBLD* ROUTINES.
00014 M00S00014.comtbld +++|*
00015 M00S00015.comtbld +++|#
00016 M00S00016.comtbld +++|
00017 M00S00017.comtbld +++|#
00018 M00S00018.comtbld +++|* *COMTBLD* DEFINITIONS
00019 M00S00019.comtbld +++|#
00020 M00S00020.comtbld +++|
00021 M00S00021.comtbld +++| DEF BLBUFL #O"1001"#; # LENGTH OF *CIO* BUFFER #
00022 M00S00022.comtbld +++| DEF BLWBUFL #8#; # LENGTH OF WORKING BUFFER #
00023 M00S00023.comtbld +++|
00024 M00S00024.comtbld +++|#
00025 M00S00025.comtbld +++|* ITEMS COMMON TO *SSBLD* PROCEDURES.
00026 M00S00026.comtbld +++|#
00027 M00S00027.comtbld +++|
00028 M00S00028.comtbld +++| COMMON TBLDCOM;
00029 M00S00029.comtbld +++|
00030 M00S00030.comtbld +++| BEGIN # TBLDCOM #
00031 M00S00031.comtbld +++| # $$ #
00032 M00S00032.comtbld +++| ITEM $$TBLD$$ C(20) = "****** COMTBLD *****";
00033 M00S00033.comtbld +++| # $$ #
00034 M00S00034.comtbld +++|
00035 M00S00035.comtbld +++|#
00036 M00S00036.comtbld +++|* ARRAYS TO HOLD UDT
00037 M00S00037.comtbld +++|#
00038 M00S00038.comtbld +++|
00039 M00S00039.comtbld +++| ITEM BL$UDT$HDR U; # UDT HEADER DATA #
00040 M00S00040.comtbld +++| ARRAY BL$UDT$M862 [1:MAXCTN] S(UDTCNTL);;
00041 M00S00041.comtbld +++| ARRAY BL$UDT$M861 [1:MAXSM] S(SMALT);;
00042 M00S00042.comtbld +++|
00043 M00S00043.comtbld +++|#
00044 M00S00044.comtbld +++|* BASED ARRAY FOR UDT
00045 M00S00045.comtbld +++|#
00046 M00S00046.comtbld +++|
00047 M00S00047.comtbld +++| BASED
00048 M00S00048.comtbld +++| ARRAY BL$UDT$LOC[0:0] S(1);;
00049 M00S00049.comtbld +++|
00050 M00S00050.comtbld +++|
00051 M00S00051.comtbld +++|
00052 M00S00052.comtbld +++| ITEM CFNAME C(7); # ZERO FILLED CONFIGURATION FILE
00053 M00S00053.comtbld +++| NAME #
00054 M00S00054.comtbld +++|
00055 M00S00055.comtbld +++|#
00056 M00S00056.comtbld +++|* FETS AND BUFFERS.
00057 M00S00057.comtbld +++|#
00058 M00S00058.comtbld +++|
00059 M00S00059.comtbld +++| ARRAY BL$BUF[0:0] S(BLBUFL);; # *CIO* BUFFER #
00060 M00S00060.comtbld +++| ARRAY BL$WBUF [0:0] S(BLWBUFL);; # WORKING BUFFER #
00061 M00S00061.comtbld +++| ARRAY BL$FET [0:2] S(SFETL);;
00062 M00S00062.comtbld +++|
00063 M00S00063.comtbld +++|#
00064 M00S00064.comtbld +++|* ARRAY TO HOLD MESSAGES
00065 M00S00065.comtbld +++|#
00066 M00S00066.comtbld +++|
00067 M00S00067.comtbld +++| ARRAY BLMSG [0:0] P(4); # *SSBLD* FATAL ERROR MESSAGE #
00068 M00S00068.comtbld +++| BEGIN
00069 M00S00069.comtbld +++| ITEM BLMSG$LN C(00,00,38); # MESSAGE LINE #
00070 M00S00070.comtbld +++| ITEM BLMSG$ABN C(00,00,18) = [" SSBLD ABNORMAL, "];
00071 M00S00071.comtbld +++| ITEM BLMSG$PROC C(01,48,08); # PROC NAME #
00072 M00S00072.comtbld +++| ITEM BLMSG$BLNK C(02,36,12) = [" "];
00073 M00S00073.comtbld +++| ITEM BLMSG$VAL C(02,06,10); # NUMERIC VALUE #
00074 M00S00074.comtbld +++| ITEM BLMSG$TERM U(03,48,12) = [0]; # ZERO BYTE TERMINATOR #
00075 M00S00075.comtbld +++| END
00076 M00S00076.comtbld +++|
00077 M00S00077.comtbld +++| END # TBLDCOM #
00078 M00S00078.comtbld +++|
00079 M00S00079.comtbld +++| END # COMTBLD #
00080 M00S00080.comtbld +++|
00081 M00S00081.comtbld +++| CONTROL LIST;