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>
<TR>
<TH>... </TH>
</TR>
...
<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
   *                                   /*        'R' Right         
   *                                   /*        'C' Center (default)
   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