Macro: SEND$HELP

  #IF (!0>0)
    #IFSAME !1 OF TO
      #ERROR 300 INVALID POSITION FOR '!1'
    #ELSE
      #IFSAME !1 FIELD
        #IFCLASS !2 F         // test for file element
          #PUSH !h
          #SET H$ %!2         // get the fieldnumber of parameter
          SEND$HELP |CI!h !3 !4 !5 !6 !7 !8 !9
          #POP H$
        #ELSE
          #ERROR 998 UNKNOWN FIELD: !2
        #ENDIF
      #ELSE
        #IFSAME !1 FILE_FIELD
          #IFCLASS !2 F         // test for file element
            #PUSH !h
            #PUSH !g
            #SET H$ %!2  // get the fieldnumber of parameter
            #SET G$ !2   // get the filenumber of parameter
            SEND$HELP |CI!g |CI!h !3 !4 !5 !6 !7 !8 !9
            #POP G$
            #POP H$
          #ELSE
            #ERROR 998 UNKNOWN FIELD: !2
          #ENDIF
        #ELSE
          // DPush will check any untyped errors
          //#CHECK !1 _U // removed from  and placed here
          #DPUSH !1
          SEND$HELP !2 !3 !4 !5 !6 !7 !8 !9
        #ENDIF
      #ENDIF
    #ENDIF
  #ENDIF