RE: Remove *Entry from /free

["Ruthirapathi, Arulanandham" <Arulanandham.Ruthirapathi@xxxxxxxxxxxxxxx>]

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;