RE: FREE Opcode

["Bob Cozzi" <cozzi@xxxxxxxxx>]

The FREE opcode, effectively, ends the target program so you don't have to
call it and set on LR to return. RPG IV does NOT support his capability.
Since the target program would have to be an RPG III program if it were all
converted it wouldn't be an issue. 
But you indicated that the target is RPGIII and you do not have the source.
Therefore the program runs in *DFTACTGRP and since RPG IV does not have the
FREE opcode, your only choice is to put a "stub" RPGIII program between your
RPG IV and RPGIII program.
-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of rick.baird@xxxxxxxxxxxxxxx
Sent: Saturday, February 21, 2004 7:40 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: FREE Opcode


Justin,

It's my understanding that the free opcode did very little, and is now
obsolete.

it might do 'something' in the OPM program, but not what you might think it
would.

My advice would be to test the program before and after removing the opcode
and see if you get the same results.

here is a discussion in the archives on just this subject:

http://archive.midrange.com/rpg400-l/200002/threads.html#00141

hth,

Rick

-------original message----------
Hi Everyone,
I have an RPGIII program that I have converted to RPGIV.
The problem is that the RPGIII program uses the FREE opcode. I have read
the responses in the archives about passing no parameters to the FREED
program so it can set on the LR indicator. That would work great, but I
do not have the source code for the FREED program. I thought of a
workaround, creating an RPGIII program that will contain the free
command and accept the program name to be freed. This RPGIII program
will get called from the RPGIV program in the same location the FREE
command used to be. I tried this and it did not work. Should this work?
I know I am missing something. Is this a valid workaround for my
situation? Thanks in advance.



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