Bonjour

Je débute sur les JCL. Nous avons récupéré un JCL existant et je souhaite l'optimiser.
Le principe est d'extraire des tables d'une base de données DB2 et de les transferer au format txt via une commande CFT.
J'ai donc une requête (Focus) qui fait un select * avec en paramètre, le nom de la table.

Ensuite, le JCL se présente comme ceci :
En rouge, le chemin et en bleu le nom de la table de la base de données.
Vous voyez que pour chaque Table, je suis obligé de saisir 3 fois son nom.
J'aimerais optimiser ceci pour ne saisir qu'une seule fois (dans une variable par exemple) le nom de la table. En effet, il y a 50 tables à exporter et saisir 150 fois n'est pas très optimisé.
Merci beaucoup.
-----
(....)

//OFFLINE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM (SGAQ)
RUN PROGRAM(FOCUS) PLAN(DSQLTA)
END
//SYSIN DD *
EX STRUCT CHEMIN='XXX.SIG.STRUCT.DATA.', TBN='UTDBKQ0.TEMS0200'
EX STRUCT CHEMIN='XXX.SIG.STRUCT.DATA.', TBN='UTDBKQ0.TEMS0300'
EX STRUCT CHEMIN='XXX.SIG.STRUCT.DATA.', TBN='UTDBKQ0.TEMS0400'
FIN
/*
//CJPDAE5 EXEC PGM=CFTUTIL
//CFTCOM DD DSN=Q208255.CFTV000.COM,DISP=SHR
//SYSUDUMP DD SYSOUT=*
//CFTOUT DD SYSOUT=*
//CFTIN DD *
SEND PART=DWHQGLBR,FNAME=XXX.SIG.STRUCT.DATA.UTDBKQ0.TEMS0200,
IDF=KQSGASR1,PARM=TEMS0200
SEND PART=DWHQGLBR,FNAME=XXX.SIG.STRUCT.DATA.UTDBKQ0.TEMS0300,
IDF=KQSGASR1,PARM=TEMS0300
SEND PART=DWHQGLBR,FNAME=XXX.SIG.STRUCT.DATA.UTDBKQ0.TEMS0400,
IDF=KQSGASR1,PARM=TEMS0400