|
midrange.com
What does += signify?
Thanks,
Albert York
-----Original Message-----
From: rpg400-l-bounces+albert.york=nissan-usa.com@xxxxxxxxxxxx
[SMTP:rpg400-l-bounces+albert.york=nissan-usa.com@xxxxxxxxxxxx] On Behalf Of
rob@xxxxxxxxx
Sent: Wednesday, July 21, 2004 1:09 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Array overlay.
Let me try repasting without some of the comments and see if that
inspires
anyone to respond
* SJQL0100 - QWDLSJBQ - List Subsystem Job Queue Entries
D pSJQL0100 s *
D SJQL0100 DS Qualified based(pSJQL0100)
D JobQueueName 10a
D JobQueueLib 10a
D SeqNbr 10i 0
D AllocInd 10a
D*
D*
D Reserved1 2a
D MaxAct 10i 0
D*
D MaxPty1 10i 0
D MaxPty2 10i 0
D MaxPty3 10i 0
D MaxPty4 10i 0
D MaxPty5 10i 0
D MaxPty6 10i 0
D MaxPty7 10i 0
D MaxPty8 10i 0
D MaxPty9 10i 0
D MaxPty 10i 0 Overlay(MaxPty1) dim(9)
For x = 1 to %elem(SJQL0100.MaxPty);
cmd += ' MAXPTY' + %char(x) + '(';
Select;
When SJQL0100.MaxPty(x)=-1;
RNF7503S Expression contains an operand that is not defined.
cmd += '*NOMAX';
Other;
cmd += %char(SJQL0100.MaxPty(x));
RNF7503S Expression contains an operand that is not defined.
EndSl;
cmd += ')';
EndFor;
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
|-----------------------------+-------------------------------------------|
| rob@xxxxxxxxx |
|
| Sent by: |
|
| rpg400-l-bounces@midrange.|
To|
| com | rpg400-l@xxxxxxxxxxxx
|
| |
cc|
| 07/21/2004 02:13 PM |
|
| |
Subject|
| Please respond to | Array overlay.
|
| RPG programming on the |
|
| AS400 / iSeries |
|
| <rpg400-l@xxxxxxxxxxxx>|
|
| |
|
| |
|
| |
|
|-----------------------------+-------------------------------------------|
As some people may prefer field names over an array I defined a data
structure like the following:
D pSJQL0100 s *
D SJQL0100 DS Qualified based(pSJQL0100)
D JobQueueName
10a Job Queue Name
D JobQueueLib 10a
Job
Queue Library
D SeqNbr 10i
0 Sequence number
D AllocInd
10a Allocation Indicator
D*
*NO=Not
aloc to sbs
D*
*YES=Alloc
to sbs
D Reserved1 2a
D MaxAct 10i
0 Maximum Active jobs
D*
-1
= *NOMAX
D MaxPty1 10i
0 Max jobs, priority 1
D MaxPty2 10i
0 Max jobs, priority 2
D MaxPty3 10i
0 Max jobs, priority 3
D MaxPty4 10i
0 Max jobs, priority 4
D MaxPty5 10i
0 Max jobs, priority 5
D MaxPty6 10i
0 Max jobs, priority 6
D MaxPty7 10i
0 Max jobs, priority 7
D MaxPty8 10i
0 Max jobs, priority 8
D MaxPty9 10i
0 Max jobs, priority 9
D MaxPty 10i 0 Overlay(MaxPty1) dim(9)
However, I am getting the following in the compile:
For x = 1 to %elem(SJQL0100.MaxPty);
cmd += ' MAXPTY' + %char(x) + '(';
Select;
When SJQL0100.MaxPty(x)=-1;
RNF7503S Expression contains an operand that is not defined.
cmd += '*NOMAX';
Other;
cmd += %char(SJQL0100.MaxPty(x));
RNF7503S Expression contains an operand that is not defined.
EndSl;
cmd += ')';
EndFor;
Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com
--
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 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.
