× 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.



Hi Vern,

Thanks for suggestions. It's not only the converted code, but the programmer
still writes new code in this way.

Actually I have a tool (CHGILESRC by SSS, but I don't think it's known
outside of Germany) that is able to convert Z-ADD, MULT, COMP, SETON,
SETOFF, IFEQ, CAS and other "old" Opcodes into Evals of If/Select with
enhanced factor2. But if only MOVEs, MOVELs and MOVEAs are used it will not
work and converting a MOVE without having a look on it may cause a lot of
problems. The tool also moves field definitions for C to D specs.

Theoretically the tool should also be able to convert the lefthand
indicators into if-statements.
But there the tool struggeled. The first time in 5 years!

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars." (Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im
Auftrag von Vernon Hamberg
Gesendet: Thursday, September 27, 2007 14:43
An: RPG programming on the AS400 / iSeries
Betreff: Re: AW: remove blanks


Hi Birgitta

Converting all those op codes into EVALs is
tedious at best - and IBM's CVTRPGSRC (is that
the name) command does none of this. Fortunately
we have Bob Luebbe's Linoma Software RPG tools -
full control over how things are converted. Data
definitions in C-specs can be moved to D-specs,
even case changes, and lots of other good stuff.
This makes the transition to the new stuff much easier.

Regards
Vern

At 12:12 AM 9/27/2007, you wrote:

Hi,

I noticed that after I posted - I still find it hard to believe that
anyone is writing new code in RPG III.

But there are a lot!
Even worse are those, who converted the RPGII/RPGIII code to RPGIV but
write new code by using RPGII/RPGIII syntax. Currently I'm working on a
software that was written in the late 90ties. Not a single EVAL nor a
built-in-function can be found, but a lot of indicators (*IN01 - *IN99)
lefthand of the code and the sources aren't documented at all. Not even
Subfiles are used! The syntax used is older than I ever learned it.

(and I started with RPGIII in the early 90ties).

... The worst is, the programmer refuses to learn or to use new
features: "I wrote programs in this way since 30 years and it works!"
(with a lot of failures that could have been avoided when RPGIV
techniques would have been used!)

And an other comment: "Copying is faster than trying something new!!!"

Mit freundlichen Grüßen / Best regards

Birgitta Hauser

"Shoot for the moon, even if you miss, you'll land among the stars."
(Les
Brown)
"If you think education is expensive, try ignorance." (Derek Bok)
"What is worse than training your staff and losing them? Not training them
and keeping them!"

-----Ursprüngliche Nachricht-----
Von: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] Im Auftrag von Jon Paris
Gesendet: Wednesday, September 26, 2007 14:52
An: rpg400-l@xxxxxxxxxxxx
Betreff: RE: remove blanks


>> Several have answered with ILE IV solutions - he is working in RPG
III

I noticed that after I posted - I still find it hard to believe that
anyone is writing new code in RPG III.

What is particularly odd is that this appears to be an outsourcing
situation. Why on earth would you outsource (to people who apparently
don't know the language) and have the new code written in a language
obsolete for 12 years. Sigh....

See you at Summit Vern.

Jon Paris
Partner400

www.Partner400.com


--
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.