cdc:nos2.source:opl.opl871:common:comtfmt
Common COMTFMT
Library Member Format: MODIFY
Source
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;
cdc/nos2.source/opl.opl871/common/comtfmt.txt · Last modified: (external edit)