Jcl D'exécution - IBM VisualAge Pacbase Guide D'installation

Step Programme
STEP4 IEBGENER
STEP5 IEBGENER
STEP6 IEBGENER
JCL d'exécution
//$PRFJ.I3I JOB ($CCPT),'PAC I03INI',CLASS=$CLASSJ,
// MSGCLASS=$MSGCL
//*********************************************************************
//* VISUALAGE PACBASE
//*
//*
//* JOB TO RUN ONLY FOR THE INITIALIZATION OF A NEW DATABASE
//* . BUILDING OF INDEX DATA-GROUP FOR
//* "PC", "PJ" SAVE FILES
//* . "PJ" FILE INITIALIZATION
//* . LOADING OF TEST DATABASE ON "PC" FILE
//* ->NOTE
//* ----
//* IF "SMS" IS INSTALLED DELETE //GDGMOD DD STATEMENTS
//*********************************************************************
//STEP1 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$VCAT,DISP=SHR
//GDGMOD DD DSN=$INDUN..$BASE.PJ,
// DISP=(,KEEP,DELETE),
// UNIT=$UNITUN,
// VOL=SER=$VOLUN,
// SPACE=(TRK,0),
// DCB=($DSCB,RECFM=FB,LRECL=170,BLKSIZE=27880)
//SYSPRINT DD SYSOUT=$OUT
//SYSIN DD *
DEFINE GENERATIONDATAGROUP -
(NAME ($INDUN..$BASE.PJ) LIMIT (3) SCR)
//*
//STEP2 EXEC PGM=IEBGENER
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD DUMMY,DCB=(RECFM=FB,LRECL=170,BLKSIZE=170)
//SYSUT2 DD DSN=$INDUN..$BASE.PJ(+1),
// DISP=(,CATLG,DELETE),
// UNIT=$UNITUN,
// VOL=SER=$VOLUN,
// SPACE=(TRK,1),
// DCB=($DSCB,RECFM=FB,LRECL=170,BLKSIZE=27880)
//*
//STEP3 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$VCAT,DISP=SHR
//GDGMOD1 DD DSN=$INDUN..$BASE.PC,
// DISP=(,KEEP,DELETE),
// UNIT=$UNITUN,
// VOL=SER=$VOLUN,
Commentaires
Initialisation fichier PC
Initialisation fichier PD
Initialisation fichier PY
INSTALLATION - I03INI
Chapitre 3. Installation de la partie Serveur
*
*
*
*
*
*
*
*
*
*
*
99