/IF NOT DEFINED (FTPCPP_QRPGLEH)
      /DEFINE FTPCPP_QRPGLEH
     /*********************************************************************/
     /* Header File Name: FTPCPP.QRPGLEH                                  */
     /*  generate and execute ftp script                                  */
     /*  messages are redirected to spoolfile                             */
     /*********************************************************************/
     D FTPCPP          PR                  EXTPGM('FTPCPP')
     D  ZielSystem                   32A   CONST
     D  User                         10A   CONST
     D  Password                     10A   CONST
     D  Mode                         10A   CONST
      * ascii ebcdic or binary
     D  Direction                     3A   CONST
      * put or get
     D  Fromfile                     32A   CONST
      * path local System
     D  Tofile                       32A   CONST
      * path remote System
      /ENDIF