1. What is BECOM
2. What can it do (and changes history)
3. Distribution
4. Features
5. Multipaste in use
6. BECOM Installation instruction
7. How to use
8. Environment
9. Where to download BECOM
10. Support
11. Third parties
12. Miscellaneous
13. Other Tools and Utilities from PROGRESS PLUS SOLUTIONS

(and changes history)

v.1.4.01, Mar 15, 2004

• by Ole Vinther Frederiksen - modifications to handle right code-page

v.1.4.00, Dec 09, 2003

• by Yuriy Setko - A multicopy and multipaste programs are added to BECOM, called by a single Multipaste name. Multipaste can be initiated by CTRL-F11 and F11 buttons and do provide a multi-buffer Copy/Paste functionality. Where CTRL-F11 do copy selected text into the multi-buffer clipboard, and F11 lets you to copy/paste the text from the multi-buffer clipboard back to the editor. Multipaste is written in P4GL and works from the Progress-like editors only. Make sure you have re-compiled _ADEEVNT.P and patched this file r-code into the $DLC/gui/adecom folder if you update your old BECOM version by this release.

v.1.03.05, Nov 26, 2003

• splitLines.p - by Rick Taylor - fixed AnalyzeQueryExp( .. "FIRST" .. ) function syntax call.
• becom.p - by Yuriy Setko – fixed an error with (5713) error message for earlier than 9.1D Progress versions.
• becompf.p - by Yuriy Setko – fixed FilterStringEx function when applied to a string within a commented line.

• Changes to becom.p contributed by Stefan Houtzager: BECOM is made able to handle texts greater than 32K size. Added EDITING to the blocks statements list.
• by Yuriy Setko - fixed bug on F12 with no selected text in the editor, and added a message asking to apply BECOM or to not.

• by Yuriy Setko - added exceptions for PROMPT and ASC keywords to changeCase.p rule. Thanks to Jurjen Dijkstra for the advise.

• addNoUndo.p rule - added to BECOM. The rule adds NO-UNDO to every DEFINE VARIABLE and DEFINE * PARAMETER statement (skips all shared variables definition for purpose). In a case you want it to stay as UNDO you can specify SKIP-NO-UNDO keyword in comments beside the variable/parameter definition:
  DEFINE INPUT PARAMETER cMode AS CHARACTER NO-UNDO. /* SKIP-NO-UNDO */
• some limitations apply - see comments in rule module source-code.

• alignCode.p rule - added QueryAlignType - "one-column" / "multi-column"

• Two new rules MergeLine.p and beautyCode.p were contributed by Serguey Klimoff, along with many changes and improvements to the existing rules, procedures and functions.
• Visual Diff procedure call is added to show the difference between the original source code and the code modified by BECOM.

• becompf.p - procedures getNextLineNum and getPrevLineNum - fixed bugs when searching the very first line of the list.

• alignBrackets.p rule has been renamed into alignSpaces.p cause it's not about brackets only anymore, it aligns left and right commas' spaces now as well.

• new rule has been added to BECOM: alignBrackets.p, which suppose to aligns the bracket adding/removing spaces where required; works for ( ) and [ ] brackets where the brackets pairs setup can be configured separately.

• recognizing IF .. THEN .. ELSE statement in WHERE phrases;
• added EXPORT, PUT, FUNCTION, FORM, ENABLE, DISABLE statements to alignCode rule

• splits source-code lines containing more than one P4GL statement;

• applies code formatting to the highlighted in the Procedure editor or the Section editor lines;
• replaces leading TABs by spaces;
• cuts line ending spaces;
• aligns the source code shifting blocks and ASSIGN-like sections;
• replaces the P4GL keywords by UPPER or lower case full or the same length keywords;
• skips comments and quoted strings;
• keeps initial line shift equal to the first highlighted code line shift;

MESSAGE “a”. RETURN.        

will be:
MESSAGE “a”.
RETURN.
       

Define Variable a as int.        

will be:
DEFINE VARIABLE a AS INTEGER.

or:
define variable a as integer.
       

