Discussion :

[bernard59139]

Bonjour

en me baladant sur des forums US, j'ai trouvé ce lien très interessant:
Ibm Free Books

C'est en anglais, mais les documents sont interessants.

a+
B59

[ELSEV]

Bonjour,

j'ai trouvé ces 2 bouquins gratuits
https://notos.fr/blog/index.php?arti...s-gratuitement

Ci-dessous le lien direct au téléchargement si vous ne souhaitez pas remplir formulaire
https://www.notos.fr/Telechargement

Les bouquins sont découpés en plusieurs fichiers PDF.
J'ai utilisé l'application Arranger PDF sous linux, pour les rassembler en un seul fichier PDF

Cdt
Elsev

[Luc Orient]

Ces livres sont parus en 1993 et 1995, c'est à dire en informatique il y a une éternité.

[ELSEV]

oui, j'en avais conscience
J'ai pensé que ces livres pouvaient servir de base pour apprendre, comme je le fais actuellement.

J'utilise une base DB2/400 et je recherchais des informations pour tirer profit de ce système (V7R3) que je ne connais pas.
Ayant déjà utilisé une base DB2 sur des projets, je m'aperçois que DB2/400 ne fonctionne pas pareil.
Par exemple, je n'arrive pas à retrouver les clés primaires d'une table, qui est en fait un fichier, que l'on appelle librairie ...

[Darkzinus]

Bonjour tu parles de fichiers (DDS) ou de de "tables" ? Car effectivement sur l'AS400 si on les utilise de la même façon niveau système il y a des différences.
Un moyen de connaître les logiques et index de tous les fichiers (unique ou non), il suffit de remplacer "BIBNAME" par le schema :

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
with LF as (                                                    
  select DBFFIL, DBXFIL, DBXUNQ, DBKFLD, DBKORD, DBKPOS         
  FROM QSYS.QADBXREF                                            
  inner join  QSYS.QADBFDEP on                                  
      DBFFDP = DBXFIL and DBFLIB = "NOMBIB"                
  inner join QSYS.QADBKATR on                                   
      DBKFIL = DBXFIL and DBKLIB = DBFLIB                       
   WHERE DBXLIB = "NOMBIB" and DBXATR = 'LF' order by       
   DBXFIL, DBKPOS)                                              
SELECT                                                          
DBFFIL PHYSIQUE,                                                
DBXFIL LOGIQUES,                                                
case when DBXUNQ = 'U' then 'O' else 'N' end, 
  listagg(trim(DBKFLD) concat ' ' concat DBKORD, ', ')                   
  within group(order by DBKPOS) index                                    
  from LF                                                                
  group by DBFFIL, DBXFIL, case when DBXUNQ = 'U' then 'O' else 'N' end  
  order by DBFFIL, DBXFIL

[escartefigue]

Bonsoir,

Pour ce qui concerne DB2 for Z/OS au moins, mais il me semble que c'est également le cas pour les autres versions, les documentations officielles sont gratuites (et l'ont toujours été) sur le site IBM : red books, reference manuals, migration guides, etc.
Et pour ce SGBD, je ne crois pas qu'il existe de documentation plus complète que celle de l'éditeur.
La licence DB2 est hors de prix, mais au moins, la documentation est non seulement disponible et gratuite, mais aussi archi complète et de qualité. Inutile à mon sens d'aller chercher ailleurs.

exemple de docs gratuits : https://www.ibm.com/support/knowledg...dfmanuals.html

[Luc Orient]

Bonjour,

Sinon un éditeur aux EU spécialisé dans les livres autour de l'IBM i.

MC PRESS

[ELSEV]

Bonjour tu parles de fichiers (DDS) ou de de "tables" ? Car effectivement sur l'AS400 si on les utilise de la même façon niveau système il y a des différences.
Un moyen de connaître les logiques et index de tous les fichiers (unique ou non), il suffit de remplacer "BIBNAME" par le schema :

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
with LF as (                                                    
  select DBFFIL, DBXFIL, DBXUNQ, DBKFLD, DBKORD, DBKPOS         
  FROM QSYS.QADBXREF                                            
  inner join  QSYS.QADBFDEP on                                  
      DBFFDP = DBXFIL and DBFLIB = "NOMBIB"                
  inner join QSYS.QADBKATR on                                   
      DBKFIL = DBXFIL and DBKLIB = DBFLIB                       
   WHERE DBXLIB = "NOMBIB" and DBXATR = 'LF' order by       
   DBXFIL, DBKPOS)                                              
SELECT                                                          
DBFFIL PHYSIQUE,                                                
DBXFIL LOGIQUES,                                                
case when DBXUNQ = 'U' then 'O' else 'N' end, 
  listagg(trim(DBKFLD) concat ' ' concat DBKORD, ', ')                   
  within group(order by DBKPOS) index                                    
  from LF                                                                
  group by DBFFIL, DBXFIL, case when DBXUNQ = 'U' then 'O' else 'N' end  
  order by DBFFIL, DBXFIL

Merci pour la requête, elle semblait intéressante
Malheureusement, il semble que je n'ai pas les droits d'accès aux tables QADBXREF et QADBFDEP, ci dessous l'erreur

Code :

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

[Code: -551, SQL State: 42501]  [SQL0551] Non autorisé à l'objet QADBXREF dans QSYS00033, de type *FILE.

[Darkzinus]

Ah mince … Effectivement un profil "standard" (sur ton site) n'a peut-être pas accès à ces tables c'est dommage. Globalement la doc DB2 AS400 est riche entre IBM et VOLUBIS (excellents cours et tutos dont voici un exemple : https://www.volubis.fr/news/liens/AF...xt/SQL.710.HTM ou bien encore https://www.volubis.fr/news/liens/AF...XT/SQL400P.htm).
Globalement les fonctions SQL intégrées sont de plus en plus riche. Le LISTAGG de ma requête est récent (avant il fallait passer par du XML SQL atrocement lourd pour avoir le même résultat).