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



Jeff,

As Buck already told you, don't use '2B 0'. That would be a binary field
of 2 digits, which translates to 1 byte. Use '5U 0'; that is a 2-byte
unsigned integer. If you look at the hex dump you can see:
- First two bytes contain '0003'; that is the number of entries
- Than you have 3 2-byte integers, which contain the offsets to the entry
structures
- At offsets '0048', '0028' and '0008' you see the entry structures; each
structure starts with another 2-byte integer containing the number of
elements in the structure.

So your specifications should be something like this:

D InBoxData Ds 322
D Entries 5U 0
D Offsets 5U 0 Dim(<maximum number of
entries>)

D Box_Data DS Based(Boxing_Ptr)
D Elements 5U 0
D Data 30A


Joep Beckeringh
Systeemontwerper
Pantheon Automatisering B.V.


"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 16-01-2017 16:04:57:

From:

Jeff Young <jyoung0950@xxxxxxxxx>

To:

"RPG programming on the IBM i (AS/400 and iSeries)"
<rpg400-l@xxxxxxxxxxxx>

Date:

16-01-2017 16:11

Subject:

Re: Processing a List from a command

I have changed my code to use pointers to get the offsets and then each
list entry as follows:
D InBoxData Ds 322
D Entries 2B 0

D Offset S 2B 0 Based(Offset_Ptr)
D Box_Data S 30A Based(Boxing_Ptr)

C If Entries > *Zero
C* Set pointer for Offset to start of input data
C Eval Offset_Ptr = %Addr(InBoxData)
C* Set pointer for list entry
C Eval Boxing_Ptr = %Addr(InBoxData)
C For Ix = 1 to Entries
C* Set pointer to next offset
C Eval Offset_Ptr += 2
C* Set pointer to next list element
C Eval Boxing_Ptr += (Offset +2)
C Eval Boxing = %Trim(Boxing) + Box_Data
C EndFor
C EndIf

This works for the first entry, but when processing the 2nd entry, I do
not
get the next offset.
The data received from the command is:
EVAL inboxdata:x
00000 00030048 00280008 0003E3C5 E2E3C2D6 - ...ç......TESTBO
00010 E7F34040 40404040 40404040 4040C2F0 - X3 B0
00020 F0F0F0F0 F0F1F0F0 0003E3C5 E2E3C2D6 - 00000100..TESTBO
00030 E7F24040 40404040 40404040 4040C2F0 - X2 B0
00040 F0F0F0F0 F0F1F0F0 0003E3C5 E2E3C2D6 - 00000100..TESTBO
00050 E7F14040 40404040 40404040 4040C2F0 - X1 B0
00060 F0F0F0F0 F0F1F0F0 00000000 00000000 - 00000100........

Offset pointer is initialized to the following value:
EVAL Offset_Ptr
OFFSET_PTR = SPP:EC8EA271560016B2

After the first increment, the value of Offset pointer is:
EVAL Offset_Ptr
OFFSET_PTR = SPP:EC8EA271560016B4
The value of Offset is X'48

After the 2nd increment, the value of Offset pointer is:
EVAL Offset_Ptr
OFFSET_PTR = SPP:EC8EA271560016B6
The value of Offset is X'40'
This is not what I would expect.


All suggestions will be appreciated.



Jeff Young
Sr. Programmer Analyst

On Sat, Jan 14, 2017 at 5:07 AM, Alan Campin <alan0307d@xxxxxxxxx>
wrote:

Whoops, forgot the template on the type definition.

**FREE

ctl-opt Option(*SrcStmt:*NoDebugIO:*NoUnRef);

ctl-opt Main(TestIt);



dcl-pr Testit ExtPgm('TESTCMD1');

PR_InList LikeDs(TD_List);

end-pr;



dcl-ds TD_List Qualified Template;
FullList Char(1024);

NumberOfEntries Int(5) Overlay(FullList);

Offsets Int(5) Dim(10) Overlay(FullList:*Next);

end-ds;



//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
//* Test Counter cost

//* Input - Number of loops to do

//* Out - None

//* Returns - None

//*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
dcl-proc TestIt;

dcl-pi *N;

InList LikeDs(TD_List);

end-pi;



dcl-ds Item Qualified Based(PtrItem);

NumberOfElements Int(5);

BoxId Char(20);

BoxType Char(1);

BoxQty Packed(9:2);

end-ds;



dcl-s x Int(5);

dcl-s Qty Packed(11:2);



For x = 1 To InList.NumberOfEntries;

PtrItem = %Addr(Inlist.FullList) + InList.Offsets(x);

// Process Item

Qty += Item.BoxQty;

EndFor;



Return;



end-proc;


On Fri, Jan 13, 2017 at 3:39 PM, Alan Campin <alan0307d@xxxxxxxxx>
wrote:

It occurred to me after I sent it that I could do the same thing
with a
pointer without having to move the bytes. Had to remove the CONST on
the
input because you can''t take the address of a CONST..

**FREE

ctl-opt Option(*SrcStmt:*NoDebugIO:*NoUnRef);

ctl-opt Main(TestIt);



dcl-pr Testit ExtPgm('TESTCMD1');

PR_InList LikeDs(TD_List);

end-pr;



dcl-ds TD_List Qualified;


FullList Char(1024);

NumberOfEntries Int(5) Overlay(FullList);

Offsets Int(5) Dim(10) Overlay(FullList:*Next);

end-ds;



//* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
-
//* Test Counter cost

//* Input - Number of loops to do

//* Out - None

//* Returns - None

//*- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-
dcl-proc TestIt;

dcl-pi *N;

InList LikeDs(TD_List);

end-pi;



dcl-ds Item Qualified Based(PtrItem);

NumberOfElements Int(5);

BoxId Char(20);

BoxType Char(1);

BoxQty Packed(9:2);

end-ds;



dcl-s x Int(5);

dcl-s Qty Packed(11:2);



For x = 1 To InList.NumberOfEntries;


PtrItem = %Addr(Inlist.FullList) + InList.Offsets(x);

// Process Item


Qty += Item.BoxQty;

EndFor;



Return;



end-proc;

On Fri, Jan 13, 2017 at 2:40 PM, <dlclark@xxxxxxxxxxxxxxxx> wrote:

"RPG400-L" <rpg400-l-bounces@xxxxxxxxxxxx> wrote on 01/13/2017
04:46:07
PM:
Does anyone have an RPGLE example of processing this type of a
list
where
there can be multiple entries?

You just have to use a BASED data structure and a little
pointer
arithmetic. I've done it in CL (with *PTR and DEFINED using %ADDR
and
%OFFSET) -- not in RPG -- but the concept is the same.

Sincerely,

Dave Clark
--
int.ext: 91078
direct: (937) 531-6378
home: (937) 751-3300

Winsupply Group Services
3110 Kettering Boulevard
Dayton, Ohio 45439 USA
(937) 294-5331




************************************************************
*********************************
This email message and any attachments is for use only by the named
addressee(s) and may contain confidential, privileged and/or
proprietary
information. If you have received this message in error, please
immediately notify the sender and delete and destroy the message
and all
copies. All unauthorized direct or indirect use or disclosure of
this
message is strictly prohibited. No right to confidentiality or
privilege
is waived or lost by any error in transmission.
************************************************************
*********************************
--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our
affiliate
link: http://amzn.to/2dEadiD



--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: http://amzn.to/2dEadiD

--
This is the RPG programming on the IBM i (AS/400 and 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.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:
http://amzn.to/2dEadiD

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.