Boucle sur un LABEL

[sam01]

Bonjour à tous,

voilà je tente de faire un change en REXX en utilisant les LABEL.

Je boucle donc plusieurs fois, la première fois, le LABEL fonctionne bien et ensuite j'ai une erreur...

Voici le premier passage de la boucle
la prise label fonctionne

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

      >L>     "'"                                                              
      >O>     "FIND X'50D8E4C1D3C9C65B50C4C2F25B5B5B5B50D7D3C1D55B5B5B4B'"     
   41 *-*   RC1 = RC                                                           
      >V>     "0"                                                              
   42 *-*   ADDRESS TSO                                                        
   43 *-*   IF RC1 <> 0                                                        
      >V>     "0"                                                              
      >L>     "0"                                                              
      >O>     "0"                                                              
   44 *-*   ADDRESS ISREDIT                                                    
   45 *-*   "LABEL .ZCSR = .PA 0"                                              
      >L>     "LABEL .ZCSR = .PA 0"                                            
   46 *-*   "(LINEJOB) = LINE .ZCSR"                                           
      >L>     "(LINEJOB) = LINE .ZCSR"

et au deuxième passage

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

  "FIND X'"PARAM1.K"'"                                             
    "FIND X'"                                                      
    "PARAM1.1"                                                     
    "50D8E4C1D3C9C65B50C4C2F25B5B5B5B50D7D3C1D55B5B5B4B"           
    "FIND X'50D8E4C1D3C9C65B50C4C2F25B5B5B5B50D7D3C1D55B5B5B4B"    
    "'"                                                            
    "FIND X'50D8E4C1D3C9C65B50C4C2F25B5B5B5B50D7D3C1D55B5B5B4B'"   
  RC1 = RC                                                         
    "0"                                                            
  ADDRESS TSO                                                      
  IF RC1 <> 0                                                      
    "0"                                                            
    "0"                                                            
    "0"                                                            
  ADDRESS ISREDIT                                                  
  "LABEL .ZCSR = .PA 0"                                            
    "LABEL .ZCSR = .PA 0"                                          
RC(8) +++                                                          
  "(LINEJOB) = LINE .ZCSR"

Là j'ai un code 8, ça ne fonctionne plus...

[bernard59139]

Bonjour

depuis la doc,
8 Label set, but an existing label at the same level was deleted

si tu ne vaut pas de rc=8, efface le label .PA avant de l'assigner à nouveau.