Discussion :

[sam01]

Bonjour,

est-il possible de faire un ALTER sur le blocksize d'une bibliothèque.

Sans la supprimer...

Merci pour votre aide.

[bernard59139]

Bonjour

C'est impossible

Bonne journéee

[xfanx]

si si, on peut
tu fais un iebcopy d'un membre du PDS vers lui meme en forçant le nouveau DCB sur le OUT.

pas besoin de spécifier un nom de membre qui existe vraiment

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
BLKRESET EXEC PGM=IEBCOPY                                             
SYSPRINT DD  SYSOUT=*                                                 
IN01     DD  DISP=SHR,DSN=PDS.A.MODIFIER(X)                                    
OUT01    DD  DISP=SHR,DSN=PDS.A.MODIFIER(Y),                                   
             DCB=(RECFM=FB,LRECL=<new lrecl>,BLKSIZE=<new blksize>                 
SYSIN    DD  *                                                        
COPY INDD=((IN01,R)),OUTDD=OUT01

[bernard59139]

résultat:

IEB120I OU1 VALIDATION ERROR
IEB146I CAN NOT COMPRESS OR COPY WITHIN SAME DATA SET WITH RE/DE-BLOCKING. INPUT BLKSIZE IS 3200 OUTPUT BLKSIZE IS 6400.

[xfanx]

étonnant, comme ton message m'a mis un doute, je viens de refaire un essai ce matin et.. j'ai bien plusieurs fois et sans problème avec cette technique modifié les LRECL et BLKSIZE d'un PDS. Je ne sais pas si ça fonctionne avec un PDSE par contre

il y a quand meme une erreur dans le jcl indiqué précédemment, il faut décaler d'au moins 3 caractères vers la droite la ligne du COPY dans la SYSIN

pourrais je voir ton JCL avant submit s'il te plait?

[bernard59139]

Bonjour

voilà le jcl que je soumet:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
//COP1     EXEC  PGM=IEBCOPY                           
//SYSPRINT DD  SYSOUT=*                                
//IN1  DD  DISP=SHR,DSN=xxxx.JCL.TEST(EE)           
//OU1  DD  DISP=SHR,DSN=xxxx.JCL.TEST(EY),          
//    DCB=(LRECL=81,BLKSIZE=3240,RECFM=FB)             
//SYSIN    DD  *                                       
   COPY   INDD=((IN1,R)),OUTDD=OU1
/*

messages:

COPY INDD=((IN1,R)),OUTDD=OU1 00121056
IEB120I OU1 VALIDATION ERROR
IEB146I CAN NOT COMPRESS OR COPY WITHIN SAME DATA SET WITH RE/DE-BLOCKING. INPUT BLKSIZE IS 3200 OUTPUT BLKSIZE IS
3240.

Le fichier est bien de type PDS. Ce n'est pas un PDSE.

bonne soirée

[Lemmings1406]

Bonjour,

Je ne vois pas comment cela peut fonctionner. D'après mes connaissances, il est impossible de modifier le DCB à moins de recréer un nouveau PDS.

[xfanx]

tout ce que je peux vous dire c'est que sur mon site cela fonctionne tres bien

voici un exemple que je viens de faire ce matin

parametres du PDS d'origine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Data Set Name . . . . : xxxxxxx.BTX.TEXT1                                     
                                                                             
General Data                          Current Allocation                     
 Management class . . : MC7            Allocated blocks  . : 420             
 Storage class  . . . : SCSTD          Allocated extents . : 1               
  Volume serial . . . : VLA034         Maximum dir. blocks : 6               
  Device type . . . . : 3390                                                
 Data class . . . . . : DSTD00                                               
  Organization  . . . : PO            Current Utilization                    
  Record format . . . : FB             Used blocks . . . . : 281             
  Record length . . . : 133            Used extents  . . . : 1               
  Block size  . . . . : 1330           Used dir. blocks  . : 6               
  1st extent blocks . : 420            Number of members . : 33              
  Secondary blocks  . : 5                                                   
  Data set name type  : PDS                                                 
                                                                           
  Creation date . . . : 2011/01/03     Referenced date . . : 2011/01/03      
  Expiration date . . : ***None***

jcl exécuté

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
//BLKRESET EXEC PGM=IEBCOPY                                    
//SYSPRINT DD  SYSOUT=*                                        
//IN01     DD  DISP=SHR,DSN=xxxxxx.BTX.TEXT1(A1)               
//OUT01    DD  DISP=SHR,DSN=xxxxxx.BTX.TEXT1(A2),              
//  DCB=(RECFM=FB,LRECL=80,BLKSIZE=2000)                       
//SYSIN    DD  *                                               
   COPY INDD=((IN01,R)),OUTDD=OUT01

résultat d'exécution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
EB153I ALL MEMBERS COMPRESSED - ALL WERE ORIGINALLY COMPRESSED                
IEB144I THERE ARE 6 UNUSED TRACKS IN OUTPUT DATA SET REFERENCED BY OUT01       
IEB147I END OF JOB - 0 WAS HIGHEST SEVERITY CODE

parametres du PDS apres l'IEBCOPY

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Data Set Name . . . . : xxxxxx.BTX.TEXT1                                     
                                                                              
 General Data                          Current Allocation                     
  Management class . . : MC7            Allocated blocks  . : 315             
  Storage class  . . . : SCSTD          Allocated extents . : 1               
  Volume serial . . . : VLA034         Maximum dir. blocks : 6               
  Device type . . . . : 3390                                                
  Data class . . . . . : DSTD00                                               
  Organization  . . . : PO            Current Utilization                    
  Record format . . . : FB             Used blocks . . . . : 211             
  Record length . . . : 80             Used extents  . . . : 1               
  Block size  . . . . : 2000           Used dir. blocks  . : 6               
  1st extent blocks . : 315            Number of members . : 33              
  Secondary blocks  . : 5                                                   
  Data set name type  : PDS                                                 
                                                                           
  Creation date . . . : 2011/01/03     Referenced date . . : 2011/01/06      
   Expiration date . . : ***None***

[Lemmings1406]

Je suis sceptique.

Peux-tu mettre ton compte rendu d'exécution complet et nous donner la version de ton Zos. Il doit y avoir une explication.

Peux aussi faire un TSO ISRDDN puis M IEBCOPY et donner le nom de la bibli où se trouve le load module.

D'avance merci.

[bernard59139]

Bonjour

Ca me laisse sans voix.

J'ai beau tourner le truc dans tous les sens, je n'arrive pas à trouver d'explication valable.

[xfanx]

bonjour,
je ne tiens pas à mettre le résultat d'exécution complet, mon site et moi meme serions trop facilement identifiable. désolée. par contre je veux bien l'envoyer par mail

pour répondre aux questions , voici l'entête de l'IEBCOPY
IEB1135I IEBCOPY FMID HDZ1180 SERVICE LEVEL UA27650 DATED 20060711 DFSMS 01..08.00 z/OS 01.08.00 HBB7730 CPU 2094

avec le level du Z/OS et de l'iebcopy

pour info Lemmings1406 le ISRDDN renvoie member not found, ce qui ne l'étonne pas plus que ça, les utilitaires dont l'iebcopy etant en LINKLIST

[bernard59139]

J'avais bien la piste d'un logiciel style "pdsman".

Mais au vu des messages IEB* , je suis très désapointé!


a++

ps: pour chercher dans la linklist avec isrddn:

• isrddn
• lp
• M iebcopy
• écran d'alerte, répondre "YES" (attention aux conséquences)

[xfanx]

merci bernard, l'IEBCOPY est en SYS1.LINKLIB

[Lemmings1406]

Re,

Tu es un niveau de maintenance en dessous du miens donc ça ne peut pas venir de là.

Ca ne vient pas non plus de ce à quoi je pensais.

[Lemmings1406]

Re,

Ayant reçu le CR, qui ne présente aucune spécificités, j'ai fais quelques recherche sur le net.

Donc voici l'explication. Tu dois avoir PDSMAN d'installé sur ton site. Même si tu utilises IEBCOPY, c'est en réalité PDSMAN qui tourne d'où ta réussite et notre échec.

Demande confirmation à ton Ingé Système ou fouille un peu sur ton site mais c'est la seule explication possible. Sans un outil de ce genre, il est IMPOSSIBLE de modifier un PDS sans avoir à le redéfinir.

Dailleurs, pour vérifier, tu peux essayer le jcl suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 //STEP1    EXEC PGM=IEBCOPY
 //SYSPRINT DD SYSOUT=*
 //OUT      DD DISP=SHR,DSN=xxxxxx.BTX.TEXT1
 //SYSIN    DD *
  ALTERDIR OUTDD=OUT,BLOCKS=2000

[xfanx]

effectivement tu as raison, voici le résultat d'exécution

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
PDSMAN       r7.60                                    FASTCOPY FACILITY       06
** PDSMFCPC ** xxxx                                                           
FCO100I PDSMAN FASTCOPY PROCESSING ACTIVE     01/06/2011   14:59:26  JOBNAME xxx
FCO105I   ALTERDIR OUTDD=OUT,BLOCKS=2000                                        
FCO110I ALTERDIR     PDS   OUTDD=OUT      VOL=VLA034 DSN=xxxxxx.BTX.TEXT1       
FCO370A   674 MAXIMUM DIRECTORY BLOCKS IN FIRST LIBRARY EXTENT                  
FCO220U 00.00.00.22 SECS ELAPSED  00.00.00.00 TCB CPU  00.00.00.00 SRB CPU      
FCO330A PDSMAN FASTCOPY PROCESSING TERMINATED 01/06/2011   14:59:26  CC=12

j'avoue ne pas y avoir pensé dans la mesure ou les messages envoyés de l'IEBCOPY pour le COPY étaient de type IEB .

merci pour tout

[Peut-êtreUneRéponse]

J'avais bien la piste d'un logiciel style "pdsman".

Mais au vu des messages IEB* , je suis très désapointé!


a++

ps: pour chercher dans la linklist avec isrddn:

• isrddn
• lp
• M iebcopy
• écran d'alerte, répondre "YES" (attention aux conséquences)

Merci pour l'astuce de la linklist

.

[Lemmings1406]

La recherche de membre avec la commande ISRDDN fonctionne pour pas mal de chose, la LINKLIST mais aussi les biblis en APF (taper apf) ou en lpa (taper lpa)....

[Peut-êtreUneRéponse]

La recherche de membre avec la commande ISRDDN fonctionne pour pas mal de chose, la LINKLIST mais aussi les biblis en APF (taper apf) ou en lpa (taper lpa)....

Je bookmark cette conversation. Merci Lemmings1406

.

[Lemmings1406]

Je vais essayer de lister toutes les options de ISRDDN:

FIND --> Pour chercher une chaine de caractères
LOCATE
EXCLUDE --> Pour exclure certains DDnames
ONLY --> Pour afficher un seul DDname
MEMBER --> Pour rechercher un membre
COUNT --> Afficher le nombre de membres contenus dans chaque Bibli
ENQ --> Affiche les ENQ
CON --> Affiche les contentions
LPA --> Pour afficher toutes les biblis en LPA
LINKLIST --> Idem mais pour la linklist
PARMLIB --> Idem pour les parmlib
APFLIB --> Idem pour les biblis en apf
CLIST --> Génère une clist avec l'allocation de toutes les biblis
DUPLICATES --> Cette fonction peut s'avérer utile pour une bonne campagne de ménage affiche tous les noms des membres qui sont contenus dans plusieurs biblis (tous les doublons)
RESET --> Pour réinitialiser l'affichage

Il y a aussi BROWSE LOAD et SELECT (pour charger un module en storage, le visualiser, faire des recherche en hexa...) mais les ayant très peu utilisé, je ne mets pas de descriptif. Faites un petit F1 et vous aurez quelques explications.

Ensuite, il y a les actions qui peuvent être faites sur les biblis, voici les principales:

B --> Pour voir le contenu d'une bibli et selecter un membre
E --> Idem mais permet l'édition
C --> Compress
F --> Free
I --> Information sur la bibli
Q --> Pour afficher les enq d'une bibli

Ne pas oublier les touches F10 et F11 qui permettent d'afficher plusieurs informations comme le nom du volume de chaque bibli ou encore son DCB...

Il manque surement des choses mais j'ai essayé de lister les principales fonctions.