RE: Remove *Entry from /free

Replace first two lines of C spec with following D spec

D main PR
D 10a

D main PI
D option 10a


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Bob Schwartz
Sent: Tuesday, May 01, 2007 4:26 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Remove *Entry from /free

I am calling an RPG program from a CLP and passing one parm to the RPG
program.
The program is written in free with only the *entry and plist portion
with C-specs.

What is the best way to eliminate those last few c-specs?
I am on i5/OS V5R3.

Thank you, bob

Code snippet:

0055.00 C *entry plist
0056.00 C parm p_option
0057.00
0058.00 /free
0059.00 // first time processing
0060.00 init = *on;
0061.00 exit = *off;
0062.00 scrn# = 1;
0063.00
0064.00 // display selection screen
0065.00 dou exit = *on;
0066.00
0067.00 if init;
0068.00 @@iwselct = nm;
0069.00 iwselct = *blank;
0070.00 init = *off;
0071.00 endif;
0072.00
0073.00 write MSGSFLR2;
0074.00 exfmt MSY017W01;