Vous pouvez utiliser le langage JCL en ligne à l'intérieur d'une commande Rational Build Agent de type step. Avec cette méthode de soumission des travaux, vous pouvez utiliser des paramètres de substitution pour définir des valeurs telles que le qualificatif de haut niveau des ensembles de données source. Les paramètres sont remplacés par les valeurs indiquées dans l'onglet des propriétés de la définition de génération avant la soumission du travail.
.submitJCL -c
//HELLO JOB ,NOTIFY=${HLQ}
/*JOBPARM S=*
// SET HLQ=\'${HLQ}\'
//*
//* COBOL COMPILATION
//*
//COBOL EXEC PGM=IGYCRCTL,PARM='NODECK,OBJECT,LIB'
//STEPLIB DD DSN=COBOL.V4R1M0.SIGYCOMP,DISP=SHR
//SYSIN DD *
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
PROCEDURE DIVISION.
MAIN.
DISPLAY 'HELLO, RTCZ.'.
STOP RUN.
/*
//SYSLIN DD DSN=&HLQ..SAMPLE.OBJ(HELLO),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//*
//* LINKEDIT
//*
//LINKEDIT EXEC
PGM=IEWBLINK,PARM='LIST,LET,MAP,XREF,REUS,RENT'
//SYSLIN DD *
INCLUDE SYSLIB(HELLO)
NAME HELLO(R)
/*
//SYSLIB DD DSN=&HLQ..SAMPLE.OBJ,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
//SYSLMOD DD DSN=&HLQ..SAMPLE.LOAD(HELLO),DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSALLDA,SPACE=(CYL,(1,1))
//*
Avez-vous obtenu l'aide souhaitée ? Vous pouvez envoyer des commentaires en retour à Jazz.net (inscription nécessaire) : Commentaire dans les forums ou signaler un bogue