Re: Day of the week

["Alagiri rethinavelu" <alagiri.rethinavelu@xxxxxxxxx>]

Hi,

In ILE Cobol or RPG ,you can retrieve the day of week using CEEDYWK
Api.Foremore info please visit the following link.

http://publib.boulder.ibm.com/infocenter/iseries/v5r3/index.jsp?topic=/apis/apiexusdata.htm

Thanks,
Alagiri


On 8/15/06, Semiha Balkaya(İşbank) <sbalkaya@xxxxxxxxxxxxx> wrote:
> Hi there
>
> Is there any way to retrieve Day Of Week value  in COBOL/400?
> I don't use ILE COBOL and when I try the statement for ILE COBOL, sure it
> gives syntax error written in below.
> How can I get this value in my program?
>
>
> Message   . . . . :   ANS COBOL reserved word DAY-OF-WEEK will be accepted
> as a
>   nonreserved word.
>
> Cause . . . . . :   DAY-OF-WEEK is a reserved word in the 1985 ANSI COBOL
>   standard (revised 1989), but it is not a COBOL/400* reserved word.
>
> Recovery  . . . :   Do not use ANS (American National Standard) COBOL
> reserved
>   words that are not COBOL/400 reserved words.
>
>
>
>
>
> In ILE Cobol you can:
>
> 77 w-giorno        pic  9(1) value zero.
>
> ACCEPT w-giorno from DAY-OF-WEEK
> display " today is " w-giorno
>         ".th day of the week".
>
> Good luck.
>
>        Domenico Finucci
>
>
> --
> This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
> list
> To post a message email: COBOL400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
> or email: COBOL400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/cobol400-l.