//*
//STEP2 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$SCAT,DISP=SHR
//SYSPRINT DD SYSOUT=$OUT
//SAO
//SCO
//SGO
//SNO
//SRO
//SSO
//SPO
//SAI
//SCI
//SGI
//SNI
//SRI
//SSI
//SPI
//SYSIN
REPRO INFILE (SAI)
REPRO INFILE (SCI)
REPRO INFILE (SGI)
REPRO INFILE (SNI)
REPRO INFILE (SRI)
REPRO INFILE (SSI)
REPRO INFILE (SPI)
//*
//STEP3 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=$OUT
//SYSIN
DELETE ($INDSN..BVPSF)
//*
//STEP4 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=$OUT
//SYSIN
//SYSUT1
//SYSUT2
//
//
//
//
//*
//
Chargement des libellés d'erreur et aide en ligne
Module D07AE0 : Job '$prfj.D7'
Ce JCL définit, puis charge le fichier AE des libellés d'erreur.
Il doit être exécuté à chaque réinstallation d'une version.
Pour prendre en compte une ou plusieurs langues, il faut ajouter autant de
lignes contenant le code langue sur deux caractères en position 3.
DD DSN=$INDSV..BVPSA,DISP=SHR
DD DSN=$INDSV..BVPSC,DISP=SHR
DD DSN=$INDSV..BVPSG,DISP=SHR
DD DSN=$INDSV..BVPSN,DISP=SHR
DD DSN=$INDSV..BVPSR,DISP=SHR
DD DSN=$INDSV..BVPSS,DISP=SHR
DD DSN=$INDSV..BVPSP,DISP=SHR
DD DSN=$HLQ..SBVPPF5(BVPSA$LSK),DISP=SHR
DD DSN=$HLQ..SBVPPF6(BVPSC$LSK),DISP=SHR
DD DSN=$HLQ..SBVPPF5(BVPSG$LSK),DISP=SHR
DD DSN=$HLQ..SBVPPF5(BVPSN$LSK),DISP=SHR
DD DSN=$HLQ..SBVPPF5(BVPSR$LSK),DISP=SHR
DD DSN=$HLQ..SBVPPF5(BVPSS$LSK),DISP=SHR
DD DSN=$HLQ..SBVPPF5(BVPSP),DISP=SHR
DD *
OUTFILE (SAO)
OUTFILE (SCO)
OUTFILE (SGO)
OUTFILE (SNO)
OUTFILE (SRO)
OUTFILE (SSO)
OUTFILE (SPO)
DD *
DD DUMMY
DD DSN=$HLQ..SBVPPF7(BVPSF),DISP=SHR
DD DSN=$INDSN..BVPSF,DISP=(,CATLG,DELETE),
UNIT=$UNITSN,
VOL=SER=$VOLSN,
SPACE=(TRK,(10,1)),
DCB=(RECFM=FB,LRECL=119,BLKSIZE=11900)
Chapitre 3. Installation de la partie Serveur
53