RE: Subprocedure Question

Joel,

You wouldn't want 11 sets of read/chain/setll/setgt/update/write procedures.  
In fact, you don't really want even one.

You shouldn't simply be replacing RPG I/O opcodes with calls to a procedure.  
You're not really gaining much by doing that.

Instead, look at the business logic behind the use of the logicals.

PARTMASTER_LookupUsingCustomerPartNumber()
PARTMASTER_GetAlphabeticalList()
PARTMASTER_GetNextPartByVendor()
ORDERHEADER_GetNextOrderToProcess()

HTH,

Charles Wilt
--
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx
> [mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Joel Fritz
> Sent: Thursday, September 01, 2005 6:45 PM
> To: RPG programming on the AS400 / iSeries
> Subject: RE: Subprocedure Question
> 
> 
> 
> I'm thinking of a file with ten logical views and imagine implementing
> random I/0 and selective updates.
> 
> RPG is just not designed to make this easy, even with a generator API.
> 
> 
> <><><>-----Original Message-----
> <><><>From: rpg400-l-bounces@xxxxxxxxxxxx
> <><><>[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of 
> Scott Klement
> <><><>Sent: Thursday, September 01, 2005 11:39 AM
> <><><>To: RPG programming on the AS400 / iSeries
> <><><>Subject: RE: Subprocedure Question
> <><><>
> <<<<<<<<<<<<<<<<<<<<<<  Immense Snip >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
> <><><>
> <><><>Though, frankly, I think you're creating a nightmare for
> <><><>yourself by doing
> <><><>things this way.  Don't "echo' the RPG CHAIN, READ,
> <><><>WRITE, etc opcodes, it
> <><><>gains you very little!  Instead, write a "Business Model"
> <><><>service program,
> <><><>and keep with the MVC design.
> <><><>--
> <><><>This is the RPG programming on the AS400 / 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.
> <><><>
> <><><>
> 
> *****************************
> NOTICE:
> All e-mail sent to or from this e-mail address will be 
> received or otherwise recorded by
> The Sharper Image corporate e-mail system and is subject to 
> archival, monitoring,
> and review by and/or disclosure to Sharper Image security and 
> other management.
> This message is intended only for the use of the addressee 
> and may contain information
> that is privileged and confidential.
> 
> The contents of this message may contain personal views which 
> are not the views of The Sharper Image.
> If you are not the intended recipient, dissemination of this 
> communication is prohibited.
> *****************************
> 
> -- 
> This is the RPG programming on the AS400 / 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.
> 
>