RE: Using subproceedures in CL programs

Sample snippet:

0378.00

0379.00 /*  Get Current settings:
*/
0380.00         CALLPRC    PRC(CURRENTDATE)
RTNVAL(&TODAY)
0381.00         CALLPRC    PRC(GETBEGOFMONTH)   PARM(&TODAY)
RTNVAL(&BEGMONTH)
0382.00         CALLPRC    PRC(GETENDOFMONTH)   PARM(&TODAY)
RTNVAL(&ENDMONTH)
0383.00

0384.00         CALLPRC    PRC(CURRENTEMPID)
RTNVAL(&EMP_ID_NUM)
0385.00         CALLPRC    PRC(CVT15P0TOALPHA)  PARM(&EMP_ID_NUM)
RTNVAL(&EMP_ID)
0386.00         CALLPRC    PRC(CURRENTEMPNAME)
RTNVAL(&EMP_NAME)
0387.00         CALLPRC    PRC(USEASMIXEDCASE)  PARM(&EMP_NAME)
RTNVAL(&EMP_NAME)
0388.00

0389.00         CALLPRC    PRC(CURRENTORGGRP)
RTNVAL(&ORGGRP_NUM)
0390.00         CALLPRC    PRC(CVT7P0TOALPHA)   PARM(&ORGGRP_NUM)
RTNVAL(&ORG_GROUP)
0391.00         CALLPRC    PRC(CURRENTORGPDES)
RTNVAL(&ORG_DESC)
0392.00         CALLPRC    PRC(USEASMIXEDCASE)  PARM(&ORG_DESC)
RTNVAL(&ORG_DESC)
0393.00

0394.00         CALLPRC    PRC(GETORGGROUPLOC)PARM(&ORGGRP_NUM)
RTNVAL(&LOCATION)

> -----Original Message-----
> From: Wills, Mike N. (TC) [SMTP:MNWills@taylorcorp.com]
> Sent: Friday, February 22, 2002 9:22 AM
> To:   'rpg400-l@midrange.com'
> Subject:      RE: Using subproceedures in CL programs
>
> Would it be better to do a call to an RPG program that will return the
> value?
>
> -----Original Message-----
> From: rob@dekko.com [mailto:rob@dekko.com]
> Sent: Thursday, February 21, 2002 4:08 PM
> To: rpg400-l@midrange.com
> Subject: RE: Using subproceedures in CL programs
>
>
>
> I see that you RPG was an eval instead of a CALLP.  That means that the
> subprocedure returned a value via the PI itself and not just via the
> parameter list.  That might be a little trickier in CLLE.
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
>
>
>
>                     "Wills, Mike N.
>                     (TC)"                   To:
> "'rpg400-l@midrange.com'" <rpg400-l@midrange.com>
>                     <MNWills@taylorco       cc:
>                     rp.com>                 Fax to:
>                     Sent by:                Subject:     RE: Using
> subproceedures in CL programs
>                     rpg400-l-admin@mi
>                     drange.com
>
>
>                     02/21/2002 04:49
>                     PM
>                     Please respond to
>                     rpg400-l
>
>
>
>
>
>
> Thanks Mark that'll work for me.
>
> -----Original Message-----
> From: MWalter@hanoverwire.com
>
> Mike,
>
> If your cl is a CL Module (type CLLE) you can use 'callprc  prc(coupute)
> parm(&x &y &z &a)' otherwise you'll have to write a wrapper program to
> call
> the procedure. When going the latter route, watch any overrides you may
> have in effect as they may not be in effect for your procedure.
> _______________________________________________
> 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.
> _______________________________________________
> 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 message originates from Lincare Holdings Inc. It contains information 
which maybe confidential or privileged and is intended only for the individual 
or entity named above.
It is prohibited for anyone else to disclose, copy, distribute or use the 
contents of this message.
All personal messages express views solely of the sender, which are not to be 
attributed to Lincare Holdings Inc., and may not be copied or distributed 
without this disclaimer.
If you received this message in error, please notify us immediately at 
MailAdmin@lincare.com or (800) 284-2006.
************************************************************************************************************************************************************************************************************