VSAM initialisation - delete d'enregistrements [Résolu]

[coderetour0]

bonjour,

dans le cadre de l'initialisation d'un vsam par repro, je souhaite ensuite vider son contenu.

file-aid en batch le permet il ? (cela permettra d'en vider plusieurs)

[Luc Orient]

C'est un VSAM de quel type, KSDS, ESDS ou RRDS ?

Suggestions :

= DELETE / DEFINE

= REPRO avec ficher en entrée vide ( DUMMY )

[bernard59139]

Bonjour

qu'appelles-tu "initialiser un fichier"?

[coderetour0]

j'entends par initialiser une ouverture/fermeture qui permet de rendre utilisable le vsam.

le repro a dummy apres un del/def ne fonctionne pas !

quant au delete (sous file-aid) du record après son repro il ne fonctionne pas sur un ESDS !

[Luc Orient]

Comment est créé ton fichier VSAM ESDS ?

[coderetour0]

les vsam sont créés a partir du DEL/DEF (sysin dans une parmlib) qd il existe sinon par ALTER NEWNAME d'un vsam existant.

l'ESDS est un cas particulier de DEL/DEF sans index.

[bernard59139]

bonjour

pour pouvoir utiliser sans soucis un KSDS en Input (accès direct ou sequentiel), il faut que le HIU-RBA (High Use Rba) soit différent de 0 (zéro).

A ma connaissance, le seul moyen d'y arriver est d'alimenter le fichier avec un record quelconque et d'éffacer ce record si nécessaire (j'ai connu des sites ou l'éffacement n'était jamais fait).
Certans programmes permettent d'automatiser ces 2 opérations.

Si tu as ISM, anciennement appellé FAVER, tu peux utiliser VSOPRIME, exemple:

Code :

1
2
3
4
5
//PRIME    EXEC PGM=VSOPRIME
//SYSPRINT DD  SYSOUT=*
//I1       DD  DISP=OLD,DSN=le fichier vsam
//SYSIN    DD  *
 INIT  FILE(I1)

Je ne connais pas bien File-AID, mais In-Sync (produit équivalent) possède une option "init file" qui fonctionne correctement.
Parfois, il peut exister un programme "maison".

bonne journée

[Peut-êtreUneRéponse]

As-tu essayé un ICEGENER :

Code :

1
2
3
4
5
//RAZ      EXEC PGM=ICEGENER                                   
//SYSPRINT DD SYSOUT=*                                         
//SYSUT1   DD DSN=NULLFILE,LRECL=32000,RECFM=VBS,BLKSIZE=32000 
//SYSUT2   DD DISP=OLD,DSN=MON.VSAM.ESDS.AVIDER
//SYSIN    DD DUMMY

[coderetour0]

on vient de me fournir un prog ASM VSAMINIT qui semble fonctionner a merveille

l'appel se fait par jcl avec la sysin suivante

Code :

1
2
//SYSIN    DD  *                                        
INIT KEY-CHARACTER=C' '  FILL-CHARACTER=C'9'  DELETE=YES

le resultat est visible dans la sysprint

Code :

1
2
3
4
5
6
*************** VSAM FILE INITIALIZATION ROUTINE ***************  YYDDD HHMMSS
----------------------------------------------------------------  12041 153415
MSG002- INITIALIZE FILE VSAM0001 (KSDS) STARTED                   12041 153415
MSG003-            DSN: xxx.xxx.xxx                                 
MSG010- VSAM FILE WAS INITIALIZED                                 12041 153415
PROCESSING COMPLETED ------- RC=000.                              12041 153415

les commentaires visibles dans le source n'en font pas un prog maison. il est donc peut être récupérable sur le net.

son avantage (par rapport à un repro classique) est de supprimer l'enregistrement inséré !! (pas de suppression à la main donc moins de boulot )

++