Re: Processing a List from a command

[Jeff Young <jyoung0950@xxxxxxxxx>]

Does anyone have an RPGLE example of processing this type of a list where
there can be multiple entries?


Jeff Young
Sr. Programmer Analyst

On Fri, Jan 13, 2017 at 4:28 PM, Brian Parkins <goodprophet.bp@xxxxxxxxx>
wrote:

> This might help,
>
> http://www.ibm.com/support/knowledgecenter/ssw_ibm_i_73/rbam
> 6/defdlclhll.htm
>
> Brian.
>
> -----Original Message----- From: Jeff Young
> Sent: Friday, January 13, 2017 8:26 PM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: Processing a List from a command
>
>
> All,
> I have a command that defines a list consisting of a maximum of 10 entries
> of 4 elements each as follows:
>                     PARM       KWD(BOXING) TYPE(BOX_DATA) MAX(10) +
>                          PROMPT('Boxing Data')
> BOX_DATA:    ELEM       TYPE(*CHAR) LEN(20) PROMPT('LUCAS Box Id')
>                      ELEM       TYPE(*CHAR) LEN(1)  PROMPT('Box Type')
>                      ELEM       TYPE(*CHAR) LEN(9)  PROMPT('Box Qty') +
>                                      CHOICE('ie. "000000100" is 1')
>                      ELEM       TYPE(*HEX) LEN(1) CONSTANT(X'25')
>
> In my program, I define it as a 310 byte character field:
>     c                   Parm                    inBoxData       310
> When I execute the command with a single entry, I get the following data
> returned:
> EVAL INBOXDATA :X
>   00000     00010004 0004F1F2 F4F5F4F5 F4C1C1C1   - ......1245454AAA
>   00010     40404040 40404040 4040C7F0 F0F0F0F0   -           G00000
>   00020     F0F2F0F0 25404040 40404040 40404040   - 0200.
>   00030     40404040 40F04040 40404040 40404040   -      0
>   00040     40404040 40404040 40404040 40404040   -
>   00050     40404040 40404040 40404040 40404040   -
>   00060     40404040 40404040 40404040 40404040   -
>   00070     40404040 40404000 00000000 00000000   -        .........
>
> I know that the first 2 bytes are the number of entries, but what are the
> next 4 bytes before the start of my data?
>
> TIA
>
>
> Jeff Young
> Sr. Programmer Analyst
> --
> 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