Discussion :

[sam01]

Bonjour,

savez-vous comment je peux éviter un affichage ISPF après une erreur rexx.
Quand je veux browse et que ce membre n'existe pas voilà ce que j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

******************************************************************************
* ISRB007                                                                    *
*                                                                            *
* Member not found                                                           *
* The requested member was not found in the PDS directory(s).                *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
*                                                                            *
* Current dialog statement:                                                  *
* BROWSE DATASET(PXX.PROC(XXA1QX))                                      *
*                                                                            *

Le souci c'est que j'aimerais continuer le rexx pour browser une autre bib.

Merci pour votre aide.

[sam01]

j'ai trouvé,

ça rejoint un message que j'ai posté il y quelques temps .

Il faut coder

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3

"ISPEXEC CONTROL ERRORS RETURN"

[Peut-êtreUneRéponse]

Tu peux vérifier avant le browse l'existence du dataset :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
/* vérifiaction existence dataset        */
if sysdsn("'"DSN"'")^='OK' then do 
   call erreur                     
   end                             
"browse dataset("'DSN'")"            
erreur:                            
   say "ZUT!"                      
exit

A adapter...

.

[Homer-ac]

Attention quand on travaille avec des fichiers avec TSO et ISPF il faut penser à systématiquement entourer leur nom par des apostrophes
exemple : address ISPEXEC "browse dataset('"DSN"')"
Sinon ceux qui ne sont pas en TSO 'PROFILE NOPREF' ne pourront pas utiliser correctement ces REXX.