Print ..., excpsub= using Comet32.459

Posted by Robert G Laurin on May 14, 2012 at 13:49:55:

I tried to use a program I wrote a while back and found that the PRINT (LUN) .... EXCPSUB= does Not work with Comet32. I believe it used to work because this program was tested a while back.

The program executes until it encounters an EXCP on the PRINT..EXCPSUB= and then just goes back to Ready:

Took a while to trace it down. Here's a sample program:

! //IB// Src(PRINT32.IBS,TMP) Obj(PRINT32,TMP) Opt(L)
!
CLEAR
!
	PRINT (0) (CS);(ET)
!
! First try with EXCP=
!
	Print (1) 'Output to LUN 1 with EXCP=',Excp=WithEXCP
tryExcpSub:
!
! Try with EXCPSUB=
!
	PRINT (1) 'Output to LUN 1 with EXCPSUB=',ExcpSub=WithExcpSub
	Goto Getout
WithEXCP:
	Print 'Failed to Print, Excp=';EXCP
	Print 'Press Enter to Continue:'
	Wait
	Goto TryExcpSub
	
WithExcpSub:
	Print (0) 'Failed To Print, ExcpSub:';EXCP
	Print 'Press Enter to Continue:'
	Wait
	Return
Getout:
	Print (0) 'Done!'
	wait
	Run 'QMONITOR'

By the way, just a little comment about using the TMP folder to Compile... the Comet Utility Console Version 1.6 does not like it.

'\\myServer\Comet.Path'
CMD.EXE was started with the above path as the current directory.
UNC paths are not supported.  Defaulting to Windows directory.
Comet Utility Console - Version 1.06
Processing command file: C:\DOCUME~1\myProfile\LOCALS~1\Temp\CATEMP\PRINT32.IBS
Error: Unable to open listing file (2):C:\DOCUME~1\myProfile\LOCALS~1\Temp\CATEMP\03e2b2c7.Tmp

Tested on Comet32.2011 build 459 with REL 12.05 & UTL 12.03

Follow Ups:

• Re: Print ..., excpsub= using Comet32.459 Robert G Laurin 08:28:24 05/17/12 (3)
  • Re: Print ..., excpsub= using Comet32.459 Jim Guerber 10:33:06 05/17/12 (2)
    • Re: Print ..., excpsub= using Comet32.459 Robert G Laurin 11:13:43 05/17/12 (1)
      • Re: Print ..., excpsub= using Comet32.459 Grant Foraker 11:42:21 05/17/12 (0)

Post a Followup

Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.