Discussion :

[elosam782]

Bonjour,

J’ai des petits doutes sur un développement en cours sur lequel je travaille pour m’entrainer.

J’ai une donnée de type ‘/123..//ABC:1234..//DEF:Je tente d’apprendre le COBOL ‘

Il y a des espaces à la fin de la donnée après le mot COBOL (qui ne sont pas visibles après mise en forme du message par le forum) Je souhaiterais calculer la longueur du champs sans les espaces de fin de la donnée. Il faut cependant bien garder les autres espaces de la donnée. Sauriez vous quelles seraient les instructions à utiliser?

De plus, je souhaiterais également reporter la donnée sans les espaces de fin dans une variable dédiée qui sera reprise dans un traitement par la suite. Une solution?

Merci à vous pour votre aide précieuse. N’hésitez pas s’il vous manque des éléments.

Bien à vous,
Elo.

[Luc Orient]

Une proposition ... c'est du vite codé ...

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
17
18
19
20
21
22
23
24
       IDENTIFICATION DIVISION.
      *
       PROGRAM-ID. ********.
       ENVIRONMENT DIVISION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       1   A PIC X(70) VALUE
           "/123..//ABC:1234..//DEF:JE TENTE D'APPRENDRE LE COBOL".
       1   B PIC S9(4) BINARY.
       1   C PIC S9(4) BINARY.
       1   D PIC X(48).
       PROCEDURE DIVISION.
       DEBUT.
           DISPLAY "<" A ">"
      *
           INSPECT A TALLYING C FOR CHARACTERS BEFORE 'COBOL'
           ADD 5 TO C
           DISPLAY "C=" C
      *
           UNSTRING A DELIMITED BY 'COBOL'
                      INTO D
           DISPLAY "<" D ">"
           GOBACK
           .

[minosubb]

Solution qui fonctionne quelque soit le contenu de TEXTE

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
       IDENTIFICATION DIVISION.
       PROGRAM-ID. PGMTEXTE.
       
       ENVIRONMENT DIVISION.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 TEXTE          PIC X(70) VALUE
           '/123..//ABC:1234..//DEF:JE TENTE D''APPRENDRE LE COBOL'.
       01 LONGUEUR-TEXTE PIC S9(4) COMP.
       01 I              PIC S9(4) COMP.

       PROCEDURE DIVISION.

       		MOVE LENGTH OF TEXTE TO LONGUEUR-TEXTE.

       		PERFORM VARYING I FROM LONGUEUR-TEXTE BY -1
       		  UNTIL I < 1
       		     OR TEXTE(I:1) NOT = SPACE
       		END-PERFORM.

       		IF I > 0
          		DISPLAY 'TEXTE AVEC ESPACE : <' TEXTE '>'
          		DISPLAY 'TEXTE SANS ESPACE : <' TEXTE(1:I) '>'
       		ELSE
       			DISPLAY 'TEXTE NE CONTIENT QUE DES ESPACES'
       		END-IF.

       STOP RUN.

Résultat :

Code :

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

1
2
TEXTE AVEC ESPACE : </123..//ABC:1234..//DEF:JE TENTE D'APPRENDRE LE COBOL                 >
TEXTE SANS ESPACE : </123..//ABC:1234..//DEF:JE TENTE D'APPRENDRE LE COBOL>