Notifications
Retirer tout
Programmation
1
Posts
2
Utilisateurs
0
Reactions
108
Vu
0
mar 5 septembre 2023 11 h 25 min
Début du sujet
Bonjour,
en RPG colonné on pouvait utiliser l’instruction MOVEA pour positionner une plage d’indicateurs *INaa à *INbb (de 01 à 99)
en free on peut affecter des valeurs à une partie d’un tableau avec %SUBARR mais cette fonction n’accepte pas le tableau des indicateurs *IN.
Comment contourner le problème ?
1 Réponse
0
mer 27 septembre 2023 12 h 34 min
Peut-être avec les indicateurs renommés par l’utilisation du mot-clef INDARA dans le DSPF et du mot-clef indds dans la déclaration du fichier écran.
Cela génère une DS avec les indicateurs, voir l’exemple ci-dessous :
// déclaration des fichiers
dcl-f bamp305e workstn infds(wdsecr) indds(IndDS);
// Indicateurs renommés avec Indara et INDDS
Dcl-ds IndDS;
sflendmsg ind pos(09);
sflinz ind pos(10);
zcodcli_ri ind pos(50);
zcodclr_ri ind pos(51);
zcoduex_ri ind pos(52);
zhebdo_ri ind pos(53);
zmensuel_ri ind pos(54);
zcodcli_pc ind pos(55);
zcodclr_pc ind pos(56);
zcoduex_pc ind pos(57);
zhebdo_pc ind pos(58);
zmensuel_pc ind pos(59);
End-ds;
