× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.