× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Ah the missing piece.  Ok.  Thanks,

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




CWilt@xxxxxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/12/2004 04:40 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
rpg400-l@xxxxxxxxxxxx
cc

Subject
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.
> 
--
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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.