pointeur Manipulation en mettant à jour une valeur clé dans RPGLE

Question

mon code va comme ceci:

femp  uf e   k disk     
dvar1    s    5p 0     
c  *loval  setll  emp     
c     read  emp     
c     dow  not %eof(emp)   
C     eval  ecode = ecode + 10  
c     eval  var1=ecode    
c     update recemp    

c  var1   setgt  emp     
c     read  emp     
c     enddo        
c     eval  *inlr=*on 

Voici un fichier nommé emp avec le nom du format d'enregistrement recemp avec ecode comme la clé ...

Maintenant, quand je suis en train de lire le fichier et de mettre à jour l'ecode sans utiliser setgt ..le pointeur ne bouge pas il met à jour la même valeur d'ecode de nombreuses fois ...

Maintenant, quand j'utilise set gt pointer, je sélectionne le prochain enregistrement mais il dint travail lorsque deux valeurs d'ecode sont identiques ... sinon, il ne fonctionnera pas avec d escorter les valeurs de clé ...

Existe-t-il une solution pour que je puisse définir le pointeur indépendamment du fait que les valeurs soient identiques ou croissantes ou décroissantes.

Answer 1

Vous voulez mettre à jour le champ 'ecode' dans chaque enregistrement dans le fichier 'emp' - est-ce exact? Si c'est le cas, utilisez juste un autre 'read' sans 'setgt' et tout ira bien.

uf e k disk 
c *loval setll emp 
c read emp 
c dow not %eof(emp) 
C eval ecode = ecode + 10 
c update recemp 

c read emp 

c enddo 
c eval *inlr=*on 

Answer 2

Si vous souhaitez mettre à jour la valeur de clé dans chaque enregistrement, vous devez ouvrir le fichier dans l'ordre d'arrivée (ne pas utiliser le « k » dans la spécification F). De même, n'utilisez pas SETGT dans la boucle sauf si vous essayez spécifiquement d'ignorer les enregistrements.