Discussion :

[Roland Chastain]

Bonjour tout le monde.

J'apprends le COBOL. Je ne trouve pas comment sauter une ligne dans la console.

Je pensais faire comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
      * display1.cob
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Exemple.
       
       PROCEDURE DIVISION.
           DISPLAY 'bla'
           DISPLAY ''
           DISPLAY 'bla'
           STOP RUN.

Mais à la compilation j'obtiens cet avertissement :

Code X :

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

1
2
3
4
5
cobc -x --Wall display1.cob
display1.cob:7: avertissement*: le littéral alphanumérique a une longueur nulle; une ESPACE est supposée [-Wothers]
    5 |        PROCEDURE DIVISION.
    6 |            DISPLAY 'bla'
    7 >            DISPLAY ''

Et effectivement dans la sortie il y a une espace, ce que je ne veux pas.

[Artemus24]

Salut à tous.

Cela belle lurette que je ne programme plus en cobol.

Pour faire un saut de ligne, il faut utiliser les caractères ASCII correspondant au Carriage Return (CR) et Line Feed (LF), soit :
--> CR = 0x0D (13 en décimal).
--> LF = 0x0A (10 en décimal).

D'où la nécessite de faire cette déclaration dans la Working-Storage Section pour formaliser tes affichages, même avec un display.

[Roland Chastain]

Pour faire un saut de ligne, il faut utiliser les caractères ASCII correspondant au Carriage Return (CR) et Line Feed (LF), soit :
--> CR = 0x0D (13 en décimal).
--> LF = 0x0A (10 en décimal).

Merci ! Effectivement, c'est bien le principe de la solution sur laquelle j'ai fini par tomber, à force de (mal) chercher :

Code :

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

1
2
3
4
5
6
7
8
9
      * display2.cob
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Exemple.
       
       PROCEDURE DIVISION.
           DISPLAY 'bla' X'0A'
      *    DISPLAY ''
           DISPLAY 'bla'
           STOP RUN.

D'où la nécessite de faire cette déclaration dans la Working-Storage Section pour formaliser tes affichages, même avec un display.

D'accord. Je vais creuser ça.

[Artemus24]

Tu parles d'une console, mais c'est quoi au juste ?
Et en quoi afficher un espace ne te convient pas ?

[Roland Chastain]

J'ai un programme que je lance depuis un terminal (ou une console), sous Linux, qui affiche des choses dans la sortie standard. Éventuellement je redirige la sortie vers un fichier. Et donc à un moment donné je veux sauter une ligne, et c'est dérangeant de ne pas y arriver.

Je ne sais pas pourquoi GnuCOBOL transforme une chaîne vide en espace. Il doit y avoir une raison...

Mais quoiqu'il en soit avec les valeurs hexadécimales ça fonctionne.

Voici ce que j'ai fait (en tenant compte de ta remarque sur la déclaration dans la section Working-Storage) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
      * display4.cob
       IDENTIFICATION DIVISION.
       PROGRAM-ID. Exemple.
       DATA DIVISION.
       FILE SECTION.
       WORKING-STORAGE SECTION.
       01 WS-BLA PIC X(3) VALUE 'bla'.
       01 WS-LF PIC X VALUE X'0A'.
       PROCEDURE DIVISION.
       MAIN-PROCEDURE.
           DISPLAY WS-BLA WS-LF.
           DISPLAY WS-BLA WS-LF.
           STOP RUN.
       END PROGRAM Exemple.

Code X :

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

1
2
3
4
$ cobc -x -j display4.cob
bla

bla