Re: Removing or replacing *inzsr with Dspecs

[Charles Wilt <charles.wilt@xxxxxxxxx>]

I'm certainly a fan of such refactoring...

But if you want to make such refactoring a standard, I'd recommend taking a
look at tools to do so.

I'm particularly fond of Linoma's RPG Wizard
http://www.linomasoftware.com/products/rpgtoolbox/rpgwizard

Options include:
Target IBM i release . . . . . .   *CURRENT
Format of specifications . . . .   *FREE2
Examine field attributes . . . .   *YES
Expand copy members  . . . . . .   *NO
Redefine data structures . . . .   *YES
Redefine *LIKE DEFN fields . . .   *YES
Redefine calc. defined fields  .   *YES
Convert left hand indicators . .   *YES
Convert opcodes to BIFs  . . . .   *YES
Convert key lists (KLIST)  . . .   *YES
Insert file I/O BIFs . . . . . .   *YES
Convert ADDs/SUBs to EVALs . . .   *YES
Convert Z-ADDs/Z-SUBs to EVALs     *YES
Convert MULTs to EVALs . . . . .   *YES
Convert DIVs to EVALs  . . . . .   *YES
Convert MOVE(L)s having *BLANK     *CLEAR
Convert MOVE(L)s having *ZERO  .   *CLEAR
Convert MOVEs having data  . . .   *EVAL
Convert MOVELs having data . . .   *EVAL
Convert MOVEA operations . . . .   *YES
Convert CASxx operations . . . .   *YES
Convert CAT operations . . . . .   *YES
Convert DOs to FORs  . . . . . .   *YES
Convert LOOKUP operations  . . .   *YES
Convert SCAN operations  . . . .   *YES
Convert *ENTRY PLIST . . . . . .   *YES
Convert Subroutines to Procs . .   *NO
Convert CALLs and CALLBs . . . .   *YES
Convert GOTO operations  . . . .   *YES
Compress expressions . . . . . .   *YES
Highlight comments . . . . . . .   *NO
Fixed-form comment designator  .   *SLASHES
Comment specification types  . .   *REMOVE
Comment designator on blanks . .   *LEAVE
Case for specification types . .   *LOWER
Case for unchanged logic . . . .   *LOWER
Case for changed and new logic     *LOWER
Case for in-line comments  . . .   *LEAVE
Case for right-hand comments . .   *LEAVE
Free-form indent nested logic  .   *LEAVE
Document nested logic  . . . . .   *NO
Source date on converted lines     *KEEP

You can download it and try it for free for 10 conversions.  The price is
pretty good IMO.

Arcad has another tool, but it has more functionality and is more $$$.
http://www.arcadsoftware.com/products/arcad-transformer-ibm-i-refactoring-tools/

Charles




On Mon, Jun 9, 2014 at 10:19 AM, Wilson Jonathan <piercing_male@xxxxxxxxxxx>
wrote:

> I'm currently working through an old RPG program which was well
> structured with small clean(ish) subroutines and a semi Model View
> Controller style logic to handle screen control (although with hindsight
> its to intermixed with data/program logic, ie SC01SR handles the screen
> 01, but also dependent on options also calls business logic subroutines
> such as updating/adding/deleting a file)
>
> Now when this program was created it had a very large *inzsr, to define
> keylists, plists, before/store/etc. fields (b1cust, s1cust, etc.) so
> than no fields were defined "in line."
>
> My first question is... is it worth moving and re-coding all the *inzsr
> into D specs at the beginning of the program as a first stage of
> refactoring the code?
>
> To my mind this makes sense, removing *likes etc from within the code to
> the area most suited to having such code, especially as D specs can
> perform an equivalent of *like and initial values can be set (I am
> assuming a reset will work in the same way as a *inzsr defined field)
> also a lot of this change, if not all, could be automated.
>
> My second/third questions are once the above has been done, is it then
> worth another refactoring exercise to replace the subroutines with
> subprocedures, my gut tells me if it is then this can then be followed
> by a third refactoring exercise which would be to move the initially
> created global D specs into the subprocedures where appropriate to
> isolate fields initially "global" but in reality local to specific
> subroutine. (again I could see some of this also capable of automation)
>
> Do these seem like a logical first steps to take, both in terms of
> learning but also in a wider context of "best practise" refactoring of
> code.
>
> Jon
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
> mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.