RE: Converting *ENTRY & PLIST to free format

Good catch, I simply found and passed it on w/o reviewing first.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Brian Parkins
Sent: Thursday, June 20, 2013 2:23 PM
To: RPG programming on the IBM i (AS/400 and iSeries)
Subject: Re: Converting *ENTRY & PLIST to free format

Converting *ENTRY & PLIST to free format.
Are there some simple examples, tutorials, and explanations on
replacing *ENTRY? I am having trouble understanding the process.

I found this on Brian May's site:
http://www.bmeyers.net/faqs/15-faqs/51-replacing-entry-plist-with-a-pr
ototype

I fear the example on Brian MEYER'S website is not correct. The EXTPGM keyword requires a parameter. Here are some simple examples that I have
tested:
============================================
// Module/program name is ENTRYPARM1
// Compiler warning - external program name not same as program name

D EntryPlist Pr ExtPgm('RUBBISH')
D 10A Const

D EntryPlist Pi
D String 10A Const
============================================
// Module/program name is ENTRYPARM2
// No compiler warnings

D EntryPlist Pr ExtPgm('ENTRYPARM2')
D 10A Const

D EntryPlist Pi
D String 10A Const
============================================
// Module/program name is ENTRYPARM3
// Source will NOT compile - keyword EXTPGM requires a parameter

D EntryParm3 Pr ExtPgm
D 10A Const

D EntryParm3 Pi
D String 10A Const
============================================

As Brian Meyer correctly states:

o The prototype for the main procedure must include the EXTPGM keyword.
o The procedure interface must be named (the same as the prototype).
o The prototype must precede the procedure interface.

Hope this helps.
Brian Parkins.

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L) mailing list To post a message email: RPG400-L@xxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives at http://archive.midrange.com/rpg400-l.