Utilitaires D'aide À La Reprise; Utu1 Utu2 - Adaptation Des Opérateurs 'Uns; Utu1 - Extraction Ligne 'P' Avec 'Uns; Utu1 - Entrées Utilisateur - IBM VisualAge Pacbase Guide D'installation

Utilitaires d'aide à la reprise
UTU1 UTU2 - Adaptation des opérateurs 'UNS'

UTU1 - Extraction ligne 'P' avec 'UNS'

Principe
Cette procédure est un utilitaire qui permet d'extraire les lignes 'P' des
programmes contenant l'opérateur 'UNS' et n'ayant aucune information dans
la zone 'Niveau-conditionnement'. L'utilisateur vérifiera le fichier en sortie. Il
devra supprimer de ce fichier toutes les lignes à garder en l'état. Pour toutes
les lignes conservées dans le fichier, la zone 'Niveau-conditionnement' sera
forcée à '99BL' si on exécute la procédure UTU2.
Condition d'exécution
Mettre le nom du fichier résultat des lignes à pointer dans le JCL de
lancement : NOMUT='... '
Résultat obtenu
Un fichier des lignes 'P' UNS à pointer 'NOMUT'.
UTU1 - Entrées Utilisateur
Pas d'entrées utilisateur.
//PRMSYS EXEC PGM=BVPRMSYS,PARM='&USER,&INDUV',COND=EVEN
//*-----------------------------------------------------
//STEPLIB DD DSN=&STEPLIB,DISP=SHR
// DD DSN=$BCOB,DISP=SHR
//SYSOUT DD SYSOUT=&OUT
//PACRIN DD DSN=&INDSN..BVPSY(DLSYSEXT),DISP=SHR
//PACROU DD DSN=&&DLSYSEXT,DISP=(,PASS),SPACE=(TRK,1),
// UNIT=&UWK,
// DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
//DELETE EXEC PGM=IDCAMS,COND=EVEN
//*-------------------------------
//*:STEPCAT DD DSN=&VSAMCAT,DISP=SHR
//SYSPRINT DD SYSOUT=&OUT
//SYSIN DD DSN=&&DLSYSEXT,DISP=(OLD,DELETE)
Chapitre 10. Annexes
369