Este es el CLP Principal    <----------------------------------
   PGM PARM(&HOST &ORIGEN &DESTIN &USR001 &USR002)
 DCL &host *CHAR 15  /* Origen Archivo */
     DCL &ORIGEN *CHAR 30  /* Origen Archivo */
      DCL &DESTIN *CHAR 30  /* destino Archivo*/
      DCL &JOB    *CHAR 10
      DCL &MSG    *CHAR 30
      DCL &DAT    *CHAR 6
      DCL &USR001  *CHAR 10
      DCL &USR002  *CHAR 10

             RTVJOBA    JOB(&JOB) DATE(&DAT)

             CLRPFM     FILE(fuente) MBR(imput)
             OVRDBF     FILE(SOURCE) TOFILE(fuente) MBR(input)
             CALL ORATC53 PARM(&ORIGEN &DESTIN)
             DLTOVR *ALL
             CLRPFM     FILE(fuente) MBR(output)
             OVRDBF     FILE(INPUT) TOFILE(fuente) MBR(input)
             OVRDBF     FILE(OUTPUT) TOFILE(fuente) MBR(output)
             STRTCPFTP  RMTSYS(&host)

             CALL       ORATC52 PARM(&MSG)
             DLTOVR *ALL
  
             IF COND(&USR001 *NE ' ') THEN(DO)
             SNDMSG     MSG(&origen||' to ' ||&destin||' -- ' +
                          ||&MSG || '----' || &DAT) TOMSGQ(&USR001)
             ENDDO
             IF COND(&USR002 *NE ' ') THEN(DO)
             SNDMSG     MSG(&MSG ||'----'||&DAT) TOMSGQ(&USR002)
             ENDDO

Programa ORATC52 <-----------------------
      *****************************************************************
      * CHEQUEA SALIDA DE FTP                             *************
      *****************************************************************
     FOUTPUT  IP  E                    DISK
      *-------------------------------------------------------------- *
     C           *ENTRY    PLIST
     C                     PARM           MSG    30
      *-------------------------------------------------------------- *
     C           3         SUBSTSRCDTA:1  CD      3
     C           CD        IFEQ '226'
     C                     MOVELSRCDTA    MSG
     C                     ENDIF

     FSOURCE  O   F      92            DISK
     E                    TXT     1   4 80
     I            DS
     I                                        1  80 DONDE
     I                                        1  10 PUT
     I                                       11  40 ORIGEN
     I                                       41  80 DESTIN
     C           *ENTRY    PLIST
     C           ORIGEN    PARM           ORI    30
     C           DESTIN    PARM           DES    30
     C                     DO   3
     C                     ADD  1         L       60
     C           L         IFEQ 2
     C                     MOVELTXT,L     PUT
     C                     MOVE DONDE     TEXTO  80
     C                     ELSE
     C                     MOVE TXT,L     TEXTO
     C                     ENDIF
     C                     EXCPTDET
     C                     ENDDO
     C                     SETON                     LR
     OSOURCE  E                DET
     O                         L          6
     O                         UDATE     12
     O                         TEXTO     92