| Comment réinitialiser une DS externe (V5Rx) ? |
|
Pour réinitialiser une DS Externe en RPG IV, la syntaxe suivante est utilisée : D DSExterne E DS EXTNAME(votrefichier) ... C Reset DSExterne Dans ce cas, des valeurs par défaut sont attribuées dans le programme RPG à la DS Externe. Si vous désirez restaurer les valeurs par défaut du fichier physique ayant donné naissance à cette DS : A R FORMATF A ZONE1 10 DFT('SOCIETE') A ZONE2 5 DFT('00001') A ZONE3 2 0 DFT(14) Ecrire : D DSExterne E DS EXTNAME(votrefichier) D INZ(*ExtDft) ... C Reset DSExterne Ainsi le Reset, qui ne fait référence qu'aux valeurs connues du programme RPG, rétabliera les valeurs du fichier physique d'origine dans la DS.
|