tldm-universe/Ardent/UV/APP.PROGS/DISP.SP.OPTS

subroutine DISP.SP.OPTS( RESULT, REC )
*******************************************************************************
*
*       Display "sp.config" options for printers in &DEVICE&
*
*	Module	%M%	Version	%I% 	Date	%H%
*
*	(c) Copyright 1998 Ardent Software Inc. - All Rights Reserved
*	This is unpublished proprietary source code of Ardent Software Inc.
*	The copyright notice above does not evidence any actual or intended
*	publication of such source code.
*
*******************************************************************************
*
*	Maintenence log - insert most recent change descriptions at top
*
*	Date.... GTAR# WHO Description.........................................
*	10/14/98 23801 SAP Change copyrights. 
*	07/25/88   -    -  Maintenence log purged at 5.2.1, see release 5.1.10.
*
*******************************************************************************
*
*

RESULT = ""

if REC< 6 > then
   RESULT = "Driver: " : REC< 6 > : "; "
end

if REC< 7 > then
   RESULT := "Form: " : REC< 7 > : "; "
end

begin case
   case REC< 8 > = 1
      RESULT := "No flow control; "
   case REC< 8 > = 2
      RESULT := "DTR flow control; "
   case REC< 8 > = 3
      RESULT := "XON/XOFF flow control, any character restarts; "
   case REC< 8 > = 4
      RESULT := "XON/XOFF flow control, XON only restarts; "
   case 1
      null
end case

if REC< 9 > = 1 then
   RESULT := "Printing enabled; "
end else
   if REC< 9 > = 2 then
      RESULT := "Printing disabled; "
   end
end

if REC< 10 > = 1 then
   RESULT := "Queuing enabled; "
end else
   if REC< 10 > = 2 then
      RESULT := "Queuing disabled; "
   end
end

begin case
   case REC< 11 > = 1
      RESULT := "75 baud; "
   case REC< 11 > = 2
      RESULT := "110 baud; "
   case REC< 11 > = 3
      RESULT := "134.5 baud; "
   case REC< 11 > = 4
      RESULT := "150 baud; "
   case REC< 11 > = 5
      RESULT := "300 baud; "
   case REC< 11 > = 6
      RESULT := "600 baud; "
   case REC< 11 > = 7
      RESULT := "1200 baud; "
   case REC< 11 > = 8
      RESULT := "1800 baud; "
   case REC< 11 > = 9
      RESULT := "2400 baud; "
   case REC< 11 > = 10
      RESULT := "4800 baud; "
   case REC< 11 > = 11
      RESULT := "9600 baud; "
   case REC< 11 > = 12
      RESULT := "19,200 baud; "
   case 1
      null
end case

begin case
   case REC< 12 > = 1
      RESULT := "No parity; "
   case REC< 12 > = 2
      RESULT := "Even parity; "
   case REC< 12 > = 3
      RESULT := "Odd parity; "
   case 1
      null
end case

begin case
   case REC< 13 > = 1
      RESULT := "No CR/LF conversion; "
   case REC< 13 > = 2
      RESULT := "Convert LF to CR/LF; "
   case REC< 13 > = 3
      RESULT := "Convert CR to LF; "
   case REC< 13 > = 4
      RESULT := "CR suppressed at top of page; "
   case 1
      null
end case

begin case
   case REC< 14 > = 1
      RESULT := "Tab expansion on; "
   case REC< 14 > = 2
      RESULT := "Tab expansion off; "
   case 1
      null
end case

begin case
   case REC< 15 > = 1
      RESULT := "No formfeeds; "
   case REC< 15 > = 2
      RESULT := "Formfeeds, no delay; "
   case REC< 15 > = 1
      RESULT := "Formfeeds, 2 second delay; "
   case 1
      null
end case

begin case
   case REC< 16 > = 1
      RESULT := "No linefeed delay; "
   case REC< 16 > = 2
      RESULT := ".08 second linefeed delay; "
   case REC< 16 > = 3
      RESULT := ".10 second linefeed delay; "
   case REC< 16 > = 4
      RESULT := ".16 second linefeed delay; "
   case REC< 16 > = 5
      RESULT := ".18 second linefeed delay; "
   case REC< 16 > = 6
      RESULT := ".26 second linefeed delay; "
   case REC< 16 > = 7
      RESULT := "Linefeed delay: emulate teletype 37; "
   case REC< 16 > = 8
      RESULT := "Column + .08 second linefeed delay; "
   case REC< 16 > = 9
      RESULT := "Column + .16 second linefeed delay; "
   case 1
      null
end case

if REC< 17 > then
   RESULT := REC< 17 > : "-bit data word; "
end

if REC< 18 > then
   sv = dcount( REC< 18 >, @VM )
   for i = 1 to sv
      RESULT := REC< 18, i > : "; "
   next i
end

res.length = len( RESULT )
if res.length then
   RESULT = RESULT[ 1, res.length - 2 ]
end

return
end