Discussion :

[sam01]

Salut à tous,

je ne parviens pas à faire fonctionner ce rexx à ause d'une hsitoire de quotte :

Code :

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

1
2
3
4
5
6
7
8
9

 "EXECIO * DISKR FICH1(FINIS STEM DS."           
  DO I = 1 TO 3                                  
     FILE = WORD(DS.I,1)                         
     X = LISTDSI("FILE")                         
     IF X = 0 THEN QUEUE DS.I ESLE NOP           
  END                                            
 "EXECIO * DISKW FICH2 (FINIS"

j'aimerais vérifier si les fichiers sont présents.

merci d'avance pour votre aide.

[gilgeorg]

Avec une ligne de ce type, cela devrait fonctionner mieux

Code :

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

X = LISTDSI("'"!!FILE!!"'")

attention également au ESLE mal orthographié

[sam01]

Bonjour,

ça ne fonctionne pas :

Code :

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

1
2
3
4

     5 +++  X = LISTDSI("'"!!FILE!!"'")                            
IRX0043I Error running LISTDS02, line 5: Routine not found

je le lance à partir d'un jcl

//REXX0Z EXEC PGM=IRXJCL,PARM=('DSIS02')
//SYSEXEC DD DISP=SHR,DSN=RTE.REXXLIB
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD SYSOUT=*
//FICH1 DD DSN=ZAST.DUP,DISP=SHR
//FICH2 DD DSN=ZART.BPRP.DUP2,DISP=SHR

[Lemmings1406]

Bonjour,

Déjà, si tu veux seulement vérifier si tes fichiers existent, il ne faut pas utiliser la fonction LISTDSI qui n'est pas franchement appropriée.
Il faut mieux utiliser la fonction SYSDSN(nom_fic) qui retourne OK quans le fichier existe.

Il faudra donc mettre dans ton REXX:

Code :

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

X = SYSDSN("'"!!FILE!!"'")

Les autres valeurs retournées sont les suivantes:

Code :

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

1
2
3
4
5
6
7
8
9
10
MEMBER NOT FOUND
MEMBER SPECIFIED, BUT DATASET IS NOT PARTITIONED
DATASET NOT FOUND
ERROR PROCESSING REQUESTED DATASET
PROTECTED DATASET
VOLUME NOT ON SYSTEM
INVALID DATASET NAME, nom de fichier
MISSING DATA SET NAME
UNAVAILABLE DATASET

Tu vas me dire, ça ne change pas mon autre problème...En réalité, le programme IRXJCL ne supporte pas les fonctions externes telles que LISTDSI, SYSDSN ... qui ne sont pas des instructions REXX

Si tu veux faire fonctionner ton rexx en batch, je te conseille d'utiliser le jcl suivant:

Code :

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

1
2
3
4
5
6
7
8
//ESSAI001 EXEC  PGM=IKJEFT01                                         
//SYSTSPRT DD  SYSOUT=*,                                              
//             DCB=(RECFM=FB)                                         
//FICH1   DD DISP=SHR,DSN=TITI.TOTO.TATA                                                 
//SYSTSIN  DD  *                                                      
 EX 'BIBLI.REXX(Nom_de_mon_rexx)' EXEC                             
/*

Ca devrait fonctionner beaucoup mieux.

[sam01]

Bonjour Lemmings1406, et merci pour ta réponse précise.

En effet, ça à l'air de mieux fonctionner.

Par contre j'ai utilisé un job similaire

Code :

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

1
2
3
4
5
6
7
8
9
10
11

//XXDVRIF  EXEC PGM=IKJEFT01                                         
//SYSEXEC  DD DISP=SHR,DSN=GRE.GTP                           
//INC       DD DSN=A.B.TO,DISP=SHR                
//INDA   DD DISP=SHR,                                              
//   DSN=DF.FT.GT  
//OUT      DD DSN=OUT.J.G,DISP=SHR                   
//OUT2     DD DSN=OUT2.J.BG,DISP=SHR                   
//SYSTSPRT DD SYSOUT=*                                               
//SYSTSIN  DD DISP=SHR,DSN=GRE.GTP(CFTVRIF)

Et ça ne fonctionne pas.

J'ai les messages d'erreur :

READY
"EXECIO * DISKR IN (STEM LGCT
IKJ56621I INVALID COMMAND NAME SYNTAX
READY
"EXECIO * DISKR INDATE (STEM DFT
IKJ56621I INVALID COMMAND NAME SYNTAX
READY
FICDUMP=FICDUMP.1
IKJ56621I INVALID COMMAND NAME SYNTAX
READY


C'est comme si il ne reconnaît pas que c'est un REXX..

Pourtant en tête du rexx j'ai bien

/*REXX*/

[Lemmings1406]

C'est normal, tu passes en sysin directement la source de ton rexx mais sans indiquer à l'utilitaire qu'il faut l'exécuter comme étant un REXX. De ce fait, ton job fait certainement un code 12 et te sort plein d'insultes.

Modifie ta sysin en prenant exemple sur mon précédent message et ce sera gagner.

[bernard59139]

Bonjour
Avec IRXJCL, ton rexx ne peut pas appeler des services TSO ou des "TSO/E external functions".
LISTDSI et SYSDSN sont des "TSO/E external functions".

Comme le suggère Lemmings1406, le seul moyen de lancer ton rexx est d'utiliser le programme IJKEFT01 (ou ikjeft1a ou IKJEFT1b).

Par contre, je ne met jamais un nom de pds en sysin, je propose le job suivant:

Code :

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

1
2
3
4
5
6
7
8
9
//ESSAI001 EXEC  PGM=IKJEFT01 
//SYSTSPRT DD  SYSOUT=*
//SYSEXEC   DD DISP=SHR,DSN=BIBLI.REXX
....
....
//SYSTSIN  DD  *
 %CFTVRIF
/*

[sam01]

Bonjour bernard59139 et merci pour ton conseil.

C'est vrai que ça me gênait un peu de mettre le pds en sysin, comme ça c'est beaucoup mieux.

Merci encore à vous deux.