unbekannter source - welche sprache?

ascii · 26.04.2004, 16:15

CHKSUM(STRING);
S CHKSM=0
F I=1:1:$L(STRING) D
.S CHKSM=$A(STRING,I)#128+CHKSM
.S CHKSM=CHKSM*2

usw.

dann:

S %DH=CHKSM D^%DH

usw.

mfg

ascii

_m3 · 26.04.2004, 16:22

Cobol?

ascii · 03.05.2004, 10:35

hat keiner rat??

Andre@s · 03.05.2004, 12:47

Zitat:

Original geschrieben von _m3
Cobol?

Nein

26.04.2004, 16:22	#2
_m3 Inventar Registriert seit: 24.09.2001 Beiträge: 7.335	Cobol? ____________________________________ Weiterhin zu finden auf http://martin.leyrer.priv.at , http://twitter.com/leyrer , http://www.debattierclub.net/ , http://www.tratschen.at/ und via Instant Messaging auf Jabber: m3 <ät> cargal.org .

03.05.2004, 10:35	#3
ascii Veteran Registriert seit: 12.04.2002 Alter: 42 Beiträge: 324	hat keiner rat?? ____________________________________ 640kB sollten für jedermann genug sein - BILL GATES

26.04.2004, 16:15	#1
ascii Veteran Registriert seit: 12.04.2002 Alter: 42 Beiträge: 324	unbekannter source - welche sprache? CHKSUM(STRING); S CHKSM=0 F I=1:1:$L(STRING) D .S CHKSM=$A(STRING,I)#128+CHKSM .S CHKSM=CHKSM*2 usw. dann: S %DH=CHKSM D^%DH usw. mfg ascii ____________________________________ 640kB sollten für jedermann genug sein - BILL GATES

Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1)