Mima - Jcl D'exécution - IBM VisualAge Pacbase Guide D'installation

MIMA - JCL d'exécution
//* ------------------------------------------------------
//*
//*
//* ------------------------------------------------------
//*
//*
//* ------------------------------------------------------
//*
//BVPMIMA PROC BASE=$BASE,
//
//
//
//*:
//
//
//
//
//
//
//
//
//
//
//
//***************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
//CARTE
//PAC7MB
//
//
//PRLFILE EXEC PGM=BVPRMSYS,PARM='&OUTFILE'
//*---------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(LIOUTFIL),DISP=SHR
//PACROU DD DSN=&&LIFILE,DISP=(,PASS),SPACE=(TRK,1),
//
//
//LISFILE EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN
//PRDFILE EXEC PGM=BVPRMSYS,COND=(4,EQ,LISFILE),PARM='&OUTFILE'
//*-------------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DLOUTFIL),DISP=SHR
//PACROU DD DSN=&&DLFILE,DISP=(,PASS),SPACE=(TRK,1),
VISUALAGE PACBASE
MACRO-STRUCTURES MIGRATION
INDSV='$INDSV',
INDSN='$INDSN',
INDUV='$INDUV',
SYSTCAT='$SCAT',
STEPLIB='$HLQ..SBVPMBR8',
INPUTSPE=,
OUTFILE=,
SPAOT='(CYL,(50,50))',
VOLS='SER=$VOLUN',
UNITS=$UNITUN,
SPAWK='(CYL,(20,5),RLSE)',
SORTLIB='$BIBT',
LSR='BLSR',
UWK=$UWK,
OUT=$OUT
DD DSN=$BCOB,DISP=SHR
DD DDNAME=SYSIN
DD DSN=&&MIMAMB,DISP=(,PASS),
UNIT=&UWK,SPACE=(TRK,(5,1),RLSE),
DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
DD DSN=$BCOB,DISP=SHR
UNIT=&UWK,
DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
DD DSN=&&LIFILE,DISP=(OLD,DELETE)
DD DSN=$BCOB,DISP=SHR
CODE OF VAPAC DATABASE
INDEX OF VSAM SYSTEM FILES
INDEX OF NON VSAM SYSTEM FILES
INDEX OF USER VSAM FILES
SYSTEM VSAM CATALOG
LIBRARY OF LOAD-MODULES
SPECIAL CHAR FILE
OUTPUT FILE MIGRATION
OUTPUT FILE SPACE
BACKUP VOLUME
BACKUP UNIT
WORK FILE SPACE
SORT LIBRARY
LSR BATCH SYSTEM NAME
OUTPUT CLASS
Chapitre 8. Utilitaires RPP
WORK UNIT
285