Posted by Grant Foraker on July 07, 2011 at 10:00:25:
(SELECTSYSFONT=11) is Lucida Console (1cpi)stored in COSWGLOB.INI.
Program code in this order ...
15900 -PP 01B4 !-------------------- 10/01/03 -------------------------------------------------!!
16000 -PP 01B4 LET SP$ = 'LAY' ! DIRECT DEPOSIT STUB !!
16100 -PP 01BA OPEN (41) SP$ !!
16200 -PP 01BF PRINT (41) (SELECTSYSFONT=11) ! 11CPI !!
16300 -PP 01CB !------------------- 04/28/2011 ------------------------------------------------!!
16400 -PP 01CB LET MESSAGE$ = 'PP-' + LONGYEAR$ + SUB(DATE$,1,4) !!
16500 -PP 01E9 PRINT (41) (SPOOLMESSAGE = MESSAGE$) !!
16600 -PP 01F5 !-------------------------------------------------------------------------------!!
results in E35 on LUN 1
07/07/11 09:49:38 T02/P02 PRINT QERRLOG VSN: 11.06
ERRLOG COPYRIGHT SIGNATURE SYSTEMS 1987 - 2011 611.443
07/07/11 07:10:48 P00 PP ERROR #: 35 NO FILE OPEN ON SPECIFIED LUN
VSN: 611.443 LUN: 1 FILE: . DIR:
KEY: €€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€€
SYS FUNC: 11 UNFORMATTED PRINT
OS FUNC: 3E CLOSE A FILE HANDLE
OS ERR : 74
OS HANDLE : 0011 PATH: PDFFACTORY PRO:PDF:SPL:SPY€
NODE NAME : ROAD
USER ADDR :01B4 01BA 01BF 01CB 01D0 01D3 01DE 01E3 01E9 04C0 04C4 04C8 04CB 0539
switching the code to ...
16000 LET SP$ = 'LAY' ! DIRECT DEPOSIT STUB
16100 OPEN (41) SP$
16110 !------------------- 04/28/2011 ------------------------------------------------
16120 LET MESSAGE$ = 'PP-' + LONGYEAR$ + SUB(DATE$,1,4)
16130 PRINT (41) (SpoolMessage = MESSAGE$)
16140 !-------------------------------------------------------------------------------
16200 PRINT (41) (SelectSysFont=11) ! 11cpi
gives no error
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.