Hi everyone,
This code was written using ASNA visual RPG, I need to figure out how to code it properly
BegClass ThreadFactory Access(*Public)
DclFld strResult Type( *String)
//Task Approuch
DclFld taskFirstSplit Type( Task )
DclFld taskSecondSplit Type( Task )
DclFld actionMethod1 Type( Action )
DclFld actionMethod2 Type( Action )
DclProp ListTask Type(List(*Of Task)) Access( *Public )
BegConstructor Access(*Public)
EndConstructor
BegFunc GetAdrXml *String Access( *Public )
actionMethod1 = *New Action(GetAdrXmlSplit1())
actionMethod2 = *New Action(GetAdrXmlSplit2())
taskFirstSplit = *new Task(actionMethod1 )
//taskFirstSplit.id
taskSecondSplit = *new Task(actionMethod2 )
//taskFirstSplit.Id
taskFirstSplit.Start()
taskSecondSplit.Start()
ListTask.Add( taskFirstSplit )
ListTask.Add( taskSecondSplit )
Task.WaitAll(ListTask.ToArray())
//merge everything
LeaveSr strResult
EndFunc
BegFunc GetAdrXmlSplit1 *String Access( *Public )
//Do different things
LeaveSr strResult
EndFunc
BegFunc GetAdrXmlSplit2 *String Access( *Public )
//Do different things
LeaveSr strResult
EndFunc
EndClass
-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of rpg400-l-request@xxxxxxxxxxxx
Sent: Friday, August 11, 2017 1:00 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG400-L Digest, Vol 16, Issue 388
Send RPG400-L mailing list submissions to
rpg400-l@xxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
https://urldefense.proofpoint.com/v2/url?u=http-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DQICAg&c=euGZstcaTDllvimEN8b7jXrwqOf-v5A_CdpgnVfiiMM&r=pf5ps34nDK5U4__KA_TL0JsXGQOQP4z3NOFEujWu6Hc&m=DDL-uvDdWNT2X_sFtnnHgb50mmjOC77fHMm9UIyGLhk&s=izptjdsbV65u3K2jRt-IurZOorI7XqgS2d147hWzNgQ&e=
or, via email, send a message with subject or body 'help' to
rpg400-l-request@xxxxxxxxxxxx
You can reach the person managing the list at
rpg400-l-owner@xxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific than "Re: Contents of RPG400-L digest..."
*** NOTE: When replying to this digest message, PLEASE remove all text unrelated to your reply and change the subject line so it is meaningful.
Today's Topics:
1. Re: Service program / procedure design and naming conventions
(Mark Murphy/STAR BASE Consulting Inc.)
2. Thread Pool using Task (Osmany Jorge)
3. Re: Thread Pool using Task (JRusling@xxxxxxxxxxx)
----------------------------------------------------------------------
message: 1
date: Fri, 11 Aug 2017 09:45:07 -0400
from: "Mark Murphy/STAR BASE Consulting Inc."
<mmurphy@xxxxxxxxxxxxxxx>
subject: Re: Service program / procedure design and naming conventions
I may have mentioned this at some time in the past, here, or maybe in a blog post somewhere.
Mark Murphy
Atlas Data Systems
mmurphy@xxxxxxxxxxxxxxx
-----JRusling@xxxxxxxxxxx wrote: -----
To: "RPG programming on the IBM i \(AS/400 and iSeries\)" <rpg400-l@xxxxxxxxxxxx>
From: JRusling@xxxxxxxxxxx
Date: 08/09/2017 10:19AM
Subject: Re: Service program / procedure design and naming conventions
Mark,
I read about this methodology on the group? awhile back and am moving in
the same direction.
John
<snip>
... I keep a single universal binding directory for creating programs
(*PGM), but for service programs (*SRVPGM) I create individual special
purpose binding directories. ...
</snip>
<br />
The information in this email is confidential and may be legally privileged.
It is intended solely for the addressee. Access to this email by anyone else is
unauthorized. If you are not the intended recipient, any disclosure, copying,
distribution or any action taken or omitted to be taken in reliance on it, is
prohibited and may be unlawful.
midrange.com
