Esta truco nos permite pre-visualizar por pantalla los resultados de un
listado ejecutado interactivamente por un usuario.
DEFINIMOS LOS SUBCAMPOS DE LA ESTRUCTURA DE DATOS DE ESTADO DE PROGRAMA
* 
I		SDS
I					234   243  JOBDEV
I					244   253  JOBNAM	
I					254   263  JOBUSR
I                                       264   269  JOBNBR 
* Codigo de nuesta aplicacion
C
C
C
C
C
C
C
C
C
C
C
* Debemos preguntar al usuario si quiere imprimir o visualizar el resultado del listado
C                         EXFMT  TIPO 
* El campo DEVICE nos indica si quiere previsualizar el resultado del listado por la
pantalla.
* SI EL DISPOSITIVO SOLICITADO ES LA PANTALLA
C             DEVICE      IFEQ   'P'
* FORMUL es el nombre del fichero de impresion
C			  MOVEL  'FORMUL'  PARM1   10
* VISUALIZAMOS EL FICHERO DE IMPRESORA EN NUESTRA PANTALLA
C			  CALL   VERPRTF
* Nombre del fichero de impresión
C			  PARM   PARM1
* Nombre del trabajo que genera el listado
C			  PARM   JOBNAM
* Nombre del usuario que ejecuto el programa
C			  PARM   JOBUSR
* Numero del trabajo
C			  PARM   JOBNBR
 * SUPRIMIMOS EL FICHERO DE IMPRESORA // O P C I O N A L //
C			  CALL   SUPPRTF
C			  PARM   PARM1
C			  PARM   JOBNAM
C			  PARM   JOBUSR
C			  PARM   JOBNBR
C                         ENDIF
C			  MOVE   *ON	 *INLR
* PROGRAMA CL VERPRTF. PERMITE VISUALIZAR FICHEROS DE SPOOL
PGM PARM(&PARM1 &PARM2 &PARM3 &PARM4) 
DCL VAR(&PARM1) TYPE(*CHAR) LEN(10)
DCL VAR(&PARM2) TYPE(*CHAR) LEN(10)
DCL VAR(&PARM3) TYPE(*CHAR) LEN(10)
DCL VAR(&PARM4) TYPE(*CHAR) LEN(6)
DSPSPLF FILE(&PARM1) JOB(&PARM4/&PARM3/&PARM2) +  SPLNBR(*LAST)


* PROGRAMA CL SUPPRTF. SUPRIME FICHEROS DE SPOOL
PGM PARM(&PARM1 &PARM2 &PARM3 &PARM4) 
DCL VAR(&PARM1) TYPE(*CHAR) LEN(10)
DCL VAR(&PARM2) TYPE(*CHAR) LEN(10)
DCL VAR(&PARM3) TYPE(*CHAR) LEN(10)
DCL VAR(&PARM4) TYPE(*CHAR) LEN(6)
DLTSPLF FILE(&PARM1) JOB(&PARM4/&PARM3/&PARM2) +  SPLNBR(*LAST)