Seq # *Modification Id* Act
----------------------------+
00001 M01S00001.comufmt +++|
00002 M01S00002.comufmt +++|# COMUFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER. #
00003 M01S00003.comufmt +++| CONTROL NOLIST;
00004 M01S00004.comufmt +++| CONTROL IFEQ LISTCON,1;
00005 M01S00005.comufmt +++| CONTROL LIST;
| Line S00006 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00006 M02S00006.ns22000 ---| CONTROL FI;
00007 M01S00001.ns22000 +++| CONTROL FI;
00008 M01S00007.comufmt +++| BEGIN # COMUFMT #
00009 M01S00008.comufmt +++|
00010 M01S00009.comufmt +++|#
00011 M01S00010.comufmt +++|*** COMUFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.
00012 M01S00001.281l803 +++|*
00013 M01S00002.281l803 +++|* COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00014 M01S00011.comufmt +++|*
| Line S00012 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00015 M02S00012.ns22000 ---|* *COMUFMT* CONTAINS COMMON DECLARATIONS USED ONLY BY
| Line S00013 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00016 M02S00013.ns22000 ---|* THE *MSS* REPORT FORMATTER ROUTINES.
00017 M01S00002.ns22000 +++|* *COMUFMT* CONTAINS COMMON DECLARATIONS USED BY SYMPL
00018 M01S00003.ns22000 +++|* REPORT FORMATTER ROUTINES.
00019 M01S00014.comufmt +++|* DEFINITIONS NEEDED BY CALLING ROUTINES ARE CONTAINED
00020 M01S00015.comufmt +++|* IN *COMUOUT*.
00021 M01S00016.comufmt +++|#
00022 M01S00017.comufmt +++|
00023 M01S00018.comufmt +++|
00024 M01S00019.comufmt +++| DEF BLANK #0,0,0,0#; # PARAMETERS FOR BLANK LINE #
00025 M01S00020.comufmt +++| DEF EMPTY #0#; # INDICATES EMPTY FIELD #
00026 M01S00021.comufmt +++| DEF LINELEN #14#; # WORDS IN A PRINT LINE #
00027 M01S00022.comufmt +++| DEF MAXLC #66#; # MAXIMUM LINE COUNT PER PAGE #
00028 M01S00023.comufmt +++| DEF MAXLINE #O"777777"#; # EJECT LINE COUNT #
00029 M01S00024.comufmt +++| DEF PRBUFL #O"1001"#; # LENGTH OF *CIO* BUFFER #
00030 M01S00025.comufmt +++| DEF PRCEJ #"1"#; # PAGE EJECT CARRIAGE CONTROL #
00031 M01S00026.comufmt +++| DEF PRCOLIM #140#; # COLUMN LIMIT #
00032 M01S00027.comufmt +++| DEF PRDBL #"0"#; # DOUBLE SPACE CARRIAGE CONTROL #
00033 M01S00028.comufmt +++| DEF PRDEFLIM #60#; # DEFAULT LINE LIMIT #
00034 M01S00029.comufmt +++| DEF PRTABENT #3#; # NUMBER OF PRINT TABLE ENTRIES #
00035 M01S00004.ns22000 +++| DEF PRTABLEN #15#; # WORDS IN PRINT TABLE #
00036 M01S00030.comufmt +++| DEF SPACES #" "#; # USED TO BLANK FILL ITEMS #
00037 M01S00031.comufmt +++|
00038 M01S00032.comufmt +++| COMMON UFMTCOM;
00039 M01S00033.comufmt +++| BEGIN # UFMTCOM #
00040 M01S00034.comufmt +++|
00041 M01S00035.comufmt +++| ITEM ORD U; # ORDINAL OF PRINT TABLE ENTRY #
00042 M01S00036.comufmt +++|
00043 M01S00037.comufmt +++| BASED
00044 M01S00038.comufmt +++| ARRAY RPFET [0:0] S(SFETL); # REPORT FILE *FET* #
00045 M01S00039.comufmt +++| ;
00046 M01S00040.comufmt +++|
00047 M01S00041.comufmt +++| ARRAY LINEBUFF [1:PRTABENT] S(LINELEN); # PRINT LINE BUFFER #
00048 M01S00042.comufmt +++| BEGIN
00049 M01S00043.comufmt +++| ITEM LIN$BUF C(00,00,140); # HOLDS 138 CHARACTER LINE #
00050 M01S00044.comufmt +++| ITEM LIN$CNTRL C(00,00,01); # CARRIAGE CONTROL CHARACTER #
| Line S00045 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00051 M02S00045.ns22000 ---| ITEM LIN$HEAD C(00,06,37); # OPTIONAL HEADER MESSAGE #
| Line S00046 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00052 M02S00046.ns22000 ---| ITEM LIN$DATE C(03,54,10); # CURRENT DATE #
| Line S00047 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00053 M02S00047.ns22000 ---| ITEM LIN$TIME C(04,54,10); # CURRENT TIME #
| Line S00048 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00054 M02S00048.ns22000 ---| ITEM LIN$PAGE C(06,06,04); # *PAGE* #
| Line S00049 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00055 M02S00049.ns22000 ---| ITEM LIN$PAGENM C(06,30,06); # PAGE NUMBER #
00056 M01S00005.ns22000 +++| ITEM LIN$HEAD C(00,06,100); # OPTIONAL HEADER MESSAGE #
00057 M01S00006.ns22000 +++| ITEM LIN$DATE C(10,06,10); # CURRENT DATE #
00058 M01S00007.ns22000 +++| ITEM LIN$TIME C(11,06,10); # CURRENT TIME #
00059 M01S00008.ns22000 +++| ITEM LIN$PAGE C(12,18,04); # *PAGE* #
00060 M01S00009.ns22000 +++| ITEM LIN$PAGENM C(12,42,06); # PAGE NUMBER #
00061 M01S00050.comufmt +++| END
00062 M01S00051.comufmt +++|
00063 M01S00052.comufmt +++| ARRAY MSG [0:0] P(4); # USED FOR DAYFILE MESSAGES #
00064 M01S00053.comufmt +++| BEGIN
00065 M01S00054.comufmt +++| ITEM MSGITEM C(00,00,38); # MESSAGE DISPLAYED #
00066 M01S00055.comufmt +++| ITEM MSGZERO U(03,48,12) = [0]; # TERMINATES MESSAGE #
00067 M01S00056.comufmt +++| END
00068 M01S00057.comufmt +++|
00069 M01S00058.comufmt +++| ARRAY PRBUF [1:PRTABENT] S(PRBUFL);
00070 M01S00059.comufmt +++| ; # *CIO* BUFFER #
00071 M01S00060.comufmt +++|
| Line S00061 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00072 M02S00061.ns22000 ---| ARRAY PRTABLE [1:PRTABENT] S(8); # PRINT TABLE #
00073 M01S00010.ns22000 +++| ARRAY PRTABLE [1:PRTABENT] S(PRTABLEN); # PRINT TABLE #
00074 M01S00062.comufmt +++| BEGIN
00075 M01S00063.comufmt +++| ITEM PRTLFN C(00,00,10); # REPORT FILE NAME #
00076 M01S00064.comufmt +++| ITEM PRTFETP U(00,42,18) = [PRTABENT(0)]; # ADDRESS OF
00077 M01S00065.comufmt +++| *FET*, PRESET
00078 M01S00066.comufmt +++| TO 0 #
00079 M01S00067.comufmt +++| ITEM PRTLINE U(01,00,18); # CURRENT LINE NUMBER #
00080 M01S00068.comufmt +++| ITEM PRTPAGE U(01,18,18); # CURRENT PAGE NUMBER #
00081 M01S00069.comufmt +++| ITEM PRTLINELIM U(01,42,18); # LINE LIMIT #
00082 M01S00070.comufmt +++| ITEM PRTDATE C(02,00,10); # CURRENT DATE #
00083 M01S00071.comufmt +++| ITEM PRTTIME C(03,00,10); # CURRENT TIME #
| Line S00072 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00084 M02S00072.ns22000 ---| ITEM PRTHEADT C(04,00,37); # OPTIONAL HEADER MESSAGE #
| Line S00073 Modification History |
M01 (Added by) | comufmt |
M02 (Updated by) | ns22000 |
Seq # *Modification Id* Act
----------------------------+
00085 M02S00073.ns22000 ---| ITEM PRTHEADP U(07,42,18); # HEADER PROCEDURE ADDRESS #
00086 M01S00011.ns22000 +++| ITEM PRTHEADT C(04,00,100); # OPTIONAL HEADER MESSAGE #
00087 M01S00012.ns22000 +++| ITEM PRTHEADP U(14,00,18); # HEADER PROCEDURE ADDRESS #
00088 M01S00074.comufmt +++|
00089 M01S00075.comufmt +++| END
00090 M01S00076.comufmt +++|
00091 M01S00077.comufmt +++|
00092 M01S00078.comufmt +++| END # UFMTCOM #
00093 M01S00079.comufmt +++|
00094 M01S00080.comufmt +++| END # COMUFMT #
00095 M01S00081.comufmt +++|
00096 M01S00082.comufmt +++| CONTROL LIST;