Discussion :

[qqoos]

bonjour à tous,

je voudrais copier un membre de PDS dans un autre PDS qui n'existe pas :

PDS1.TOTO(mbr1) à copier dans PDS1.TITI(mbr1) (PDS1.TITI n'existe pas)

je ne connais pas à priori les caractéristiques de PDS1.TITI.

existe-t-il qque chose comme "Alloc pds(pds1.titi) like(pds1.toto)" qui marche pour les PDS ??

merci d'avance

[xfanx]

quelque chose dans ce genre devrait fonctionner..

"alloc dd(RICO) da('"RICBKP"') like('"RICLIB"')" BLKSIZE

"ispexec lminit dataid(idi) dataset('"RICLIB"')"

"ispexec lminit dataid(ido) dataset('"RICBKP"')"

"ispexec lmcopy fromid("idi") frommem(*)",
"todataid("ido") replace"

"ispexec lmfree dataid("idi")"


"ispexec lmfree dataid("ido")"

[Homer-ac]

On peut faire en gros la même chose via une alloc TSO qu'en JCL à la syntaxe "langage" près. Pour l'allocate TSO, on a le Help à dispo pour s'assurer de cette syntaxe. Avec LIKE, ça donne qque chose comme ça.

Code :

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

"ALLOC F(FMYPDS) DA("MYPDS") NEW CAT UNIT(SYSALLDA) LIKE('"PDSREF"')"

Pour consultation du help, un petit REXX qui simplifie la vie. (Il y a l'équivalent un peu partout sur les sites z/OS). On intercale le REXX dans le HELP : TSO TED HELP ALLOC et avec le résutat en EDIT on gagne du temps.

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
/* TED : RECUPERATION D'UN HELP OU DE TOUT AFFICHAGE ECRAN      */ 
/*         VIA UN EDIT SUR SON FICHIER ISPF ZTEMPF              */ 
/* ------------------------------------------------------------ */ 
arg COMMAND                                                             
if length(COMMAND) = 0 then do                                          
   say "Erreur: TED DOIT RECEVOIR DES PARAMETRES POUR LES TRAITER"    
   say "        Exemple --> TSO TED HELP ALLOC"
   exit 4                                                               
end                                                                     
address TSO                                                             
x = outtrap("trap.","*")          /* interception de l'affichage */     
command                           /* exécution de la cde TSO passée*/     
x= outtrap("off")                 /* remise en service de l'affichage */     
"ISPEXEC CONTROL ERRORS RETURN"                                         
Address ISPEXEC "VGET (ZTEMPF)"   /* ALLOC sur DDNAME ALEATOIRE  */     
DDN = "TP"random()                                                      
"ALLOC DD("DDN") DA('"ZTEMPF"') SHR"                                    
"EXECIO * DISKW" DDN "(FINIS STEM trap."                                
Address ISPEXEC "EDIT  DATASET('"ZTEMPF"')" 
if RC > 8 then do   /* EDIT sur ZTEMPF non récursif ! */                
   ZEDLMSG = "Sortir de l'Edit" ZTEMPF "avant de relancer !"
   "ISPEXEC SETMSG MSG(ISRZ001)"                                        
end                                                                     
EXIT RC

Enfin, pour l'utilisation des services L.M. l'exemple donné par xfanx est parfait. Simple et efficace. J'ajouterais cependant en amont un "ADDRESS ISPEXEC CONTROL ERRORS RETURN" histoire d'avoir la main sur tous les RC (>8) à tester quand même par prudence au moins après le LMCOPY.

[qqoos]

mon code :

RICLIB = "mon.ancien.pds"
RICBKP = "mon.nvo.pds"
BLKSIZE = "BLKSIZE(27920)"
"alloc dd(RICO) NEW CAT da('"RICBKP"') like('"RICLIB"')" BLKSIZE
"ispexec lminit dataid(idi) dataset('"RICLIB"')"
"ispexec lminit dataid(ido) dataset('"RICBKP"')"
"ispexec lmcopy fromid("idi") frommem(*)",
"todataid("ido") replace"
"ispexec lmfree dataid("idi")"
"ispexec lmfree dataid("ido")"
RETURN 0

et voilà le retour :

IKJ56893I DATA SET mon.nvo.pds NOT ALLOCATED+
IGD17295I DATA SET mon.ancien.pds HAS
PARTITIONED ORGANIZATION AND CANNOT HAVE A
DATA CLASS WITH A DYNAMIC VOLUME COUNT GREATER

quelqu'un a une idée ?

[Homer-ac]

remplaces BLKSIZE par unit(3390) ou unit(SYSALLDA). SMS devrait pouvoir se charger du reste.
Sinon, comme le message concerne la DATACLASS, tentes une allocation en 3.2 de ton fichier, notes en S ou I la DATACLASS utilisée avant de deleter le fichier et de réessayer en forçant la DATACLASS : DATACLAS('DATACLAS NAME')

IGD17295I DATA SET dsname HAS PARTITIONED ORGANIZATION AND CANNOT HAVE A DATA CLASS WITH A DYNAMIC VOLUME COUNT GREATER THAN ONE,
ALLOCATION FAILED

| User Response: Ensure that the DATA CLASS selected for this allocation request does not specify a Dynamic Volume Count greater than 1.

[qqoos]

j'ai essayé les 2, il me sort la même erreur.

[Homer-ac]

J'ai essayé ton rexx et corrigé mon post, il fonctionne. Tu as donc un pb SMS et il faut que tu forces une DATACLASS valide

[qqoos]

je l'ai créé en 3.2, noté la DATACLASS et j'ai repassé le REXX en forçant la DATACLASS, j'ai la même erreur.

Comment lister les dataclass existantes ?


merci pour tes réponses

[Homer-ac]

Comment lister les dataclass existantes ?

C'est sous TSO ISMF.
Sinon comme tu as un pb avec les ACS routines qui ne prennent pas en compte le LIKE, essayes encore une fois en forçant un DSORG('PO') ou LIBRARY pour arriver à forcer une allocation mono volume.

[xfanx]

bonjour,

je ne sais pas en quelle version de Z/os tu te trouves, mais j'ai trouvé un apar IBM ciblant exactement ton probleme.

tu devrais voir avec les ingénieurs système...

Apar disponible à cette URL http://www-01.ibm.com/support/docvie...id=isg1OA22738

comme le dit Homer-ac, la solution donnée est de sépcifier DSORG('PO')

[Homer-ac]

Avant d'aller voir les I.S. Tentes en ajoutant ça : DSORG(PO) VSEQ(1)
Le like ne prend pas en compte le volume séquence.

[qqoos]

ça marche très bien !! Ouf merci pour votre aide.

encore une question, je veux copier de la meme maniere un fichier sequentiel, y a t'il un autre moyen (comme le lmcopy) que de passer par des EXECIO ?

[qqoos]

j'ai trouvé, il suffit de faire le lmcopy en enlevant "fromem()"


merci à tous pour votre aide précieuse !!

[yann78420]

Pour copier des séquentiels, j'utilise la commande "REPRO" ...
il faut juste s'allouer les fichiers avec "ALLOC" auparavent ...