cStr = getStr(sourceStr,iParam[i], getNextLineNum(iLineNum)).
      
will be:
cStr = getStr( sourceStr, iParam[ i ], getNextLineNum( iLineNum ) ).

def var a as int.        

will be:
DEFINE VARIABLE a AS INTEGER.
       

DO WHILE i < 10:
   i = i + 1.
    END. 

will be:
DO WHILE i < 10:
    i = i + 1.
END. 

IF YES THEN DO:
  MESSAGE "a".
END. ELSE
  IF YES THEN MESSAGE "b". ELSE MESSAGE "c".
  IF NOT YES AND NOT NO THEN MESSAGE "d". ELSE MESSAGE "e".

will be:
IF YES THEN
DO:
    MESSAGE "a".
END.
ELSE
  IF YES THEN
  MESSAGE "b".
ELSE
  MESSAGE "c".
IF NOT YES AND NOT NO THEN
  MESSAGE "d".
ELSE
  MESSAGE "e".

def input param s-value as char no-undo.
def input-output param err-msg as char no-undo.
def output param ferr as log. 

will be:
DEFINE INPUT        PARAMETER s-value AS CHARACTER NO-UNDO.
DEFINE INPUT-OUTPUT PARAMETER err-msg AS CHARACTER NO-UNDO.
DEFINE OUTPUT       PARAMETER ferr    AS LOG.

run CheckField(buffer xattr,if wh:screen-value = "?" then "" else wh:screen-value,input-output err-msg,output ferr).
      
will be:
RUN CheckField( BUFFER xattr, IF wh:SCREEN-VALUE = "?" THEN "" ELSE
      wh:SCREEN-VALUE, INPUT-OUTPUT err-msg, OUTPUT ferr ).

{{&postfind}{&*} &norepaint=/*} 

will be:
{{&postfind}{&*} &norepaint=”/*”}
       

This code:
DEFINE INPUT PARAMETER cMode AS CHARACTER. 
DEFINE VARIABLE lAddNO-UNDO AS LOGICAL INIT TRUE.
DEFINE VARIABLE cCodeCase AS CHARACTER.
DEFINE VARIABLE cmyUndoVariable AS CHARACTER. /* SKIP-NO-UNDO */


will be replaced by:      


DEFINE INPUT PARAMETER cMode    AS CHARACTER NO-UNDO.
DEFINE VARIABLE lAddNO-UNDO     AS LOGICAL   NO-UNDO INITIAL TRUE.
DEFINE VARIABLE cCodeCase       AS CHARACTER NO-UNDO.
DEFINE VARIABLE cmyUndoVariable AS CHARACTER. /* SKIP-NO-UNDO */

Multipaste in use

1. Select a code block as you do it to copy the block into the clipboard.
2. Press CTRL-F11 to save the block into the Multipaste clipboard.
3. Select and copy by CTRL-F11 a few more code blocks.
4. Press F11. The following window will appear on the screen:

In the window: Left list - copied buffers.
Right editor - a selected buffer contents. The editor is updateable so you can modify it contents right here.
Refresh - refresh the buffers list in a case when you have a few more buffers added by CTRL-F11.
Right-click menu - shows you what you can do with the selected buffer, i.e. Paste it into the editor, Paste and Delete from the buffers list, or Delete the buffer from the list. Multipaste clipboard keeps all its buffers stored between the Progress sessions and even between the system reboots.

1. Unzip the BECOM.zip into any directory included into your PROPATH.
2. Open BECOM directory and copy file _ADEEVNT.P into your $DLC\gui\adecomm. Compile it there.
3. Restart your Progress AB or Procedure editor session. It's ready to use now.

• Open a file in Procedure editor, or AB (open the section editor) , or even Data Dictionary Table Trigger editor;
• Highlight the code you want to apply BECOM to:

• Press F12;
• Choose Yes or No to replace the highlighted code by the showed modified one:

• Press CTRL-F12 anywhere in Progress session to open the BECOM Configuration Setup window (or just press F12 to select all text and apply BECOM to):

Support