Common COMXINT

Library Member Format: MODIFY
Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comxint +++|
00002  M00S00002.comxint +++|#     COMXINT - DATA FOR INITIALIZATION ROUTINES.                     #
00003  M00S00003.comxint +++|                                               CONTROL NOLIST;
00004  M00S00004.comxint +++|                                               CONTROL IFEQ LISTCON,1;
00005  M00S00005.comxint +++|                                               CONTROL LIST;
00006  M00S00006.comxint +++|                                               CONTROL FI;
00007  M00S00007.comxint +++|      BEGIN  # COMXINT #
00008  M00S00008.comxint +++|
00009  M00S00009.comxint +++|#
00010  M00S00010.comxint +++|**    COMXINT - DATA FOR INITIALIZATION ROUTINES.
00011  M00S00011.comxint +++|*
00012  M00S00012.comxint +++|*     THIS COMDECK CONTAINS DATA AND VARIABLES USED BY MORE THAN ONE
00013  M00S00013.comxint +++|*     INITIALIZATION ROUTINE.
00014  M00S00014.comxint +++|#
00015  M00S00015.comxint +++|
00016  M00S00016.comxint +++|
00017  M00S00017.comxint +++|      DEF ZEROES     #0#;            # USED TO INITIALIZE VARIABLES #
00018  M00S00018.comxint +++|
00019  M00S00019.comxint +++|      COMMON XINTCOM;
00020  M00S00020.comxint +++|
00021  M00S00021.comxint +++|        BEGIN  # COMMON AREA #
00022  M00S00022.comxint +++|
00023  M00S00023.comxint +++|        ITEM ARG$S      U;           # INTEGER *S* PARAMETER #
00024  M00S00024.comxint +++|        ITEM DEFAULTORD U;           # ORDINAL FOR DEFAULT FAMILY #
00025  M00S00025.comxint +++|        ITEM NSM        U;           # NUMBER OF *SM-S* #
00026  M00S00026.comxint +++|        ITEM NFAM       U;           # NUMBER OF FAMILIES USING *MSS* #
00027  M00S00027.comxint +++|        ITEM Q          U;           # CALCULATION TUNING PARAMETER #
00028  M00S00028.comxint +++|        ITEM SSID       U;           # SUBSYSTEM *ID* #
00029  M00S00029.comxint +++|
00030  M00S00030.comxint +++|
00031  M00S00031.comxint +++|        ARRAY LINK [0:0] S(1);       # MMF LINK INFORMATION #
00032  M00S00032.comxint +++|          BEGIN
00033  M00S00033.comxint +++|          ITEM LINK$DT    C(00,00,04);  # LINK DEVICE TYPE #
00034  M00S00034.comxint +++|          ITEM LINK$ORD   U(00,24,36);  # ORDINAL OF LINK FAMILY #
00035  M00S00035.comxint +++|          END
00036  M00S00036.comxint +++|
00037  M00S00037.comxint +++|        ARRAY MSGFILEDATA[0:0] P(5);
00038  M00S00038.comxint +++|          BEGIN
00039  M00S00039.comxint +++|          ITEM MSG$TEXT   C(00,00,40) =  ##
00040  M00S00040.comxint +++|            [" PFN=       , FAMILY=       , UI=      ."];
00041  M00S00041.comxint +++|          ITEM MSGPFN     C(00,30,07);  # *PFN* #
00042  M00S00042.comxint +++|          ITEM MSGFAM     C(02,06,07);  # FAMILY #
00043  M00S00043.comxint +++|          ITEM MSGUI      C(03,18,06);  # INDEX #
00044  M00S00044.comxint +++|          ITEM MSG$FZRO   U(04,00,12) = [0];  # ZERO BYTE TERMINATOR #
00045  M00S00045.comxint +++|          END
00046  M00S00046.comxint +++|
00047  M00S00047.comxint +++|        ARRAY NAME$FAML[1:MAXFAM] P(1);
00048  M00S00048.comxint +++|          BEGIN  # ARRAY NAME$FAML #
00049  M00S00049.comxint +++|          ITEM NAMEFAM    C(00,00,07);  # FAMILY NAMES USING *MSS* #
00050  M00S00050.comxint +++|          END  # ARRAY NAME$FAML #
00051  M00S00051.comxint +++|
00052  M00S00052.comxint +++|        END  # COMMON AREA #
00053  M00S00053.comxint +++|
00054  M00S00054.comxint +++|      END  # COMXINT #
00055  M00S00055.comxint +++|
00056  M00S00056.comxint +++|                                               CONTROL LIST;