|
I had just left that part out D x s 5i 0 If it was X I am sure that the line For x = 1 to %elem(SJQL0100.MaxPty); Would have tossed it's cookies. But thanks for the suggestion. Rob Berendt -- Group Dekko Services, LLC Dept 01.073 PO Box 2000 Dock 108 6928N 400E Kendallville, IN 46755 http://www.dekko.com |-----------------------------+-------------------------------------------| | <Rick.Chevalier@americredi| | | t.com> | | | Sent by: | To| | rpg400-l-bounces@midrange.| <rp| | com | g40| | | 0-l| | 07/21/2004 03:12 PM | @mi| | | dra| | Please respond to | nge| | RPG programming on the | .co| | AS400 / iSeries | m> | | <rpg400-l@xxxxxxxxxxxx>| cc| | | | | | Subject| | | RE:| | | Arr| | | ay | | | ove| | | rla| | | y. | | | | | | | | | | | | | | | | | | | |-----------------------------+-------------------------------------------| Where is x defined? -----Original Message----- From: rpg400-l-bounces+rick.chevalier=americredit.com@xxxxxxxxxxxx [mailto:rpg400-l-bounces+rick.chevalier=americredit.com@xxxxxxxxxxxx]On Behalf Of rob@xxxxxxxxx Sent: Wednesday, July 21, 2004 3: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. -- 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.
midrange.com
