IBM VisualAge Pacbase Guide D'installation page 47

//SYSPRINT DD SYSOUT=$OUT
//SYSIN DD *
LISTC ENT($INDSN..BVPSY)
/*
//STEP2 EXEC PGM=IEFBR14,COND=(0,EQ,STEP1)
//SY DD DSN=$INDSN..BVPSY,DISP=(,CATLG,DELETE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6080),
// VOL=SER=$VOLSN,
// UNIT=$UNITSN,
// SPACE=(6080,(50,,5))
//
Module D02CPAR : Job '$prfj.D2C'
Chargement du fichier $INDSN..BVPSY
Step Programme
STEP1 IEBUPDTE
Attention :
Changer :/ en ./ avant de soumettre le JOB.
JCL d'exécution
===FRM TYPE=DATA
//$PRFJ.D2C JOB ($CCPT),'PAC D02CPAR',CLASS=$CLASSJ,
// MSGCLASS=$MSGCL
//*********************************************************************
//* VISUALAGE PACBASE
//*
//*
//* LOADS PDS OF COMMON PARAMETERS
//* .STEP1 : LOADING COMMON PARAMETERS
//* ->NOTE:
//* REPLACE :/ BY ./ BEFORE SUBMITTING THE JOB
//*********************************************************************
//*
//STEP1 EXEC PGM=IEBUPDTE,PARM=NEW
//SYSPRINT DD SYSOUT=$OUT
//SYSUT2 DD DSN=$INDSN..BVPSY,DISP=SHR
//SYSIN DD DATA,DLM='PP'
:/ ADD NAME=SRTREO1
SORT FIELDS=(1,25,A,48,4,A,32,7,A,39,1,D,54,7,A,26,1,D),FORMAT=BI
:/ ADD NAME=SRTREO2
SORT FIELDS=(1,60,A),FORMAT=BI
:/ ADD NAME=SRTPC25
SORT FIELDS=(42,8,A),FORMAT=BI
:/ ADD NAME=DFBVPAE
DELETE ($INDSV..BVPAE) CLUSTER
SET LASTCC = 0
SET MAXCC = 0
Commentaires
Chargement des membres du PDS
INSTALLATION - D02CPAR
Chapitre 3. Installation de la partie Serveur
*
*
*
*
*
*
*
35