COMUFMT 
COMMON
  
#     COMUFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.          # 
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                                CONTROL FI; 
      BEGIN  # COMUFMT #
  
# 
***   COMUFMT - COMMON DEFINITIONS USED BY REPORT FORMATTER.
* 
*         COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
* 
*     *COMUFMT* CONTAINS COMMON DECLARATIONS USED BY SYMPL
*     REPORT FORMATTER ROUTINES.
*     DEFINITIONS NEEDED BY CALLING ROUTINES ARE CONTAINED
*     IN *COMUOUT*. 
# 
  
  
      DEF BLANK      #0,0,0,0#;      # PARAMETERS FOR BLANK LINE #
      DEF EMPTY      #0#;            # INDICATES EMPTY FIELD #
      DEF LINELEN    #14#;           # WORDS IN A PRINT LINE #
      DEF MAXLC      #66#;           # MAXIMUM LINE COUNT PER PAGE #
      DEF MAXLINE    #O"777777"#;    # EJECT LINE COUNT # 
      DEF PRBUFL     #O"1001"#;      # LENGTH OF *CIO* BUFFER # 
      DEF PRCEJ      #"1"#;          # PAGE EJECT CARRIAGE CONTROL #
      DEF PRCOLIM    #140#;          # COLUMN LIMIT # 
      DEF PRDBL      #"0"#;          # DOUBLE SPACE CARRIAGE CONTROL #
      DEF PRDEFLIM   #60#;           # DEFAULT LINE LIMIT # 
      DEF PRTABENT   #3#;            # NUMBER OF PRINT TABLE ENTRIES #
      DEF PRTABLEN   #15#;           # WORDS IN PRINT TABLE # 
      DEF SPACES     #" "#;          # USED TO BLANK FILL ITEMS # 
  
      COMMON UFMTCOM; 
        BEGIN  # UFMTCOM #
  
        ITEM ORD        U;           # ORDINAL OF PRINT TABLE ENTRY # 
  
        BASED 
        ARRAY RPFET [0:0] S(SFETL);  # REPORT FILE *FET* #
        ; 
  
        ARRAY LINEBUFF [1:PRTABENT] S(LINELEN);  # PRINT LINE BUFFER #
          BEGIN 
          ITEM LIN$BUF    C(00,00,140);  # HOLDS 138 CHARACTER LINE # 
          ITEM LIN$CNTRL  C(00,00,01);  # CARRIAGE CONTROL CHARACTER #
          ITEM LIN$HEAD   C(00,06,100);  # OPTIONAL HEADER MESSAGE #
          ITEM LIN$DATE   C(10,06,10);  # CURRENT DATE #
          ITEM LIN$TIME   C(11,06,10);  # CURRENT TIME #
          ITEM LIN$PAGE   C(12,18,04);  # *PAGE* #
          ITEM LIN$PAGENM C(12,42,06);  # PAGE NUMBER # 
          END 
  
        ARRAY MSG [0:0] P(4);        # USED FOR DAYFILE MESSAGES #
          BEGIN 
          ITEM MSGITEM    C(00,00,38);  # MESSAGE DISPLAYED # 
          ITEM MSGZERO    U(03,48,12) = [0];  # TERMINATES MESSAGE #
          END 
  
        ARRAY PRBUF [1:PRTABENT] S(PRBUFL); 
        ;                            # *CIO* BUFFER # 
  
        ARRAY PRTABLE [1:PRTABENT] S(PRTABLEN);  # PRINT TABLE #
          BEGIN 
          ITEM PRTLFN     C(00,00,10);  # REPORT FILE NAME #
          ITEM PRTFETP    U(00,42,18) = [PRTABENT(0)];  # ADDRESS OF
                                                          *FET*, PRESET 
                                                          TO 0 #
          ITEM PRTLINE    U(01,00,18);  # CURRENT LINE NUMBER # 
          ITEM PRTPAGE    U(01,18,18);  # CURRENT PAGE NUMBER # 
          ITEM PRTLINELIM U(01,42,18);  # LINE LIMIT #
          ITEM PRTDATE    C(02,00,10);  # CURRENT DATE #
          ITEM PRTTIME    C(03,00,10);  # CURRENT TIME #
          ITEM PRTHEADT   C(04,00,100);  # OPTIONAL HEADER MESSAGE #
          ITEM PRTHEADP   U(14,00,18);  # HEADER PROCEDURE ADDRESS #
  
          END 
  
  
        END  # UFMTCOM #
  
      END  # COMUFMT #
  
                                               CONTROL LIST;
