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 manipuler...
Il est couramment admis qu'en Cobol manipuler une chaine de bit, ce n'est pas possible. Et pourtant, nous allons en ces lignes relever l'impossible ^__^
J'ai crée 2 programmes permettant l'un la compression/decompression de ns octets, ainsi qu'un programme de test.
Structure du buffer d'échange :
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 01 BUFFER. 05 PREMIER pic 9. 88 PREMIER-APPEL value 0. 88 APPEL-SUIVANT value 1. 05 LOG pic 9. 88 LOG-OFF value 0. 88 LOG-ON value 1. 05 TYPE-COMP pic x(13). 88 COMPRESSIONS value "COMPRESSION". 88 DECOMPRESSIONS value "DECOMPRESSION". 05 OCTET pic x. 05 OCTET-BIN pic S9(4) comp. 05 BITS. 10 BITS-TAB occurs 8 pic x. 05 RESULTAT pic xx.
Partager