IBM VisualAge Pacbase Guide D'installation page 97

// DCB=(RECFM=FB,LRECL=58,BLKSIZE=58),
// SPACE=(TRK,(01,01),RLSE)
//SYSOUT DD DSN=&&SYSOUT1,DISP=(MOD,PASS)
//SYSPRINT DD SYSOUT=&OUT
//*
//MOV03 EXEC PGM=&ROOTPGM.PNPR10,MAXRC=0,
// 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,_))
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//SYSIN DD DSN=&&&&C1ACTION,DISP=(OLD,DELETE)
//PAC7TZ DD DSN=&TY,DISP=SHR
//PAC7BS DD DSN=&&BSTIPT01,DISP=(,PASS),UNIT=SYSDA,
// 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=&&SYSOUT2,DISP=(MOD,PASS)
//SYSUDUMP DD DSN=&&SYSDMP2,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//* PRINT 'INFOPAC' MEMBER FROM ORIGIN STAGE INTO
//* SEQUENTIAL 'PAC7IP'
//*---------------------------------------------------*
//*
//MOV04 EXEC PGM=CONWRITE,MAXRC=0
//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 *
//*---------------------------------------------------*
//*
//MOV05 EXEC PGM=&ROOTPGM.PNPR11,MAXRC=0,COND=(00,NE,MOV04)
//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=&&SYSOUT3,DISP=(MOD,PASS)
//SYSUDUMP DD DSN=&&SYSDMP3,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//* MOVE 'INFOPAC' ELEMENT
//*---------------------------------------------------*
//*
//MOV06 EXEC PGM=C1BM3000,PARM=(PAC7BS,CXMSGSX),MAXRC=8,
// COND=(00,NE,MOV04)
//PAC7BS DD DSN=&&BSTIPT01,DISP=(OLD,PASS)
*
*
*
*
Chapitre 3. Installation de la partie Serveur
85