Re: New to ILE

[Paul Tuohy <tuohyp@xxxxxxxxxxxxx>]

Hi Bob,

It looks as if you have coded the DATEMAIN1 program (Section 3.4.4) as two
source members - correct?

They should be coded as one - the main program, immediately followed by the Day
of Week subprocedure.

You can save yourself some typing by downloading the source for the red book -
you should find the link on the same web page as the book.

Regards

Paul Tuohy

"Bob O." wrote:

> I am trying out some RPGILE for the first time.  I am testing a simple
> program from the "Who Knew You Could Do That With RPGIV" Redbook.  It is the
> first program in the book that returns the day of the week for a date passed
> to the program.
>
> When I run the command...
> CRTBNDRPG PGM(DORTEST/DAYPR) SRCFILE(DORTEST/QRPGLESRC) DFTACTGRP (*NO)
> ACTGRP(*NEW)
>
> ... I get the error message "Program DAYPR in library DORTEST not created".
> The message in the job log is:
>
> 5>> CRTBNDRPG PGM(DORTEST/DAYPR) SRCFILE(DORTEST/QRPGLESRC) DFTACTGRP(*NO)
> ACTGRP(*NEW)
> Definition not found for symbol 'DAYOFWEEK'.
> Program DAYPR in library DORTEST not created.
> Data area RETURNCODE created in library QTEMP.
> Compilation failed. Program DAYPR not created in library DORTEST.
>
> Am I missing some important step?  Is the code from the book missing
> something?  Below is a copy of the source code from the book that I used.
> Any help would be appreciated.  Thank you...
>
> Procedure Interface:
>
>       *
>       *
>       *  Program name:       DayPI
>       *  Date:               10/06/2002
>       *
>       *
>       *********************************************************
>       *
>       * Procedure Interface to calculate the day of the week
>
>      P DayOfWeek       B
>
>       * Procedure Interface definition
>      D DayOfWeek       PI             1  0
>      D WorkDate                        D
>
>      D AnySunday       C                   D'1999-06-13'
>
>      D WorkNum         S              7  0
>      D WorkDay         S              1  0
>
>      C     WorkDate      SubDur    AnySunday     WorkNum:*D
>      C     WorkNum       div       7             WorkNum
>      C                   Mvr                     WorkDay
>
>      c                   If        WorkDay < 1
>      c                   Return    WorkDay + 1
>      c                   Else
>      c                   Return    WorkDay
>      C                   EndIf
>
>       * Procedure Interface end marker
>      P                 E
>
> ------------------------------------------------------------------------
>
> Main Procedure:
>
>       *
>       *
>       *  Program name:       Day1
>       *  Date:               10/06/2002
>       *
>       *
>       *********************************************************
>       *
>       * Prototype for the sub procedure DayOfWeek:
>       *
>      D DayOfWeek       PR             1  0
>      D  InputDate                      D   Datfmt(*ISO)
>
>       * Days of the week name table - note no field names are required
>      D NameData        DS
>      D                                9    Inz('Monday')
>      D                                9    Inz('TuesDay')
>      D                                9    Inz('Wednesday')
>      D                                9    Inz('Thursday')
>      D                                9    Inz('Friday')
>      D                                9    Inz('Saturday')
>      D                                9    Inz('Sunday')
>
>       * Define the array as an ofvelay  of the DS name
>      D Name                           9    Dim(7) Overlay(NameData)
>
>      D DayName         S              9
>      D WorkDate        S               D   Datfmt(*ISO)
>
>       * Program Input Parameters
>      C     *Entry        Plist
>      C                   Parm                    WorkDate
>
>       * Using DayOfWeek, initialize DayName with the gaboe name
>      C                   Eval      DayName = Name(DayOfWeek(WorkDate))
>
>       * Display the result
>      C     DayName       Dsply
>
>      c                   Eval      *InLr = *On
>
> _________________________________________________________________
> Join the world’s largest e-mail service with MSN Hotmail.
> http://www.hotmail.com
>
> _______________________________________________
> 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.