Re: Remove *Entry from /free

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;