livres gratuits, db2 et autres

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

Livres gratuits : AS400 et DB2/400

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

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

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 ...

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:

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

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

Bonjour,

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

MC PRESS

Citation:
Envoyé par 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:

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:

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

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).