RE: Can't figure this out

["Bob Cozzi" <cozzi@xxxxxxxxx>]

As is usually the problem...

The INDARA keyword must be used in the DSPF DDS in order to use the INDDS
keyword.

-Bob


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of RPower@xxxxxxxxxx
Sent: Monday, December 06, 2004 2: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.