Re: Free-form extrct

[Alan Shore <AlanShore@xxxxxxxx>]

DOH!
okay I found it
Rtdatedd = %subdt(Transdate:*days);
etc



Alan Shore

NBTY, Inc
(631) 244-2000 ext. 5019
AShore@xxxxxxxx
"If you're going through Hell, keep going" - Winston Churchill

midrange-l-bounces@xxxxxxxxxxxx wrote on 08/02/2007 04:06:14 PM:

> Hi guys
> In RPGIV coding I have
> C                   extrct    Transdate:*y  Rtdateccyy
> C                   extrct    Transdate:*m  Rtdatemm
> C                   extrct    Transdate:*d  Rtdatedd
>
> what is the free-form equivalent
>
> Thanks in advance
>
>
>
> Alan Shore
>
> NBTY, Inc
> (631) 244-2000 ext. 5019
> AShore@xxxxxxxx
> "If you're going through Hell, keep going" - Winston Churchill
> --
> 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.