unbekannter source - welche sprache?

ascii · 26.04.2004, 17: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, 17:22

Cobol?

ascii · 03.05.2004, 11:35

hat keiner rat??

Andre@s · 03.05.2004, 13:47

Zitat:

Original geschrieben von _m3
Cobol?

Nein

26.04.2004, 17: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, 11: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

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

26.04.2004, 17: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)