IBM VisualAge Pacbase Guide D'installation page 91

Table des Matières

Publicité

//TRS06
EXEC PGM=C1BM3000,PARM=(PAC7BS,CXMSGSX),
//
EXECIF=(&C1ACTION(1,8),EQ,'TRANSFER')
//PAC7BS
DD DSN=&&BSTIPT01,DISP=(OLD,PASS)
//CXMSGSX DD SYSOUT=&OUT
//*
//*---------------------------------------------------*
//*
PRINT SYSOUTS, SYSUDUMP, ...
//*---------------------------------------------------*
//*
//TRS07
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'))
//C1BANNER DD DSN=&&BANNER,DISP=(,PASS,DELETE),UNIT=SYSDA,
//
SPACE=(TRK,(1,1),RLSE)
//C1PRINT DD SYSOUT=&OUT,
//
DCB=(RECFM=FBA,LRECL=121,BLKSIZE=6171,DSORG=PS)
//LIST01
DD DSN=&&SYSOUT1,DISP=(OLD,DELETE)
//LIST02
DD DSN=&&SYSDMP1,DISP=(OLD,DELETE)
//LIST03
DD DSN=&&SYSOUT2,DISP=(OLD,DELETE)
//LIST04
DD DSN=&&SYSOUT3,DISP=(OLD,DELETE)
//LIST05
DD DSN=&&SYSDMP3,DISP=(OLD,DELETE)
//*
:/ ADD NAME=PRCSGENP
//*
//*-------------------------------------------------------------------*
//* G E N E R A T E (LOAD) P R O C E S S O R
//*-------------------------------------------------------------------*
//*
//GENP
PROC ROOTPGM='BV',
//
STEPLIB='$HLQ..SBVPMBR8',
//
OUT='$OUT',
//
TY='$INDSVE..BVPTY',
//
UP='$INDSVE..BVPUP',
//
LOADTEST='???'
//*
//CNWRITE EXEC PGM=CONWRITE
//ELMSRC
DD DSN=&&ELMSRC,UNIT=SYSDA,DISP=(,PASS),
//
DCB=(RECFM=FB,LRECL=80,BLKSIZE=400),
//
SPACE=(TRK,(15,15),RLSE)
//CONWIN
DD *
WRITE ELEMENT
FROM ENVIRONMENT &C1ENVMNT
SYSTEM
SUBSYSTEM
TYPE
STAGE
TO
DDN
//*
//COB
EXEC PGM=IGYCRCTL,MAXRC=04,
//
PARM='NOTERM,NOLIST,NOVBREF,NOOPT,NOTEST,NOXREF,APOST'
//*TEPLIB DD DSNAME=CEE.SCEERUN,DISP=SHR
//SYSUT1
DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE)
//SYSUT2
DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE)
//SYSUT3
DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,DELETE)
&C1ELEMENT
&C1SYSTEM
&C1SUBSYS
&C1ELTYPE
&C1STGID
ELMSRC.
Chapitre 3. Installation de la partie Serveur
*
(PACBASE TYPE) *
79

Publicité

Table des Matières
loading

Table des Matières