Posted by Grant Foraker on May 28, 2013 at 11:12:28:
In Reply to: decoding Errors for (LAUNCH=) mnemonic posted by Bob A on May 28, 2013 at 10:20:10:
Sounds like a "File not found". LAUNCH is a bit different from (inconsistent with) CopyFile.
This is my general purpose "Launch" routine. Don't remember where I got 32 as being a "good" launch :)
LaunchTheDocument:
CLOSE (1) ! RELEASE PRINTER
INPUT (#) PDFDOC$ ! GET pdfFactory name
LET PDFDOC$ = STRIP(PDFDOC$)
LET PDFL = LEN(PDFDOC$)
IF SUB(PDFDOC$,PDFL,1) NE 'f' LET PDFDOC$ = SUB(PDFDOC$,1,PDFL-1) !!!!! COMET32 BUG WORKAROUND
LET PDFP = RPOS('\',PDFDOC$)
LET PDFFILE$ = SUB(PDFDOC$,PDFP+1,PDFL-PDFP)
LET PDFFILE$ = STRIP(PDFFILE$)
LET Stat$ = Sub(Dstat(ITERM$, EXCP = LTD20),21,1)
If Sub(Binary(Stat$),8,1) NE "1" Go LTD20 ! not Comet Anywhere?
LTD10:
LET CAWDOC$ = '$(CATEMP)\' + PDFFILE$
LET FLAGS = 0 + 512 + 1024 + 2048
Print (CopyFile = PDFDOC$, CAWDOC$, FLAGS)
GOSUB GetResult
IF FuncError NE 1
LET MBMSG$ = 'Copy Error:' + STR(FuncError) + '/' + STR(FileError)
LET MBMSG$ = MBMSG$ + '@0D0A@From: ' + STRIP(PDFDOC$)
LET MBMSG$ = MBMSG$ + '@0D0A@To: ' + STRIP(CAWDOC$)
MSGBOX(MBMSG$)
GOTO LTD90
ENDIF
LET CAWDOC$ = '"' + STRIP(CAWDOC$) + '"'
PRINT (LAUNCH = CAWDOC$)
GOSUB GetResult
IF FuncError LE 32
LET MBMSG$ = 'Launch Error (Remote):' + STR(FuncError) + '/' + STR(FileError)
LET MBMSG$ = MBMSG$ + '@0D0A@To: ' + STRIP(CAWDOC$)
MSGBOX(MBMSG$)
ENDIF
GOTO LTD90
LTD20:
LET PDFDOC$ = '"' + STRIP(PDFDOC$) + '"'
PRINT (LAUNCH = PDFDOC$)
GOSUB GetResult
IF FuncError LE 32
LET MBMSG$ = 'Launch Error (Local):' + STR(FuncError) + '/' + STR(FileError)
LET MBMSG$ = MBMSG$ + '@0D0A@ ' + STRIP(PDFDOC$)
MSGBOX(MBMSG$)
ENDIF
GOTO LTD90
LTD90:
RETURN
Each file can be a maximum of 1MB in length Uploaded files will be purged from the server on a regular basis.