Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comtdef +++|
00002 M01S00002.comtdef +++|# COMTDEF - DATA COMMON TO *SSDEF* PROCEDURES. #
00003 M01S00003.comtdef +++|
00004 M01S00004.comtdef +++| CONTROL NOLIST;
00005 M01S00005.comtdef +++| CONTROL IFEQ LISTCON,1;
00006 M01S00006.comtdef +++| CONTROL LIST;
00007 M01S00007.comtdef +++| CONTROL FI;
00008 M01S00008.comtdef +++| BEGIN # COMTDEF #
00009 M01S00009.comtdef +++|
00010 M01S00010.comtdef +++|#
00011 M01S00011.comtdef +++|*** COMTDEF - DATA COMMON TO *SSDEF* PROCEDURES.
00012 M01S00012.comtdef +++|*
00013 M01S00013.comtdef +++|* COMTDEF CONTAINS DATA COMMON TO *SSDEF* PROCEDURES.
00014 M01S00014.comtdef +++|#
00015 M01S00015.comtdef +++|
00016 M01S00016.comtdef +++| ITEM LINKDF U; # DEFAULT FLAG #
00017 M01S00017.comtdef +++| ITEM NDF U; # NUMBER FAMT ENTRIES #
00018 M01S00018.comtdef +++|
00019 M01S00019.comtdef +++|#
00020 M01S00020.comtdef +++|* ARRAYS TO HOLD DETAIL MESSAGES.
00021 M01S00021.comtdef +++|#
00022 M01S00022.comtdef +++|
00023 M01S00023.comtdef +++| ARRAY MSGDETAIL2 [0:0] P(4);
00024 M01S00024.comtdef +++| BEGIN # ARRAY MSGDETAIL2 #
00025 M01S00025.comtdef +++| ITEM MSGUIH C(00,00,05) = [" UI="]; # UI= #
00026 M01S00026.comtdef +++| ITEM MSGUIDF C(00,30,06); # USER INDEX #
00027 M01S00027.comtdef +++| ITEM MSGHYPH C(01,06,03) = [" - "]; # HYPHEN #
00028 M01S00028.comtdef +++| ITEM MSGDETMSG C(01,24,20); # MESSAGE #
00029 M01S00029.comtdef +++| ITEM MSGZRO2 U(03,24,12) = [0]; # TERMINATOR #
00030 M01S00030.comtdef +++| END # ARRAY MSGDETAIL2 #
00031 M01S00031.comtdef +++|
00032 M01S00032.comtdef +++|#
00033 M01S00033.comtdef +++|* ARRAY TO HOLD MESSAGE TO BE DISPLAYED IN THE
00034 M01S00034.comtdef +++|* DAYFILE AND AT THE TERMINAL.
00035 M01S00035.comtdef +++|#
00036 M01S00036.comtdef +++|
00037 M01S00037.comtdef +++| ARRAY MSG$BUF [0:0] P(4); # MESSAGE BUFFER #
00038 M01S00038.comtdef +++| BEGIN # ARRAY MSG$BUF #
00039 M01S00039.comtdef +++| ITEM MSG$LINE C(00,00,38); # MESSAGE LINE #
00040 M01S00040.comtdef +++| ITEM MSG$ZRO U(03,48,12); # ZERO BYTE TERMINATOR #
00041 M01S00041.comtdef +++| END # ARRAY MSG$BUF #
00042 M01S00042.comtdef +++|
00043 M01S00043.comtdef +++|#
00044 M01S00044.comtdef +++|* ARRAY TO HOLD USER INDEX DISPLAY CODE.
00045 M01S00045.comtdef +++|#
00046 M01S00046.comtdef +++|
00047 M01S00047.comtdef +++| ARRAY DIS [0:0] P(2);
00048 M01S00048.comtdef +++| BEGIN # ARRAY DIS #
00049 M01S00049.comtdef +++| ITEM DIS$UI C(01,24,06); # USER INDEX IN DISPLAY CODE #
00050 M01S00050.comtdef +++| END # ARRAY DIS #
00051 M01S00051.comtdef +++|
00052 M01S00052.comtdef +++|#
00053 M01S00053.comtdef +++|* ITEMS COMMON TO *SSDEF* PROCEDURES.
00054 M01S00054.comtdef +++|#
00055 M01S00055.comtdef +++|
00056 M01S00056.comtdef +++| COMMON TDEFCOM;
00057 M01S00057.comtdef +++|
00058 M01S00058.comtdef +++| BEGIN # TDEFCOM #
00059 M01S00059.comtdef +++| #$$#
00060 M01S00060.comtdef +++| ITEM $$TDEF$$ C(20) = "****** COMTDEF *****";
00061 M01S00061.comtdef +++| #$$#
00062 M01S00062.comtdef +++| ITEM ERRFAMDF B=FALSE; # FAMILY NOT FOUND FLAG #
00063 M01S00063.comtdef +++| ITEM ERRFLAGDF B=FALSE; # *SSDEF* ERROR FLAG #
00064 M01S00064.comtdef +++| ITEM DFLTFMDF B=FALSE; # DEFAULT FLAG #
00065 M01S00065.comtdef +++| END # TDEFCOM #
00066 M01S00066.comtdef +++|
00067 M01S00067.comtdef +++| ITEM DEFAULTDF U; # DEFAULT POINTER FOR GETFAM #
00068 M01S00068.comtdef +++|
00069 M01S00069.comtdef +++| END # COMTDEF #
00070 M01S00070.comtdef +++|
00071 M01S00071.comtdef +++| CONTROL LIST;