Re: prob - storing date in rpg /400

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

These are ILE  APIs only - you have to use PRGLE 
to use them. They can be used in CL, which is 
also an ILE language (that makes this post cross-language, right David? <vbg>)

ILE RPG (or RPGIV) is not any harder to 
understand than RPGIII and it is the current 
stuff - you can use it just like III, the only 
difference could be that the columns are in a 
different place. You will be much better off learning RPGIV.

So in order to use this you either call a CL 
program (CLLE type) or start writing in RPGIV.

HTH
Vern

At 11:57 AM 4/16/2006, you wrote:

> vernon  i  neeed this in rpg./3  not in rpg le.. 
> .plzzz i cant understand rpgle much i am learni 
> nng rpg 3  ..please give me solution
>   have a nice d
>   ay
>
> Vernon Hamberg <vhamberg@xxxxxxxxxxx> wrote:
>   There are date APIs that can produce formatted character
> representations. Here is an example - you have to assume a year, and
> I suggest it be a leap year, as below. A data structure could also be
> used for the in-date instead of the BIFs and perhaps more efficiently.
>
> hdftactgrp(*no) actgrp(*caller) bnddir('QC2LE')
> dbirthdate s 4p 0 inz(410)
> doutDate s 6a
> doutDays s 10i 0
>
> ddateToLillian pr 8f extproc('CEEDAYS') opdesc
> d inDate 6a const
> d pictureString 6a const
> d outLillian 10i 0
> d fc 12a options(*omit)
>
> dLillianToChar pr 8f extproc('CEEDATE') opdesc
> d inLillian 10i 0 const
> d pictureString 6a const
> d outDate 6a
> d fc 12a options(*omit)
>
> /free
> dateToLillian(%trim(%editw(birthdate : '0 ') + '04') :
> 'DDMMYY' :
> outDays :
> *omit);
> LillianToChar(outDays :
> 'DD-Mmm' :
> outDate :
> *omit);
> *inlr = *on;
> /end-free
>
> Run it in debug and see what outDate is after the call to LillianToChar.
>
> This is specific to your situation - a more generic version would be
> useful - I think Scott Klement has done some articles on this.
>
> HTH
> Vern
>
> At 07:32 AM 4/16/2006, you wrote:
>
> >RPG/400--->
> > i have a physical file... field (suppose date of birth)
> >
> > EMPDAT 4P 0 TEXT('EMPLOYEE DATE OD BIRTH')
> > (length 4 packed with zero
> > decimal places )
> > EMPNME 20A TEXT('EMPLOYEE NAME')
> >
> > date(EMPDAT) should be stored as DD-MM the data base file but when it is
> > displayed on the screen (say screen1). it should be displayed as
> > DD -MMM(e.g. 27 - oct)''please tell me how to do this..
> > thank you .....
> > :))
> >
> >
> >
> >---------------------------------
> >Yahoo! Messenger with Voice. PC-to-Phone calls for ridiculously low rates.
> >--
> >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.
>
>
>
>
> ---------------------------------
> Yahoo! Messenger with Voice. Make PC-to-Phone 
> Calls to the US (and 30+ countries) for 2¢/min or less.
> --
> 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.