Kbase P6110: How to open a file with 4GL using a system or default dialog
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
22/01/2003 |
|
Status: Unverified
GOAL:
How to open a file with 4GL using a system or default dialog box?
FACT(s) (Environment):
Progress 8.x
FACT(s) (Environment):
Progress 9.x
FIX:
On Windows platforms use SYSTEM-DIALOG GET-FILE statement.
For CHUI on UNIX platforms use adeedit/_dlggetf.p like in following example:
def var pFilter as character.
def var pStatus as logical.
def var pFile as character.
run adeedit/_dlggetf.p (
INPUT "<Title Here>",
INPUT NO, /* NO for Open, YES for Save As */
INPUT pFilter,
INPUT-OUTPUT pFile,
OUTPUT pStatus ).
message pStatus skip
pFile
view-as alert-box.