IBM VisualAge Pacbase Guide D'installation page 93

// EXECIF=((&C1ACTION(1,3),NE,'ADD'),
// (&C1ACTION(1,4),NE,'MOVE'),
// (&C1ACTION(1,6),NE,'UPDATE')),
// 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=&&PAC7TR,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=&&SYSOUT1,DISP=(MOD,PASS)
//SYSUDUMP DD DSN=&&SYSDMP1,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//* PRINT 'INFOPAC' MEMBER OF THE ORIGINAL STAGE
//* INTO SEQUENTIAL FILE 'PAC7IP'
//*---------------------------------------------------*
//*
//TRS03 EXEC PGM=CONWRITE,MAXRC=0,
// EXECIF=(&C1ACTION(1,8),EQ,'GENERATE')
//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)
//SYSOUT DD DSN=&&SYSOUT2,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//* COPY SEQUENTIAL 'PAC7IP' IN THE VSAM 'PAC7UP'
//* DEFINED IN TSO WITH A NEW DDNAME FOR EXIT3
//*---------------------------------------------------*
//*
//TRS04 EXEC PGM=&ROOTPGM.PNPR11,COND=(00,NE,TRS02),
// EXECIF=(&C1ACTION(1,8),EQ,'GENERATE')
//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)
//*
//*---------------------------------------------------*
//* TRANSFER 'INFOPAC' ELEMENT
//*---------------------------------------------------*
//*
//TRS05 EXEC PGM=C1BM3000,PARM=(PAC7BS,CXMSGSX),
// EXECIF=(&C1ACTION(1,8),EQ,'TRANSFER')
//PAC7BS DD DSN=&&BSTIPT01,DISP=(OLD,PASS)
*
*
*
*
*
Chapitre 3. Installation de la partie Serveur
81