Kbase P12161: 4GL / ABL Client getting error while trying to open fully qualified file reference causing Insuffici
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
6/23/2009 |
|
Status: Verified
SYMPTOM(s):
4GL / ABL Client getting error while trying to open fully qualified file reference causing Insufficient disk space or Write access denied. (291)
Insufficient disk space or Write access denied. (291)
FACT(s) (Environment):
All Supported Operating Systems
Progress/OpenEdge Product Family
CAUSE:
This is an example of code which may cause the 291 error.
The key is the cSeparator.
cSeparator = IF OPSYS = "Unix" THEN "/" ELSE "\".
IF plTemporary THEN
DO:
ASSIGN
cFileName = cCurrentFolder + cSeparator +
pcPrefix + "-" +
STRING(YEAR (TODAY),"9999") + "-" +
STRING(MONTH (TODAY),"99") + "-" +
STRING(DAY (TODAY),"99") + "-" +
REPLACE(STRING(TIME,"HH:MM:SS"),":","") + "-" + "00.LOG"
iSeq = 0.
DO WHILE iSeq < 10:
IF SEARCH (cFileName) = ? THEN
DO:
pcFileName = cFileName.
RETURN.
END.
ASSIGN iSeq = iSeq + 1
ENTRY(6,cFileName,"-") = STRING(iSeq,"99") + pcSuffix.
END.
END.
FIX:
Make the following changes:
cSeparator = IF OPSYS = "Unix"
THEN "~/"
ELSE "~\"
By using the string literal indicator ~ you are enforcing that what follows the ~ is not to be modified.