Common COMTBLD

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comtbld +++|
00002  M01S00002.comtbld +++|#     COMTBLD - COMMON DEFINITIONS FOR *SSBLD* ROUTINES.              #
00003  M01S00003.comtbld +++|                                               CONTROL NOLIST;
00004  M01S00004.comtbld +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comtbld +++|                                               CONTROL LIST;
00006  M01S00006.comtbld +++|                                               CONTROL FI;
00007  M01S00007.comtbld +++|      BEGIN  # COMTBLD #
00008  M01S00008.comtbld +++|
00009  M01S00009.comtbld +++|#
00010  M01S00010.comtbld +++|***   COMTBLD - COMMON DEFINITIONS FOR *SSBLD* ROUTINES.
00011  M01S00011.comtbld +++|*
00012  M01S00012.comtbld +++|*     COMTBLD CONTAINS THE ITEMS, ARRAYS AND THE
00013  M01S00013.comtbld +++|*     COMMON AREA USED BY *SSBLD* ROUTINES.
00014  M01S00014.comtbld +++|*
00015  M01S00015.comtbld +++|#
00016  M01S00016.comtbld +++|
00017  M01S00017.comtbld +++|#
00018  M01S00018.comtbld +++|*     *COMTBLD* DEFINITIONS
00019  M01S00019.comtbld +++|#
00020  M01S00020.comtbld +++|
00021  M01S00021.comtbld +++|      DEF BLBUFL     #O"1001"#;      # LENGTH OF *CIO* BUFFER #
00022  M01S00022.comtbld +++|      DEF BLWBUFL    #8#;            # LENGTH OF WORKING BUFFER #
00023  M01S00023.comtbld +++|
00024  M01S00024.comtbld +++|#
00025  M01S00025.comtbld +++|*     ITEMS COMMON TO *SSBLD* PROCEDURES.
00026  M01S00026.comtbld +++|#
00027  M01S00027.comtbld +++|
00028  M01S00028.comtbld +++|      COMMON TBLDCOM;
00029  M01S00029.comtbld +++|
00030  M01S00030.comtbld +++|        BEGIN  # TBLDCOM #
00031  M01S00031.comtbld +++|                                     # $$ #
00032  M01S00032.comtbld +++|        ITEM $$TBLD$$   C(20) = "****** COMTBLD *****";
00033  M01S00033.comtbld +++|                                     # $$ #
00034  M01S00034.comtbld +++|
00035  M01S00035.comtbld +++|#
00036  M01S00036.comtbld +++|*     ARRAYS TO HOLD UDT
00037  M01S00037.comtbld +++|#
00038  M01S00038.comtbld +++|
00039  M01S00039.comtbld +++|        ITEM BL$UDT$HDR   U;         # UDT HEADER DATA #
00040  M01S00040.comtbld +++|        ARRAY BL$UDT$M862 [1:MAXCTN] S(UDTCNTL);;
00041  M01S00041.comtbld +++|        ARRAY BL$UDT$M861 [1:MAXSM] S(SMALT);;
00042  M01S00042.comtbld +++|
00043  M01S00043.comtbld +++|#
00044  M01S00044.comtbld +++|*      BASED ARRAY FOR UDT
00045  M01S00045.comtbld +++|#
00046  M01S00046.comtbld +++|
00047  M01S00047.comtbld +++|        BASED
00048  M01S00048.comtbld +++|        ARRAY BL$UDT$LOC[0:0] S(1);;
00049  M01S00049.comtbld +++|
00050  M01S00050.comtbld +++|
00051  M01S00051.comtbld +++|
00052  M01S00052.comtbld +++|        ITEM CFNAME     C(7);        # ZERO FILLED CONFIGURATION FILE
00053  M01S00053.comtbld +++|                                       NAME #
00054  M01S00054.comtbld +++|
00055  M01S00055.comtbld +++|#
00056  M01S00056.comtbld +++|*     FETS AND BUFFERS.
00057  M01S00057.comtbld +++|#
00058  M01S00058.comtbld +++|
00059  M01S00059.comtbld +++|        ARRAY BL$BUF[0:0] S(BLBUFL);;  # *CIO* BUFFER #
00060  M01S00060.comtbld +++|        ARRAY BL$WBUF [0:0] S(BLWBUFL);;  # WORKING BUFFER #
00061  M01S00061.comtbld +++|        ARRAY BL$FET [0:2] S(SFETL);;
00062  M01S00062.comtbld +++|
00063  M01S00063.comtbld +++|#
00064  M01S00064.comtbld +++|*     ARRAY TO HOLD MESSAGES
00065  M01S00065.comtbld +++|#
00066  M01S00066.comtbld +++|
00067  M01S00067.comtbld +++|        ARRAY BLMSG [0:0] P(4);      # *SSBLD* FATAL ERROR MESSAGE #
00068  M01S00068.comtbld +++|          BEGIN
00069  M01S00069.comtbld +++|          ITEM BLMSG$LN   C(00,00,38);  # MESSAGE LINE #
00070  M01S00070.comtbld +++|          ITEM BLMSG$ABN  C(00,00,18) = [" SSBLD ABNORMAL, "];
00071  M01S00071.comtbld +++|          ITEM BLMSG$PROC C(01,48,08);  # PROC NAME #
00072  M01S00072.comtbld +++|          ITEM BLMSG$BLNK C(02,36,12) = ["            "];
00073  M01S00073.comtbld +++|          ITEM BLMSG$VAL  C(02,06,10);  # NUMERIC VALUE #
00074  M01S00074.comtbld +++|          ITEM BLMSG$TERM U(03,48,12) = [0];  # ZERO BYTE TERMINATOR #
00075  M01S00075.comtbld +++|          END
00076  M01S00076.comtbld +++|
00077  M01S00077.comtbld +++|        END  # TBLDCOM #
00078  M01S00078.comtbld +++|
00079  M01S00079.comtbld +++|      END  # COMTBLD #
00080  M01S00080.comtbld +++|
00081  M01S00081.comtbld +++|                                               CONTROL LIST;