     A                                       DSPSIZ(27 132)
     A* -----------------------------------------------------------------------
     A          R FORMVIEW
     A* -----------------------------------------------------------------------
     A
     A* A message line
     A                                  1 10'&&F'
     A                                  2 10'<<INSTRUCTION>>'
     A* Insert a table that covers 90% of the panel
     A                                  3  1'&&90%'
     A* The table to show in a large device, e.g. a tablet
     A  01                              3 10'<<TABLE1>>'
     A  01                              3 10HTML('
     A                                       Type: Table
     A                                       OnRowClicked: ROWCLICK
     A* Define column 1 - NAMECOL
     A                                       Col%1
     A                                       (
     A                                         Name: NAMECOL
     A                                         Type: Label
     A                                         Header.Value: "Name"
     A                                         Content
     A                                         {
     A                                           Font.Size: 25
     A                                         }
     A                                       )
     A
     A* Define column 2 - ADDRESSCOL
     A                                       Col%2
     A                                       (
     A                                         Name: ADDRESSCOL
     A                                         Type: Label
     A                                         Header.Value: "Address"
     A                                         Width: Fill
     A                                         Content.Font.Size: 12
     A                                       )
     A                                      ')
     A* The table to show in a small device, e.g. a mobile phone
     A N01                              3 10'<<TABLE1>>'
     A N01                              3 10HTML('
     A                                       Type: Table
     A                                       OnRowClicked: ROWCLICK
     A* Define column 1 - NAMECOL
     A                                       Col%1
     A                                       (
     A                                         Name: NAMECOL
     A                                         Type: Label
     A                                         Width :"40%"
     A                                         Header.Value: "Name"
     A                                         Content
     A                                         {
     A                                           Font.Size: 14
     A                                         }
     A                                       )
     A* Define column 2 - ADDRESSCOL
     A                                       Col%2
     A                                       (
     A                                         Name: ADDRESSCOL
     A                                         Type: Label
     A                                         Header.Value: "Address"
     A                                         Width: Fill
     A                                         Content.Font.Size: 12
     A                                       )
     A                                      ') 