Exemple : exit utilisateur avec la routine Form 

Situation de base

Vous utilisez un exit utilisateur défini par l'utilisateur portant le nom ZUSEREXl et la routine Form appelée KONVERT.

Vous souhaitez convertir la valeur dans l'objet de zone Titre (TITEL) de l'infotype Identité (P0002) en texte de la zone Titre (TTOUT) de la table Compléments de nom  (T535N). Le titre ING (pour ingénieur) ne doit pas être utilisé.

Procédure

Le programme client pour l'exit utilisateur (comprenant la routine Form) peut se présenter comme suit :

 

     FORM KONVERT TITEL USING    VALUE(P0002) STRUCTURE P0002

                        CHANGING VALUE(RESULT).

          IF P0002-TITEL <> `ING.`.

             SELECT SINGLE * FROM T535N

                                  WHERE ART = `T`

                                  AND TITEL = P0002-TITEL.

         IF SY-SUBRC = 0.

                RESULT = T535N-TTOUT.

   ELSE.

                CLEAR RESULT.

   ENDIF.

ENDFORM.