IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

z/OS Discussion :

REXX : WORDINDEX et quotte


Sujet :

z/OS

  1. #1
    Membre averti
    Inscrit en
    Mars 2004
    Messages
    1 907
    Détails du profil
    Informations forums :
    Inscription : Mars 2004
    Messages : 1 907
    Points : 411
    Points
    411
    Par défaut REXX : WORDINDEX et quotte
    Bonjour à tous,

    voilà, j'utilise la fonction REXX : WORDINDEX pour la ligne suivante :

    //XXXJOB1 JOB ,'CTL ENTREES SDE',MSGCLASS=P,MSGLEVEL=1, 0000001

    C'est une ligne de carte job

    Et j'aimerais connaître la position du dernier mot (ici c'est MSGLEVEL).

    voilà ce que je fais :

    Y1 = WORDINDEX(TXT,5)

    mais àa me donne la position du mot SDE, mois j'aimerais qu'il me considère :

    'CTL ENTREES SDE' comme un seul mot...

    Avez-vous une solution ?

    Merci d'avance.

  2. #2
    Membre confirmé Avatar de Homer-ac
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    449
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 449
    Points : 586
    Points
    586
    Par défaut
    La fonction wordindex() renvoie la position relative d'un MOT et MSGLEVEL= n'est pas un mot, il y a une virgule devant. Dans :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    //XXXJOB1 JOB ,'CTL ENTREES SDE',MSGCLASS=P,MSGLEVEL=1, 0000001
    MOT1      MOT2 MOT3 MOT5    MOT6                        MOT7
    Si tu veux trouver la position du dernier paramètre, ici MSGLEVEL= il faut faire qque chose dans le genre
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    LGNW=TRANSLATE(LEFT(LIGNE,72),' ',',') /* virgules remplacées par des blancs */
    DERPOS=WORDINDEX(LGNW,WORDS(LGNW))

  3. #3
    Membre averti
    Inscrit en
    Mars 2004
    Messages
    1 907
    Détails du profil
    Informations forums :
    Inscription : Mars 2004
    Messages : 1 907
    Points : 411
    Points
    411
    Par défaut
    HA oui d'accord,

    merci

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. rexx changer un mot par un autre
    Par sam01 dans le forum z/OS
    Réponses: 2
    Dernier message: 19/09/2008, 11h17
  2. avoir des champs alignés en rexx
    Par sam01 dans le forum z/OS
    Réponses: 4
    Dernier message: 16/09/2008, 10h32
  3. [Object REXX] Problème de fermeture de fichiers
    Par Tinfolley dans le forum Autres langages
    Réponses: 0
    Dernier message: 23/04/2008, 10h28
  4. PB utilisation REXX par appel COBOL
    Par icalinf dans le forum z/OS
    Réponses: 4
    Dernier message: 13/11/2007, 17h02
  5. [REXX] Adressage ISPSTART pour un sous-programme
    Par icalinf dans le forum Autres langages
    Réponses: 0
    Dernier message: 26/10/2007, 20h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo