Re: SUBROC

[Tommy.Holden@xxxxxxxxxxxxxxxxxxxxx]

for RPG II to RPG III conversions you'll need their ProStart package...

Thanks,
Tommy Holden



From:
"Charles Wilt" <charles.wilt@xxxxxxxxx>
To:
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Date:
11/19/2008 07:26 AM
Subject:
Re: SUBROC
Sent by:
rpg400-l-bounces@xxxxxxxxxxxx



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.