RECORD rec-name
          rec-component
         .
         .
         .
   END RECORD [ rec-name ]

     rec-component:  { data-type rec-item [,...] }
                     { group-clause                              }
                     { variant-clause                            }

     rec-item:       { unsubs-var [ = int-const ]                }
                     { array ( [int-const1 TO] int-const2,...)
                       [ = int-const]                            }
                     { FILL [ ( int-const ) ] [ = int-const ]    }

     group-clause:   GROUP group-name [ ( int-const,... ) ]
                           rec-component
                               .
                               .
                               .
                     END GROUP [ group-name ]

     variant-clause: VARIANT
                        case-clause
                             .
                             .
                             .
                     END VARIANT

     case-clause:    CASE
                        [ rec-component ]
                              .
                              .
                              .