IBM VisualAge Pacbase Guide D'installation page 68

//*
//*
//*
//*
//* ->NOTE
//*
//*
//*********************************************************************
//STEP1 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$VCAT,DISP=SHR
//GDGMOD
//
//
//
//
//
//SYSPRINT DD SYSOUT=$OUT
//SYSIN
//*
//STEP2 EXEC PGM=IEBGENER
//SYSIN
//SYSPRINT DD DUMMY
//SYSUT1
//SYSUT2
//
//
//
//
//
//*
//STEP3 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$VCAT,DISP=SHR
//GDGMOD
//
//
//
//
//
//SYSPRINT DD SYSOUT=$OUT
//SYSIN
//*
//STEP4 EXEC PGM=IEBGENER
//SYSPRINT DD SYSOUT=$OUT
//SYSIN
//SYSUT1
//SYSUT2
//
//
//
//
//
56
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
"PE" SAVE FILE, "PK" ARCHIVAL FILE, "JQ" ARCHIVAL FILE
. "PK" FILE INITIALIZATION
. "JQ" FILE INITIALIZATION
. LOADING OF TEST DATABASE ON "PE" FILE
----
IF "SMS" IS INSTALLED DELETE //GDGMOD DD STATEMENTS
DD DSN=$INDSN..BVPPK,
DISP=(,KEEP,DELETE),
UNIT=$UNITSN,
VOL=SER=$VOLSN,
SPACE=(TRK,0),
DCB=($DSCB,RECFM=FB,LRECL=170,BLKSIZE=6800)
DD *
DEFINE GENERATIONDATAGROUP -
(NAME ($INDSN..BVPPK) LIMIT (3) SCR)
DD DUMMY
DD DUMMY,DCB=(RECFM=FB,LRECL=170,BLKSIZE=170)
DD DSN=$INDSN..BVPPK(+1),
DISP=(,CATLG,DELETE),
UNIT=$UNITSN,
VOL=SER=$VOLSN,
SPACE=(TRK,1),
DCB=($DSCB,RECFM=FB,LRECL=170,BLKSIZE=6800)
DD DSN=$INDSN..BVPPE,
DISP=(,KEEP,DELETE),
UNIT=$UNITSN,
VOL=SER=$VOLSN,
SPACE=(TRK,0),
DCB=($DSCB,RECFM=VB,LRECL=1023,BLKSIZE=27998)
DD *
DEFINE GENERATIONDATAGROUP -
(NAME ($INDSN..BVPPE) LIMIT (3) SCR)
DD DUMMY
DD DSN=$HLQ..SBVPPF2(BVPPE),DISP=SHR
DD DSN=$INDSN..BVPPE(+1),
DISP=(,CATLG,DELETE),
UNIT=$UNITSN,
VOL=SER=$VOLSN,
SPACE=(TRK,(220,10),RLSE),
DCB=($DSCB,RECFM=VB,LRECL=1023,BLKSIZE=27998)
*
*
*
*
*
*
*