Mettre le nom du fichier résultat de la procédure UTU1 dans le JCL de
lancement : NOMUT='... '
Résultat obtenu
Nouvelle image séquentielle du réseau.
UTU2 - Entrées Utilisateur
Pas d'entrées utilisateur.
UTU2 - Description des étapes
Maj lignes 'P' avec opérateur 'UNS' : UTIUN2
Code
Nom physique
PAC7PC
&INDUN..&BASE.PC(0)
UTUTI
&NOMUT
PAC7CP
&INDUN..&BASE.PC(+1)
UTU2 - JCL d'exécution
//* ------------------------------------------------------
//*
VISUALAGE PACBASE
//*
//* ------------------------------------------------------
//*
UPDATE LINES "P"
//*
WITH OPERATOR "UNS"
//* ------------------------------------------------------
//*
//BVPUTU2 PROC BASE=$BASE,
//
INDUN='$INDUN',
//
STEPLIB='$HLQ..SBVPMBR8',
//
OUT=$OUT,
//
DSCB='$DSCB',
//
VOLS='SER=$VOLUN',
//
UNITS=$UNITUN,
//
SPAPC='(TRK,(300,10),RLSE)'
//***************************************************************
//UTIUN2 EXEC PGM=BVPTUNS2
//*---------------------------------------------------------
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
DD DSN=&VSAMCAT,DISP=SHR
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//PAC7PC
DD DSN=&INDUN..&BASE.PC(0),DISP=SHR
//UTUTI
DD DSN=&NOMUT,DISP=SHR
//PAC7CP
DD DSN=&INDUN..&BASE.PC(+1),
//
DISP=(,CATLG,DELETE),
Type
Libellé
Entrée
Image séquentielle du réseau
Entrée
Fichier des lignes 'P' UNS à
mettre à jour
Sortie
Nouvelle Image séquentielle du
réseau
CODE OF DEVPT DATABASE
INDEX OF USER NOT VSAM FILES
LIBRARY OF LOAD-MODULES
DSCB MODEL FILE
VOLUME FILE PC
SPACE PACBASE BASE
OUTPUT CLASS
SAVE UNIT
Chapitre 10. Annexes
371