*COMDECK  COMDTPAG - LISTING PAGE FOR PRINTING TWO COLUMNS. 
          BASED ARRAY TPAG [1:2] S (7) ;          # CURRENT PAGE - FOR #
               ITEM PAGELINE C (0,0,70) ;         # MAKING TWO COLUMNS #
          ITEM TPAGL ;
