Discussion :

[Godille-MM]

J'aimerais solliciter votre aide sur un pb car je cherche depuis un petit moment.
Je dois créer un VSAM sur un volume en batch.
je connais le nom du Volser. je dois balayé les volumes PRIVATE où il y aurait de la place et vérifier le paramètre "free tracks" qui permettrait de créer mon VSAM. Je mets le nom du volume que j'ai trouvé "en dur" dans mon JCL et je soumets mon JCL pour la création de mon VSAM.
Le problème c'est que nous ne pouvons pas faire des allocations dynamiques avec SMS. (Je ne sais pas pourquoi, la décision a été prise il y a longtemps.)
Pourriez-vous me dire comment je pourrais faire ça en REXX ou utilitaires JCL ou autre ?
ça m'enlèverait une épine du pied. c'est trop galère. merci d'avance.

[bernard59139]

Bonjour

Effectivement, sans SMS, c'est galère.

Pour récupérer les info disques, 2 solutions

1. IEHLIST
2. DCOLLECT de IDCAMS (avec le parametre NODATAINFO)

Le DCOLLECT aurait ma préférence. En interrogant la zone DCVLGEXT, tu auras la plus grand espace libre sur un volser.
Ensuite, il faut travailler le résultat avec un programme (rexx ou autre) selon tes besoins.

Bon courage

[Godille-MM]

Merci pour ces pistes. je vais de ce pas creuser tout ça.

[Homer-ac]

Une autre piste, vérifier si MXI est installé sur le site.
La fonction DASD donne un résumé parfait de tous les disques montés.
Il suffit de passer juste DASD en SYSIN d'un EXEC PGM=MXI,PARM='BATCH' Batch pour récupérer la liste en SYSPRINT.

Sinon, on arrive effectivement à un résultat équivalent par un DCOLLECT, sauf qu'il faudra décoder le résultat par REXX, ICETOOL ou autre.
Un exemple REXX (bricolé depuis le REXX LISTVT de Thierry Falissard que l'on peut trouver dans CBTAPE), histoire de qualifier les données du DCOLLECT pour adapter à son besoin :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
/* REXX  LISTE VOLSER DEPUIS DCOLLECT SUR QSAM FB 200              */   
/* SYSIN DCOLLECT : DCOLLECT OUTFILE(DCOLOUT) VOLUME(*) NODATAINFO */   
/* LECTURE SUR DD DCOLIN, ECRITURE SUR DD DCOLOU                   */   
J1   = 0                                                                
'EXECIO * DISKR DCOLIN (STEM TAB. FINIS'                                
IF RC > 0 THEN EXIT RC                                                  
DO I1 = 1 TO TAB.0                                                      
  IF SUBSTR(TAB.I1,5,1)  = 'V' ,         /* RECORD TYPE V = VOLUME */   
   & SUBSTR(TAB.I1,32,1) = '00'X THEN DO   /* VOLUME NON EN ERREUR */   
     VOLSER    = SUBSTR(TAB.I1,25,6)                                    
     FLAGI     = SUBSTR(TAB.I1,31,1) /* VTOC INDEX */                   
     DEVICE    = SUBSTR(TAB.I1,69,8)                                    
     DEVICENUM = C2X(SUBSTR(TAB.I1,77,2))                               
     SGNAME    = SUBSTR(TAB.I1,83,10)                                   
     PCTFREE   = FORMAT(C2D(SUBSTR(TAB.I1,36,1)),3)'% FREE'             
     KFREE     = 'K FREE='FORMAT(C2D(SUBSTR(TAB.I1,37,4)),9)            
     KALLOC    = 'K ALLOC='FORMAT(C2D(SUBSTR(TAB.I1,41,4)),9)           
     KCAPACITY = 'CAPACITY='FORMAT(C2D(SUBSTR(TAB.I1,45,4)),9)          
     FRAGIX    = 'FRAGIX='FORMAT(C2D(SUBSTR(TAB.I1,49,4)),5)            
     LARGEXT   = '> EXTNT='FORMAT(C2D(SUBSTR(TAB.I1,53,4)),9)           
     FREEEXT   = 'FREE EXTNT='FORMAT(C2D(SUBSTR(TAB.I1,57,4)),7)        
     FREEDSCB  = 'FREE DSCBS='FORMAT(C2D(SUBSTR(TAB.I1,61,4)),7)        
     FREEVIRS  = 'FREE VIRS='FORMAT(C2D(SUBSTR(TAB.I1,65,4)),7)         
     J1   = J1+1                                                        
     TAB.J1 = VOLSER DEVICENUM DEVICE     SGNAME'-'    FRAGIX '-' ,     
              PCTFREE '-' KCAPACITY  '-'  KFREE    '-' KALLOC '-' ,     
              LARGEXT '-' FREEEXT    '-'  FREEDSCB '-' FREEVIRS         
  END                                         
END                                           
'EXECIO' J1 'DISKW DCOLOU (STEM TAB. FINIS'   
EXIT

nb. Je suis peut être trop curieux mais sais-tu (si SMS est installé) pourquoi a t'on renoncé à l'utiliser pour les VSAM ?. Ce pourrait être une info intéressante, personnellement je n'ai jamais rencontré de pb à utiliser SMS pour ces fichiers.

[Godille-MM]

Merci à Homer-AC.
pour répondre à ta question, il semble que ce serait à cause de la taille du fichier et il faudrait utiliser plusieurs volumes.

[Lemmings1406]

Bonjour,

Il est dommage de ne pas utiliser SMS surtout s'il est installé mais il y a peut-être une bonne raison à cela.
Moi non plus, je n'ai jamais eu de soucis avec son utilisation sur les VSAM et on peut même déclarer des VSAM Extended.