Migration de 4gl V6.05 à 7.32

[GaétanB]

Quelqu'un aurait-il déja fait une migration d'application 4Gl V 6.05 sur IDS 7.31 à 4Gl v 7.32 sur iDS 9.11. J'aimerais savoir quel sont les changements majeurs à apporter au code si ce n'est pas 100% compatible ??? Merci à l'avance

[IFA2377]

Bonjour,

Je ne réponds pas vraiment à la question mais je propose un shell de compilation automatique d'ace ISQL à adapter au I4GL :

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
# compile_ace
 
SMSO=`tput smso`
RMSO=`tput rmso`
BLINK=`tput blink`
 
compile()
{
FOR i IN `ls ${NOM}.ace 2>/dev/null`
do CPT=`expr $CPT + 1`
   echo "Compilation de $i" > `tty`
   saceprep $i
   IF [ $? -ne 0 ]
   then echo "Erreur lors de la compilation de $i !!!" > `tty`
        LISTE_ERR="$LISTE_ERR\n$i"
   else CPT_OK=`expr $CPT_OK + 1`
   fi
done
RETURN
}
 
LISTE_ERR=""
export LISTE_ERR
clear
echo ""$SMSO"Utilitaire de compilation des états"$RMSO"\n\n"
 
while true
do echo "Répertoire source : \c"
READ REP
IF [ ! -d "$REP" ]
then echo "Répertoire $REP inexistant !!!"
     continue
else break
fi
done
 
cd $REP
IF [ $? -ne 0 ]
then echo "Impossible de se positionner sous $REP"
     exit
fi
echo ""$BLINK"Syntax unix sans l'extension [.ace], [Return]=Tout"$RMSO""
echo "Nom des états à compiler : \c"
READ NOM
IF [ "$NOM" = "" ]
then NOM=*
fi
export CPT=0
export CPT_OK=0
compile 1>trace.$$ 2>&1
 
echo "\n\nNombre d'états à compiler           : $CPT"
# echo "Nombre d'états compilés avec succès : `ls ${NOM}.arc  2>/dev/null | wc -l` "
echo "Nombre d'états compilés avec succès : $CPT_OK"
echo "\nListe des états non compilés        : \n$LISTE_ERR"
echo ""
echo $LISTE_ERR > ace.err.$$
echo "Fichier liste : ace.err.$$"
echo "Fichier trace :   trace.$$\n\n"

PS :

1. Le petit carré rouge (devant "\c") : c'est la Bell (Alt/007)
2. Penser à supprimer les fichiers "ace.err.*" et "trace.*"
3. J'imagine que tout le monde s'est créé ce genre de shell dans sa boîte à outils. A tout hasard, je peux proposer son équivalent pour les écrans.