RPGLE - Scan and replace entire string

    RPGLE  - Scan and replace entire string

C*
     C     '&EXT'        Scan      WBTEXT
     C                   If        %Found
     C                   Eval      WBTEXT = %Trim(WBPEXT)
     C                   Endif
     C*
     C     '&DEPT'       Scan      WBTEXT
     C                   If        %Found
     C                   Eval      WBTEXT = %Trim(WBPDEPT)
     C                   Endif
     C*
     C     '&IMAGE'      Scan      WBTEXT
     C                   If        %Found
     C                   Eval      WBTEXT = 'No photo Available'
     C                   Endif