JCL Info

JCL – IEHINITT

Ces exemples illustrent certaines des utilisations de IEHINITT.
Vous pouvez utiliser le tableau 1 comme guide de référence rapide pour les exemples IEHINITT.

Tableau 1. Répertoire d’exemples IEHINITT

OpérationCommentairesExemple
LABELTrois bandes 9 pistes sont à étiqueter.Exemple 1 : écriture d’étiquettes EBCDIC sur trois bandes
LABELUne bande 9 pistes doit être étiquetée en ISO/ANSI.Exemple 2 : écriture d’une étiquette ISO/ANSI sur une bande
LABELDeux groupes de volumes de bande 9 pistes doivent être étiquetés.Exemple 3 : placer deux groupes de numéros de série sur six volumes de bande
LABELLes volumes de bande 9 pistes doivent être étiquetés. Les numéros de séquence doivent être incrémentés de 10.Exemple 4 : placer le numéro de série sur huit volumes de bande
LABELTrois volumes de bande 9 pistes doivent être étiquetés. Une étiquette alphanumérique doit être apposée sur un volume de bande ; des étiquettes numériques sont placées sur les deux volumes de bande restants.Exemple 5 : écrire des étiquettes EBCDIC dans différentes densités
LABELDeux volumes de bande 9 pistes doivent être étiquetés. Le premier volume est étiqueté à une densité de 6250 bpi ; le second à une densité de 1600 bpi.Exemple 6 : Écrire des numéros de série sur des volumes de bande à deux densités
LABELUn volume de bande à 9 pistes est étiqueté au format ISO/ANSI avec un code d’accès non vierge.Exemple 7 : Écrire une étiquette ISO/ANSI avec un code d’accès

Les exemples qui utilisent une bande à la place des numéros de périphérique réels doivent être modifiés avant utilisation.
Les numéros de périphérique réels dépendent de la manière dont votre installation a défini les périphériques sur votre système.

Exemples

Exemple 1 : Ecrire des étiquettes EBCDIC sur trois bandes

Dans cet exemple, les numéros de série 001234, 001235 et 001236 sont placés sur trois volumes de bande.
Les étiquettes sont écrites en EBCDIC à 800 bits par pouce.
Chaque volume étiqueté est monté, lorsque cela est nécessaire, sur une seule unité de bande 9 pistes.

