RE: FREE Opcode -- RPG400-L

Yes, this diagram is correct.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Cozzi
Sent: Sunday, February 22, 2004 9:22 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: FREE Opcode

Justin,
Is it really like this?

  OE53                    //  Call HFAERROR
   -->  CALL 'HFAERROR'
                 |         // Return to OE53
    OE53 <--------
     |                     // Call FREERPG
     -----> CALL  'FREERPG'
                     |
                     ----> FREERPG    // FREE HFAERROR
                              |
                              ----> FREE "HFAERROR"
                      
This should work.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Justin Houchin
Sent: Sunday, February 22, 2004 5:14 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: FREE Opcode

This is correct Bob, so why won't the method I'm trying work? Let me
restate the question. I have an RPGIV program that uses the FREE op code
to free an RPGIII program for which I do not have the source code. I
want to use an RPG III "middle man" program that contains the FREE
opcode to free the RPGIII program from the RPGIV program. I have tried
this and still get an error message because the RPGIII program is not
getting freed. Here is some information below to help explain my
situation:

Program          Calls              To Free     
OE53 (RPGIV)     FREERPG (RPGIII)    HFAERROR (RPGIII)

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Cozzi
Sent: Sunday, February 22, 2004 9:00 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: FREE Opcode

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.



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


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