Announcement

Collapse
No announcement yet.

TCPABI.INC problems

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • TCPABI.INC problems

    Well, I am probably missing something obvious, but I can't seem
    to get TCPABI.INC to work properly. At present, I can't get it
    to compile. I get "Error 525: Type id (?%&!#$) not allowed" in
    the line "FUNCTION TCP_ERROR(errnum%) AS STRING" presumably,
    there is something wrong with that %, but thats how it was on the
    downloads page and it does say it's for 3.5... so where am I going
    wrong?

    ------------------
    Jonathan Simpson
    Jonathan Simpson

  • #2
    As little as you gave here compiles fine with PB/DOS 3.5.. (referenced INC file is not part of my release set).

    About all I can think of is maybe "errnum" is defined as a SHARED or COMMON elsewhere in the file?


    Michael Mattias
    Tal Systems Inc. (retired)
    Racine WI USA
    [email protected]
    http://www.talsystems.com

    Comment


    • #3
      error 525 is decribed in the reference manual as being related to user
      defined types and unions, so the most likely problem is that you have
      a UDT or a union(or an element within one) called errnum. If that is the
      case you will have to rename the variable errnum in your function to
      something else or give the UDT or union(or element therein) a new unique
      name. If you are trying to pass a UDT called errnum to the function then
      you must leave off the % sign. If errnum is an element in a UDT then you
      must precede it with the name of the UDT and a period such as:

      FUNCTION MyFunction(TypeName.errnum) AS STRING

      Either way I prefer to leave off the % sign, it only leads to hard to
      find errors(at least for me anyway).

      buck


      ------------------

      [This message has been edited by Buck Huffman (edited February 21, 2004).]

      Comment


      • #4
        Hi Jonathan....

        You are probably using $DIM ALL metastatement, try changing the
        definition of the function:

        FUNCTION TCP_ERROR(errnum%) AS STRING

        to:

        FUNCTION TCP_ERROR(errnum AS INTEGER) AS STRING

        You will change all the definitions of the TCPABI.INC or to
        desist of using $DIM ALL...

        I am using this library and it works very well. Luck!!


        ------------------
        Gustavo Asplanatti
        [email protected]
        Gustavo Asplanatti
        gustavoa at computecsrl.com.ar

        Comment


        • #5
          Thanks, that got it I knew it had to be something stupid.

          Jonathan Simpson

          ------------------
          Jonathan Simpson
          Jonathan Simpson

          Comment

          Working...
          X