CL / AS400 - Lecture de fichier(s) non défini(s) à l'avance

Version imprimable

22/05/2013, 11h23
edw4rd

CL / AS400 - Lecture de fichier(s) non défini(s) à l'avance

Bonjour,

Dans une bibliothèque SETUP, il y a (ou pas) un ou plusieurs fichiers (PAR1, PAR2, etc...) contenant les paramètres utiles pour effectuer des RSTOBJ.
Avec un DSPOBJD, j'arrive à obtenir un objet LISTE contenant l'ensemble de ces fichiers PARx. Et ,dans une boucle, je récupère dans &ITEM le nom des fichiers.

Maintenant, j'aimerai à partir de la variable &ITEM lire le contenu des fichiers PARx.

Je ne sais pas trop comment lire le contenu d'un fichier qui n'est pas déclaré au début d'un programme.

OVRDBF peut servir à ça?
Peut-on faire ça en CL?
22/05/2013, 12h02
Hédhili Jaïdane

Citation:

Envoyé par edw4rd

Bonjour,

Dans une bibliothèque SETUP, il y a (ou pas) un ou plusieurs fichiers (PAR1, PAR2, etc...) contenant les paramètres utiles pour effectuer des RSTOBJ.
Avec un DSPOBJD, j'arrive à obtenir un objet LISTE contenant l'ensemble de ces fichiers PARx. Et ,dans une boucle, je récupère dans &ITEM le nom des fichiers.

Maintenant, j'aimerai à partir de la variable &ITEM lire le contenu des fichiers PARx.

Je ne sais pas trop comment lire le contenu d'un fichier qui n'est pas déclaré au début d'un programme.

OVRDBF peut servir à ça?
Peut-on faire ça en CL?

Bonjour.

Dans le même CL tu ne pourras pas, du moins jusqu'à nouvel ordre, par contre tu le fais dans un autre CL auquel tu passes le nom du fichier à lire, si et seulement si tes fichiers PARx ont la même description. Tu compiles ce CL avec un fichier bidon PARx et puis tu fais un override pour utiliser PARx.

Ensuite le plus simple est de passer l'enregistrement lu de PARx à un troisième CL qui traitera les données, si par contre tu veux revenir au premier CL avec ton enregistrement, il faudrait gérer un n° d'enregistrement pour pointer sur le prochain au prochain appel du 2è CL.
22/05/2013, 12h04
FORMULARY

On peut utiliser ovrdbf pour pointer sur le fichier et lire le fichier dans un RPG avec un fichier déclaré en interne.
On peut utiliser un RPGSQLLE pour utiliser un "Select * from ..."
On peut créer un fichier dans QTEMP avec une certaine structure ou une certaine longueur, utiliser CPYF avec FMTOPT(*NOCHK) pour copier le fichier dans celui de QTEMP et enfin lire le fichier de QTEMP avec un RPG classique. Seules les zones packées pourraient poser problème ...

Et je suis sûr qu'il y a encore plein d'autres possibilités ...
Le tout est de savoir ce que vous voulez faire des données lues ...

Merci pour vos réponses.

La technique du fichier bidon pour la compilation a résolu une partie du problème.

Je commence à comprendre le fonctionnement de OVRDBF, mais je n'arrive pas à lire tous les fichiers:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 DCLF FILE(LIB/LISTE) OPNID(ITEM_LISTE) DCLF FILE(LIB/PARTEMP) OPNID(PARAM) LECTURE: RCVF OPNID(ITEM_LISTE) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FINOK)) OVRDBF FILE(PARTEMP) + TOFILE(&SETUP/&ITEM_LISTE_ODOBNM) TRTSAVF: RCVF OPNID(PARAM) MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(FINSAVF)) /* Traitement SAVF ici */ GOTO CMDLBL(TRTSAVF) FINSAVF: DLTOVR FILE(*ALL) GOTO CMDLBL(LECTURE)
J'arrive à lire le premier fichier et ... c'est tout.
D'après ce que je vois dans le DSPJOBLOG, il reste bloqué sur le premier fichier.
Et l'ajout de la commande DLTOVR ne change rien.

Est-ce que cela vient de la commande OVRDBF? ou le problème est ailleurs?

Re,

- Tu as le droit à un seul DCLF par programme CL, c'est pour cela que j'ai parlé d'un deuxième CL.
-L'OVRDBF doit précéder le premier RCVF

Voilà un petit exemple vite fait et qui fonctionne sur tous les fichiers listés par DSPOBJD.

