RE: Help needed for command lists within lists and RPGIV

["Bob Cozzi \(RPGIV\)" <cozzi@xxxxxxxxx>]

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.