Conference iosg::all-in-1_v30

1591.0. "FIX: PROB W/ COPY FUNCTION - FILE()" by OASS::BURNAMAN_B (And now, live, from Atlanta . . . ) Fri Oct 09 1992 19:09

		"PROBLEM WITH COPY FUNCTION - FILE()" Correction for
				3.0 ALL-IN-1

In order to correct the Problem with Copy Function - FILE messages in
v 3.0 ALL-IN-1, the following modifications need to be made.  ONLY the
affected areas of the WPPPORT.SCP file are shown to reduce confusion.
    
Note also that the attached PORT_PRINT.COM file is required.  It should
be in the OA$SITE_LIB_SHARE directory and needs to have W:RE protection.

The problem is caused by the COPY_TO_PORT function in ALL-IN-1, which cannot
be modified.  It appears that the function is not correctly setting the
terminal's line width to accomodate the longer lines being created by the
WPS-PLUS formatter.

This problem will ONLY be experienced on PORTED printers.  The same document
on a queued printer will not generate the error because the COPY_TO_PORT
function is not involved.

This problem was reported to ALL-IN-1 engineering in April, 1992 (along
with the following workaround and a .DX file to duplicate the problem) and
was assigned a number of ICA-39798.

I hope this helps.

Bruce Burnaman
CSC/Atlanta


! WPPPORT.SCP
!
! (portions of script omitted)
!
.label PRINT_SINGLE

    .if #COUNT le 0 then .goto END_SINGLE
!
! comment out the following three lines and add the command oa$lib line
! in order to fix "Problem with Copy function" messages when printing
! to port
!
!    .if #PRINT_NOEJECT_FF:1 eqs "1" -
!	then copy_to_port/nopage_eject #PRINT_OUTFILE -
!	else copy_to_port #PRINT_OUTFILE

	command oa$lib:port_print.com

    .if OA$STATUS == 0 then .goto ERROR_EXIT_SBT
    decrement( #COUNT )
    .goto PRINT_SINGLE

! (portions of script omitted)
!
.label NEXT_FILE

!
! comment out the next four lines and then add the three lines that
! follow to correct "Problem with copy function" messages when printing
! to port.
!
!    get #PRINT_TEMP = FN$SUBSTR( #PRINT_NOEJECT_FF, #FILE, 1 )
!    .if #PRINT_TEMP eqs "1" -
!     then get OA$FUNCTION = "copy_to_port/nopage_eject #PRINT_OUTFILE_" #FILE -
!     else get OA$FUNCTION = "copy_to_port #PRINT_OUTFILE_" #FILE

        get #print_tempfile = "#PRINT_OUTFILE_" #file
        get oa$function = "get #print_outfile = " #print_tempfile
        command oa$lib:port_print.com
 
    .if OA$STATUS == 0 then .goto ERROR_EXIT_SBT
    increment( #FILE )
    .if #FILE le #PRINT_OUT_COUNT then .goto  NEXT_FILE
!
! (rest of script omitted)
!

$! PORT_PRINT.COM
$!
$ Escape[0,8] = %O33                    ! Define the ESCAPE character
$!      /       /
$!  zero     capital O as in Octal
$!
$ WRITE OAMAILBOX "OA GET #PRINT_OUTFILE"
$@DCLMAILBOX:                           ! Get the filename from WPS-PLUS
$ file_name = ''result'                 ! Store it in a symbol
$ write sys$output "''Escape'[5i"       ! Turn on the printer port
$ SET TERM /NOBROAD /FORM /HOST         ! Set term line characteristics
$ TYPE 'file_name                       ! "Print" the document
$! write sys$output "<FF>"              ! OPTIONAL formfeed at end (commented)
$ WAIT 00:00:04.0                       ! Fix ERR MOD DEV messages on LATs
$ SET TERM /BROAD/NOFORM                ! reset the terminal line
$ write sys$output "''Escape'[4i"       ! Turn off the printer port
$ write oamailbox "OA CLEAR FORM"	! Display the WPS-PLUS menu
$@dclmailbox				! . . . and we're outta here . . .

    	Any status on the Copy_to_port function . Using the workaround
    	generates extra process that cause a performance issue  . If it was
    	reported to ENG in April of 1992 we should have a fix in april 1993
    
    	Any ideas as to where the fix can be found or who can be contacted
    	to get the fix .
    
    	thank you
    	Frank BErnal

The required code changes to COPY_TO_PORT have been made and the problem 
will be fixed in a PFR.

There are no currently available patches for this problem but I understand
that as a result of a recent request a patch for ALL-IN-1 V2.4 may be
developed. 

If you are running ALL-IN-1 V3.0 the workaround shown in 1591.0 could be 
modified so that the DCL Command Procedure is only used when necessary.

The COPY function problems only occur when the listing file has records 
longer than 512 bytes.  Using the FILE$ dataset you can determine the 
longest record length of the file.  For example the symbol

	file$.longest_record[#PRINT_OUTFILE] 

will return the longest record length and you only need to call the command 
procedure if this is greater than 512.



Richard

    PORT printer destinations have problems in V3.0 due to restrictions on
    the COPY_TO_PORT function. A fix for this is given in 1591.0, but it
    does not work consistently from PC's with Reflection4 VT220 emulator.
    Is there another way to avoid the :
    
    	Problem with copy function - file ""
    
    messages on wide documents with bold/underline?
    
    The printers are mostly LA75's and HP Laserjet II's
    
    Colin McLellan
    Digital Site Rep., Monsanto, Pensacola

    Colin,
    
    I see no need for a new note when a reply will do fine.
    so i've moved this from 2910.
    regards,
    
    Andrew.D.Wicks