IBM VisualAge Pacbase Guide D'installation page 88

//PAC7PU
//PAC7TR
//
//
//*
//GEN02
//
//
//
//
//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'
//*---------------------------------------------------*
//*
//GEN03
//
//CONWIN
//PAC7IP
//
//
//SYSOUT
//*
//*---------------------------------------------------*
//* COPY SEQUENTIAL 'PAC7IP' IN THE VSAM 'PAC7UP'
//* DEFINED IN TSO WITH A NEW DDNAME FOR EXIT3
//*---------------------------------------------------*
//*
//GEN04
//
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//PAC7EV
//PAC7IP
//PAC7PU
//SYSOUT
//SYSUDUMP DD DSN=&&SYSDMP3,DISP=(MOD,PASS)
//*
//*---------------------------------------------------*
//*
//*---------------------------------------------------*
//*
//GEN05
76
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
DD DSN=&UP,DISP=SHR
DD DSN=&&PAC7TR,DISP=(,PASS),UNIT=SYSDA,
DCB=(RECFM=FB,LRECL=58,BLKSIZE=58),
SPACE=(TRK,(01,01),RLSE)
EXEC PGM=&ROOTPGM.PNPR10,MAXRC=0,
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,_))
DD DSN=&&PAC7TR,DISP=(OLD,DELETE)
DD DSN=&TY,DISP=SHR
DD DUMMY,DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080)
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=(&C1COMMENT(36,5),NE,'*RND*')
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,GEN02),
EXECIF=(&C1COMMENT(36,5),NE,'*RND*')
DD DSN=&&PAC7EV,DISP=(OLD,PASS)
DD DSN=&&PAC7IP,DISP=(OLD,PASS)
DD DSN=&UP,DISP=SHR
DD DSN=&&SYSOUT3,DISP=(MOD,PASS)
PRINT SYSOUTS, SYSUDUMP, ...
EXEC PGM=CONLIST,PARM=PRINT,COND=EVEN,MAXRC=0,
*
*
*
*
*