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