Table

Creates a simple table for a given array. With H3-TABLE-COLOR, for headline and table, different background colors can be set. The rows will be colored alternately.

<TABLE>
<TH>
<TD> ... </TD>
</TH>
<TR>
<TD> ... </TD>
</TR>
</TABLE>

ALIGN="left|right|center", BORDER="n", NOWRAP

1. H3-TABLE

   1 H3ROW           (N4)                 /* i /m : Number of rows
   1 H3COLUMN        (N4)                 /* i /m : Number of columns
   1 H3ARRAY2VALUE   (A/1:V,1:V) DYNAMIC  /* i /mh: Table elements
   1 H3ARRAY2ALIGN   (A1/1:V,1:V)         /* i /M : Alignment of the table cells
   *                                      /*        'L' Left (default)
   *                                      /*        'R' Right
   *                                      /*        'C' Center
   1 H3ARRAY2NOWRAP  (L/1:V,1:V)          /* i /m : No automatic wrapping  
   1 H3HEADLINE      (L)                  /* i /M : 1st line as headline
   1 H3ALIGN         (A1)                 /* i /M : Alignment of the table     
   *                                      /*        'L' Left (default)
   *                                      /*        'R' Right
   *                                      /*        'C' Center
   1 H3SUPPRESSEMPTY (L)                  /* i /m : Set to TRUE if cell is         
   *                                      /*        to be displayed
   *                                      /*        despite being empty
   1 H3ISHTML        (L)                  /* i /m : Transform value to
   *                                      /*        HTML
   1 H3BORDER        (N4)                 /* i /M : Set border size
   

2. H3-TABLE-COLOR

   1 H3ROW           (N4)                 /* i /m : Number of rows
   1 H3COLUMN        (N4)                 /* i /m : Number of columns
   1 H3TITLECOLOR    (A032)               /* i /M : Color of headline
   1 H3LINECOLOR     (A032)               /* i /M : Color of lines
   1 H3ARRAY2VALUE   (A/1:V,1:V) DYNAMIC  /* i /mh: Table elements 
   1 H3ARRAY2ALIGN   (A001/1:V,1:V)       /* i /m : Alignment of the table cells
   *                                      /*        'L' Left (default)
   *                                      /*        'R' Right
   *                                      /*        'C' Center
   1 H3ARRAY2NOWRAP  (L/1:V,1:V)          /* i /m : No automatic wrapping
   1 H3HEADLINE      (L)                  /* i /m : 1st line as headline
   1 H3ALIGN         (A1)                 /* i /M : Alignment of the table
   *                                      /*        'L' Left (default)
   *                                      /*        'R' Right
   *                                      /*        'C' Center
   1 H3SUPPRESSEMPTY (L)                  /* i /m : Set to TRUE if cell is
   *                                      /*        to be displayed 
   *                                      /*        despite being empty
   1 H3ISHTML        (L)                  /* i /m : Transform value to
   *                                      /*        HTML
   1 H3BORDER        (N4)                 /* i /m : Set border size
   

PERFORM H3-TABLE H3ROW H3COLUMN H3ARRAY2VALUE(*,*)
      H3ARRAY2ALIGN(*,*) H3ARRAY2NOWRAP(*,*) H3HEADLINE H3ALIGN
      H3SUPPRESSEMPTY H3ISHTML H3BORDER

PERFORM H3-TABLE-COLOR H3ROW H3COLUMN H3TITLECOLOR H3LINECOLOR
      H3ARRAY2VALUE(*,*) H3ARRAY2ALIGN(*,*) H3ARRAY2NOWRAP(*,*) H3HEADLINE H3ALIGN
      H3SUPPRESSEMPTY H3ISHTML H3BORDER