Date
Name
Plattform
Language
Kurzbeschreibung
Owner
Link
31.08.2002
FTP Beispiele
OS/390
 |
|
|
|
Anwendungsbeispiele für FTP Datenübertragungen zwischen verschiedenen Plattformen von OS/390 |
||
|
Gernot Ruban |
||
DB2 ist ein Produkt der
IBM Corporation. Bitte Copyright- und Trademark-Hinweise beachten!
Von Windows nach MVS
//STEP2 EXEC PGM=FTP,PARM='PC4711.ftp.addr.DE (EXIT=16'
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//INPUT DD *
user-name
dessen-psw
LOCSITE RECFM=VB LRECL=2044 TRACKS PRIMARY=150 SECONDARY=50
GET AUSZUG.TXT 'SPROD.SAP.ELKO.AUSZUG' (REPLACE
QUIT
Von MVS nach Solaris:
//FTP01 EXEC PGM=FTP
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//INPUT DD *
ftp.addr.de
user-name
dessen-psw
LOCSITE SBDATACONN=(IBM-273,ISO8859-1)
cd /data01/db2/dba/data/sdbp_prod
PUT 'SPROD.DWH.FUNLOAD.L702TADO.DATA' L702TADO.DEL
cd /data01/db2/dba/dml/dbpods
PUT 'SPROD.DWH.LOADIMP.VLK(L702TADO)' L702TADO.VLK
QUIT
/*
Von MVS nach AIX Binary:
//STEP1 EXEC PGM=FTP,PARM='spk05.enterprise.de (EXIT=16'
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//NETRC DD DSN=SRZ.PROD.FTPPARM(SPK05SAP),
// DISP=SHR
binary
CD /db2/SCP/daten/tabu
quote site umask 027
LOCSITE SBDATACONN=(IBM-273,ISO8859-1)
PUT 'SABP.ALLG.SMS.KRADR.SAVE(0)' s_da01202
QUIT
/*
Vom MVS auf ein LAN Laufwerk WIN/NT:
//STEP1 EXEC PGM=FTP,PARM='FS11 (EXIT=16'
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//NETRC DD DSN=SRZ.PROD.FTPPARM(FS11A),
// DISP=SHR
CWD //FS12/DATEN/DOKU/Wi-betr/MAXPLAN/TRANSFER
LOCSITE RECFM=VB LRECL=142 TRACKS PRIMARY=70 SECONDARY=10
GET DEBI.ASC 'SPROD.SAP.GIROVEND' (REPLACE
DELETE DEBI.ASC
QUIT
/*
Löschen einer Datei:
//STEP1 EXEC PGM=FTP,PARM='as05.enterprise.de (EXIT=16'
//SYSPRINT DD SYSOUT=*
//OUTPUT DD SYSOUT=*
//NETRC DD DSN=SRZ.PROD.FTPPARM(DEFAULT),
// DISP=SHR
//INPUT DD *
LOCSITE LRECL=132 RECFM=FB BLKSIZE=0 PRI=1 SEC=1 CY
CD PRODFTP/VLK
delete Tag
CLOSE
QUIT
/*
© Gernot Ruban