FORUM MP | Cobol : BINARY dans CHAINE de caractere

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Srv: irc.moteurprog.com

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

BINARY dans CHAINE de caractere
	Forum : COBOL Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ COBOL
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGE : [1]

FORUM COBOL
	Page précedente	Page suivante

totof75020
Nouveau membre

Inscrit : 07/06/2007
Messages : 1

#135518 Posté le 07/06/07 à 17:26

Bonjour à tous,

J'ai grandement besoin d'aide. Je ne suis pas développeur COBOL, mais j'ai besoin d'une info capitale :

Est-il possible d'insérer une valeur binaire dans une chaine de caractère ?

Je m'explique par l'exemple :

On a une chaine existante : "hello world"
Je voudrais qu'un PIC S9(9) Binary soit initialisé avec la valeur '2' par ex.
En héxa, cette "variable" (si on appelle ça variable en COBOL ...) se lit donc : "00 00 00 02".
Une fois cette valeur initialisée, peut-on la mettre à la Nième position de la chaine ? Par exemple 5ème, ce qui donnerait : "hell....o world"
Au final, si on décodait cette chaîne octet par octet, on aurait un truc du genre :

"88 85 93 93 00 00 00 02 96 40 A6 96 99 93 84"

Merci pour votre aide,
Cdlt,
Christophe

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

pac
Co-Administrateur
Superviseur :
- Méthodologie.
Modérateur :
- Delphi
Chef de projet(s) :
- Jeu Awalé
- EcoSystem
- MySudoku

Inscrit : 08/04/2004
Messages : 6572

#135530 Posté le 07/06/07 à 20:47

Sujet déplacé dans le forum COBOL.
__________________________
Lisez la charte, pensez à regarder la FAQ, les tutoriaux, l'annuaire et faites une recherche dans les forums.
N'oubliez pas le Tag [Résolu]

.

Initiez-vous à Delphi avec Turbo Delphi Explorer, au C ou au C++ avec Code::Blocks et C# avec Visual C# 2005 Express.

HAUT DE PAGE

bul
Membre du club

Inscrit : 26/01/2004
Messages : 965

#135636 Posté le 09/06/07 à 04:40

bonjour,

... 03 a1 pic X(4) value "HELL". 03 b1 pic X(7) value "O WORLD". ... 01 toto. 03 a2 pic X(4) value "HELL". 03 filler pic s9(9) comp value 2. 03 b2 pic X(7) value "O WORLD". move a1 to a2 move b1 to b2

on peut bien entendu "généraliser" ça
en transférant octets par octects ( occurs )
et insérer quand nécessaire.

... 03 em pic x(11) value "Hello World". 03 filler redefines em. 05 Oem pic X occurs 11. ... 03 enX. 05 filler pic s9(9) comp value 2. 03 filler redefines EnX. 05 OenX pic X occurs 2. ... 03 re pic x occurs 13.

tu sauras faire la boucle...

mais franchement ? c'est pour quoi faire ?
la démarche me semble pour le moins curieuse...

Cordialement...
__________________________
~ mon site ~ m'écrire ~
Laissez une adresse Mail où vous écrire, en évitant les spams
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

HAUT DE PAGE


	Page précédente	Page suivante
FORUM COBOL

PAGE : [1]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.