# ZOS: exemples de travaux JCL

{{INLINETOC}}

## BATCH OS390

### Copier un fichier d'un serveur vers une LPAR

Le jcl FTP ci-dessous effectue les actions suivantes:
  - Connecter à MY.FTP.SERVER.COM
  - Aller dans le dossier "DEVELOPMENT / FRM / DATA04" et copiez "TEST.TXT"
  - Allouer le fichier séquentiel ' MF.DATA.SET ' avec RECFM = FB LRECL = 167
  - 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).

### Copier un fichier d'une LPAR vers un serveur

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
''''''//*
```

## BATCH JAVA

### Téléchargement FTP

```
''''''//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
''''''/*
''''''//*
''''''/*
```