rem batch to load WDWTPOSW table on remote system
@echo off
set server=xxx.com
set userid=xxxxxxxx
set passwd=xxxxxxx
set table=WDWTPOSW
echo user %userid% %passwd% > ftpput.tmp
echo quote site sbdata=(500,1252) >> ftpput.tmp
echo quote site recfm=VB lrecl=140 blksize=14000 >> ftpput.tmp
echo quote site tracks pri=10 sec=10 >> ftpput.tmp
echo del '%userid%.%table%.CSV' >> ftpput.tmp
echo put %1 '%userid%.%table%.CSV' >> ftpput.tmp
echo quote site filetype=jes >> ftpput.tmp
echo put ftpput.bat >> ftpput.tmp
echo quit >> ftpput.tmp
ftp -s:ftpput.tmp -n %server%
del ftpput.tmp
exit
//xxxxxxxx JOB ,'WDWTPOSW LOAD',REGION=0M,MSGCLASS=D,NOTIFY=&SYSUID
//*--------------------------------------------------------------------*
//*        Load WSDIWWE.WDWTPOSW                    *
//*--------------------------------------------------------------------*
//TERM     EXEC PGM=IKJEFT01,DYNAMNBR=20
//STEPLIB  DD  DISP=SHR,DSN=SYS1.DSNDB2A.SDSNLOAD
//SYSTSPRT DD  SYSOUT=*
//SYSTSIN  DD  *
  DSN SYSTEM(DB2A)
     -TERM UTILITY(WDWTPOSW)
  END
//LOAD     EXEC PGM=DSNUTILB,PARM='DB2A,WDWTPOSW',REGION=0M
//SYSIN    DD  *
LOAD DATA INDDN SYSREC LOG NO RESUME YES NOCOPYPEND
FORMAT DELIMITED EBCDIC CCSID(500,1208,1200)
INTO TABLE WSDIWWE.WDWTPOSW (
   MATNR CHAR,
   UNIT_SERIAL CHAR,
   SHIPDATE CHAR,
   REF_ID CHAR,
   PART_SERIAL CHAR,
   VBELN_O CHAR,
   VBELN_D CHAR,
   P_PONO CHAR,
   MFG_LOCN CHAR,
   CUST_CTRY_WE CHAR,
   SPARE CHAR
   )
//SYSPRINT DD  DSN=&&LISTING,DISP=(NEW,PASS),
//             SPACE=(CYL,(10,50)),UNIT=SYSDA
//SYSREC   DD  DSN=&SYSUID..WDWTPOSW.CSV,DISP=SHR,DCB=BUFNO=30
//SYSERR   DD  DSN=&&ERR,DISP=(NEW,DELETE),
//             SPACE=(CYL,(10,50)),UNIT=SYSDA
//SYSDISC  DD  DSN=&&DISC,DISP=(NEW,DELETE),
//             SPACE=(CYL,(10,50)),UNIT=SYSDA
//SYSMAP   DD  DSN=&&MAP,DISP=(NEW,DELETE),
//             SPACE=(CYL,(10,50)),UNIT=SYSDA
//SYSUT1   DD  SPACE=(CYL,(10,50)),UNIT=SYSDA
//SORTOUT  DD  SPACE=(CYL,(10,50)),UNIT=SYSDA
//UTPRINT  DD  SYSOUT=*
//         IF  (LOAD.ABEND = TRUE ! LOAD.RC > 4) THEN
//FAILURE  EXEC PGM=IKJEFT01,DYNAMNBR=20
//LISTING  DD  DSN=&&LISTING,DISP=(OLD,PASS)
//SYSTSIN  DD  *
  TRANSMIT xxx.user DDNAME(LISTING) MSGDD(MESSAGE) NONOTIFY
//SYSTSPRT DD  SYSOUT=*
//MESSAGE  DD  *
Subject: Table WDWTPOSW not loaded
See attached file for details
//         ELSE
//SUCCESS  EXEC PGM=IKJEFT01,DYNAMNBR=20
//LISTING  DD  DSN=&&LISTING,DISP=(OLD,PASS)
//SYSTSIN  DD  *
  TRANSMIT xxx.user1 DDNAME(LISTING) MSGDD(MESSAGE) NONOTIFY
//SYSTSPRT DD  SYSOUT=*
//MESSAGE  DD  *
Subject: Table WDWTPOSW successfully loaded
See attached file for details
//         ENDIF
//         IF  (LOAD.RUN = TRUE) THEN
//SYSOUT   EXEC PGM=IEBGENER
//SYSPRINT DD  SYSOUT=*
//SYSUT1   DD  DSN=&&LISTING,DISP=(OLD,DELETE)
//SYSUT2   DD  SYSOUT=*,
//             SPACE=(CYL,(10,50)),UNIT=SYSDA
//SYSIN    DD  DUMMY
//         ENDIF
//

DMKRIO   CSECT                    DMK00010
         COPY OPTIONS                    DMK00020
         RDEVICE ADDRESS=(000,4),DEVTYPE=6012                           DMK00030
         RDEVICE ADDRESS=(240,8),DEVTYPE=3278                           DMK00040
         RDEVICE ADDRESS=(30A,2),DEVTYPE=7036,CLASS=(S,A,D,T)           DMK00050
         RDEVICE ADDRESS=(30E,2),DEVTYPE=7040,CLASS=(S,A,D,T)           DMK00060
         RDEVICE ADDRESS=(500,2),DEVTYPE=CTCA                           DMK00070
         RDEVICE ADDRESS=(1A0,32),DEVTYPE=3380                          DMK00080
         RCTLUNIT ADDRESS=000,CUTYPE=6012                    DMK00090
         RCTLUNIT ADDRESS=240,CUTYPE=3278                    DMK00100
         RCTLUNIT ADDRESS=308,CUTYPE=7031                    DMK00110
         RCTLUNIT ADDRESS=500,CUTYPE=CTCA                    DMK00120
         RCTLUNIT ADDRESS=1A0,CUTYPE=3880,FEATURE=32-DEVICE             DMK00130
         RCHANNEL ADDRESS=0,CHTYPE=MULTIPLEXOR                          DMK00140
         RCHANNEL ADDRESS=1,CHTYPE=BLKMPXR                    DMK00150
         RCHANNEL ADDRESS=2,CHTYPE=BLKMPXR                    DMK00160
         RCHANNEL ADDRESS=3,CHTYPE=BLKMPXR                    DMK00170
         RCHANNEL ADDRESS=5,CHTYPE=BLKMPXR                    DMK00180
         RIOGEN   CONS=240,ALTCONS=(241,000,001)                        DMK00190
         END                    DMK00200

ID BATCH
/JOB BMAVAS01 VAS01 MSGTEST
 CP MSG ALL  HELLO FROM BATCH 
WAKEUP  +01:00
 CP MSG ALL  HELLO FROM BATCH
/*