problem with using D-specs in a procedure

An associate was trying to use some code shown in
Bob Cozzi's RPG IV book and it won't compile. I've looked
at it and don't see the problem. What am I missing?

Joe Teff

                                       

     **=============================================================**
     ** WEEKDAY( date )
     **  Return character form of day of week from input date
     **  Input date can be any valid date/date format
     **=============================================================**

     P WeekDay         B                   Export

     D WeekDay         PI            10A
     D  InputDate                      D   Const DatFmt(*ISO)

     D Days            DS
     D  Sunday                       10A   Inz('Sunday')
     D  Monday                       10A   Inz('Monday')
     D  Tuesday                      10A   Inz('Tuesday')
     D  Wednesday                    10A   Inz('Wednesday')
     D  Thursday                     10A   Inz('Thursday')
     D  Friday                       10A   Inz('Friday')
     D  Saturday                     10A   Inz('Saturday')
     D  Day                          10A   Dim(7) Overlay(Sunday)

     C                   Return    Day(DayOfWeek(InputDate))

     P WeekDay         E

    94 D Days            DS                                                     
                                 000000     009400
    95 D  Sunday                       10A   Inz('Sunday')                      
                                 000000     009500
    96 D  Monday                       10A   Inz('Monday')                      
                                 000000     009600
    97 D  Tuesday                      10A   Inz('Tuesday')                     
                                 000000     009700
    98 D  Wednesday                    10A   Inz('Wednesday')                   
                                 000000     009800
    99 D  Thursday                     10A   Inz('Thursday')                    
                                 000000     009900
   100 D  Friday                       10A   Inz('Friday')                      
                                 000000     010000
   101 D  Saturday                     10A   Inz('Saturday')                    
                                 000000     010100
   102 D  Day                          10A   Dim(7) Overlay(Sunday)             
                                 000000     010200


          A d d i t i o n a l   D i a g n o s t i c   M e s s a g e s
 Msg id  Sv Number Seq     Message text
*RNF7303 30    102 010200  Subfield DAY defined with keyword OVERLAY is too big;
                           specification ignored.
*RNF7503 30    104 010400  Expression contains an operand that is not defined.
 * * * * *   E N D   O F   A D D I T I O N A L   D I A G N O S T I C   M E S S 
A G E S   * * * * *


      WEEKDAY Field References:
         Field             Attributes         References (D=Defined M=Modified)
         INPUTDATE         D(10*ISO-)             92D    104
*RNF7031 DAYS              DS(70)                 94D
*RNF7031 SUNDAY            A(10)                  95D    102
*RNF7031 MONDAY            A(10)                  96D
*RNF7031 TUESDAY           A(10)                  97D
*RNF7031 WEDNESDAY         A(10)                  98D
*RNF7031 THURSDAY          A(10)                  99D
*RNF7031 FRIDAY            A(10)                 100D
*RNF7031 SATURDAY          A(10)                 101D
         DAY(7)            A(10)                 102D    104


                           M e s s a g e   S u m m a r y
 Msg id  Sv Number Message text
*RNF7031 00      9 The name or indicator is not referenced.
*RNF7303 30      1 Subfield defined with keyword OVERLAY is too big;
                   specification ignored.
*RNF7503 30      1 Expression contains an operand that is not defined.
       * * * * *   E N D   O F   M E S S A G E   S U M M A R Y   * * * * *


         * * * * *   E N D   O F   F I N A L   S U M M A R Y   * * * * *
Compilation stopped. Severity 30 errors found in program.
          * * * * *   E N D   O F   C O M P I L A T I O N * * * * *