RE: Can't figure this out

Ron,

You need to have the INDARA keyword in the display file.

Charles Wilt
iSeries Systems Administrator / Developer
Mitsubishi Electric Automotive America
ph: 513-573-4343
fax: 513-398-1121
 

> -----Original Message-----
> From: RPower@xxxxxxxxxx [mailto:RPower@xxxxxxxxxx]
> Sent: Monday, December 06, 2004 3:01 PM
> To: RPG programming on the AS400 / iSeries
> Subject: Can't figure this out
> 
> 
> 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.
>