IBM VisualAge Pacbase Guide D'installation page 117

//INIFQ3 EXEC PGM=IEBGENER
//*------------------------
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD DUMMY,DCB=(RECFM=FB,LRECL=100,BLKSIZE=100)
//SYSUT2 DD DSN=&INDUN..&USER..&BASE.FQ(+1),
// DISP=(,CATLG,DELETE),
// UNIT=&UNITS,
// VOL=&VOLS,
// SPACE=(TRK,1),
// DCB=(&DSCB,RECFM=FB,LRECL=100,BLKSIZE=21600)
//*
//INIFH1 EXEC PGM=BVPRMSYS,PARM='&INDUN..&USER..&BASE'
//*---------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//SYSABOUT DD SYSOUT=&OUT
//PACRIN DD DDNAME=SYSIN
//PACROU DD DSN=&&DFFH,DISP=(,PASS),UNIT=&UWK,SPACE=(TRK,1),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//INIFH2 EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VCAT,DISP=SHR
//GDGMOD DD DSN=&INDUN..&USER..&BASE.FH,
// DISP=(,KEEP,DELETE),
// UNIT=&UNITS,
// VOL=&VOLS,
// SPACE=(TRK,0),
// DCB=(&DSCB,RECFM=FB,LRECL=160,BLKSIZE=24000)
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DFFH,DISP=(OLD,DELETE)
//INIFH3 EXEC PGM=IEBGENER
//*------------------------
//SYSIN DD DUMMY
//SYSPRINT DD DUMMY
//SYSUT1 DD DUMMY,DCB=(RECFM=FB,LRECL=160,BLKSIZE=160)
//SYSUT2 DD DSN=&INDUN..&USER..&BASE.FH(+1),
// DISP=(,CATLG,DELETE),
// UNIT=&UNITS,
// VOL=&VOLS,
// SPACE=(TRK,1),
// DCB=(&DSCB,RECFM=FB,LRECL=160,BLKSIZE=24000)
//*
// PEND
//GDG EXEC BVPGDG
//INIFO1.PACRIN DD *
DEFINE GENERATIONDATAGROUP -
(NAME (&USERFO) LIMIT (3) SCR)
/*
//INIFR1.PACRIN DD *
DEFINE GENERATIONDATAGROUP -
(NAME (&USERFR) LIMIT (3) SCR)
/*
Chapitre 3. Installation de la partie Serveur
105