Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.comtfmt +++|
00002 M00S00002.comtfmt +++|# COMTFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER. #
00003 M00S00003.comtfmt +++| CONTROL NOLIST;
00004 M00S00004.comtfmt +++| CONTROL IFEQ LISTCON,1;
00005 M00S00005.comtfmt +++| CONTROL LIST;
00006 M00S00006.comtfmt +++| CONTROL FI;
00007 M00S00007.comtfmt +++| BEGIN # COMTFMT #
00008 M00S00008.comtfmt +++|
00009 M00S00009.comtfmt +++|#
00010 M00S00010.comtfmt +++|*** COMTFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.
00011 M00S00011.comtfmt +++|*
00012 M00S00012.comtfmt +++|* *COMTFMT* CONTAINS COMMON DECLARATIONS USED ONLY BY
00013 M00S00013.comtfmt +++|* THE *M860* REPORT FORMATTER ROUTINES.
00014 M00S00014.comtfmt +++|* DEFINITIONS NEEDED BY CALLING ROUTINES ARE CONTAINED
00015 M00S00015.comtfmt +++|* IN *COMTOUT*.
00016 M00S00016.comtfmt +++|#
00017 M00S00017.comtfmt +++|
00018 M00S00018.comtfmt +++|
00019 M00S00019.comtfmt +++| DEF BLANK #0,0,0,0#; # PARAMETERS FOR BLANK LINE #
00020 M00S00020.comtfmt +++| DEF EMPTY #0#; # INDICATES EMPTY FIELD #
00021 M00S00021.comtfmt +++| DEF LINELEN #14#; # WORDS IN A PRINT LINE #
00022 M00S00022.comtfmt +++| DEF MAXLC #66#; # MAXIMUM LINE COUNT PER PAGE #
00023 M00S00023.comtfmt +++| DEF MAXLINE #O"777777"#; # EJECT LINE COUNT #
00024 M00S00024.comtfmt +++| DEF PRBUFL #O"1001"#; # LENGTH OF *CIO* BUFFER #
00025 M00S00025.comtfmt +++| DEF PRCEJ #"1"#; # PAGE EJECT CARRIAGE CONTROL #
00026 M00S00026.comtfmt +++| DEF PRCOLIM #140#; # COLUMN LIMIT #
00027 M00S00027.comtfmt +++| DEF PRDBL #"0"#; # DOUBLE SPACE CARRIAGE CONTROL #
00028 M00S00028.comtfmt +++| DEF PRDEFLIM #60#; # DEFAULT LINE LIMIT #
00029 M00S00029.comtfmt +++| DEF PRTABENT #3#; # NUMBER OF PRINT TABLE ENTRIES #
00030 M00S00030.comtfmt +++| DEF SPACES #" "#; # USED TO BLANK FILL ITEMS #
00031 M00S00031.comtfmt +++|
00032 M00S00032.comtfmt +++| COMMON TFMTCOM;
00033 M00S00033.comtfmt +++|
00034 M00S00034.comtfmt +++| BEGIN # TFMTCOM #
00035 M00S00035.comtfmt +++|
00036 M00S00036.comtfmt +++| ITEM ORD U; # ORDINAL OF PRINT TABLE ENTRY #
00037 M00S00037.comtfmt +++|
00038 M00S00038.comtfmt +++| BASED
00039 M00S00039.comtfmt +++| ARRAY RPFET [0:0] S(SFETL);; # REPORT FILE *FET* #
00040 M00S00040.comtfmt +++|
00041 M00S00041.comtfmt +++| ARRAY LINEBUFF [1:PRTABENT] S(LINELEN); # PRINT LINE BUFFER #
00042 M00S00042.comtfmt +++| BEGIN
00043 M00S00043.comtfmt +++| ITEM LIN$BUF C(00,00,140); # HOLDS 138 CHARACTER LINE #
00044 M00S00044.comtfmt +++| ITEM LIN$CNTRL C(00,00,01); # CARRIAGE CONTROL CHARACTER #
00045 M00S00045.comtfmt +++| ITEM LIN$HEAD C(00,06,37); # OPTIONAL HEADER MESSAGE #
00046 M00S00046.comtfmt +++| ITEM LIN$DATE C(03,54,10); # CURRENT DATE #
00047 M00S00047.comtfmt +++| ITEM LIN$TIME C(04,54,10); # CURRENT TIME #
00048 M00S00048.comtfmt +++| ITEM LIN$PAGE C(06,06,04); # *PAGE* #
00049 M00S00049.comtfmt +++| ITEM LIN$PAGENM C(06,30,06); # PAGE NUMBER #
00050 M00S00050.comtfmt +++| END
00051 M00S00051.comtfmt +++|
00052 M00S00052.comtfmt +++| ARRAY MSG [0:0] P(4); # USED FOR DAYFILE MESSAGES #
00053 M00S00053.comtfmt +++| BEGIN
00054 M00S00054.comtfmt +++| ITEM MSGITEM C(00,00,38); # MESSAGE DISPLAYED #
00055 M00S00055.comtfmt +++| ITEM MSGZERO U(03,48,12) = [0]; # TERMINATES MESSAGE #
00056 M00S00056.comtfmt +++| END
00057 M00S00057.comtfmt +++|
00058 M00S00058.comtfmt +++| ARRAY PRBUF [1:PRTABENT] S(PRBUFL);; # *CIO* BUFFER #
00059 M00S00059.comtfmt +++|
00060 M00S00060.comtfmt +++| ARRAY PRTABLE [1:PRTABENT] S(8); # PRINT TABLE #
00061 M00S00061.comtfmt +++| BEGIN
00062 M00S00062.comtfmt +++| ITEM PRTLFN C(00,00,10); # REPORT FILE NAME #
00063 M00S00063.comtfmt +++| ITEM PRTFETP U(00,42,18) = # ADDRESS OF *FET* #
00064 M00S00064.comtfmt +++| [PRTABENT(0)];
00065 M00S00065.comtfmt +++| ITEM PRTLINE U(01,00,18); # CURRENT LINE NUMBER #
00066 M00S00066.comtfmt +++| ITEM PRTPAGE U(01,18,18); # CURRENT PAGE NUMBER #
00067 M00S00067.comtfmt +++| ITEM PRTLINELIM U(01,42,18); # LINE LIMIT #
00068 M00S00068.comtfmt +++| ITEM PRTDATE C(02,00,10); # CURRENT DATE #
00069 M00S00069.comtfmt +++| ITEM PRTTIME C(03,00,10); # CURRENT TIME #
00070 M00S00070.comtfmt +++| ITEM PRTHEADT C(04,00,37); # OPTIONAL HEADER MESSAGE #
00071 M00S00071.comtfmt +++| ITEM PRTHEADP U(07,42,18); # HEADER PROCEDURE ADDRESS #
00072 M00S00072.comtfmt +++|
00073 M00S00073.comtfmt +++| END
00074 M00S00074.comtfmt +++|
00075 M00S00075.comtfmt +++|
00076 M00S00076.comtfmt +++| END # TFMTCOM #
00077 M00S00077.comtfmt +++|
00078 M00S00078.comtfmt +++| END # COMTFMT #
00079 M00S00079.comtfmt +++|
00080 M00S00080.comtfmt +++| CONTROL LIST;