IBM VisualAge Pacbase Guide D'installation page 94

//CXMSGSX DD SYSOUT=&OUT
//*
//*---------------------------------------------------*
//*
//*---------------------------------------------------*
//*
//TRS06
//
//
//
//C1BANNER DD DSN=&&BANNER,DISP=(,PASS,DELETE),UNIT=SYSDA,
//
//C1PRINT DD SYSOUT=&OUT,
//
//LIST01
//LIST02
//LIST03
//LIST04
//LIST05
//*
:/ ADD NAME=PRCSDELP
//*
//*-------------------------------------------------------------------*
//* D E L E T E
//*-------------------------------------------------------------------*
//*
//DELP
//
//
//
//
//*
//DEL00
//DEL01A
//
//
//DEL01B
//
//
//DEL03A
//
//
//DEL03B
//
//
//*
//DEL01
//
//
//
//
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//SYSIN
//PAC7TZ
//PAC7BS
82
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
PRINT SYSOUTS, SYSUDUMP, ...
EXEC PGM=CONLIST,PARM=PRINT,COND=EVEN,MAXRC=0,
EXECIF=((&C1ACTION(1,3),NE,'ADD'),
(&C1ACTION(1,4),NE,'MOVE'),
(&C1ACTION(1,6),NE,'UPDATE'))
SPACE=(TRK,(1,1),RLSE)
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS)
DD DSN=&&SYSOUT1,DISP=(OLD,DELETE)
DD DSN=&&SYSDMP1,DISP=(OLD,DELETE)
DD DSN=&&SYSOUT2,DISP=(OLD,DELETE)
DD DSN=&&SYSOUT3,DISP=(OLD,DELETE)
DD DSN=&&SYSDMP3,DISP=(OLD,DELETE)
P R O C E S S O R
PROC ROOTPGM='BV',
STEPLIB='$HLQ..SBVPMBR8',
OUT='$OUT',
TY='$INDSVE..BVPTY',
UP='$INDSVE..BVPUP'
EXEC PGM=BC1PDSIN,MAXRC=0
DD DSN=&&SYSOUT1,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
DD DSN=&&SYSDMP1,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
DD DSN=&&SYSOUT2,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
DD DSN=&&SYSDMP2,DISP=(,PASS,DELETE),UNIT=SYSDA,
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171),
SPACE=(TRK,(5,5),RLSE)
EXEC PGM=&ROOTPGM.PNPR10,
EXECIF=(&C1COMMENT(36,5),NE,'*IBM*'),
PARM=(DELETE__,&C1ENVMNT(1,8,_),
&C1SYSTEM(1,8,_)&C1SUBSYS(1,8,_)&C1ELTYPE(1,8,_),
&C1ELEMENT(1,10,_)&C1STGNUM(1,1,_)&C1CCID(1,12,_))
DD DUMMY
DD DSN=&TY,DISP=SHR
DD DSN=&&BSTIPT01,DISP=(,PASS),UNIT=SYSDA,
*
(PACBASE TYPE) *