Common COMUFMT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.comufmt +++|
00002  M00S00002.comufmt +++|#     COMUFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.          #
00003  M00S00003.comufmt +++|                                               CONTROL NOLIST;
00004  M00S00004.comufmt +++|                                               CONTROL IFEQ LISTCON,1;
00005  M00S00005.comufmt +++|                                               CONTROL LIST;

Line S00006 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00006  M01S00006.ns22000 ---|                                     CONTROL FI;

Line S00001 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00007  M01S00001.ns22000 +++|                                                CONTROL FI;
00008  M00S00007.comufmt +++|      BEGIN  # COMUFMT #
00009  M00S00008.comufmt +++|
00010  M00S00009.comufmt +++|#
00011  M00S00010.comufmt +++|***   COMUFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.

Line S00001 Modification History
`M01` (Added by)	`281l803`

Seq #  *Modification Id* Act 
----------------------------+
00012  M01S00001.281l803 +++|*
00013  M01S00002.281l803 +++|*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00014  M00S00011.comufmt +++|*

Line S00012 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00015  M01S00012.ns22000 ---|*     *COMUFMT* CONTAINS COMMON DECLARATIONS USED ONLY BY
00016  M01S00013.ns22000 ---|*     THE *MSS* REPORT FORMATTER ROUTINES.

Line S00002 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00017  M01S00002.ns22000 +++|*     *COMUFMT* CONTAINS COMMON DECLARATIONS USED BY SYMPL
00018  M01S00003.ns22000 +++|*     REPORT FORMATTER ROUTINES.
00019  M00S00014.comufmt +++|*     DEFINITIONS NEEDED BY CALLING ROUTINES ARE CONTAINED
00020  M00S00015.comufmt +++|*     IN *COMUOUT*.
00021  M00S00016.comufmt +++|#
00022  M00S00017.comufmt +++|
00023  M00S00018.comufmt +++|
00024  M00S00019.comufmt +++|      DEF BLANK      #0,0,0,0#;      # PARAMETERS FOR BLANK LINE #
00025  M00S00020.comufmt +++|      DEF EMPTY      #0#;            # INDICATES EMPTY FIELD #
00026  M00S00021.comufmt +++|      DEF LINELEN    #14#;           # WORDS IN A PRINT LINE #
00027  M00S00022.comufmt +++|      DEF MAXLC      #66#;           # MAXIMUM LINE COUNT PER PAGE #
00028  M00S00023.comufmt +++|      DEF MAXLINE    #O"777777"#;    # EJECT LINE COUNT #
00029  M00S00024.comufmt +++|      DEF PRBUFL     #O"1001"#;      # LENGTH OF *CIO* BUFFER #
00030  M00S00025.comufmt +++|      DEF PRCEJ      #"1"#;          # PAGE EJECT CARRIAGE CONTROL #
00031  M00S00026.comufmt +++|      DEF PRCOLIM    #140#;          # COLUMN LIMIT #
00032  M00S00027.comufmt +++|      DEF PRDBL      #"0"#;          # DOUBLE SPACE CARRIAGE CONTROL #
00033  M00S00028.comufmt +++|      DEF PRDEFLIM   #60#;           # DEFAULT LINE LIMIT #
00034  M00S00029.comufmt +++|      DEF PRTABENT   #3#;            # NUMBER OF PRINT TABLE ENTRIES #

Line S00004 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00035  M01S00004.ns22000 +++|      DEF PRTABLEN   #15#;           # WORDS IN PRINT TABLE #
00036  M00S00030.comufmt +++|      DEF SPACES     #" "#;          # USED TO BLANK FILL ITEMS #
00037  M00S00031.comufmt +++|
00038  M00S00032.comufmt +++|      COMMON UFMTCOM;
00039  M00S00033.comufmt +++|        BEGIN  # UFMTCOM #
00040  M00S00034.comufmt +++|
00041  M00S00035.comufmt +++|        ITEM ORD        U;           # ORDINAL OF PRINT TABLE ENTRY #
00042  M00S00036.comufmt +++|
00043  M00S00037.comufmt +++|        BASED
00044  M00S00038.comufmt +++|        ARRAY RPFET [0:0] S(SFETL);  # REPORT FILE *FET* #
00045  M00S00039.comufmt +++|        ;
00046  M00S00040.comufmt +++|
00047  M00S00041.comufmt +++|        ARRAY LINEBUFF [1:PRTABENT] S(LINELEN);  # PRINT LINE BUFFER #
00048  M00S00042.comufmt +++|          BEGIN
00049  M00S00043.comufmt +++|          ITEM LIN$BUF    C(00,00,140);  # HOLDS 138 CHARACTER LINE #
00050  M00S00044.comufmt +++|          ITEM LIN$CNTRL  C(00,00,01);  # CARRIAGE CONTROL CHARACTER #

