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

Code Nom physique
PAC7IF
La liste des mouvements propres à un utilisateur est précédée d'une bannière
portant son code.
Codes retour :
0 : OK sans erreur
v
2 : erreur warning
v
4 : erreur grave
v
PG20 - JCL d'exécution
//* ------------------------------------------------------
//* VISUALAGE PACBASE
//*
//* ------------------------------------------------------
//* RETRIEVAL OF PG FILE SINCE 2.0
//*
//* ------------------------------------------------------
//*
//BVPPG20 PROC BASE=$BASE,
// OUT=$OUT,
// INDUV='$INDUV',
// INDSV='$INDSV',
// INDSN='$INDSN',
//*: VSAMCAT='$VCAT',
//*: SYSTCAT='$SCAT',
// STEPLIB='$HLQ..SBVPMBR8',
// LSR='BLSR',
// OUTL=$OUT,
// OLDPG=,
// UWK=$UWK,
// SPAMB='(TRK,(100,10),RLSE)'
//*********************************************************************
//INPUT EXEC PGM=BVPTU001
//*-----------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//CARTE DD DDNAME=SYSIN
//PAC7MB DD DSN=&&PG20MB,DISP=(,PASS),
// UNIT=&UWK,SPACE=(TRK,(5,1),RLSE),
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160)
//VERIFY EXEC PGM=IDCAMS
//*---------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//*: DD DSN=&SYSTCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//PAC7AE DD DSN=&INDSV..BVPAE,DISP=SHR
//PAC7AJ DD DSN=&INDUV..&BASE.AJ,DISP=SHR
Type Libellé
Etat Récapitulatif des mouvements
erronés (longueur=132)
CODE OF DEVPT DATABASE
INDEX OF USER VSAM FILES
INDEX OF SYSTEM VSAM FILES
INDEX OF SYSTEM NON VSAM FILES
LIBRARY OF LOAD-MODULES
LSR BATCH SYSTEM NAME
OUTPUT CLASS OF REPORTS
Chapitre 7. Reprises et échanges entre bases 2.n et 3.n
OUTPUT CLASS
USER VSAM CATALOG
SYSTEM VSAM CATALOG
DS NAME OF OLD PG
WORK UNIT
TRANSACTION SPACE
167