My client has reported issue on below logic that IMGRETRV.EXE is not launching by Acu cobol program. But, if i click on IMGRETRV.EXE ,then it is launching, but, why ACU cobol program is not launching IMGRETRV.EXE using below logic, please note my client has reported in their few PCs IMGRETRV.EXE is not starting by acu cobol program!
ACU cobol has fault functionality or my program has fault?
==========
* Build the SYSTEM call command line:
Move spaces to WD-X80.
If LS-USER-TYPE-DEV
Move "ETC\\IMGRETRV.EXE" to WD-X40
else
Move "ETC\\IMGRETRV.EXE" to WD-X40
End-If.
String "C:"
LS-DIR-PCPATH-VALUE
WD-X40
delimited by spaces into WD-X80
End-String.
If LS-DIR-PCDRIVE-VALUE > spaces
Move LS-DIR-PCDRIVE-VALUE to WD-X80 (1:1)
End-If.
* Check for executable: V.10.02
Call "C$FILEINFO"
using WD-X80
WFile-Info
giving WExit-Status
End-Call.
If WExit-Status = zero AND WFile-Size > zero
Next Sentence
else
Move 9031 to IMGEVIEW-RETURN-CODE
Go to XImage-Call
End-If.
* Call SYSTEM:
Call "C$RUN"
using WD-X80
on exception
Move 9991 to IMGEVIEW-RETURN-CODE
End-Call.
XImage-Call.