Kbase 13634: Sample program for checking R-code segments in Version 7
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/10/1998 |
|
Sample program for checking R-code segments in Version 7
Run the attached procedure to check the various segments of a piece
of R-code. Enter the name of the .r file and the program will do the
rest.
------------------------- cut here -------------------------------
DEFINE VARIABLE rcode-file AS CHARACTER FORMAT "x(45)" LABEL "File".
REPEAT:
SET rcode-file colon 25 SKIP(0.5) WITH FRAME rc-info.
RCODE-INFO:FILE-NAME = rcode-file.
DISPLAY RCODE-INFO:CRC-VALUE LABEL "CRC" COLON 25
RCODE-INFO:LANGUAGES FORMAT "x(40)"
LABEL "Language Segments" COLON 25
CURRENT-LANGUAGE FORMAT "x(40)"
LABEL "CURRENT LANGUAGE" COLON 25
PROMSGS FORMAT "x(40)"
LABEL "PROMSGS FILE" COLON 25
SESSION:STREAM FORMAT "X(40)"
LABEL "STREAM" COLON 25
SESSION:CHARSET FORMAT "X(40)"
LABEL "CHARSET" COLON 25
SESSION:DATE-FORMAT FORMAT "X(40)"
LABEL "DATE-FORMAT" COLON 25
SESSION:NUMERIC-FORMAT FORMAT "X(40)"
LABEL "NUMERIC-FORMAT" COLON 25
WITH FRAME rc-info SIDE-LABELS TITLE "R-code Check" .
END.
Progress Software Technical Support Note # 13634