[COB1] Esthétique des fichiers de sorties

Voir le sujet précédent Voir le sujet suivant Aller en bas

resolu [COB1] Esthétique des fichiers de sorties

Message  Terminatour le Dim 02 Mai 2010, 12:44

Bonjour Bonjour,

J'aurai une petite question concernant les fichiers de sorties.
Je voudrai en fait écrire toutes les infos d'un joueur sur une même ligne, cependant Il me met qu'un élément et le reste disparaît de la réalité.

Par exemple:
Code:
              MOVE DOSSARD OF ATIME OF DIMGEN(IND)TO LOSE-OUT
              MOVE SPACES TO LOSE-OUT
              PERFORM 1-FINDRUN
                  VARYING IND2 FROM 1 BY 1 UNTIL IND2 = 198
              MOVE AIDENT TO LOSE-OUT
              WRITE LOSE-OUT

En réslutat j'ai un truc du style:
Code:
BILL GATES

Alors que j'aurai voulu et cru avoir fait un truc comme ceci
Code:
001 BILL GATES

-Le dossard correspond bien à une valeur, je l'ai vérifié grâce à un display.
-Mon fichier de sortie est décrit comme tel:
Code:
FD LOSE.
      01 LOSE-OUT          PIC X(132).
- Avec plusieurs WRITE intercallé je peux avoir:
Code:
001
Bill Gates

Je suppose alors que c'est juste un détail mais j'aimerais bien avoir quelques choses avec plus de panach donc voilà Very Happy

EDIT: J'ai aussi un soucis avec la récupération de la date système.
Je n'arrive pas à mettre des espaces entre les différents éléments purtant je met des fillers pour espacer ... kezako?
Code:
      01 IDENT.
          03 YYYY  PIC 9(4).
          03      PIC X VALUE SPACES.
          03 MM    PIC 99.
          03      PIC X VALUE SPACES.
          03 DD    PIC 99.

Une bonne fin de weekend !
Amicalement votre,
pirat


Dernière édition par Terminatour le Mer 05 Mai 2010, 21:12, édité 1 fois

Terminatour

Nombre de messages : 344
Age : 25
Prénom : Louis-Julien
Statut : statutaire
Localisation : localisée
Date d'inscription : 04/10/2009

Revenir en haut Aller en bas

resolu Re: [COB1] Esthétique des fichiers de sorties

Message  efo le Dim 02 Mai 2010, 17:47

Code:
MOVE DOSSARD OF ATIME OF DIMGEN(IND)TO LOSE-OUT
MOVE SPACES TO LOSE-OUT
PERFORM 1-FINDRUN
VARYING IND2 FROM 1 BY 1 UNTIL IND2 = 198
MOVE AIDENT TO LOSE-OUT
WRITE LOSE-OUT

lose-out n'étant pas structurée ne contient que la dernière valeur affectée, donc aident au moment du write. Il faut une structure déclarée en working-storage section, qui contient les zones souhaitées et qui est affectée au fur et à mesure avant le write lose-out from cetteStructure

Pour ce qui est de la date, la récupération ne peut pas se faire dans IDENT qui fait 10 caractères, avec les filler. Il va y avoir cadrage sur les 8 premiers caractères et allongement avec 2 blancs finaux. Je ne vois pas l'ACCEPT, mais je suppose que c'est ce qui s'est passé.

efo

Nombre de messages : 125
Age : 59
Prénom : Eric
Localisation : tournai
Date d'inscription : 08/08/2007

Revenir en haut Aller en bas

resolu Re: [COB1] Esthétique des fichiers de sorties

Message  Terminatour le Dim 02 Mai 2010, 22:03

Un grand merci, je vais corriger le tir demain Wink


edit: tir corrigé pirat

Amicalement votre,
pirat

Terminatour

Nombre de messages : 344
Age : 25
Prénom : Louis-Julien
Statut : statutaire
Localisation : localisée
Date d'inscription : 04/10/2009

Revenir en haut Aller en bas

resolu Re: [COB1] Esthétique des fichiers de sorties

Message  Contenu sponsorisé Aujourd'hui à 20:45


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum