cdc:nos2.source:opl.opl871:common:comtfmt
Common COMTFMT
0 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comtfmt +++| 00002 M01S00002.comtfmt +++|# COMTFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER. # 00003 M01S00003.comtfmt +++| CONTROL NOLIST; 00004 M01S00004.comtfmt +++| CONTROL IFEQ LISTCON,1; 00005 M01S00005.comtfmt +++| CONTROL LIST; 00006 M01S00006.comtfmt +++| CONTROL FI; 00007 M01S00007.comtfmt +++| BEGIN # COMTFMT # 00008 M01S00008.comtfmt +++| 00009 M01S00009.comtfmt +++|# 00010 M01S00010.comtfmt +++|*** COMTFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER. 00011 M01S00011.comtfmt +++|* 00012 M01S00012.comtfmt +++|* *COMTFMT* CONTAINS COMMON DECLARATIONS USED ONLY BY 00013 M01S00013.comtfmt +++|* THE *M860* REPORT FORMATTER ROUTINES. 00014 M01S00014.comtfmt +++|* DEFINITIONS NEEDED BY CALLING ROUTINES ARE CONTAINED 00015 M01S00015.comtfmt +++|* IN *COMTOUT*. 00016 M01S00016.comtfmt +++|# 00017 M01S00017.comtfmt +++| 00018 M01S00018.comtfmt +++| 00019 M01S00019.comtfmt +++| DEF BLANK #0,0,0,0#; # PARAMETERS FOR BLANK LINE # 00020 M01S00020.comtfmt +++| DEF EMPTY #0#; # INDICATES EMPTY FIELD # 00021 M01S00021.comtfmt +++| DEF LINELEN #14#; # WORDS IN A PRINT LINE # 00022 M01S00022.comtfmt +++| DEF MAXLC #66#; # MAXIMUM LINE COUNT PER PAGE # 00023 M01S00023.comtfmt +++| DEF MAXLINE #O"777777"#; # EJECT LINE COUNT # 00024 M01S00024.comtfmt +++| DEF PRBUFL #O"1001"#; # LENGTH OF *CIO* BUFFER # 00025 M01S00025.comtfmt +++| DEF PRCEJ #"1"#; # PAGE EJECT CARRIAGE CONTROL # 00026 M01S00026.comtfmt +++| DEF PRCOLIM #140#; # COLUMN LIMIT # 00027 M01S00027.comtfmt +++| DEF PRDBL #"0"#; # DOUBLE SPACE CARRIAGE CONTROL # 00028 M01S00028.comtfmt +++| DEF PRDEFLIM #60#; # DEFAULT LINE LIMIT # 00029 M01S00029.comtfmt +++| DEF PRTABENT #3#; # NUMBER OF PRINT TABLE ENTRIES # 00030 M01S00030.comtfmt +++| DEF SPACES #" "#; # USED TO BLANK FILL ITEMS # 00031 M01S00031.comtfmt +++| 00032 M01S00032.comtfmt +++| COMMON TFMTCOM; 00033 M01S00033.comtfmt +++| 00034 M01S00034.comtfmt +++| BEGIN # TFMTCOM # 00035 M01S00035.comtfmt +++| 00036 M01S00036.comtfmt +++| ITEM ORD U; # ORDINAL OF PRINT TABLE ENTRY # 00037 M01S00037.comtfmt +++| 00038 M01S00038.comtfmt +++| BASED 00039 M01S00039.comtfmt +++| ARRAY RPFET [0:0] S(SFETL);; # REPORT FILE *FET* # 00040 M01S00040.comtfmt +++| 00041 M01S00041.comtfmt +++| ARRAY LINEBUFF [1:PRTABENT] S(LINELEN); # PRINT LINE BUFFER # 00042 M01S00042.comtfmt +++| BEGIN 00043 M01S00043.comtfmt +++| ITEM LIN$BUF C(00,00,140); # HOLDS 138 CHARACTER LINE # 00044 M01S00044.comtfmt +++| ITEM LIN$CNTRL C(00,00,01); # CARRIAGE CONTROL CHARACTER # 00045 M01S00045.comtfmt +++| ITEM LIN$HEAD C(00,06,37); # OPTIONAL HEADER MESSAGE # 00046 M01S00046.comtfmt +++| ITEM LIN$DATE C(03,54,10); # CURRENT DATE # 00047 M01S00047.comtfmt +++| ITEM LIN$TIME C(04,54,10); # CURRENT TIME # 00048 M01S00048.comtfmt +++| ITEM LIN$PAGE C(06,06,04); # *PAGE* # 00049 M01S00049.comtfmt +++| ITEM LIN$PAGENM C(06,30,06); # PAGE NUMBER # 00050 M01S00050.comtfmt +++| END 00051 M01S00051.comtfmt +++| 00052 M01S00052.comtfmt +++| ARRAY MSG [0:0] P(4); # USED FOR DAYFILE MESSAGES # 00053 M01S00053.comtfmt +++| BEGIN 00054 M01S00054.comtfmt +++| ITEM MSGITEM C(00,00,38); # MESSAGE DISPLAYED # 00055 M01S00055.comtfmt +++| ITEM MSGZERO U(03,48,12) = [0]; # TERMINATES MESSAGE # 00056 M01S00056.comtfmt +++| END 00057 M01S00057.comtfmt +++| 00058 M01S00058.comtfmt +++| ARRAY PRBUF [1:PRTABENT] S(PRBUFL);; # *CIO* BUFFER # 00059 M01S00059.comtfmt +++| 00060 M01S00060.comtfmt +++| ARRAY PRTABLE [1:PRTABENT] S(8); # PRINT TABLE # 00061 M01S00061.comtfmt +++| BEGIN 00062 M01S00062.comtfmt +++| ITEM PRTLFN C(00,00,10); # REPORT FILE NAME # 00063 M01S00063.comtfmt +++| ITEM PRTFETP U(00,42,18) = # ADDRESS OF *FET* # 00064 M01S00064.comtfmt +++| [PRTABENT(0)]; 00065 M01S00065.comtfmt +++| ITEM PRTLINE U(01,00,18); # CURRENT LINE NUMBER # 00066 M01S00066.comtfmt +++| ITEM PRTPAGE U(01,18,18); # CURRENT PAGE NUMBER # 00067 M01S00067.comtfmt +++| ITEM PRTLINELIM U(01,42,18); # LINE LIMIT # 00068 M01S00068.comtfmt +++| ITEM PRTDATE C(02,00,10); # CURRENT DATE # 00069 M01S00069.comtfmt +++| ITEM PRTTIME C(03,00,10); # CURRENT TIME # 00070 M01S00070.comtfmt +++| ITEM PRTHEADT C(04,00,37); # OPTIONAL HEADER MESSAGE # 00071 M01S00071.comtfmt +++| ITEM PRTHEADP U(07,42,18); # HEADER PROCEDURE ADDRESS # 00072 M01S00072.comtfmt +++| 00073 M01S00073.comtfmt +++| END 00074 M01S00074.comtfmt +++| 00075 M01S00075.comtfmt +++| 00076 M01S00076.comtfmt +++| END # TFMTCOM # 00077 M01S00077.comtfmt +++| 00078 M01S00078.comtfmt +++| END # COMTFMT # 00079 M01S00079.comtfmt +++| 00080 M01S00080.comtfmt +++| CONTROL LIST;
cdc/nos2.source/opl.opl871/common/comtfmt.txt · Last modified: by 127.0.0.1