Re: SUBROC

["Charles Wilt" <charles.wilt@xxxxxxxxx>]

Speaking of conversions....

I'd highly recommend you take a look at Linoma's RPG Toolbox:
http://www.linomasoftware.com/products/rpgtoolbox/

It will actually convert RPG III (maybe even RPG II?) directly to free
format (or fixed) RPG IV.  And when I say RPG IV, I mean actual RPG IV, not
just RPG III code that can be compiled by the RPGLE compiler.  It will
replace ADD/SUB with EVAL, IFEQ with I, indicators with %BIFs, and so on.

Exactly what gets converted is configurable.  And it only does the
conversions it knows are safe.  So for instance, if you have a Z-ADD of a 4
digit field to a two digit field, thus possibly performing a truncation, it
would not convert that to an EVAL even though you've told it to convert
numeric operations to EVAL.

I believe that Linoma still offers a free trial whereby you download and
install the software.  It will allow you to do 10 conversions, then will
stop working till you purchase the product and get a key.

Price is quite reasonable IMHO.

Lastly, if you still use SEU, the Toolbox includes some pretty cool
enhancements for use in SEU.

Charles

(not a paid spokesman for Linoma, just a happy user at a former job :)


On Wed, Nov 19, 2008 at 7:40 AM, Jerry Adams <Jerry@xxxxxxxxxxxxxxx> wrote:

> Sounds like one of those assembler routines they warned us 36-ers about.
>  I, too, work primarily in the 36 environment; most of our programs are
> still RPG II.  But RPG II can call RPG IV, not that that is going to help
> you here.
>
> I rarely go through the trouble to convert the RPG II programs to RPG IV,
> but on the few occasions that I have (sans a complete re-write) I converted
> them to RPG III first, then used the converter to move them to RPG IV.
>
> Jerry C. Adams
> IBM System i Programmer/Analyst
> B&W Wholesale
> office: 615-995-7024
> email:  jerry@xxxxxxxxxxxxxxx
>
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Kevin Nunn
> Sent: Tuesday, November 18, 2008 6:44 PM
> To: RPG400-L@xxxxxxxxxxxx
> Subject: SUBROC
>
> Hello All,
>
> I've searched the vast internet and my problem is just too old to show up
> anywhere :)
>
> I used to be a consult for 4 clients on Advanced/36 machines, I know RPG2
> inside out. 2 Years ago I took a full time job with one of my clients as
> work was way to slow. I finally got them on a used AS400 and I am working
> on
> rewriting their software in RPGILE (love it!).
>
> Two of my other clients have converted over to an AS400 with the help of a
> consultant company in my area. The last client has finally decided to get
> an
> AS400, but they want to completely retain the programs as is. No, problem,
> they'll be just run in a S/36 environment.
>
> The problem is, several of their programs use an IBM supplied subroutine
> called SUBROC to open/close a file. We used it to open/close the spool file
> in order to print without exiting the program. For on demand checks for
> instance.
>
> Does anyone know of a work around for this? My first thought was to write
> an
> ILE program that would be called from the S36 program, but 1) Not sure if a
> ILE program can be called from a S36 RPG program, I think CL can, so it
> should work; 2) Would the called ILE program have the access to the file
> and
> be able to CLOSE the file, and then re-OPEN it.
>
> Or is there some other way I could do this without exiting the program,
> which would in effect, clear all the temp fields that are used?
>
> Thanks - and I wanted to say I have really been enjoying reading the
> discussions, it's been helping my learning process :)
>
> Kev
>
> --
> Kevin Nunn
> Computer Information Systems
> RGV Pizza Hut, LLC
> --
> This is the RPG programming on the AS400 / 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.
>
> --
> This is the RPG programming on the AS400 / 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.