IBM VisualAge Pacbase Guide D'installation page 95

// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080),
// SPACE=(TRK,(01,01),RLSE)
//PAC7CW DD DSN=&&CONWIN,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080),
// SPACE=(TRK,(01,01),RLSE)
//PAC7EV DD DSN=&&PAC7EV,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600),
// SPACE=(TRK,(01,01),RLSE)
//SYSOUT DD DSN=&&SYSOUT1,DISP=(MOD,PASS)
//SYSUDUMP DD DSN=&&SYSDMP1,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//* PRINT 'INFOPAC' MEMBER INTO SEQUENTIAL 'PAC7IP' *
//*---------------------------------------------------*
//*
//DEL02 EXEC PGM=CONWRITE,MAXRC=12,
// EXECIF=(&C1COMMENT(36,5),NE,'*IBM*')
//CONWIN DD DSN=&&CONWIN,DISP=(OLD,DELETE)
//PAC7IP DD DSN=&&PAC7IP,DISP=(,PASS),UNIT=SYSDA,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080),
// SPACE=(TRK,(02,01),RLSE)
//*
//*---------------------------------------------------*
//* COPY SEQUENTIAL 'PAC7IP' IN VSAM 'PAC7UP'
//* DEFINED UNDER TSO WITH ANOTHER DDNAME FOR EXIT3 *
//*---------------------------------------------------*
//*
//DEL03 EXEC PGM=&ROOTPGM.PNPR11,COND=(00,NE,DEL02),
// EXECIF=(&C1COMMENT(36,5),NE,'*IBM*')
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//PAC7EV DD DSN=&&PAC7EV,DISP=(OLD,PASS)
//PAC7IP DD DSN=&&PAC7IP,DISP=(OLD,PASS)
//PAC7PU DD DSN=&UP,DISP=SHR
//SYSOUT DD DSN=&&SYSOUT2,DISP=(MOD,PASS)
//SYSUDUMP DD DSN=&&SYSDMP2,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//* DELETE 'INFOPAC' ELEMENT
//*---------------------------------------------------*
//*
//DEL04 EXEC PGM=C1BM3000,PARM=(PAC7BS,CXMSGSX),COND=(00,NE,DEL02),
// EXECIF=((&C1ACTION,NE,GENERATE),
// (&C1COMMENT(36,5),NE,'*IBM*'))
//PAC7BS DD DSN=&&BSTIPT01,DISP=(OLD,PASS)
//CXMSGSX DD SYSOUT=&OUT
//*
//*---------------------------------------------------*
//* PRINT SYSOUTS, SYSUDUMP, ...
//*---------------------------------------------------*
//*
//DEL05 EXEC PGM=CONLIST,PARM=PRINT,COND=EVEN,MAXRC=0,
// EXECIF=(&C1COMMENT(36,5),NE,'*IBM*')
//C1BANNER DD DSN=&&BANNER,DISP=(,PASS,DELETE),UNIT=SYSDA,
// SPACE=(TRK,(01,01),RLSE)
//C1PRINT DD SYSOUT=&OUT,
*
*
*
Chapitre 3. Installation de la partie Serveur
83