Re: CL and parms

I was doing what you show below.
I found my problem - something stupid. Thanks.
-----midrange-l-bounces@xxxxxxxxxxxx wrote: -----

To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
From: rob@xxxxxxxxx
Sent by: midrange-l-bounces@xxxxxxxxxxxx
Date: 11/20/2008 12:17PM
Subject: Re: CL and parms

Use the CALL statement.

PROG1
pgm
dcl &myparm1 *char 1
dcl &myparm2 *char 1
call prog2 (&myparm1 &myparm2)
SNDPGMMSG MSG(&MYPARM1)
SNDPGMMSG MSG(&MYPARM2)
endpgm

PROG2
pgm (&mydodad1 &mydodad2)
dcl &mydodad1 *char 1
dcl &mydodad2 *char 1
chgvar &mydodad1 'A'
chgvar &mydodad2 'B'
endpgm

Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com

From:
"Dave Snyder" <DSnyder@xxxxxxxx>
To:
midrange-l@xxxxxxxxxxxx
Date:
11/20/2008 11:43 AM
Subject:
CL and parms
Sent by:
midrange-l-bounces@xxxxxxxxxxxx

How can I call CL program #2 (PROG2), passing parms to it which are
updated in PROG2, and return the updated values back to the calling
program (PROG1)?



Dave
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.