Re: Processing a List from a command -- RPG400-L

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