Re: Can't figure this out

You have to use INDARA and also associate the indicator with function key
such as CF03(03). Recently learnt from the RPGIV forum hosted by Bob
Cozzi.

> Ok,
> Trying to start using the named indicators for the display files.  I've
> read the archives, and think this is right but it just won't compile.  Any
> ideas?
>
>      fPrenewalsccf   e             WorkStn IndDs(DspInds)
> RNF2565: Keyword INDDS is not allowed with this file.
>
>      d DspInds         ds
>      d   Mode_Err                      n   Overlay(Dspinds : 30)
>      d   Stra32_Err                    n   Overlay(Dspinds : 31)
>      d   Stra34_Err                    n   Overlay(Dspinds : 32)
>      d   Stra35_Err                    n   Overlay(Dspinds : 33)
>      A          R PRENEWPM
>      A*%%TS  DD  20041206  163148  RPower      REL-V5.0.1  WDSc
>      A                                  1  2SYSNAME
>      A                                  1 28'Assign New Permit Numbers'
>      A                                      DSPATR(HI)
>      A            CURDAT          L  O  1 69DATFMT(*ISO)
>      A            CURTIM          T  O  2 71TIMFMT(*HMS)
>      A                                      TIMSEP(*JOB)
>      A            PRGSYS        21A  O  2  2
>      A                                  8 18'Please Enter Starting Permit
> # For-
>      A                                       Each Area:'
>      A                                      DSPATR(UL)
>      A                                      DSPATR(HI)
>      A                                 11 21'Area 32 - City Hall Staff
> Parking:'
>      A                                 14 14'Area 34 - City Hall/Meter
> Exempt P-
>      A                                      arking:'
>      A                                 17 24'Area 35 - Meter Exempt
> Parking:'
>      A                                 23  3'F3=Exit'
>      A                                      COLOR(BLU)
>      A            STRA32         7Y 0B 11 60TEXT('Starting permit # for
> Area 32+
>      A                                      ')
>      A                                      EDTCDE(3)
>      A  31                                  DSPATR(RI PC)
>      A            STRA34         7Y 0B 14 60TEXT('Starting permit # for
> Area 34+
>      A                                      ')
>      A                                      EDTCDE(3)
>      A  32                                  DSPATR(RI PC)
>      A            STRA35         7Y 0B 17 60TEXT('Starting permit # for
> Area 35+
>      A                                      ')
>      A                                      EDTCDE(3)
>      A  33                                  DSPATR(RI PC)
>      A                                  5 18'Please Enter Mode To Run:'
>      A                                  5 48'L=List, U=Update'
>      A            MODE           1   B  5 45
>      A  30                                  DSPATR(RI PC)
>
> Am I missing something?
>
> Ron Power
> Programmer
> Information Services
> City Of St. John's, NL
> P.O. Box 908
> St. John's, NL
> A1C 5M2
> Tel: 709-576-8132
> Email: rpower@xxxxxxxxxx
> Website: http://www.stjohns.ca/
> ___________________________________________________________________________
> Success is going from failure to failure without a loss of enthusiasm. -
> Sir Winston Churchill
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>