*DECK PAGESIZ 
USETEXT TENVIRN 
USETEXT TOPTION 
USETEXT TREPORT 
USETEXT TXSTD 
      PROC PAGESIZ; 
  
#----------------------------------------------------------------------#
#                                                                      #
#  THE FOLLOWING PROCS ARE XDEF"D WITHIN THIS DECK:                    #
#                                                                      #
#     SETHRVT                      SET *HORIZONTAL/VERTICAL*           #
#     STIMAG                       STORE NUMBER OF IMAGES              #
#     STOINT                       STORE AN INTEGER                    #
#     STPSCOL                      STORE THE NUMBER OF CAOLUMNS        #
#     STPSLN                       STORE THE NUMBER OF LINES           #
#     STPSQ                                                            #
#     STSECTN                      STORE THE NUMBER OF SECTIONS        #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
  
       DEF DFTRPWD #O"40000000000001000000"#;  #DEFAULT VALUE FOR 
                                                REPORTLIST WORD 1,
                                                BEYOND IS ON, 
                                                LINE NB IS 1# 
         DEF DFTRPWD2 #O"04010000000000000000"#;
  
      ITEM CHOLD C(10);            # TEMP FOR TOKEN IN CHAR FORMAT     #
  
  
      XREF PROC DIAG;              # ISSUE DIAGNOSTIC MESSAGE TO USER  #
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC SETHRVT;
   PROC SETHRVT;                                                        000370
  BEGIN                                                                 000375
      IF C<0,5> ICW[0] EQ "HORIZ" 
        THEN PSHORVER = 0;                                              000410
      IF C<0,4> ICW[0] EQ "VERT"
        THEN PSHORVER = 1;
      STDNO;                                                             PAGESYN
   END                                                                  000450
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC STIMAG; 
      PROC STIMAG;
      BEGIN 
      IF XINT GR MAXIMAGE          # IF IMAGE COUNT TOO LARGE          #
        OR XINT LS 1               # OR IMAGE COUNT TOO SMALL          #
      THEN
        BEGIN 
        DIAG(128);                                                       PAGESYN
        STDYES;                                                          PAGESYN
        END                                                              PAGESYN
  
      IF FULLSYNTX                 # IF PREPARING REPORT               #
        AND XINT * PSCOLUMN GR MAXCOL  # AND MAX. REPORT WIDTH EXCEEDED#
      THEN
        BEGIN 
        DIAG(128);                 # DIAGNOSE NO. OF IMAGES TOO LARGE  #
        STDNO;                     # BAD RETURN                        #
        END 
      PSIMAGE = XINT;                                                   000160
      STDYES;                                                            PAGESYN
      END  #STIMAG# 
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC STOINT; 
   PROC STOINT;                                                         000250
  BEGIN                                                                 000255
      XINT = ICWI[5]; 
      CHOLD = ICW[0];              # SAVE NUMBER FOR POSSIBLE DIAG     #
      STDNO;                                                             PAGESYN
   END                                                                  000300
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC STPSCOL;
      PROC STPSCOL; 
      BEGIN 
      IF XINT GR MAXCOL            # IF COLUMN NUMBER TOO LARGE        #
        OR XINT LS 1               # OR COLUMN NUMBER TOO SMALL        #
      THEN                                                               PAGESYN
        BEGIN                                                            PAGESYN
        DIAG(107,CHOLD,MAXCOL);    # DIAG COLUMN NO. OUTSIDE LIMITS    #
        STDNO;                                                           PAGESYN
        END                                                              PAGESYN
                                                                         PAGESYN
      IF FULLSYNTX
      THEN
      BEGIN 
      PSCOLUMN = XINT;
      SECTWID = PSCOLUMN / PSSECTION; 
      END 
      STDYES;                                                            PAGESYN
      END  #STPSCOL#
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC STPSLN; 
      PROC STPSLN;
      BEGIN 
      IF XINT GR MAXLINE           # IF LINE NUMBER TOO LARGE          #
        OR XINT LS 1               # OR LINE NUMBER TOO SMALL          #
      THEN
        BEGIN 
        DIAG(106,CHOLD,MAXLINE);   # DIAG LINE NO. OUTSIDE LIMITS      #
        STDNO;                     # BAD RETURN                        #
        END 
  
      PSLINE = XINT;
      STDYES;                                                            PAGESYN
      END  #STPSLN# 
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC STPSQ;
      PROC STPSQ; 
 BEGIN
      PRINTSQ = 77; 
      STDYES; 
 END
  
  
  
  
#----------------------------------------------------------------------#
  
  
  
  
      XDEF PROC STSECTN;
      PROC STSECTN; 
      BEGIN 
      IF XINT GR MAXSECTS          # IF SECTION COUNT TOO LARGE        #
        OR XINT LS 1               # OR SECTION COUNT TOO SMALL        #
      THEN                                                               PAGESYN
        BEGIN                                                            PAGESYN
        DIAG(129);                 # DIAG SECTION COUNT OUTSIDE LIMITS #
        STDNO;                                                           PAGESYN
        END                                                              PAGESYN
                                                                         PAGESYN
      IF FULLSYNTX
      THEN
      BEGIN 
      PSSECTION = XINT; 
      SECTWID = PSCOLUMN/PSSECTION; 
      END 
      STDYES;                                                            PAGESYN
      END  #STSECTN#
  
  
  
  
#----------------------------------------------------------------------#
  
  
      END 
      TERM
