type-incompatible error

[Former Member]

hi

am getting ''P" and "L" type-incompatible.

REPORT  ZTREE1.
      data: l,                         "leading  characters
            t,                         "trailing characters
            done.                      "done flag
      parameters p(25) default '    Vendor Number'.
      while done = ' '                 "the expression is evaluated first
          vary l from p+0  next p+1    "then vary assignments are performed
          vary t from p+24 next p+23.
         if l = ' ' and t = ' '.
             l = t = '-'.
         else.
             done = 'X'.
             endif.
         endwhile.
 write: / p.

pls try 2 execute this code

it giving above error

how can i remove that.

ketan..

[StMou]

Hi,

Try this

REPORT  ZTREE1.
      data: l type C length 1,                         "leading  characters
            t type C length 1 ,                         "trailing characters
            done.                      "done flag
      parameters p type C LENGTH 25 default '    Vendor Number'.
      while done = ' '                 "the expression is evaluated first
          vary l from p+0(1)
                 next p+1(1) RANGE P    "then vary assignments are performed
          vary t from p+24(1)
                 next p+23(1) RANGE P.
         if l = ' ' and t = ' '.
             l = t = '-'.
         else.
             done = 'X'.
             endif.
         endwhile.
 write: / p.

Rgds