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

Conference iosg::all-in-1_v30

Title:	OLD ALL-IN-1 (tm) Support Conference
Notice:	Closed - See Note 4331.l to move to IOSG::ALL-IN-1
Moderator:	IOSG::PYE

Created:	Thu Jan 30 1992
Last Modified:	Tue Jan 23 1996
Last Successful Update:	Fri Jun 06 1997
Number of topics:	4343
Total number of notes:	18308

962.0. "Print WPL from DCL ??" by CARECL::DEKKERS (Don't spell this: IMEC RU in front of...) Tue Jun 30 1992 14:09

    Searching through the several entries, i couldn't find anything
    simulair to my question. . .
    
    I'm looking for a way to have WPL formated files printed directly
    from DCL level without "help" of ALL-IN-1.
    
    Why. . ?  We have several documents created in ALL-IN-1's WP
    and send them to VMS (option DT SV), these files should be 
    distributed but the receiver can't do anything with such a
    file because it's a WPL formatted file.
    
    thanks in advance,
    Eric

T.R	Title	User	Personal Name	Date	Lines
962.1	Can't; Convert at DT RV time	IOSG::PYE	Graham - ALL-IN-1 Sorcerer's Apprentice	`Tue Jun 30 1992 14:14`	9
	You can't get them printed outside of ALL-IN-1 (or WPS-PLUS/VMS) since you need some code that understands the format. It would be better to translate them into ASCII (of course you would lose underline, bold etc.) when you copy them to VMS. Send them to a "filename.TXT" with DT RV and they'll get converted. Graham
962.2	Here's an example, BUT you need ALL-IN-1	VNABRW::EHRLICH_K	Karl 'Charly' Ehrlich	`Tue Jun 30 1992 14:40`	59
	Hi, I've written a little DCL procedure for your problem, but as mentioned in .1 you need ALL-IN-1 ! Have fun Charly_from_Vienna $! Procedure: A1_FORMATTER_PRINT.COM $! by Author: Karl Ehrlich $! written on: 04-Jun-1992 $! modified on: 04-Jun-1992 $! Purpose: Print a Document directly to OA$FORMATTER $! $! $ a = f$verify(0) $ set noon $ if p1 .eqs. "" then read /prompt="Enter Destination-Queue " SYS$COMMAND P1 $ if p1 .eqs. "" then exit $ if p1 .eqs. "help" then goto help $ if p2 .eqs. "" then read /prompt="Enter Formatting PRA " SYS$COMMAND P2 $ if p2 .eqs. "" then exit $ if p3 .eqs. "" then read /prompt="Enter Filename to print " SYS$COMMAND P3 $ if p3 .eqs. "" then exit $! $ if f$search("''p3'") .eqs. "" then goto fnf $! $ print /queue=oa$formatter - /para=("OA$PARAMS=100,''p1',''p2',1","OA$FMTCTL=2") 'p3 $ exit $help: $ type sys$input ! ! OA$PARAMS=Flags,Queue[:],Device,Copies[,Form][,Tables] ! ! OA$FMTCTL=Format Control String ! where: ! Flags = each byte is used as follows (1 = set) ! Byte 0 - /NOTIFY flag ! Byte 1 - $REMOVE_BLANKS flag ! Byte 2 - /FORM specified flag (old method) ! Queue = Print queue to submit formatted output files to ! Device = Device Type, for WPS-PLUS formatting ! Copies = Number of print copies ! Form = Name of Print form - optional (new method) ! Tables = Directory of user WPL$PRT files (WPS-PLUS V4.0) ! ! Format control string - contains a byte for each file specifying ! the type of formatting: ! 0 = No formatting ! 1 = ASCII formatting ! 2 = WPS-PLUS formatting ! Example: ! /PARAMETER="OA$PARAMS=100,SYS$PRINT,LP11,1,LANDSCAPE","OA$FMTCTL=12" $exit $fnf: $ write sys$output "%FORMAT-F-FILNOTFND, File ''p3' not found " $ exit
962.3	Print to FILE	IOSG::NEWLAND	Richard Newland, IOSG, REO1-D/4A	`Tue Jun 30 1992 14:46`	12
	Another way is to do a Print to FILE. The WPS-PLUS document will be formatted and the resulting listing file will then be copied to a VMS file. The Format style field on the Print Document form will determine the type of listing file produced, e.g. LP11, LN03, etc. If you mail the file you should select a style which all the recipients are able to print. A style of LP11 will retain underlining and bolding. A style of LN03 will retain other attributes if they have been used in the original WPS-PLUS document. Richard
962.4	second (best) solution	CARECL::DEKKERS	Don't spell this: IMEC RU in front of...	`Wed Jul 01 1992 12:48`	6
	Thank you all. . . The best solution is to adjust the Com file (.2) making it automatic through F$SEARCH to convert (over night) the complete directory. . . /eric