Common COMUFMT

2 Modifications

Source

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;