Information sur récupération en masse du Contoken [Résolu]

[Macmini95]

Bonjour à tous,

Dans nos environnements de Dev nous voulons effectuer le ménage et éviter les -805

Pour cela nous faisons une extraction de SYSIBM.SYSPACKAGE et récupérons le contoken.

Existe-t-il un utilitaire capable de récupérer ce Contoken dans un PDS de LOAD ?
Faut-il développer un Rexx ? Le seul élément commun que l'on a pu trouver est
en faisant un Find F x’00284400’ . Donc visiblement possibilité d'écrire un REXX .

Merci d'avance pour vos réponses

[Peut-êtreUneRéponse]

Il faut comparer le consistency token du DBRM et celui du LOAD en hexa.

Pour cela tu peux extraire directement de la SYSPACKAGE le CONTOKEN du DBRM et générer celui du LOAD.

Pour générer le consistency token du load tu peux couper en 2 celui du dbrm et switcher les 2 parties. (Attention ça dépend du langage de la source et de la version du compilo, c'est valable pour cobol enterprise 3.1, j'ai pas vérifié en 4.2)

Code :

1
2
3
4
5
6
7
8
SELECT SUBSTR(NAME,1,8)          AS PACKAGE      
      ,SUBSTR(COLLID,1,18)       AS COLLECTION   
      ,HEX(CONTOKEN)             AS DBRM_TOKEN   
      ,SUBSTR(HEX(CONTOKEN),9,8)                 
         CONCAT                                  
       SUBSTR(HEX(CONTOKEN),1,8) AS LOADLIB_TOKEN    
FROM SYSIBM.SYSPACKAGE;
WHERE NAME = ?

si LOADLIB_TOKEN = DBRM_TOKEN package OK sinon -805.

En REXX ce n'est pas trop difficile à mettre en oeuvre, il faut toutefois faire attention aux versions de package.

.

[bernard59139]

Quelques souvenirs qui datent du passage à l'an 2000.

Existe-t-il un utilitaire capable de récupérer ce Contoken dans un PDS de LOAD ?

Pas à ma connaissance.

REXX ce n'est pas trop difficile à mettre en oeuvre

sauf que lire un LOAD en rexx, ce n'est pas très simple à faire.

si LOADLIB_TOKEN = DBRM_TOKEN package OK

C'est valable avec du cobol. Mais certains options peuvent changer la facon de stocker le contoken.
Et plus exactement, je coderai:

Code :

1
2
3
 
si LOADLIB_TOKEN <> DBRM_TOKEN pasok
sinon c'est presque ok

je sais, je pinaille.

[Macmini95]

Merci pour vos réponses :cool:

Le Rexx est écrit

[Peut-êtreUneRéponse]

Envoyé par bernard59139

Code :