Paramètrage de fichiers logiques [Résolu]

[fspiecart]

Bonjour,

Nous créons des fichiers temporaires physiques suffixés avec un n° récupéré dans une dataarea
Ex : Nom du fichier physique : M708(n°de l'option menu)+1234 (n°dataarea)
Ce fichier est crée avec les DDS d'un fichier qui s'appelle M708000A
Ce fichier physique a 1 fichier logique : M7080AL1
Nous bloquons sur la création de ce logique sur le fichier physique paramètré
Avez-vous une solution !!!
Merci
FSPIECART

[K2R400]

Utilise un CREATE INDEX plutôt que des DDS

[Hédhili Jaïdane]

Envoyé par fspiecart

Bonjour,

Nous créons des fichiers temporaires physiques suffixés avec un n° récupéré dans une dataarea
Ex : Nom du fichier physique : M708(n°de l'option menu)+1234 (n°dataarea)
Ce fichier est crée avec les DDS d'un fichier qui s'appelle M708000A
Ce fichier physique a 1 fichier logique : M7080AL1
Nous bloquons sur la création de ce logique sur le fichier physique paramètré
Avez-vous une solution !!!
Merci
FSPIECART

Bonjour.

S'il faut passer par les DDS, un petit programme Cobol ou RPG qui récupère en paramètres les noms du fichier physique, du membre et de la bibliothèque pour modifier la ligne dans le membre source DDS. Le CL enchaîne par la compilation des DDS pour créer le logique et le tour est joué. Cette solution est fonctionnelle dans tous mes logiciels où la création des fichiers physiques et logiques est dynamique dans des environnements multi-sociétés.

[L6N2000]

Bonjour,

Envoyé par Hédhili Jaïdane

pour modifier la ligne dans le membre source DDS.

je comprends bien le reste de la réponse, par contre, ne vois pas comment modifier un source dds à partir d'un cl.
Avez vous un exemple?

Merci

[Mercure]

Oui, d'accord avec K2R400, utilisez SQL dynamique pour faire des CREATE TABLE et CREATE INDEX dans un programme RPG ou COBOL avec SQL intégré (type de source SQLRPGLE ou SQLCBLLE). C'est bien plus moderne, bien plus facile à faire (c'est même du gâteau) et autrement plus souple que de faire çà avec les DDS.

[K2R400]

Dans le CLP on peut appeler le shell unix qui peut lancer des ordres SQL.
ex :

QSH CMD('db2 "CREATE ALIAS MABIB.LADDS FOR MABIB.QDDSSRC (CLIENTL1)"')

Dans cet exemple il crée un alias nommé LADDS dans MABIB (ou fichier DDMF comme tu veux) qui pointe vers un membre.
Puis il suffit de lancer par le même biais un UPDATE SQL sur l'alias créé.

M'enfin il est tellement plus simple de créer un INDEX (c'est un fichier logique), celà évite les DDS et c'est beaucoup plus performant.
Maintenant qui veut reste à l'ancien temps.

[K2R400]

Autre façon en CLP, toujours par QSH

Code :

1
2
3
sed -e 's/PFILE(FIC1)/PFILE(FIC2)/'
  /qsys.lib/mabib.lib/qddssrc.file/clientL1.mbr
> /qsys.lib/mabib.lib/qddssrc.file/clientL2.mbr

Dans cet exemple, la DDS CLIENTL1 est copiée en CLIENTL2 et le mot clé PFILE(FIC1) est remplacé par PFILE(FIC2)

[Hédhili Jaïdane]

Envoyé par L6N2000

Bonjour,



je comprends bien le reste de la réponse, par contre, ne vois pas comment modifier un source dds à partir d'un cl.
Avez vous un exemple?

Merci

Ce n'est pas le CL qui modifie le source DDS, mais plutôt le programme Cobol.
Le CL, ayant déterminé le nom du fichier physique sur lequel va se baser le logique à créer, appelle le programme Cobol pour modifier les DDS. Le CL enchaîne ensuite par le CRTLF.

Un exemple simple d'un programme Cobol qui fait ça, j'en ai de plus compliqué.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
0005   IDENTIFICATION DIVISION.
0002  ******************************************************************
0003  * modif. fich.phy. dans les dds d'un fich.logique                *
0004  ******************************************************************
0006   PROGRAM-ID. MODFLD.
0007   AUTHOR. H. JAIDANE.
0008   ENVIRONMENT DIVISION.
0009   CONFIGURATION SECTION.
0010   SOURCE-COMPUTER. IBM-AS400.
0011   OBJECT-COMPUTER. IBM-AS400.
0012   SPECIAL-NAMES.
0013       REQUESTOR IS MONTERMINAL.
0014   INPUT-OUTPUT SECTION.
0015   FILE-CONTROL.
0016       SELECT SRCMBR ASSIGN DISK-SRCMBR.
0023   DATA DIVISION.
0024   FILE SECTION.
0025   FD  SRCMBR LABEL RECORD STANDARD.
0026   01  DDS.
0026  *           PIC X(92).
           03 FILLER0  PIC X(12).
           03 FILLER1  PIC X(44).
           03 FONCT    PIC X(36).
0029   WORKING-STORAGE SECTION.
       LINKAGE SECTION.
       77  FICHIER     PIC X(10).
       77  BIBLIO      PIC X(10).
0070   PROCEDURE DIVISION USING BIBLIO FICHIER.
0071   DEBUT-UT.
0072       OPEN I-O SRCMBR.
0076   TRAITEMENT.
0077       READ SRCMBR AT END GO TO FIN.
           MOVE  SPACES TO FONCT.
0078       STRING "PFILE" "(" BIBLIO "/" FICHIER ")"
0078              DELIMITED BY SPACE INTO FONCT.
0078       REWRITE DDS.
0084   FIN.
0085       CLOSE SRCMBR.
0086       STOP RUN.

et le programme CL chargé d'appeler le programme Cobol en faisant l'override nécessaire.

Code :

1
2
3
4
5
6
7
8
9
10
 DEBUT:      PGM (&B &PF &SM)
 VARIABLES:  DCL &B  *CHAR 10     /* NOM BIBIOTHEQUE               */
             DCL &PF *CHAR 10     /* NOM FICHIER PHYSIQUE          */
             DCL &SM *CHAR 10     /* NOM MEMBRE SOURCE LF          */
 SUBST:      OVRDBF FILE(SRCMBR) TOFILE(QDDSSRC) MBR(&SM)
 APPEL:      CALL MODLFD PARM(&B &PF)
 FIN:
             DLTOVR *ALL
             ENDPGM

Dans ce cas précis, le programme CL est lui même appelé par le main programme CL applicatif qui lui transmet les paramètres nécessaires :

[L6N2000]

Merci pour cette réponse très claire mais, malheureusement, je n'utilise pas le COBOL mais le RPG...

[L6N2000]

Envoyé par Mercure

Oui, d'accord avec K2R400, utilisez SQL dynamique pour faire des CREATE TABLE et CREATE INDEX dans un programme RPG ou COBOL avec SQL intégré (type de source SQLRPGLE ou SQLCBLLE). C'est bien plus moderne, bien plus facile à faire (c'est même du gâteau) et autrement plus souple que de faire çà avec les DDS.

Nous travaillons en RPG, auriez vous un exemple de create table et create index ?

Merci d'avance

[Hédhili Jaïdane]

Envoyé par L6N2000

Merci pour cette réponse très claire mais, malheureusement, je n'utilise pas le COBOL mais le RPG...

Je ne vois pas pourquoi on ne pourrait pas le faire en RPG.
- Récupérer le nom du physiaque et la biblio
- lire le premier enregistrement
- construire le string PFILE(Biblio/fichierPhy)
- faire l'update.

[K2R400]

Voici un programme RPG qui créé l'index.

Code :

1
2
3
4
5
6
7
8
D Qry             s           1024    Varying                             
 //---------------------------------------------------------------        
 /free                                                                    
    Exec SQL Set Option Commit = *none;                                   
    Qry = 'Create Index MABIB/ARTL2 ON MABIB/ARTICLE (CODART ASC) rcdfmt monformat';   
   
    Exec SQL Execute immediate :Qry;                                      
     *inlr = *on;

[L6N2000]

Bonjour,

Merci K2R400 pour ce sources. Pas très familière du free, j'aimerai connaitre la syntaxe pour écrire plusieurs zones clé ?
et comment écrire une instruction sur plusieurs lignes ?

d'avance merci,

[K2R400]

Code :

1
2
3
4
5
6
7
8
9
10
11
D Qry             s           1024    Varying                             
 //---------------------------------------------------------------        
 /free                                                                    
    Exec SQL Set Option Commit = *none;                                   
    Qry = 'Create Index MABIB/ARTL2 ON MABIB/ARTICLE ';
    Qry = Qry + '(CLE1, CLE2, CLE3)';
 // autre façon d'ajouter dans un varchar
    Qry += 'rcdfmt monformat';   
   
    Exec SQL Execute immediate :Qry;                                      
     *inlr = *on;

ou encore :

Code :

1
2
3
4
5
6
7
8
9
10
D Qry             s           1024    Varying                             
 //---------------------------------------------------------------        
 /free                                                                    
    Exec SQL Set Option Commit = *none;                                   
    Qry = 'Create Index MABIB/ARTL2 ON MABIB/ARTICLE ' +
    '(CLE1, CLE2, CLE3)' +
    'rcdfmt monformat';   
   
    Exec SQL Execute immediate :Qry;                                      
     *inlr = *on;

[L6N2000]

Lorsque j'exécute ce programme, j'ai le message :

Elément syntaxique RCDFMT n'est pas correct. Eléments possibles :
PARTITIONED.

Pourquoi ? que puis-je faire pour qu'il fonctionne ?

[K2R400]

En quelle version est-tu ?

Car RCDFMT pour désigner le nom du format du fichier est apparu en V5R4. Si tu as une version antérieure à la V5R4, dans ce cas tu ne peux pas donner un nom de format différent (enlever RCDFMT). Le format aura le même nom que l'index ce qui t'oblige à faire un rename de format dans ton rpg

[L6N2000]

Maintenant, nous aimerions passer le nom des fichiers physiques et logiques en paramètre.
Voilà notre source:

Code :

1
2
3
4
5
6
7
8
9
10
11
D Qry             s           1024    Varying                     
 //---------------------------------------------------------------
C     *ENTRY        PLIST                                         
C                   PARM                    NOMFIL1           8   
C                   PARM                    NOMFIL2           8   
 /free                                                            
  Exec SQL Set Option Commit = *none;                             
  Qry = 'Create Index NOMFIL2 ON NOMFIL1'+                        
  '(ORDNO,PAPIER)';                                               
  Exec SQL Execute immediate :Qry;                                
     *inlr = *on;

il cherche sur le disque le fichier NOMFIL1, comment lui dire que c'est notre paramètre ?

Merci d'avance pour votre aide.

[K2R400]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
D Qry             s           1024    Varying                     
 //---------------------------------------------------------------
C     *ENTRY        PLIST                                        
C                   PARM                    NOMFIL1           8  
C                   PARM                    NOMFIL2           8  
 /free 
    Exec SQL Set Option Commit = *none;                                   
    Qry = 'Create Index '  + %trim(NOMFIL2) + ' ON ' + %trim(NOMFIL1) +
     '(ORDNO, PAPIER)'; 
    Exec SQL Execute immediate :Qry;                                      
     *inlr = *on;

Tu manipules une chaine de caractères comme une autre, tu fais ce que tu veux. Tu n'es pas obligé de faire du /free non plus. Utilise EVAL avec des cartes C sinon

[belha]

Envoyé par fspiecart

Bonjour,

Nous créons des fichiers temporaires physiques suffixés avec un n° récupéré dans une dataarea
Ex : Nom du fichier physique : M708(n°de l'option menu)+1234 (n°dataarea)
Ce fichier est crée avec les DDS d'un fichier qui s'appelle M708000A
Ce fichier physique a 1 fichier logique : M7080AL1
Nous bloquons sur la création de ce logique sur le fichier physique paramètré
Avez-vous une solution !!!
Merci
FSPIECART

Une solution éprouvée et largement utilisée est :

• Créer le physique et son logique dans QTEMP,
• Renommer le physique et son logique toujours dans QTEMP,
• Déplacer les 2 objets dans la bib destinataire.

Voilà