Kbase 35541: How to import data from a text (ascii) file via 4GL?
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
10/05/1998 |
|
Solution ID: P5541
GOAL:
How to import data from a text (ascii) file via 4GL?
FIX:
DEFINE STREAM login.
DEFINE VARIABLE vcLogin AS CHARACTER NO-UNDO.
DEFINE VARIABLE vcUserId AS CHARACTER NO-UNDO.
ASSIGN vcLogin = "logname > tmpfile":U.
OS-COMMAND SILENT VALUE(vclogin).
INPUT STREAM login FROM VALUE("tmpfile":U).
REPEAT:
IMPORT STREAM login UNFORMATTED vcUserId.
END.
INPUT CLOSE.
OS-DELETE VALUE("tmpfile":U).
FIND _user NO-LOCK WHERE _user._userid = vcUserId NO-ERROR.
IF NOT AVAILABLE _user THEN
DO:
MESSAGE "User " vcUserId " not found in the system."
VIEW-AS ALERT-BOX ERROR.
RETURN.
END.