IBM VisualAge Pacbase Guide D'installation page 87

//*-------------------------------------------------------------------*
//*
//GENI PROC ROOTPGM='BV',
// STEPLIB='$HLQ..SBVPMBR8',
// OUT='$OUT',
// TY='$INDSVE..BVPTY',
// UP='$INDSVE..BVPUP',
// LOADTEST='???'
//*
//GEN00 EXEC PGM=BC1PDSIN,MAXRC=0,
// EXECIF=(&C1COMMENT(36,5),NE,'*RND*')
//GEN02A DD DSN=&&SYSOUT1,DISP=(,PASS,DELETE),UNIT=SYSDA,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
// SPACE=(TRK,(5,5),RLSE)
//GEN02B DD DSN=&&SYSDMP1,DISP=(,PASS,DELETE),UNIT=SYSDA,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
// SPACE=(TRK,(5,5),RLSE)
//GEN03A DD DSN=&&SYSOUT2,DISP=(,PASS,DELETE),UNIT=SYSDA,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
// SPACE=(TRK,(5,5),RLSE)
//GEN04A DD DSN=&&SYSOUT3,DISP=(,PASS,DELETE),UNIT=SYSDA,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
// SPACE=(TRK,(5,5),RLSE)
//GEN04B DD DSN=&&SYSDMP3,DISP=(,PASS,DELETE),UNIT=SYSDA,
// DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
// SPACE=(TRK,(5,5),RLSE)
//*
//GEN0A EXEC PGM=IEBCOPY,MAXRC=4,
// EXECIF=(&C1COMMENT(36,5),NE,'*RND*')
//SYSPRINT DD SYSOUT=&OUT
//SYSUT3 DD UNIT=SYSDA,SPACE=(TRK,30)
//SYSUT4 DD UNIT=SYSDA,SPACE=(TRK,30)
//IN DD DSN=&LOADTEST,DISP=SHR
//OUT DD DSN=&&TEMP,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=U,BLKSIZE=6144),
// SPACE=(TRK,(10,10,10),RLSE)
//SYSIN DD *
C O=OUT,I=IN
S M=((&C1ELEMENT,,R))
//*
//GEN0B EXEC PGM=BSTCOPY,MAXRC=0,COND=(00,NE,GEN0A),
// EXECIF=(&C1COMMENT(36,5),NE,'*RND*')
//SYSPRINT DD SYSOUT=&OUT
//IN DD DSN=&&TEMP,DISP=(OLD,DELETE)
//OUT DD DSN=&LOADTEST,DISP=SHR,FOOTPRNT=CREATE
//SYSIN DD *
C O=OUT,I=IN
S M=((&C1ELEMENT,,R))
//*
//GEN01 EXEC PGM=&ROOTPGM.PNTRAN,
// EXECIF=(&C1COMMENT(36,5),NE,'*RND*'),
// PARM=(&C1ACTION(1,8,_),&C1ENVMNT(1,8,_),
// &C1SYSTEM(1,8,_)&C1SUBSYS(1,8,_)&C1ELTYPE(1,8,_),
// &C1ELEMENT(1,10,_)&C1STGNUM(1,1,_)&C1CCID(1,12,_)I)
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
Chapitre 3. Installation de la partie Serveur
75