Re: Remove *Entry from /free

Bob,
Assuming that p_option is defined elsewhere, the following statements would be
needed in your "D" specs:
D My_Program PR EXTPGM('YOURPROGRAM')
D P_Option 3A

D My_Program PI
D P_Option

The first group of statements is the prototype for the call to this program.
This is where you specify the actual name of your program and define any parms.
The field names here are for info only, but you need to define the attributes.
The next group is the procedure interface. This is the actual list of parms
that your program is being called with. The field names that you use here are
the actual names that you will use in your program for the parms being passed.

Jeff Young
Sr. Programmer Analyst
IBM -e(logo) server Certified Systems Exper - iSeries Technical Solutions V5R2
IBM Certified Specialist- e(logo) server i5Series Technical Solutions Designer
V5R3
IBM Certified Specialist- e(logo)server i5Series Technical Solutions
Implementer V5R3









----- Original Message ----
From: Bob Schwartz <BSchwar@xxxxxxxx>
To: rpg400-l@xxxxxxxxxxxx
Sent: Tuesday, May 1, 2007 3:26:01 PM
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;