Re: Remove *Entry from /free

[Booth Martin <booth@xxxxxxxxxxxx>]

Is this adding obscurity and removing what has always been a pretty 
easily followed process?

Just curious, thats all.

Ruthirapathi, Arulanandham wrote:
> 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;                             
>