Le jcl FTP ci-dessous effectue les actions suivantes:

1. Connecter à MY.FTP.SERVER.COM
2. Aller dans le dossier “DEVELOPMENT / FRM / DATA04” et copiez “TEST.TXT”
3. Allouer le fichier séquentiel ' MF.DATA.SET ' avec RECFM = FB LRECL = 167
4. Ecrire le contenu de “TEST.TXT ” dans le fichier séquentiel nouvellement attribué.

''''''//STEP1 EXEC PGM=FTP
''''''//SYSIN DD *
''''''MY.FTP.SERVER.COM
''''''USERID
''''''PASSWORD
''''''CD /DEVELOPMENT/FRM/DATA04
''''''LOCSITE RECFM=FB LRECL=167
''''''GET TEST.TXT 'MF.DATA.SET'
''''''QUIT
''''''//*

La commande “locsite” est utilisée pour fournir le LRECL et le RECFM pour le nouvel ensemble de données . Les autres paramètres DCB seront extraits de SYS1.TCPPARMS (FTPDATA).

Le batch ci-dessous écrit un jeu de données mainframe sur un serveur. L'instruction “ASCII” indique au programme FTP de convertir EBCDIC en ASCII avant de stocker le fichier sur le serveur.

''''''//STEP1 EXEC PGM=FTP
''''''//SYSIN DD *
''''''MY.FTP.SERVER.COM
''''''USERID
''''''PASSWORD
''''''ASCII
''''''CD /DEVELOPMENT/FRM/DATA04
''''''LOCSITE RECFM=FB LRECL=167
''''''PUT 'MF.DATA.SET' TEST.TXT
''''''QUIT
''''''//*

''''''//ITOMCAT JOB ,CARTER,MSGLEVEL=(1,1)
''''''//* *******************************************************************
''''''//* *******************************************************************
''''''//*
''''''//*SH
''''''//* run scp in shell
''''''//JS030EXEC PGM=BPXBATCH,REGION=0M
''''''//STDOUTDD SYSOUT=*
''''''//STDERRDD SYSOUT=*
''''''//STDPARM   DD *
''''''SH scp -v -B /var/tomcat usert@xx.xxx.xxx.xx:/data/+
''''''jacques.nougat/repos/support/ibm/jakarta-tomcat-3.3.2.zip
''''''/*
''''''//*
''''''/*