CASE lnresult <= 32 * Some other errorbecause the value less than or equal to 32 represents an error
DECLARE INTEGER FindExecutable IN Shell32; >> STRING lpFile, STRING lpDirectory, STRING @lpResult >> >>lcfile = ADDBS(SYS(2023)) + SYS(2015) + ".PDF" >>STRTOFILE("TEMP FILE", lcfile) >>lcbuffer = SPACE(200) >>lnresult = FindExecutable(lcfile, "", @lcbuffer) >>ERASE (lcfile ) >>lcExe = "" >>DO CASE >>CASE lnresult = 31 >> * No program is associated with PDF files >>CASE lnresult < 32 >> * Some other error >>OTHERWISE >> * Extract executable associated with PDF file >> lcExe = LEFT(lcBuffer, RAT(CHR(0), lcbuffer )-1) >>ENDCASE >>? lcExe>>