Common COMTBLD

Library Member Format: MODIFY
Source

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;