Re: dates in /free

[rob@xxxxxxxxx]

It's not a bif.  You'll have to add the following:
     H Bnddir('QC2LE')
     H ActGrp(*CALLER)
     H DftActGrp(*NO)
Then it will work.  Think of it as a subprocedure in another program.  May 
not be exactly how it works, but setup wise, it is.  Unless, (help me out 
here folks, I'm rather busy today), you need a prototype.

Rob Berendt
-- 
"They that can give up essential liberty to obtain a little temporary 
safety deserve neither liberty nor safety." 
Benjamin Franklin 





ttufankj@xxxxxxxxx
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/27/2003 02:42 PM
Please respond to RPG programming on the AS400 / iSeries
 
        To:     RPG programming on the AS400 / iSeries 
<rpg400-l@xxxxxxxxxxxx>
        cc: 
        Fax to: 
        Subject:        Re: dates in /free


>For V5R1, change %int() to atol().

I can't find   atol( )  in the manual.   Is that a typo?





Hans Boldt <boldt@xxxxxxxxxx> 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
08/27/2003 03:32 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
Re: dates in /free






Jon wrote:
> I'm not sure the word "best" applies but at V5R2 you can do this:
>
> mdy = %Int(%Char (%Date (ymd: *YMD): *MDY0) );

ttufankj@xxxxxxxxx wrote:
> Will this work in 5.1?
>

For V5R1, change %int() to atol().

Cheers! Hans


_______________________________________________
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.

_______________________________________________
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.