× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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;

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.