RE: Help needed for command lists within lists and RPGIV

["Tucker Gerry" <Gerry.Tucker@xxxxxxxxxxxxxxx>]

Bob,

If I've worked this out correctly, the data structure should look like
this:

     D Input           DS
     D  ListCnt                       5I 0      'number of lists, =2
     D  List1Cnt                      5I 0      'number of lists within
list1, =0
     D  List1Ofs                      5I 0      'offset to list1, =
x'19'
     D  List2Cnt                      5I 0      'number of lists within
list2, =0
     D  List2Ofs                      5I 0      'offset to list2, =
x'0A'
     D   Elem2Cnt                     5I 0      'number of elements in
list2, =2
     D    Time2                       6S 0
     D    Date2                       7S 0
     D   Elem1Cnt                     5I 0      'number of elements in
list1, =2
     D    Time1                       6S 0
     D    Date1                       7S 0

It took me a little while to remember how complex lists worked, but
thanks to Buck and yourself I got there in the end.  The one thing that
I did remember was that the lists are passed in reverse.

Many thanks again,

Gerry Tucker,
Technicolor Distribution Services
Wembley, England



-----Original Message-----
From: Bob Cozzi (RPGIV) [mailto:cozzi@rpgiv.com]
Sent: 30 October 2001 15:08
To: rpg400-l@midrange.com
Subject: RE: Help needed for command lists within lists and RPGIV


I'm going from a 12-year memory (last time I did this kind of thing..)

The questionable issue is the ELEM list within an ELEM list. I think the
system adds the additional LISTCNT value in from the list of ELEMS. So
each sub ELEM will have a 2-byte binary value that contains a count of
the number of elemens (which is always 2 in your case). The out
container ELEM also has that same value applied.

Let me know if this works, but like I said, I did it from memory.

     D Input           DS
     D  ListCnt                       5I 0
     D   Elem1Cnt                     5I 0
     D    Time1                       6S 0
     D    Date1                       7S 0
     D   Elem2Cnt                     5I 0
     D    Time2                       6S 0
     D    Date2                       7S 0

Bob Cozzi
cozzi@rpgiv.com
Visit the new on-line iSeries Forums at: http://www.rpgiv.com/forum

> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On
> Behalf Of Buck Calabro
> Sent: Tuesday, October 30, 2001 8:45 AM
> To: rpg400-l@midrange.com
> Subject: RE: Help needed for command lists within lists and RPGIV
>
> >Given the following portion of a command definition, how do I
> >define the
> >incoming parameter in RPGIV for the 'Period'???
> >
> >    Parm       Period
+
> >               Type( EPeriod )
+
> >               Prompt( 'Time period for log output' )
> >
> > EPeriod:
+
> >    Elem       Type( EStrTim )
+
> >               Prompt( 'Start time and date' )
> >
> >    Elem       Type( EEndTim )
+
> >               Prompt( 'End time and date' )
> >
> >EStrTim:
+
> >    Elem       Type( *Time )
+
> >               Prompt( 'Beginning time' )
> >
> >    Elem       Type( *Date )
+
> >               Prompt( 'Beginning date' )
> >
> >EEndTim:
+
> >    Elem       Type( *Time )
+
> >               Prompt( 'Ending time' )
> >
> >    Elem       Type( *Date )
+
> >               Prompt( 'Ending date' )
>
> Perhaps the easiest thing to do would be to declare it a very long
character
> field and use a data structure to map out the individual lists.
There'll be
> a two byte binary "element count" in front of each list.  Dump the
character
> field in hex and you'll see what I mean.
>   --buck
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> 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@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.