Re: Remove *Entry from /free

[MKirkpatrick@xxxxxxxxxxxxxxxxx]

Set it up as a PR and PI in the D specs:

Example:

      //  *ENTRY PLIST
     D DCMSR01         pr                  extpgm('DCMSR01')
     D  pOffice                       3a
     D DCMSR01         pi
     D  pOffice                       3a                               

Michael Kirkpatrick
Western Dental Services, Inc.
Information Systems
(
Phone:
 (714) 571.3582
(
Toll free:
 (800) 471.4444
7
Fax:
 (714) 480.3001
*
Email:
 mkirkpatrick@xxxxxxxxxxxxxxxxx
8
Web:
 http://www.westerndental.com/

 



"Bob Schwartz" <BSchwar@xxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
05/01/2007 01:26 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
<rpg400-l@xxxxxxxxxxxx>
cc

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;