1. Copy the following procksyn.p program to your ed4w directory.

/*******************************************************************************
 procksyn.p
   This procedure will check the syntax of a Progress procedure from within Ed4W.  
   copy from PEG 
*******************************************************************************/

def var tInt as int no-undo.
def var vSourceFile as character format "x(30)" no-undo.

assign vSourceFile = session:parameter.

/***** substitute your database parameters here ****/
connect unifipc -S unifidev -N tcp -H nt_los_reports.

/*-- compile part ---*/
compile value(vSourceFile).
if compiler:error or
   compiler:warning then do:
   /* first -1 is digit one, second -l is lc("L") */
   run WinExec ("c:\ed4w\ed4w -1 " + compiler:file-name +
              " -l " + string(compiler:error-row),1,output tInt).
end.
else do:
   message "Syntax is correct." view-as alert-box information.
end.
quit.

&if "{&OPSYS}" = "WIN32" &then
  procedure WinExec external "kernel32.dll":u:
  def input parameter pProgName as char.
  def input parameter pStyle as long.  /* 1=normal, 2=minimized */
  def return parameter pResult as long.
  end procedure.
&else
  procedure WinExec external "kernel.exe":u:
  def input parameter pProgName as char.
  def input parameter pStyle as short.  /* 1=normal, 2=minimized */
  def return parameter pResult as short.
  end procedure.
&endif
/*******************************************************************************/

2. In ED go to Tools --> Programs. Click "General" and "Add" button.

ed4w

In Progress 8.2+ it will be DLC\BIN\PROWIN32.EXE.

3. To create a syntax check button double click on the button bar at the top of the screen.
When dialog box pops up highlight your favorite button on the left.
In Command Type choose Programs.
In the general section choose the title that you wrote in 2.
Add it to the bar and click save.

ed4w1