Programme RCVFMULTI :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
0001.00  DEBUT:     PGM                                                        
0002.00             DCLF QSYS/QADSPOBJ                                         
0003.00  DSPOBJD:                                                              
0004.00              DSPOBJD    OBJ(JAIDANE1/SRC80*) OBJTYPE(*FILE) +          
0005.00                           OUTPUT(*OUTFILE) OUTFILE(JAIDANE1/LIST_SRC80)
0006.00             OVRDBF QADSPOBJ TOFILE(JAIDANE1/LIST_SRC80)                
0007.00  RCVF:                                                                 
0008.00             RCVF                                                       
0009.00             MONMSG CPF0864 EXEC(GOTO RCVF_FIN)                         
0010.00             IF (&ODOBNM *EQ 'SRC80_XX') GOTO RCVF                      
0011.00              CALL JAIDANE1/RCVFMULTI1 +                                
0012.00                   PARM(&ODOBNM)                                        
0013.00                                                                        
0014.00  RCVF_RET:  GOTO RCVF                                                  
0015.00  RCVF_FIN:                                                             
0016.00  FIN:       DLTOVR *ALL

Programme RCVFMULTI1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
0001.00  DEBUT:     PGM &FILE                                            
0002.00             DCLF JAIDANE1/SRC80_XX                               
0003.00             DCL &FILE *CHAR 10                                   
0004.00                                                                  
0005.00             OVRDBF SRC80_XX TOFILE(JAIDANE1/&FILE)               
0006.00  RCVF:                                                           
0007.00             RCVF                                                 
0008.00             MONMSG CPF0864 EXEC(GOTO RCVF_FIN)                   
0009.00             SNDUSRMSG &SRCDTA                                    
0010.00                                                                  
0011.00  RCVF_RET:  GOTO RCVF                                            
0012.00  RCVF_FIN:                                                       
0013.00  FIN:       DLTOVR *ALL                                          
0014.00             ENDPGM

22/05/2013, 16h04
m4k-Hurrican

Bonjour,
Comme il te l'a été indiqué au départ, tu ne peux pas mettre l'OVRDBF dans le CL ou tu vas lire. En effet le fichier est ouvert au début du programme.
Fais ton OVRDBF et appelle le CL où tu ouvriras et liras le fichier concerné.
Reste que faire çà en CL est un peu étrange.

Citation:

Fais ton OVRDBF et appelle le CL où tu ouvriras et liras le fichier concerné.
Reste que faire çà en CL est un peu étrange.

Dans mon cas, je fais un OVRDBF uniquement dans le programme appelé.

Programme principal:

Code:

1
2
3
4
5
6
7
            DCLF       FILE(LIB/LISTE)  OPNID(ITEM_LISTE) 
LECTURE:    RCVF       OPNID(ITEM_LISTE)                       
            MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(FINOK)) 
/*********  **********************************  ******/        
            CALL       LIBPGM/TEST PARM(&ITEM_LISTE_ODOBNM)                                   
                                                                          
            GOTO       CMDLBL(LECTURE)

Programme TEST:

Code:

1
2
3
4
5
6
7
8
9
10
            PGM       &FILE                                      
            DCL       &FILE *CHAR 10                             
            DCLF       FILE(LIB/PARTEMP)  OPNID(PARAM)
                                                                 
            OVRDBF     FILE(PARTEMP) TOFILE(LIB/&FILE)                      
                                       
LECT:       RCVF       OPNID(PARAM)                                 
            MONMSG     CPF0864 EXEC(GOTO FINOK)                      
      /* Traitement SAVF ici */                       
            GOTO       CMDLBL(LECT)

Effectivement, ça fonctionne tout de suite mieux avec un 2e CL.

:merci:

30/05/2013, 10h11
edw4rd

petite précision: avec mon exemple j'obtiens l'erreur suivante:
" Erreur de niveau sur fichier xxx de xxx, membre xxx. "

J'ai du ajouter l'option suivante pour la commande OVRDBF:

Code:

LVLCHK(*NO)
30/05/2013, 13h03
Hédhili Jaïdane

Citation:

Envoyé par edw4rd

petite précision: avec mon exemple j'obtiens l'erreur suivante:
" Erreur de niveau sur fichier xxx de xxx, membre xxx. "

J'ai du ajouter l'option suivante pour la commande OVRDBF:

Code:

LVLCHK(*NO)

Bonjour.

OK. Mais méfie toi quand même, un petit quelque chose a changé dans la description des champs du fichier ou les propriétés du fichier lui même entre le moment où il a été utilisé par le compilateur lors de la création du programme et le moment où il a été utilisé par ce programme.