Conference bulova::decw_jan-89_to_nov-90

I was able to use the CDA Viewer to view a simple text file.
Try it stand-alone with:

	$ VIEW FOO.BAR/INTERFACE=DECWINDOWS/FORMAT=TEXT

The CDA viewer is also callable, so you should be able to
incorporate it easily into your application.

$! I use the following (VUE$VIEW.COM) with FileView. It presumes you have
$! access to VAXT.EXE, which is a version of the Unix utility T compiled for
$! VMS. I'm not sure where I got it, I suspect it may be in the toolshed.
$!
$ 	SET TERM/PAGE=40
$ on warning then goto type_error
$ type = ""
$!
$ vue$get_command vue$c_type_verb
$ vue$read vue$command
$ if "''vue$command'" .eqs. "" then goto task_exit
$!
$ vue$get_selection_count                           ! ask vue how many
$ vue$read count                                    ! read it
$ if count .eq. 0 then goto task_exit
$ vue$popup_focus
$ vue$get_next_selection                            ! ask for next select
$ vue$read selection                                ! read it
$!
$type_loop:
$!
$ title_file = "''f$parse(selection,,,"NAME")'''f$parse(selection,,,"TYPE")'"
$ vue$set_task_label "Viewing ''title_file'"         ! work in progress box
$!
$ vue$begin_bold
$ write sys$output "<<<<< ",selection," >>>>>"
$ vue$end_bold
$!
$! 'vue$command 'selection                           !  Type!
$ 	tt_num_lines  = F$GETDVI("TT","TT_PAGE")
$	W = ""
$ 	T := $VAXT -'tt_num_lines'
$	if f$parse(selection,,,"TYPE") .eqs. ".B32" then W = "+132"
$	if f$parse(selection,,,"TYPE") .eqs. ".LIS" then W = "+132"
$	SET NOON
$	if W .nes. "" then set terminal /width=132
$ 	DEFINE/USER SYS$INPUT SYS$COMMAND
$ 	T 'selection' 'w'
$ vue$get_next_selection                            ! ask vue for next
$ vue$read selection                                ! read it
$ if f$length(selection) .ne. 0 then goto type_loop
$!
$task_exit:
$!
$ exit
$!
$type_error:
$!
$ vue$set_error_status
$ exit

	If you want an existing application to do this, you can just use
	Notepad. If you want to incorporate this into an application, the
	simplest thing to do is to use the simple text widget. Also,
	Steve Klein has a widget which is better optimized for this
	sort of thing - see ELKTRA::DW_EXAMPLES.

	Mike

    I have a little bit of a problem, 
    
    	I have a customer, and for whatever reason, they are trying to
    	use the "VIEW/INTER=CHAR" to view text files.
    
    	(Seems like something you ought to be able to do?)
    
    	I have checked here and in the CDA conference, have tried using
    	the "VIEW/INTER=.../OPTIONS=options.CDA$OPTIONS",
    	
    	Where options.CDA$OPTIONS contains
    
    	SET SOFT_DIRECTIVES ON
    
    	Still am getting wrap on the text all over the place.  Is there 
    	something that I am doing that is obviously wrong?  Be kind, please
    
    		As usual, thanks for any assists.
    
    			- Lou

    	SET SOFT_DIRECTIVES ON
        ^^^
    this has to be the name of the converter the option applies to. Try
	TEXT SOFT_DIRECTIVES ON
    instead.

    Okay, okay, okay...
    
    	I'll admit it, I can't type either.
    
    	Commands I have tried
    
    	VIEW LOGIN.COM/FORMAT=TEXT/OPTION=VIEW.CDA$OPTIONS/INTER=CHAR
    
    	VIEW.CDA$OPTIONS contains
    
    	TEXT SOFT_DIRECTIVES ON
    
    	No go, everything wrapped when it appearred on the screen.
    
    	Figured what th, and did a 
    
    	CONVERT/DOCUMENT LOGIN.COM/FORMAT=TEXT/OPTION=VIEW.CDA$OPTIONS -
    			 SAMPLE.DDIF/FORMAT=DDIF
    
    	Then did a 
    
    	VIEW SAMPLE.DDIF/FORMAT=DDIF
    
    	Same effect.
    
    		Lou "I got a shiney new dime for anyone with an
    			easy solution" Northern
    
    

    Add the option:
	TEXT WIDTH 0

>    		Lou "I got a shiney new dime for anyone with an
>    			easy solution" Northern

    Cheapskate :-)

    Paul.