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;