Common COMXINT

0 Modifications
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comxint +++|
00002  M01S00002.comxint +++|#     COMXINT - DATA FOR INITIALIZATION ROUTINES.                     #
00003  M01S00003.comxint +++|                                               CONTROL NOLIST;
00004  M01S00004.comxint +++|                                               CONTROL IFEQ LISTCON,1;
00005  M01S00005.comxint +++|                                               CONTROL LIST;
00006  M01S00006.comxint +++|                                               CONTROL FI;
00007  M01S00007.comxint +++|      BEGIN  # COMXINT #
00008  M01S00008.comxint +++|
00009  M01S00009.comxint +++|#
00010  M01S00010.comxint +++|**    COMXINT - DATA FOR INITIALIZATION ROUTINES.
00011  M01S00011.comxint +++|*
00012  M01S00012.comxint +++|*     THIS COMDECK CONTAINS DATA AND VARIABLES USED BY MORE THAN ONE
00013  M01S00013.comxint +++|*     INITIALIZATION ROUTINE.
00014  M01S00014.comxint +++|#
00015  M01S00015.comxint +++|
00016  M01S00016.comxint +++|
00017  M01S00017.comxint +++|      DEF ZEROES     #0#;            # USED TO INITIALIZE VARIABLES #
00018  M01S00018.comxint +++|
00019  M01S00019.comxint +++|      COMMON XINTCOM;
00020  M01S00020.comxint +++|
00021  M01S00021.comxint +++|        BEGIN  # COMMON AREA #
00022  M01S00022.comxint +++|
00023  M01S00023.comxint +++|        ITEM ARG$S      U;           # INTEGER *S* PARAMETER #
00024  M01S00024.comxint +++|        ITEM DEFAULTORD U;           # ORDINAL FOR DEFAULT FAMILY #
00025  M01S00025.comxint +++|        ITEM NSM        U;           # NUMBER OF *SM-S* #
00026  M01S00026.comxint +++|        ITEM NFAM       U;           # NUMBER OF FAMILIES USING *MSS* #
00027  M01S00027.comxint +++|        ITEM Q          U;           # CALCULATION TUNING PARAMETER #
00028  M01S00028.comxint +++|        ITEM SSID       U;           # SUBSYSTEM *ID* #
00029  M01S00029.comxint +++|
00030  M01S00030.comxint +++|
00031  M01S00031.comxint +++|        ARRAY LINK [0:0] S(1);       # MMF LINK INFORMATION #
00032  M01S00032.comxint +++|          BEGIN
00033  M01S00033.comxint +++|          ITEM LINK$DT    C(00,00,04);  # LINK DEVICE TYPE #
00034  M01S00034.comxint +++|          ITEM LINK$ORD   U(00,24,36);  # ORDINAL OF LINK FAMILY #
00035  M01S00035.comxint +++|          END
00036  M01S00036.comxint +++|
00037  M01S00037.comxint +++|        ARRAY MSGFILEDATA[0:0] P(5);
00038  M01S00038.comxint +++|          BEGIN
00039  M01S00039.comxint +++|          ITEM MSG$TEXT   C(00,00,40) =  ##
00040  M01S00040.comxint +++|            [" PFN=       , FAMILY=       , UI=      ."];
00041  M01S00041.comxint +++|          ITEM MSGPFN     C(00,30,07);  # *PFN* #
00042  M01S00042.comxint +++|          ITEM MSGFAM     C(02,06,07);  # FAMILY #
00043  M01S00043.comxint +++|          ITEM MSGUI      C(03,18,06);  # INDEX #
00044  M01S00044.comxint +++|          ITEM MSG$FZRO   U(04,00,12) = [0];  # ZERO BYTE TERMINATOR #
00045  M01S00045.comxint +++|          END
00046  M01S00046.comxint +++|
00047  M01S00047.comxint +++|        ARRAY NAME$FAML[1:MAXFAM] P(1);
00048  M01S00048.comxint +++|          BEGIN  # ARRAY NAME$FAML #
00049  M01S00049.comxint +++|          ITEM NAMEFAM    C(00,00,07);  # FAMILY NAMES USING *MSS* #
00050  M01S00050.comxint +++|          END  # ARRAY NAME$FAML #
00051  M01S00051.comxint +++|
00052  M01S00052.comxint +++|        END  # COMMON AREA #
00053  M01S00053.comxint +++|
00054  M01S00054.comxint +++|      END  # COMXINT #
00055  M01S00055.comxint +++|
00056  M01S00056.comxint +++|                                               CONTROL LIST;