Utu1 - Description Des Étapes; Utu1 - Jcl D'exécution; Utu2 - Mise À Jour Ligne 'P' Avec 'Uns - IBM VisualAge Pacbase Guide D'installation

UTU1 - Description des étapes
Extraction lignes 'P' avec opérateur 'UNS' : UTIUN1
Code
PAC7PC
UTUTO
UTU1 - JCL d'exécution
//* ------------------------------------------------------
//*
//*
//* ------------------------------------------------------
//*
//*
//*
//* ------------------------------------------------------
//*
//BVPUTU1 PROC BASE=$BASE,
//
//
//
//
//
//
//***************************************************************
//UTIUN1 EXEC PGM=BVPTUNS1
//*---------------------------------------------------------
//*:STEPCAT DD DSN=&SYSTCAT,DISP=SHR
//*:
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
//PAC7PC
//UTUTO
//
//
//SYSPRINT DD SYSOUT=&OUT
//SYSOUT
//SYSUDUMP DD SYSOUT=&OUT
UTU2 - Mise à jour ligne 'P' avec 'UNS'
Principe
Cette procédure est un utilitaire qui permet de mettre à jour les
enregistrements extrait par la procédure UTU1. Pour toutes les lignes du
fichier en entrée, on force '99BL' dans la zone 'Niveau-conditionnement'.
Condition d'exécution
370
VisualAge Pacbase : Guide d'installation Serveur Z/OS CICS & Composants Client
Nom physique
&INDUN..&BASE.PC(0)
&NOMUT
VISUALAGE PACBASE
EXTRACTION OF LINES "P"
WITH OPERATOR "UNS"
WITHOUT LEVEL-CONDITION TYPE
INDUN='$INDUN',
STEPLIB='$HLQ..SBVPMBR8',
OUT=$OUT,
VOLS='SER=$VOLUN',
UWK=$UWK,
SPAUT='(TRK,(10,05),RLSE)'
DD DSN=&VSAMCAT,DISP=SHR
DD DSN=&INDUN..&BASE.PC(0),DISP=SHR
DD DSN=&NOMUT,DISP=(,CATLG,DELETE),
UNIT=&UWK,VOL=&VOLS,SPACE=&SPAUT,
DCB=(RECFM=FB,LRECL=50,BLKSIZE=5000)
DD SYSOUT=&OUT
Type Libellé
Entrée Image séquentielle du réseau
Sortie Lignes 'P' UNS à mettre à jour
CODE OF DEVPT DATABASE
INDEX OF USER NOT VSAM FILES
LIBRARY OF LOAD-MODULES
VOLUME FILE &&NOMUT
WORK UNIT FILE &&NOMUT
SPACE FILE &&NOMUT
OUTPUT CLASS