IBM VisualAge Pacbase Guide D'installation page 90

//
//*
//TRS03
//
//
//
//
//
//
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//SYSIN
//PAC7TZ
//PAC7BS
//
//
//PAC7CW
//
//
//PAC7EV
//
//
//SYSOUT
//SYSUDUMP DD DSN=&&SYSDMP1,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//* PRINT 'INFOPAC' MEMBER OF THE ORIGINAL STAGE
//* INTO SEQUENTIAL FILE 'PAC7IP'
//*---------------------------------------------------*
//*
//TRS04
//
//CONWIN
//PAC7IP
//
//
//SYSOUT
//*
//*---------------------------------------------------*
//* COPY SEQUENTIAL 'PAC7IP' IN THE VSAM 'PAC7UP'
//* DEFINED IN TSO WITH A NEW DDNAME FOR EXIT3
//*---------------------------------------------------*
//*
//TRS05
//
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//PAC7EV
//PAC7IP
//PAC7PU
//SYSOUT
//SYSUDUMP DD DSN=&&SYSDMP3,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//*
//*---------------------------------------------------*
//*
78
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
SPACE=(TRK,(01,01),RLSE)
EXEC PGM=&ROOTPGM.PNPR10,
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,_))
DD DSN=&&PAC7TR,DISP=(OLD,DELETE)
DD DSN=&TY,DISP=SHR
DD DSN=&&BSTIPT01,DISP=(,PASS),UNIT=SYSDA,
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080),
SPACE=(TRK,(01,01),RLSE)
DD DSN=&&CONWIN,DISP=(,PASS),UNIT=SYSDA,
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080),
SPACE=(TRK,(01,01),RLSE)
DD DSN=&&PAC7EV,DISP=(,PASS),UNIT=SYSDA,
DCB=(RECFM=FB,LRECL=126,BLKSIZE=12600),
SPACE=(TRK,(01,01),RLSE)
DD DSN=&&SYSOUT1,DISP=(MOD,PASS)
EXEC PGM=CONWRITE,MAXRC=0,
EXECIF=(&C1ACTION(1,8),EQ,'GENERATE')
DD DSN=&&CONWIN,DISP=(OLD,DELETE)
DD DSN=&&PAC7IP,DISP=(,PASS),UNIT=SYSDA,
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080),
SPACE=(TRK,(02,01),RLSE)
DD DSN=&&SYSOUT2,DISP=(MOD,PASS)
EXEC PGM=&ROOTPGM.PNPR11,COND=(00,NE,TRS03),
EXECIF=(&C1ACTION(1,8),EQ,'GENERATE')
DD DSN=&&PAC7EV,DISP=(OLD,PASS)
DD DSN=&&PAC7IP,DISP=(OLD,PASS)
DD DSN=&UP,DISP=SHR
DD DSN=&&SYSOUT3,DISP=(MOD,PASS)
TRANSFER 'INFOPAC' ELEMENT
*
*
*
*
*