Kbase 12013: VMS: PROGRESS/BATCH One Column Logfile.
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
5/10/1998 |
|
VMS: PROGRESS/BATCH One Column Logfile.
When you run PROGRESS Version 6.2L in batch mode, it generates an
unreadable VMS log file. For example, all PROGRESS output is 1 column.
Run the following program to display all PROGRESS messages in a
normal format.
/*************** Progress Software Technical Support **************/
/* KeyW: PROGRESS/BATCH, VMS LOG-FILE, version 6.2L */
/* Note: The program finds Progress error messages in the file */
/* called PROVMSLOG.Q - which is the "quoted" output of */
/* a VMS log file. Thus, after a batch job is done, */
/* issue the following command: */
/* PROGRESS/TOOLS=quoter/OUTPUT=PROVMSLOG.Q <VMSLOGFILE> */
/* where <VMSLOGFILE> is the name of the VMS log file. */
/******************************************************************/
DEF VAR cline AS CHAR FORMAT "x(78)".
DEF VAR cmsg AS CHAR FORMAT "x(78)" LABEL "Message".
DEF VAR lm AS LOGICAL.
FORM cmsg HEADER
"PROGRESS ERRORS FOUND IN PROVMSLOG.Q" WITH DOWN FRAME A.
ASSIGN cmsg = "" lm = FALSE.
INPUT FROM PROVMSLOG.Q NO-ECHO.
REPEAT:
SET cline WITH FRAME B.
IF cline = "*" THEN ASSIGN lm = TRUE.
IF lm THEN ASSIGN cmsg = cmsg +
(IF cline = "" THEN " " ELSE cline).
IF cline = ")" THEN DO:
DISP cmsg WITH FRAME A.
DOWN WITH FRAME A.
ASSIGN cmsg = "" lm = FALSE.
END.
END.
INPUT CLOSE.
/* End of PROVMSLOG.P */
Progress Software Technical Support Note # 12013