//LABEL1   JOB  ...
//STEP1    EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=A
//LABEL    DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
//SYSIN    DD  *
LABEL   INITT  SER=001234,NUMBTAPE=3
/*

Les instructions de contrôle sont les suivantes :

  • LABEL DD définit l’unité de bande utilisée dans l’opération d’étiquetage.
  • SYSIN DD définit l’ensemble de données de contrôle, qui suit dans le flux d’entrée.
  • LABEL INITT spécifie le nombre de bandes à étiqueter (3), en commençant par 001234.

Exemple 2 : Écrire une étiquette ISO/ANSI sur une bande

Dans cet exemple, le numéro de série 001001 est placé sur un volume de bande ISO/ANSI ; l’étiquette est écrite à 800 bits par pouce.
Le volume étiqueté est monté, si nécessaire, sur une unité de bande 9 pistes.

//LABEL2   JOB  ...
//STEP1    EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=A
//ASCIILAB DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
//SYSIN    DD  *
ASCIILAB INITT   SER=001001,OWNER='SAM A. BROWN',LABTYPE=AL
/*

Les instructions de contrôle sont les suivantes :

  • ASCIILAB DD définit le volume de bande à utiliser dans l’opération d’étiquetage.
  • SYSIN DD définit l’ensemble de données de contrôle, qui suit dans le flux d’entrée.
  • ASCIILAB INITT spécifie le numéro de série, l’ID du propriétaire et le type d’étiquette du volume.
    Étant donné que le mot clé VERSION n’a pas été spécifié, la bande ISO/ANSI sera créée en fonction de ce qui est spécifié dans le membre parmlib DEVSUPxx ou en tant que version 3 par défaut.

Exemple 3 : Placement de deux groupes de numéros de série sur six volumes de bande

Dans cet exemple, deux groupes de numéros de série (001234, 001235, 001236 et 001334, 001335, 001336) sont placés sur six volumes de bande.
Les étiquettes sont écrites en EBCDIC à 800 bits par pouce.
Chaque volume étiqueté est monté, lorsque cela est nécessaire, sur une seule unité de bande 9 pistes.

//LABEL3   JOB  ...
//STEP1    EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=A
//LABEL    DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
//SYSIN    DD  *
LABEL   INITT   SER=001234,NUMBTAPE=3
LABEL   INITT   SER=001334,NUMBTAPE=3
/*

Les instructions de contrôle sont les suivantes :

  • LABEL DD définit l’unité de bande à utiliser dans l’opération d’étiquetage.
  • SYSIN DD définit l’ensemble de données de contrôle, qui suit dans le flux d’entrée.
  • LABEL INITT définit les deux groupes de numéros de série à mettre sur six volumes de bande.

Exemple 4 : Placer le numéro de série sur huit volumes de bande

Dans cet exemple, les numéros de série 001234, 001244, 001254, 001264, 001274, etc., sont placés sur huit volumes de bande.
Les étiquettes sont écrites en EBCDIC à 800 bits par pouce.
Chaque volume étiqueté est monté, lorsque cela est nécessaire, sur l’une des quatre unités de bande à 9 pistes.

//LABEL4   JOB  ...
//STEP1    EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=A
//LABEL    DD  DCB=DEN=2,UNIT=(tape,4,DEFER)
//SYSIN    DD  *
LABEL   INITT   SER=001234
LABEL   INITT   SER=001244
LABEL   INITT   SER=001254
LABEL   INITT   SER=001264
LABEL   INITT   SER=001274
LABEL   INITT   SER=001284
LABEL   INITT   SER=001294
LABEL   INITT   SER=001304
/*

Les instructions de contrôle sont les suivantes :

  • LABEL DD définit l’unité de bande utilisée dans l’opération d’étiquetage.
  • SYSIN DD définit l’ensemble de données de contrôle, qui suit dans le flux d’entrée.
  • Les instructions LABEL INITT définissent les bandes à étiqueter par numéro de série de volume.

Exemple 5 : Écrire des étiquettes EBCDIC dans différentes densités

Dans cet exemple, le numéro de série TAPE1 est placé sur un volume de bande et les numéros de série 001234 et 001235 sont placés sur deux volumes de bande.
Les étiquettes sont écrites en EBCDIC à 800 et 1600 bits par pouce, respectivement

//LABEL5   JOB  ...
//STEP1    EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=A
//LABEL1   DD  DCB=DEN=2,UNIT=(tape,1,DEFER)
//LABEL2   DD  DCB=DEN=3,UNIT=(tape,1,DEFER)
//SYSIN    DD  *
LABEL1  INITT   SER=TAPE1
LABEL2  INITT   SER=001234,NUMBTAPE=2
/*

Les instructions de contrôle sont les suivantes :

  • LABEL1 DD et LABEL2 DD définissent deux volumes de bande à utiliser dans l’opération d’étiquetage.
  • SYSIN DD définit l’ensemble de données de contrôle, qui suit dans le flux d’entrée.
  • LABEL1 INITT place le numéro de série TAPE1 sur le volume de bande défini dans LABEL1 DD.
    LABEL2 INITT place les numéros de série 001234 et 001235 sur le volume de bande défini dans LABEL2 DD.

Exemple 6 : Ecrire des numéros de série sur des volumes de bande à deux densités

Dans cet exemple, le numéro de série 006250 est écrit en EBCDIC sur un volume de bande à une densité de 6250 bpi, et le numéro de série 001600 est écrit en EBCDIC sur un second volume à une densité de 1600 bpi.

//LABEL6   JOB  ...
//STEP1    EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=A
//DDFIRST  DD  DCB=DEN=4,UNIT=(tape,1,DEFER)
//DDSECOND DD  DCB=DEN=3,UNIT=(tape,1,DEFER)
//SYSIN    DD  *
DDFIRST  INITT  SER=006250
DDSECOND INITT  SER=001600
/*

Les instructions de contrôle sont les suivantes :

  • DDFIRST DD définit le premier volume de bande à utiliser.
  • DDSECOND DD définit le deuxième volume de bande à utiliser.
  • SYSIN DD définit l’ensemble de données de contrôle, qui suit dans le flux d’entrée.
  • DDFIRST INITT écrit le numéro de série 006250 sur le volume défini dans DDFIRST DD.
    DDSECOND INITT écrit le numéro de série 001600 sur le volume défini dans DDSECOND DD.

Exemple 7 : Écrire une étiquette ISO/ANSI avec un code d’accès

Dans cet exemple, une bande étiquetée ISO/ANSI (AL) version 4 est créée avec un code d’accès non vierge.
Le numéro de série du volume est TAPE01.

//LABEL7   JOB  ...
//STEP1    EXEC PGM=IEHINITT
//SYSPRINT DD  SYSOUT=A
//LABEL    DD  UNIT=(tape,1,DEFER),DCB=DEN=4
//SYSIN    DD  *
LABEL  INITT  SER=TAPE01,OWNER=TAPOWNER,LABTYPE=AL,ACCESS=A,VERSION 4
/*

Les instructions de contrôle sont les suivantes :

  • LABEL DD définit le périphérique sur lequel la bande est montée.
  • SYSIN DD définit l’ensemble de données de contrôle, qui suit dans le flux d’entrée.
  • L’instruction INITT crée une étiquette ISO/ANSI Version 4 pour la bande avec le numéro de série de volume TAPE01, propriété de TAPOWNER.
    Le code d’ACCÈS est spécifié comme A, et le système d’exploitation qui reçoit ce volume doit être capable de reconnaître le A pour que le volume soit accepté.

Exemple 8 : Ecrire sur une bande après étiquetage sans démontage et remontage

Dans cet exemple, vous pouvez étiqueter une bande dans une étape d’un travail, puis, sans que le système démonte et remonte cette bande entre les étapes, écrivez sur la bande dans une étape suivante du même travail.
Le code JCL nécessaire suit :

     //STEP1     EXEC PGM=IEHINITT
     //SYSPRINT  DD  SYSOUT=*
(1)  //LABEL     DD  UNIT=(tape,1,DEFER),DISP=(,PASS)
     //SYSIN     DD    *
(2)  LABEL   INITT  SER=serial,DISP=REWIND
     //*
     //STEP2   EXEC PGM=user_program
     //INPUT   DD  DSN=input_dsn,DISP=SHR
     //OUTPUT  DD  DSN=dsname,DISP=(NEW,CATLG),
     //             DCB=(dcbinfo),
(3)  //             UNIT=tape,VOL=(,RETAIN,SER=serial)
Notes:
     (1) DISP=(NEW,PASS) ou VOL=(,RETAIN) doit être spécifié.
     (2) DISP=REWIND doit être spécifié dans l'instruction INITT.
     (3) VOL=SER=serial doit être spécifié.
         VOL=REF=*.STEP1.LABEL ne fonctionnera pas.

Exemple 9 : Rekey un volume de bande

Dans cet exemple, un volume de bande SL1000 doit être recréé avec deux étiquettes de clé.

//TAPEJOB	JOB	…
//STEP1	EXEC	PGM=IEHINITT
//SYSPRINT	DD	SYSOUT=A
//REKEY1	DD	UNIT=(TAPE,1,DEFER)
//SYSIN	DD	*
  REKEY1	REKEY	SER=SL1000,
		KEYLABL1=firstkeylabel,KEYENCD1=L,
		KEYLABL2=secondkeylabel,KEYENCD2=H
/*

Exemple 10 : plusieurs bandes spécifiées pour le mot clé SER

Dans cet exemple, cinq volumes de bande doivent être recréés avec les mêmes étiquettes de clé.

//TAPEJOB	JOB	…
//STEP1	EXEC	PGM=IEHINITT
//SYSPRINT	DD	SYSOUT=A
//REKEY2	DD	UNIT=(TAPE,1,DEFER)
//SYSIN	DD	*
  REKEY2	REKEY	SER=( AL1000,AL2000,AL3000,AL4000,AL5000),
		KEYLABL1=firstkeylabel,KEYENCD1=L,
		KEYLABL2=secondkeylabel,KEYENCD2=H
/*

Exemple 11 : Trois bandes avec NUMBTAPE spécifié

Dans cet exemple, trois volumes de bande 001200, 001201 et 001202 doivent être recréés avec les mêmes étiquettes de clé.

//TAPEJOB	JOB	…
//STEP1	EXEC	PGM=IEHINITT
//SYSPRINT	DD	SYSOUT=A
//REKEY3	DD	UNIT=(TAPE,1,DEFER)
//SYSIN	DD	*
  REKEY3	REKEY	SER=001200,NUMBTAPE=3,
		KEYLABL1=firstkeylabel,KEYENCD1=L,
		KEYLABL2=secondkeylabel,KEYENCD2=H
/*

Exemple 12 : Instructions de contrôle REKEY multiples

Dans cet exemple, deux volumes de bande, 005000 et SL8000, doivent être recréés.
Chaque volume de bande doit être recréé avec un ensemble différent d’étiquettes de clé et de mécanismes de codage.

//TAPEJOB	JOB	…
//STEP1	EXEC	PGM=IEHINITT
//SYSPRINT	DD	SYSOUT=A
//REKEY4	DD	UNIT=(TAPE,1,DEFER)
//REKEY5	DD	UNIT=(TAPE)
//SYSIN	DD	*
  REKEY4	REKEY	SER=005000,												
                        KEYLABL1=firstkeylabel,KEYENCD1=L,
		        KEYLABL2=secondkeylabel,KEYENCD2=H
  REKEY5	REKEY	SER=SL8000, 
		        KEYLABL1=differentfirstkeylabel,KEYENCD1=L,
      		        KEYLABL2=differentsecondkeylabel,KEYENCD2=H
/*

Exemple 13 : Instructions de contrôle multiples avec NUMBTAPE

Dans cet exemple, trois volumes de bande 001200, 001201 et 001202 doivent être recréés avec les mêmes étiquettes de clé spécifiées pour la première instruction de contrôle REKEY avec NUMBTAPE spécifié.
La deuxième instruction de contrôle spécifie qu’une bande SL8000 doit être réenregistrée avec différentes étiquettes de clé.
Notez que KEYLABL2 et son KEYENCD2 associé sont omis, ainsi les mêmes valeurs d’étiquette de clé et de mécanisme de codage spécifiées pour les mots-clés KEYLABL1 et KEYENCD1 sont utilisées pour les deux étiquettes de clé.

//TAPEJOB	JOB	…
//STEP1	EXEC	PGM=IEHINITT
//SYSPRINT	DD	SYSOUT=A
//REKEY6	DD	UNIT=(TAPE,1,DEFER)
//REKEY7	DD	UNIT=(TAPE)
//SYSIN	DD	*
  REKEY6	REKEY	SER=001200,NUMBTAPE=3,
			KEYLABL1=firstkeylabel,KEYENCD1=L,
			KEYLABL2=secondkeylabel,KEYENCD2=H
  REKEY7	REKEY	SER=SL8000, 
		        KEYLABL1=differentfirstkeylabel,KEYENCD1=L,
/*

Exemple 14 : Impression des spécifications de l’instruction INITT et des informations sur l’étiquette de volume initial

Dans cet exemple, une impression apparaît d’un ensemble de données de message comprenant l’instruction INITT et les informations d’étiquette de volume initiales.
Une instruction INITT a été utilisée pour placer les numéros de série 001122 et 001123 sur deux volumes de bande d’étiquettes standard.
VOL1001122 et VOL1001123 sont interprétés comme suit :

  • VOL1 indique qu’une étiquette de volume initiale a été écrite avec succès sur un volume de bande.
  • 001122 et 001123 sont les numéros de série qui ont été écrits sur les volumes.
  • Un espace vide après le numéro de série représente le champ Volume Security, qui n’est pas utilisé pendant le traitement OPEN/CLOSE/EOV sur une bande d’étiquettes standard.
  • Aucune erreur ne s’est produite lors du traitement.
SYSTEM SUPPORT UTILITIES   IEHINITT
 
ALL  INITT  SER=001122,NUMBTAPE=2,OWNER='P.T.BROWN',DISP=REWIND
 
VOL1001122                 P.T.BROWN
VOL1001123                 P.T.BROWN