Notifications 
Reti­rer tout

Com­ment ini­tia­li­ser plu­sieurs indi­ca­teurs à la fois ?

Posts
Uti­li­sa­teurs
Likes
73  Vu
0
Début du sujet

Bon­jour, 

Com­ment fait-on pour ini­tia­li­ser des indi­ca­teurs « en masse » ?

Comme en « colonné » :

C              MOVE '0010010'        *IN(01)

Cor­dia­le­ment, 

1 Réponse 
0

Il y a plu­sieurs possibilités :

 %subarr(*IN:1:24) = *ALL'0' ;

ou alors un truc que j’ai décou­vert récemment :

// Indicateurs
dcl-ds Indicateurs;
  Sflend_Msgf Ind Pos(09);
  Sflinz_Msgf Ind Pos(10);
  NDvalidation Ind Pos(26);
  g_Erreur_fenetre Char(5) Pos(27);
    g_affaire_1_inconnue Ind Pos(27);
    g_affaire_2_inconnue Ind Pos(28);
    g_base_1_inconnue Ind Pos(29);
    g_base_2_inconnue Ind Pos(30);
    g_Coduex_liees Ind Pos(31);
  Sfldsp Ind Pos(90);
  Sfldspctl Ind Pos(91);
  Sflclr Ind Pos(92);
  Sflend Ind Pos(93);
  Pagedown Ind Pos(94);
END-DS;       

--
--
--

g_Erreur_fenetre = *Off;  
ou
g_Erreur_fenetre = '01001';

1

Share :