REXX et problème de Storage [Résolu]

[sam01]

Bonjour,

j'ai le REXX suivant

Code :

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

DROPBUF 0                                   
NB=0                                        
"EXECIO * DISKR IN2(FINIS "                 
DO I=1 TO QUEUED()                          
PULL IN.I                                   
IF SUBSTR(IN.I,2,8) ^= ' '                  
THEN DO                                     
     NB = NB +1                             
     END                                    
ELSE DO                                     
     END                                    
END

Il plante avec le message suivant :

IRX0802E Storage not available.
IRX0673E EXECIO error while trying to put an element on the data stack.


DO I=1 TO QUEUED()

Savez-vous cce que je peux faire pour palier à ce problème ?

De plus c'est un REXX qui s'exécute par Batch. Alors, je ne vois pas l'utilité du :

PULL IN.I ....

Merci pour votre aide.

[bernard59139]

Bonjour


le fichier en entrée est trop volumineux.

et le rexx n'est pas optimiser pour utiliser les automatismes du langage.

pour essayer de passer, je coderai

Code :

1
2
3
4
5
6
7
8
NB=0                                        
"EXECIO * DISKR IN2(STEM IN. FINIS "                 
DO I=1 TO IN.0
     IF SUBSTR(IN.I,2,8) ^= ' '   THEN DO                                     
         NB = NB +1                             
     END                                    
END

ou encore, je prefererai pour economiser la mémoire:

Code :

1
2
3
4
5
6
7
8
9
10
NB=0 
vrc = 0                                       
"EXECIO 1 DISKR IN2 (stem in.  "                 
vrc = rc
do while vrc = 0             
   IF SUBSTR(IN.1,2,8) ^= ' '  THEN  NB = NB +1                             
   "EXECIO 1 DISKR IN2 (stem in.  "                 
END
"execio 0 diskr in2 (finis"

[xfanx]

Bonjour, puisque c'est un Batch j'augmenterais le parametres JCl
REGION= sur le STEP et la carte Job.

enfin.. dans la limite du raisonnable bien sur. si c'est vraiment un gros fichier, alors j'éviterais l'utilisation de l'EXECIO sous cette forme

[sam01]

OK.

Merci bernard59139, je vais essayer ta deuxième solution.

Par contre quelqu'un peut me dire à quoi sert le PULL IN.I... ?

[bernard59139]

Bonjour

L'action du "PULL IN.I' :

1. prend une ligne dans la pile
2. et la stocke dans une variable "IN" indicée par la variable "I"

bonne journée

[sam01]

OK.

Merci.

[sam01]

ou encore, je prefererai pour economiser la mémoire:

Code :

1
2
3
4
5
6
7
8
9
10
NB=0 
vrc = 0                                       
"EXECIO 1 DISKR IN2 (stem in.  "                 
vrc = rc
do while vrc = 0             
   IF SUBSTR(IN.1,2,8) ^= ' '  THEN  NB = NB +1                             
   "EXECIO 1 DISKR IN2 (stem in.  "                 
END
"execio 0 diskr in2 (finis"

[/QUOTE]

Heu je crois qu'il y a un souci...

Dans cette partie, le VRC est tout le temps = à 0....
Ca fait une boucle éternelle ce truc là...

[bernard59139]

oups!
c'est un bout de code écrit rapidement sans tests possible de mon coté.

Code :

1
2
3
4
5
6
7
8
9
10
NB=0 
vrc = 0                                       
"EXECIO 1 DISKR IN2 (stem in.  "                 
vrc = rc
do while vrc = 0             
   IF SUBSTR(IN.1,2,8) ^= ' '  THEN  NB = NB +1                             
   "EXECIO 1 DISKR IN2 (stem in.  "
   VRC=rc   /* <===== */                 
END
"execio 0 diskr in2 (finis

[sam01]

J'avais corrigé exactement de la même façon ;-))

Merci.