Renommage Des Programmes Exit User Batch - IBM VisualAge Pacbase Guide D'installation

//STEP4 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$SCAT,DISP=SHR
//SYSPRINT DD SYSOUT=$OUT
//LBO
//LBI
//SYSIN
REPRO INFILE (LBI)
//*
//STEP5 EXEC PGM=IDCAMS
//*:STEPCAT DD DSN=$SCAT,DISP=SHR
//SYSPRINT DD SYSOUT=$OUT
//GKO
//GKI
//SYSIN
REPRO INFILE (GKI)
//*
//PTINTR EXEC PGM=BVPTINTR
//*-----------------------
//*:STEPCAT DD DSN=$VCAT,DISP=SHR
//*:
//STEPLIB
//
//PAC7TR
//SYSOUT
//SYSUDUMP DD SYSOUT=$OUT
//

Renommage des programmes Exit User Batch

Module D04MBR : Job '$prfj.D4B'
Renommage des programmes Exit users batch
Step
STEP1
STEP2
JCL d'exécution
//$PRFJ.D4B JOB ($CCPT),'PAC D04MBR',CLASS=$CLASSJ,
// MSGCLASS=$MSGCL
//*********************************************************************
//* VISUALAGE PACBASE
//*
//*
//*
//*********************************************************************
//STEP1
//SYSPRINT DD SYSOUT=$OUT
//I1
//O1
//
//
DD DSN=$INDSV..BVPLB,DISP=SHR
DD DSN=$INDSN..BVPSY(MAXKEY),DISP=SHR
DD *
OUTFILE (LBO)
DD DSN=$INDSV..BVPGK,DISP=SHR
DD DSN=$INDSN..BVPSY(MAXKEY),DISP=SHR
DD *
OUTFILE (GKO)
DD DSN=$SCAT,DISP=SHR
DD DSN=$HLQ..SBVPMBR8,DISP=SHR
DD DSN=$BCOB,DISP=SHR
DD DSN=$INDSV..BVPTR,DISP=SHR
DD SYSOUT=$OUT
Programme
IEBCOPY
IEBCOPY
INSTALLATION - D04MBR
- RENAME EXIT USERS BATCH LOAD MODULES -
EXEC PGM=IEBCOPY,REGION=0M
DD DSN=$HLQ..SBVPMBR8,DISP=SHR
DD DSN=&&TEMP,DISP=(NEW,PASS),
UNIT=SYSDA,SPACE=(CYL,(20,10,100)),
DCB=(TRTCH=NOCOMP,RECFM=U,BLKSIZE=6144)
Commentaires
RENAME load modules Exit users
COPY load modules Exit users
Chapitre 3. Installation de la partie Serveur
*
*
*
*
47