RE: Separation of Presentation, BL, and I/O Tiers

I would also like

Mark Allen
I.S. Manager
Wilkes Telephone & Electric
A Dycom Company
Phone: (706) 678-9565
Email: allenmark@nu-z.net
http://www.nu-z.net




:-----Original Message-----
:From: rpg400-l-admin@midrange.com
:[mailto:rpg400-l-admin@midrange.com] On Behalf Of Bartell Aaron L TC
:Sent: Wednesday, April 10, 2002 11:39 AM
:To: 'rpg400-lmidrangecom'
:Subject: RE: Separation of Presentation, BL, and I/O Tiers
:
:
:Please post it here if you can!  I think everyone and there
:mother are looking for ways to do this including myself.  If
:you can't post it here because of company policy please send
:me the code privately also at: albartell@taylorcorp.com
:
:Thanks Mark,
:Aaron Bartell
:
:
:
:-----Original Message-----
:From: MWalter@hanoverwire.com [mailto:MWalter@hanoverwire.com]
:Sent: Wednesday, April 10, 2002 11:36 AM
:To: rpg400-l@midrange.com
:Subject: RE: Separation of Presentation, BL, and I/O Tiers
:
:
:
:Nelson,
:
:I just yesterday got an I/O service program to work that way.
:I define an externally descibed MODS in the calling program
:that is based on a pointer. Then the subprocedure in the
:service program also defines an externally descibed mods that
:is based on a pointer. I issue a select count(*) into :count
:and allocate the memory for the MODS based on the count. Then
:I fetch the records into the MODS and return the pointer as
:well as the record count. I'll gladly send you the source for
:my little test program privately if you wish.
:
:
:Mark
:
:
:Mark Walter
:Sr. Programmer/Analyst
:Hanover Wire Cloth a div of CCX, Inc.
:mwalter@hanoverwire.com
:http://www.hanoverwire.com
:717.637.3795 Ext.3040
:
:_______________________________________________
:This is the RPG programming on the AS400 / iSeries (RPG400-L)
:mailing list To post a message email: RPG400-L@midrange.com To
:subscribe, unsubscribe, or change list options,
:visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
:or email: RPG400-L-request@midrange.com
:Before posting, please take a moment to review the archives
:at http://archive.midrange.com/rpg400-l.
:_______________________________________________
:This is the RPG programming on the AS400 / iSeries (RPG400-L)
:mailing list To post a message email: RPG400-L@midrange.com To
:subscribe, unsubscribe, or change list options,
:visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
:or email: RPG400-L-request@midrange.com
:Before posting, please take a moment to review the archives
:at http://archive.midrange.com/rpg400-l.
: