SUB sub-name [ pass-mech ] [ ( [ formal-parm ],... ) ]
          [ statement ]...
      { END SUB }
      { SUBEND  }

        pass-mech:    { BY DESC  }
                      { BY REF   }
                      { BY VALUE }

                                {unsubs-var-name            }
        formal-parm:
        [data-type]{array-name([int-const],...)}[=int-const][pass-mech]
                                {          [ ,       ]...   }