Comment lire «des tables en accès direct»

Version imprimable

14/10/2008, 10h40
Excelfan

Comment lire «des tables en accès direct»

Bonjour à tous,

j'ai a récupéré une application qui a été écrite en FORTRAN qui date des années 90. Je n’ai pas le choix il faut la décortiquer et reproduire ce que fait cette application qui est toujours utilisée et que personne ne sait plus maintenir. On dispose des sources, donc de ce côté-là on arrive à peut prêt à se débrouiller mais le problème c’est que cette application utilise « des tables en accès direct » qui sont pilotées par le code FORTRAN.

Ce sont des tables de paramètres et de données de base. J’ai besoin du contenu de ces tables pour les intégrer dans un nouveau développement.

Merci d'avance à qui pourrait m'indiquer comment lire « des tables en accès direct » créées par des applications écrites en FORTRAN.

Excelfan
14/10/2008, 11h36
genteur slayer

je ne voit pas très bien de quoi tu parle???

est-ce des fichiers? des tableaux? des allocations mémoire?
14/10/2008, 13h36
FR119492

Salut!
Si tes « tables en accès direct » sont des fichiers (pas trop gros!), mets-en un comme pièce jointe et on essaiera de le décortiquer.
Jean-Marc Blanc
14/10/2008, 15h43
Excelfan

1 pièce(s) jointe(s)

Comment lire «des tables en accès direct»

Salut!
Voici les fichiers joints.
Il y a du choix.

Merci.

Excelfan
14/10/2008, 16h14
genteur slayer

c'est rigolo du code machine mais cela n'aide pas bcp...

la vraie question c'est : comment ils ont été écrits? quel a été le format? donne un morceau de code source du prog fortran...

il y a une infinité de manière de générer ce genre de fichier...
15/10/2008, 09h13
Excelfan

1 pièce(s) jointe(s)

Comment lire «des tables en accès direct»

Voici 2 exemples de code source.

GAMD000 ouvre les fichiers.
La lecture, l'écriture se fait dans les programmes appelées.

Exemple : GAMD015 lit et écrit dans le fichier 'CATBUDG.DAT' (unité logique 32)

ok alors ton fichier est ouvert comme ça:

Code:

1
2
OPEN (32,file=fich10,access='direct',form='unformatted',
     x status='unknown',recl=50,mode='READ',iostat=iocheck)

ouvert comme cela on ne peut que le lire...

et la lecture :

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
c
c traitement de cr‚ation des CB
c
3400  icur = 0
      read (32,rec=icbordre,iostat=iocheck) icur
      if  (icur .NE .0)  then
       icoderr = 1
       assign 3305 to ivers
      else
       if ((icbordre .LT. ienrmin) .OR.(icbordre .GT. ienrmax)) then
          icoderr = 20
          assign 3305 to ivers
       else
       write (32,rec=icbordre,iostat=iocheck) icbordre,lbcodprod,
     x         lbcodform,lbcatbud
        if ((iocheck.NE.0) .AND. (iocheck.NE.-1)) then
          icoderr = 3
          assign 3305 to ivers
        else
          write(*,*) deb,'ferme',fin
          assign 3005 to ivers
          ipos = icbordre
        end if
       end if
      end if
      goto ivers (3005,3305)
c
c traitement de modification d'une info
c
3500  icur = 0
      read (32,rec=icbordre,iostat=iocheck) icur
      if (icur .NE. icbordre ) then
       icoderr = 2
       assign 3305 to ivers
      else
       write (32,rec=icbordre,iostat=iocheck) icbordre,lbcodprod,
     x  lbcodform,lbcatbud
c
        if ((iocheck.NE.0) .AND. (iocheck.NE.-1)) then
          icoderr = 3
          assign 3305 to ivers
        else
          write(*,*) deb,'ferme',fin
          assign 3005 to ivers
          ipos = icbordre
        end if
      end if
       goto ivers (3005,3305)
c
c  traitement de suppression d'une info
c
3600  icur = 0
      read (32,rec=icbordre,iostat=iocheck) icur
      if  (icur .NE. icbordre)  then
       icoderr = 2
       assign 3305 to ivers
      else
        iwork = 0
        lb2 = '  '
        write (32,rec=icbordre,iostat=iocheck) iwork,lb2,lb2,lb2
        write(*,*) deb,'ferme',fin
        assign 3005 to ivers
        ipos = icbordre
      end if
      goto ivers (3005,3305)

donc là c'est la procedure de lecture de ce fichier...

que veut-tu faire exactement? une moulinette qui convertisse ces fichiers en un autre format afin de les réutiliser dans une autre application?

si c'est le cas, tu reprends cette lecture et tu stocke dans un autre fichier avec le format qui va bien... mais j'ai peur que chacun de tes fichier ait un format différent et donc qu'il faudra une moulinette pour chacun d'entre eux....