IBM VisualAge Pacbase Guide D'installation page 99

JCL d'exécution
//$PRFJ.PRE JOB ($CCPT),'PREPARATION',CLASS=$CLASSJ,
// MSGCLASS=$MSGCL
//*
//*------------------------------------------------------------------*
//* JOB TO RUN ONLY FIRST TIME PACBASE IS INSTALLED
//*------------------------------------------------------------------*
//*
//*******************************************************
//* ALLOCATION TABLES AND WORK VSAM FILES
//*
//* IF "SMS" IS INSTALLED DELETE //GDGMOD DD STATEMENTS *
//*******************************************************
//*
//ET010 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$VCAT,DISP=SHR
//SYSPRINT DD SYSOUT=$OUT
//SYSIN DD DSN=$INDSN..BVPSY(DFBVPTY),DISP=SHR
// DD DSN=$INDSN..BVPSY(DFBVPUP),DISP=SHR
// DD DSN=$INDSN..BVPSY(DFBVPUQ),DISP=SHR
// DD DSN=$INDSN..BVPSY(DFBVPTS),DISP=SHR
//*
//****************************************************
//*
//****************************************************
//*
//ET020 EXEC PGM=BVPNINUQ
//STEPLIB DD DSN=$HLQ..SBVPMBR8,DISP=SHR
//PAC7UQ DD DSN=$INDSVE..BVPUQ,DISP=SHR
//SYSOUT DD SYSOUT=$OUT
//SYSUDUMP DD SYSOUT=$OUT
//*
//****************************************************
//* DELETE DSCB
//****************************************************
//ET030 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=$OUT
//SYSIN DD *
DELETE ($INDUNE..DSCB.BVPQU)
//*
//****************************************************
//* DEFINE DSCB
//****************************************************
//ET035 EXEC PGM=IEFBR14
//DSCBQU DD DSN=$INDUNE..DSCB.BVPQU,DISP=(,CATLG,DELETE),
// SPACE=(TRK,(0)),VOL=SER=$VOLUN,UNIT=$UNITUN,
// DCB=(RECFM=FB,LRECL=187,BLKSIZE=18700)
//*
//****************************************************
//* BUILDING GENERATION FILE INDEX
//****************************************************
//*
//ET040 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$VCAT,DISP=SHR
//GDGMOD DD DSN=$INDUNE..DSCB.BVPQU,DISP=(,CATLG,DELETE),
LOADING 'UQ'
Chapitre 3. Installation de la partie Serveur
*
*
*
*
*
*
*
87