* Fichero de impresión
     FQPRINT    O    E             PRINTER OFLIND(*INOF)
      * Fichero en el que hemos anotado todos los eventos
      * producidos en el proceso de FTP en batch
     FOUTPUT    IF   E             DISK
      *                   
     C     *IN02         DOWEQ         *OFF
     C                   READ          OUTPUT                   02
     C   02              LEAVE
      * Comprobamos si el código 550 está en el campo SRCDTA y                  
      * si está imprimimos el error
     C                   IF         %SUBST(SRCDTA:1:4) = '550 '
     C                   EXCEPT    ERROR
     C                   ENDIF
      *
     C                   ENDDO
      *
     C                   MOVE      *ON           *INLR
     OQPRINT    E            ERROR       1
     O                       SRCDTA              80