Re: Impossible to even think about rewriting in RPG

You would want this!

C CLACC# CHAIN RCLOSS
81
C IF *IN81 =
*OFF
C EVAL WSAMT =
CLTLAM
C
ELSE
C EVAL WSAMT =
*ZEROS
C
ENDIF


C WRITE SELSF
WRITE SFL REC


C
ENDIF


C IF RRN =
10
C
LEAVE
C
ENDIF

vs this? Sorry that makes no sense.

If InOutLengthToString < InLengthFromString * 2;
ERRH_Throw('CPF9898' :
cCPFMessageFileName :
'To string must be at least twice as long as From string!');
EndIf;

ptriConv = g_OpenList(InHandle);

LengthFromString = InLengthFromString;
LengthToString = InOutLengthToString;
Result = iConvApi(iConv :
InPointerFromString:
LengthFromString :
InPointerToString :
LengthToString );
If Result = -1;
ERRH_Throw('CPF9898' :
cCPFMessageFileName :
'Conversion failed! See job log for reason!');
EndIf;

InOutLengthToString = InOutLengthToString - LengthToString;

Return;


On Fri, Jun 24, 2011 at 1:33 PM, James Lampert <jamesl@xxxxxxxxxxxxxxxxx>wrote:

Alan Campin wrote:

No, I was just talking about ILE. My assumption would be if I were to

create

a modern package I would put one team on GUI in front end(Java, .net,
python, etc) and RPG in the backend but trying to find a programmer who
would write modern RPG would be almost impossible. What possible value

would

there be in recreating the mess you have currently? Virtually

unmaintainable

code.

I don't see what their problem is. I always try to use the right tool
for the right job (I simply haven't found very many for which "/free" is
even remotely "The Right Tool"). I use modules. I use service programs.
I use mixed language. I call web services. And if The Cycle is "The
Right Tool," I use it (it's great for pre-populating a new field in a
file, based on some other file; it's also great for interactive
programs, with LR tied to F3.

I'd say there are probably as many RPG programmers who are afraid to
take a ride on The Cycle as there are who are afraid to use ILE
features. And that's sad.

--
JHHL
--
This is the RPG programming on the IBM i / System i (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.