rexx qui plante

[sam01]

Bonjour à tous,

j'ai un rexx qui plante avec le message suivant

Code :

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

      >L>         "" PREV"                                                     
      >O>         "CHANGE  " ,'ENVOI A EXTERIEUR',MSGCLASS=P,CLASS=O           
" PREV"                                                                        
      +++ RC(4) +++                                                            
   69 *-*       RCC1 = RC                                                      
      >V>         "4"                                                          
   70 *-*       IF RCC1 <> 0                                                   
      >V>         "4"                                                          
      >L>         "0"                                                          
      >O>         "1"                                                          
      *-*        THEN                                                          
      *-*        EXIT 12                                                       
      >L>          "12"                                                        
 ISPP330 BDISPMAX exceeded       -/-100 displays exceeded in batch mode on pane
>SCANSEP:         INTRDR01SYSPRINT              4 -U A-    80 -----------------
*******SYSGENER  NOM DU JOB : LORCONTY NOM DU STEP : INTRDR01SYSGENER********

Savez-vous à quoi est due cette ligne....

[bernard59139]

en batch, une macro termine toujours par RETURN, pas par EXIT.

[bakounine]

Bonjour ,

Une macro soumise en Batch peut se terminer par un Exit.

Je soupconne plutôt un buffer qui ne serait pas vidé dont Rexx cherche à interpréter le contenu après l'Exit.

As-tu des ordres "Queue" ou "Push" dans ton code ? Si oui , exécute un "Queue" (Ou un "Push") tout seul avant l'exit , ca devrait marcher.

Bakounine

[sam01]

Ok, merci Bakouine.

J'ai mis

Code :

1
2
3
4

PUSH ""    
EXIT

J'ai fais suivre le PUSH de doubles quottes car je ne suis pas certain q'un PUSH sans rien derrière fonctionne.

Je traitement passe ce soir, je surveille.

[bernard59139]

Code :

Une macro soumise en Batch peut se terminer par un Exit.

C'est vrai; mais ca ne fait pas la même chose.

et 2 remarques:

• un QUEUE ou un PUSH vide ne résoudra en rien le problème. Si on empile, il faut gérer la pile, quelque soit la fin du programme (bonne ou mauvaise).
• avant de finir par "exit 12", tu ne quitte pas l'EDIT (ordre END ou CANCEL de l'éditeur).
• en ISPF, les RC ou RETURN supérieur ou égal à 12 provoquent des arrêts immédiats des programmes, sauf gestion particulière.

Pour corriger le prog, je ferai:

Code :

1
2
3
4
5
6
7
.....
if erreur then do
   'dropbuf' /* optionnel pour vider la pile */
   'cancel'  /* pour quitter le mode edit */
   return  /* ou exit si tu veux , le prog appelant recevra un rc=4*/
end

doc consultable en ligne