Recherche:

Tout a fait c'est un autre moyen, mais moins pratique si jamais tu dois travailler sur 2 octets voire 4. Et découper les octets en sous octets ce n'est pas une sinécure. A l'origine j'avais écrit le...

Penses à utiliser les balises "code".

Pour les indexés il faut faire accès à la clé via un "START", quelquechose comme :


START fichier
KEY = A-NOM
INVALID KEY
display "Pas de clés...

J'ai inclus un système de log (qui part sur la sortie standard via les 'display').
Pour activer la log, il suffit de faire un


SET LOG-ON to true.

Avant l'appel au programme BitTranslator.
...

Fichier de test :


1234567890D --------
1234567890D ÿ--------
1234567890D --------
1234567890D --------
1234567890C 00000000
1234567890C ...

Et un programme de test, montrant comment faire les accès :


* ---------------------------------------------------------------
* Progamme : BITTEST
* Auteur : Pralinor
...

Le programme BitTranslator, qui permet de compresser et decompresser des chaines de bits :


* ---------------------------------------------------------------
* Progamme :...

Kikoo les gens,

Votre amis javaiste Jean-Robert a la bonne idée de mettre dans la super table un champ de bits concaténé constitués de tops. Et bonheur suprême, il vous faut lire ce champ pour le...

Le problème vient que tu ne peux pas déplacer aussi facilement que ça du pic X dans du pic 9.

Si tu déplaces ..123... tu auras 00123000.

Si tu utilises reverses, tu auras 00032100, ton algo se...

Ah ah Padawan du Cobol... :P

si tu utilises Reverse sur du Pic 9... m'est avis qu'il ne va pas aimer... MAIS ce n'est que mon avis :D

kikoo toi,

Ca ne va pas ce que tu as fait... 8O

Regardes ça :


MOVE W-ALPHANUMERIQUE(1:W-CNT) TO W-NUMERIQUE

Les déclarations :

La solution fichier indexé est bonne et tout à fait pertinente, c'est bien vu de ta part.:yaisse2:

L'appareillage est "une autre" façon de résoudre ce problème sans passer par la case fichier...

Un truc dans ce genre :

1- Tes selects :


SELECT F-LISTE ASSIGN TO "Liste.txt"
ORGANIZATION INDEXED
...

Ah oui,
je ne veux pas faire mon chieur, mais :


MOVE 1 TO W-LIGNE
PERFORM UNTIL F-CODAV IS NUMERIC
READ FAVION INTO F-AVION
AT END MOVE "V"...

C'est un problème typique d'unix vers dos ou vice-versa.
Dans le monde IBM on dispose de fichier de taille fixe défini. Pas de le monde DOS/UNIX. Dans le monde DOS/Unix on dispose d'une fin de...

Je vois 2 solutions :

1 - Tu supprimes le CR de ton fichier en entrée via n'importe quel éditeur de texte.

2- Tu augmentes la tailles de ta FD, tu passes le filler à 80.

Si tu utilises un...

Ton problème doit venir depuis le début de CR/LF... J'ai la curieuse impression que cobol ne reconnait pas la fin de fichier.

Ta déclaration est de 1+3+68 = 72.
Ton fichier fait 71 de taille....

On écrit en-tête, entête, c'est quand on est entêté :D

Quand tu fais un read, le into sert à faire pointer vers autre chose que la FD. Dans ton cas un read F-avion est suffisant, cobol sait bien...

Filler c'est un mot clé qui signifie : zone sans nom. Globalement, il te proposait de faire :

FD Fichier.
01 FICHIER-ENR.
05 FILLER pic X(80).

Globalement pour ta lecture tout dépend si...

Le plus simple dans ce genre de situation est de laisser la FD en générique de ce type :

FD monfichier.
01 F-Monfichier pic X(80).

Ensuite en WS tu déclares la structure de ton fichier :
...

Kikoo les gens,

Dans ce petit tutoriel, je vais montrer une application concrète des niveaux 88, et histoire de donner un exemple passe-partout, je vais montrer comme vérifier qu'une année est...