Kbase P26490: How to compile programs using 4GL
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
11/25/2003 |
|
Status: Unverified
GOAL:
How to compile programs using 4GL
GOAL:
How to compile all program in a given directory programmatically
FIX:
The following demonstrates the use of the COMPILE statement in a program to compile all .p files in a given directory. Prior to running the program, the PROPATH must be set to include all necessary files to be used in the compilation.
DEFINE VARIABLE SELECT-1 AS CHARACTER LABEL "List of Compiled .p files..."
VIEW-AS SELECTION-LIST SINGLE SCROLLBAR-VERTICAL
SIZE 30 BY 6.91 NO-UNDO.
DEFINE VARIABLE vcCmdFileList AS CHARACTER NO-UNDO.
DEFINE VARIABLE vcInputFileName AS CHARACTER NO-UNDO.
DEFINE VARIABLE vcFileName AS CHARACTER NO-UNDO.
DEFINE FRAME DEFAULT-FRAME
SELECT-1 AT ROW 2 COL 15
WITH 1 DOWN NO-BOX KEEP-TAB-ORDER OVERLAY
NO-UNDERLINE THREE-D FONT 6
AT COL 1 ROW 1
SIZE 55 BY 10.
ASSIGN vcInputFileName = "listOfDFs.txt":U
vcCmdFileList = "dir d:\wrk91d\test132\*.p /b > ":U + vcInputFileName.
OS-COMMAND SILENT VALUE(vcCmdFileList).
INPUT FROM VALUE(vcInputFileName).
REPEAT:
IMPORT UNFORMATTED vcFileName.
SELECT-1:ADD-FIRST(vcFileName).
COMPILE value(vcFileName) SAVE INTO "d:\wrk91d\test132\".
END.
INPUT CLOSE.
ASSIGN CURRENT-WINDOW:HEIGHT = 10
CURRENT-WINDOW:WIDTH = 55.
ENABLE SELECT-1 WITH FRAME DEFAULT-FRAME.
IF SELECT-1:NUM-ITEMS > 0 THEN
ASSIGN SELECT-1:SCREEN-VALUE = ENTRY(1,SELECT-1:LIST-ITEMS).
WAIT-FOR CLOSE OF THIS-PROCEDURE.