Puede probar y depurar su procedimiento de la siguiente forma.
x
Referencia: Notas de uso de SET DEFECHO = NONE
- Si emite el comando SET DEFECHO=NONE en un FOCEXEC, esta configuración no afecta a &ECHO en esa rutina. Entra en vigor como valor de &ECHO en el próximo procedimiento ejecutado (EX) y no se podrá cambiar a partir de ese momento.
- Si intenta restablecer &ECHO dentro del periodo de duración de su valor NONE, el valor que ha intentado establecer aparecerá emitiendo un comando -TYPE, pero no habrá cambiado.
Ejemplo: Cómo evitar la visualización del código de un procedimiento
El siguiente procedimiento consulta el valor del parámetro DEFECHO y emite una solicitud de TABLE en base al origen de datos EMPLOYEE:
? SET DEFECHO
-RUN
-TYPE ECHO = &ECHO
TABLE FILE EMPLOYEE
PRINT CURR_SAL CURR_JOBCODE
BY LAST_NAME BY FIRST_NAME
END
-RUN
La salida del comando de consulta indica que DEFECHO está desactivado (OFF, el valor por defecto):
DEFECHO OFF
El comando -TYPE muestra que el valor de &ECHO es OFF (por defecto):
ECHO = OFF
Puesto que &ECHO se encuentra desactivado, los comandos TABLE no aparecen mientras se ejecuta el procedimiento:
NUMBER OF RECORDS IN TABLE= 12 LINES= 12
PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY
PAGE 1
LAST_NAME FIRST_NAME CURR_SAL CURR_JOBCODE
--------- ---------- -------- ------------
BANNING JOHN $29,700.00 A17
BLACKWOOD ROSEMARIE $21,780.00 B04
CROSS BARBARA $27,062.00 A17
GREENSPAN MARY $9,000.00 A07
IRVING JOAN $26,862.00 A15
JONES DIANE $18,480.00 B03
MCCOY JOHN $18,480.00 B02
MCKNIGHT ROGER $16,100.00 B02
ROMANS ANTHONY $21,120.00 B04
SMITH MARY $13,200.00 B14
RICHARD $9,500.00 A01
STEVENS ALFRED $11,000.00 A07
END OF REPORTAhora, establezca DEFECHO=ON y vuelva a ejecutar el procedimiento.
La salida del comando de consulta indica que DEFECHO está activado (ON):
DEFECHO ON
El comando -TYPE muestra que el valor de &ECHO ha cambiado a ON:
ECHO = ON
Puesto que &ECHO se encuentra activado, los comandos TABLE aparecen mientras se ejecuta el procedimiento:
TABLE FILE EMPLOYEE
PRINT CURR_SAL CURR_JOBCODE
BY LAST_NAME BY FIRST_NAME
END
A continuación, aparece la salida:
NUMBER OF RECORDS IN TABLE= 12 LINES= 12
PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY
PAGE 1
LAST_NAME FIRST_NAME CURR_SAL CURR_JOBCODE
--------- ---------- -------- ------------
BANNING JOHN $29,700.00 A17
BLACKWOOD ROSEMARIE $21,780.00 B04
CROSS BARBARA $27,062.00 A17
GREENSPAN MARY $9,000.00 A07
IRVING JOAN $26,862.00 A15
JONES DIANE $18,480.00 B03
MCCOY JOHN $18,480.00 B02
MCKNIGHT ROGER $16,100.00 B02
ROMANS ANTHONY $21,120.00 B04
SMITH MARY $13,200.00 B14
RICHARD $9,500.00 A01
STEVENS ALFRED $11,000.00 A07
END OF REPORTAhora, emita el comando SET DEFECHO=NONE y vuelva a ejecutar el procedimiento.
SET DEFECHO = NONE
La salida del comando de consulta muestra que el valor de DEFECHO ha cambiado a NONE:
DEFECHO NONE
El comando -TYPE muestra que el valor de &ECHO es NONE:
ECHO = NONE
Puesto que el valor de DEFECHO es NONE, los comandos TABLE no aparecen mientras se ejecuta el procedimiento. La salida es:
NUMBER OF RECORDS IN TABLE= 12 LINES= 12
PAUSE.. PLEASE ISSUE CARRIAGE RETURN WHEN READY
PAGE 1
LAST_NAME FIRST_NAME CURR_SAL CURR_JOBCODE
--------- ---------- -------- ------------
BANNING JOHN $29,700.00 A17
BLACKWOOD ROSEMARIE $21,780.00 B04
CROSS BARBARA $27,062.00 A17
GREENSPAN MARY $9,000.00 A07
IRVING JOAN $26,862.00 A15
JONES DIANE $18,480.00 B03
MCCOY JOHN $18,480.00 B02
MCKNIGHT ROGER $16,100.00 B02
ROMANS ANTHONY $21,120.00 B04
SMITH MARY $13,200.00 B14
RICHARD $9,500.00 A01
STEVENS ALFRED $11,000.00 A07
END OF REPORTSi establece el valor de DEFECHO en NONE, no podrá cambiarlo. El siguiente comando SET intenta cambiar el valor a ON, pero la salida del comando de consulta indica que continúa siendo NONE:
SET DEFECHO=ON
? SET DEFECHO
DEFECHO NONE