Line S00045 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00051  M01S00045.ns22000 ---|        ITEM LIN$HEAD   C(00,06,37);  # OPTIONAL HEADER MESSAGE #
00052  M01S00046.ns22000 ---|          ITEM LIN$DATE   C(03,54,10);  # CURRENT DATE #
00053  M01S00047.ns22000 ---|          ITEM LIN$TIME   C(04,54,10);  # CURRENT TIME #
00054  M01S00048.ns22000 ---|          ITEM LIN$PAGE   C(06,06,04);  # *PAGE* #
00055  M01S00049.ns22000 ---|          ITEM LIN$PAGENM C(06,30,06);  # PAGE NUMBER #

Line S00005 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00050.comufmt +++|          END
00062  M00S00051.comufmt +++|
00063  M00S00052.comufmt +++|        ARRAY MSG [0:0] P(4);        # USED FOR DAYFILE MESSAGES #
00064  M00S00053.comufmt +++|          BEGIN
00065  M00S00054.comufmt +++|          ITEM MSGITEM    C(00,00,38);  # MESSAGE DISPLAYED #
00066  M00S00055.comufmt +++|          ITEM MSGZERO    U(03,48,12) = [0];  # TERMINATES MESSAGE #
00067  M00S00056.comufmt +++|          END
00068  M00S00057.comufmt +++|
00069  M00S00058.comufmt +++|        ARRAY PRBUF [1:PRTABENT] S(PRBUFL);
00070  M00S00059.comufmt +++|        ;                            # *CIO* BUFFER #
00071  M00S00060.comufmt +++|

Line S00061 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00072  M01S00061.ns22000 ---|      ARRAY PRTABLE [1:PRTABENT] S(8);  # PRINT TABLE #

Line S00010 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00073  M01S00010.ns22000 +++|        ARRAY PRTABLE [1:PRTABENT] S(PRTABLEN);  # PRINT TABLE #
00074  M00S00062.comufmt +++|          BEGIN
00075  M00S00063.comufmt +++|          ITEM PRTLFN     C(00,00,10);  # REPORT FILE NAME #
00076  M00S00064.comufmt +++|          ITEM PRTFETP    U(00,42,18) = [PRTABENT(0)];  # ADDRESS OF
00077  M00S00065.comufmt +++|                                                          *FET*, PRESET
00078  M00S00066.comufmt +++|                                                          TO 0 #
00079  M00S00067.comufmt +++|          ITEM PRTLINE    U(01,00,18);  # CURRENT LINE NUMBER #
00080  M00S00068.comufmt +++|          ITEM PRTPAGE    U(01,18,18);  # CURRENT PAGE NUMBER #
00081  M00S00069.comufmt +++|          ITEM PRTLINELIM U(01,42,18);  # LINE LIMIT #
00082  M00S00070.comufmt +++|          ITEM PRTDATE    C(02,00,10);  # CURRENT DATE #
00083  M00S00071.comufmt +++|          ITEM PRTTIME    C(03,00,10);  # CURRENT TIME #

Line S00072 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
00084  M01S00072.ns22000 ---|        ITEM PRTHEADT   C(04,00,37);  # OPTIONAL HEADER MESSAGE #
00085  M01S00073.ns22000 ---|        ITEM PRTHEADP   U(07,42,18);  # HEADER PROCEDURE ADDRESS #

Line S00011 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
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  M00S00074.comufmt +++|
00089  M00S00075.comufmt +++|          END
00090  M00S00076.comufmt +++|
00091  M00S00077.comufmt +++|
00092  M00S00078.comufmt +++|        END  # UFMTCOM #
00093  M00S00079.comufmt +++|
00094  M00S00080.comufmt +++|      END  # COMUFMT #
00095  M00S00081.comufmt +++|
00096  M00S00082.comufmt +++|                                               CONTROL LIST;