[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference ilbbak::ibi_focus

Title:FOCUS, from INFORMATION BUILDERS
Moderator:ZAYIUS::BROUILLETTE
Created:Thu Feb 19 1987
Last Modified:Mon May 05 1997
Last Successful Update:Fri Jun 06 1997
Number of topics:615
Total number of notes:1779

111.0. "Handling Your Focus Report After Creation" by AKOV12::BIBEAULT (Unlimited Possibilities) Thu Aug 11 1988 10:28

$	SET NOON
$	SET NOVERIFY
$	DISPLAY :== "WRITE SYS$OUTPUT"
$
$ BEGIN:
$	DISPLAY " "
$	DISPLAY "Executing REPORT.XEQ:"
$	DISPLAY " "
$	DISPLAY "REPORT is Now Being Converted from Fortran Carriage Control"
$	DISPLAY "to a normal text file with <FF> characters inserted at the"
$	DISPLAY "$PAGE tokens."
$	DISPLAY " "
$	DISPLAY "Upon conversion, the user can Mail, Edit, Print and/or View"
$	DISPLAY "the Report one page at a time. Select Quit to Return to Focus."
$	DISPLAY " "
$	DIR FOCUS$TMP
$	DISPLAY " "
$
$ CONV_FCC_TO_FF:
$	RUN/NODEBUG TOOLS:CONV_FCC_TO_FF
$
$ CLEANUP:
$	PURGE *.RPT
$	DEASSIGN SYS$OUTPUT
$	DIR FOCUS$RPT
$
$ MODE_DEPENDENT:
$ 	if "''f$mode()'" .eqs. "BATCH" 		then goto BATCH
$
$ PROMPT_USER:
$	DISPLAY " "
$	INQ ANS "E)dit M)ail P)rint V)iew Report or Q)uit to Return to FOCUS"
$
$ EVALUATE:
$	IF ANS .EQS. "Q" THEN $GOTO  NORMAL_EXIT
$	IF ANS .EQS. "E" THEN $GOTO  EDIT_REPORT
$	IF ANS .EQS. "P" THEN $GOTO  PRINT_REPORT
$	IF ANS .EQS. "M" THEN $GOTO  MAIL_REPORT
$	IF ANS .EQS. "V" THEN $GOTO  VIEW_REPORT
$	DISPLAY "Expecting one of P, V, E or Q. Please Try Again."
$	GOTO PROMPT_USER
$
$ EDIT_REPORT:
$	ASSIGN/USER TT: SYS$INPUT
$	EDIT FOCUS$RPT
$	GOTO PROMPT_USER
$
$ MAIL_REPORT:
$	ASSIGN/USER TT: SYS$INPUT
$	MAIL/SELF/Subject="Focus Report" FOCUS$RPT
$	GOTO PROMPT_USER
$
$ PRINT_REPORT:
$	PRINT/AFTER="+00:05" FOCUS$RPT
$	GOTO PROMPT_USER
$ 
$ VIEW_REPORT:
$	ASSIGN/USER TT: SYS$INPUT
$	TYPE/PAGE FOCUS$RPT
$	GOTO PROMPT_USER
$
$ BATCH:
$	PRINT/AFTER="+00:05" FOCUS$RPT
$
$ NORMAL_EXIT:
$	EXIT
T.RTitleUserPersonal
Name
DateLines
111.1Where to Get CONV_FCC_TO_FFAKOV12::BIBEAULTUnlimited PossibilitiesThu Aug 11 1988 10:3612
    
    See note 109:109.1 for explanation of and source code for program
    to convert Fortran Carriage Control Report to one using standard
    formfeed characters.
    
    The COBOL program provided in note 109.1 will generate the 
    CONV_FCC_TO_FF executable run in the above procedure.
    
    Any should there be any questions, problems or concerns, please
    feel free to contact Bob Bibeault @ dtn 244-6136.
    
     
111.2Yes, but...OFFPLS::RYANThu Aug 11 1988 18:2112
    No offense, but why not use v5.2 -FORMAT DOC- which eliminates the
    need to do this outside of FOCUS?  This is documented in the 5.2.
    This is a lot easier since a program can look like this:
    
    FILEDEF WHATEVER DISK REPORT.DOC
    TABLE FILE X
      PRINT X Y Z
      BY A PAGE-BREAK
    ON TABLE HOLD AS WHATEVER FORMAT DOC
    END
       
    -RPR-
111.3Version 1.31A has it toSUBURB::LINNELLAFri Aug 12 1988 05:118
    The FORMAT DOC command (-.1) is actual present in version 1.31A but is
    not documented. 
    
    I use it all the time.
    
    Just a thought.
    
    Adam
111.4Where Documented, Live Examples?AKOV12::BIBEAULTUnlimited PossibilitiesFri Aug 12 1988 13:3917
    
    Where in the Focus manuals is FORMAT DOC documented? I have a complete
    set of Focus 5.2 user manuals and course materials and the index
    shows only the following formats as available: ALPHA, BINARY, CALC,
    DIF, LOTUS, WP. DOC is simply not listed under the topic 'Formats
    of Extract Files'. It also is not found within the text as far as
    I can tell. 
    
    Where in the Focus manuals does it tell you how to generate a report
    with the FORMFEED character to drive pagination? I can't find it
    nor can anyone I've talked to at IBI tell me.
    
    If you have found a way to accomplish generating FORMFEED page-breaks
    WITHOUT leaving Focus, please let us all know how to do it and where
    we can get copies of your .fex, .mas and data files to test it out...
    
    I am most anxious to be convinced... 
111.5OK - Release 5.2 New Features ManualSUBURB::LINNELLAMon Aug 15 1988 07:1460
    No problem.
    
    This is documented in a publication called "Release 5.2 New Features",
    which I obtained from IB in the UK. I quote from it now.
    
    
    "
    5.3
    The HOLD File
    
    	HOLD file format will now default to BINARY in Release 5.2.
    	SET HOLDDEFAULT= BINARY or ALPHA controls the output format.
    
    Also, FOCUS provides the abilityto retrieve and process data, then hold
    the results for further processing. FOCUS Release 5.2 enhances this
    feature to produce a data file that contains WPS formfeed characters. A
    new FORMAT option of DOC is provided for this purpose.
    
    The syntax is:
    
    	ON TABLE HOLD [AS filename] FORMAT DOC
    
    or
    
    HOLD [AS filename] FORMAT DOC
    
    where:
    
    DOC
    
    Caputures the entire report output including headings. footings,
    subtotals, ect., and adds WPS formfeeds characters. This file can
    then be used directly by a word processing software.
    
    Unlike WP format which produces FORTRAN carriage controls, DOC format
    produces a record attribute of carrage return carriage control.
    Therefore you could use WP and DOC format if you simply wanted to
    print the HOLD file. You should, however, use DOC format if you
    plan to use the HOLD file additional editing.
    
    The resulting DOC FORMAT HOLD file has a file has a file extension
    of DOC.
    
    "
    
    This was taken from page 5-3/4.
    
    
    The DOC command gives me a file with formfeed charcters in it ie.
    <CTRL>L for page breaks.
    
    It works in version 5.2 and also 1.31A the A is important as 1.3
    didn't have this feature.
    
    Try it out with ANY file and use SEDT ot EDT to examin the output.
    
    Cheers
    
    Adam