Facilitar Testes de procedures

Pessoal quem ainda não teve que criar um programa que recebe parametros e na hora de testar fica perdendo muito tempo, pois tem que executar o programa chamador e tal....

Vejam o trecho de código a seguir. Reparem que dessa maneira fica simples simular se a procedure está fazendo o que deveria.

Código:

&IF DEFINED(UIB_IS_RUNNING) = 0
&THEN  /* Real Code for Production */
  DEFINE INPUT PARAMETER  pi-type       AS CHAR   NO-UNDO.
  DEFINE INPUT PARAMETER  pi-title      AS CHAR   NO-UNDO.
&ELSE /* Local Version for UIB */
  DEF VAR  pi-type       AS CHAR    NO-UNDO.
  DEF VAR  pi-title      AS CHAR    NO-UNDO.

  ASSIGN
    pi-type   = "Vendor"
    pi-title  = "Vendor Lookup by Name".
&ENDIF