COBOL Search-Anweisung
 

hallo,

ich habe ein problem mit einer tabelle (index-methode) und der search-Anweisung.

meine tabelle lautet:

01 Schueler-Tab.
05 Schueler-Zeile OCCURS 10
DESCENDING KEY IS T-S-Nr
INDEXED BY S.
10 T-S-Nr PIC 9999.
10 T-S-Nachname PIC X(15).
10 T-S-Vorname PIC X(10).
10 T-S-GebDat PIC X(8).
10 T-S-Geschlecht PIC X.

in einer SECTION wird diese befüllt und mit


SEARCH ALL Schueler-Zeile
WHEN T-S-Nr (S) = SearchSNR
MOVE T-S-Nr(S) TO A-T-S-Nr
WRITE A-Bereich FROM A-Search
END-SEARCH


will ich nach einer übereinstimmung suchen. Ich habe definitiv eine übereinstimmung (beim 4. datensatz ist T-S-Nr = SearchNR), aber SEARCH findet KEINE übereinstimmung.

da ich nicht weiss wie die SEARCH-Anweisung wirklich arbeitet, da in meinem schlauen buch nichts angegeben ist, bitte ich euch um hilfe.

Was mache ich falsch?

danke

Re: COBOL Search-Anweisung
 

du verwendest eine veraltete sprache?

Ist dein Tabelleinhalt sortiert? Denn Search All arbeitet nach der Halbierungsmethode

@frazzz halts zam, wennst nichts konstruktives zu sagen hast

pong

frazzz, sag bitte nicht mir, sondern meinem lehrer!!!

************************************************** *********

ja, meine tabelle ist sortiert.

aber ich glaube ich weiss schon wo mein fehler liegt.

anscheinend muss ich die search-anweisung im 4. format der perform-anweisung verpacken.

PERFORM VARYING S FROM 1 BY 1 UNTIL ....

stimmts?

Bitte, was ist ein "4. Format"?

Nimm einfach statt dem Search all ein Search

pong

Re: COBOL Search-Anweisung
 

Ich habe oben mal rot markiert, was mir aufgefallen ist. Du bist sicher, dass die Tabelle tatsächlich ab- und nicht aufsteigend sortiert ist? Und Du schreibt im Codeteil einmal SearchSNR und im erläuterten Text ohne S vor dem NR.

Generell sollte es funktionieren, wenn die 2 Punkte im Programm korrekt sind und die Tabelle tatsächlich absteigend sortiert ist.

Weitere Frage zur Sortierung: Wer genau hat und wie den Tabelleninhalt sortiert. Bei der Sortierung ist auf die Unterschiede zwischen ASCII und EBCDIC (je nach verwendeter Maschine) zu unterscheiden. Auch das kann dazu führen, dass die Tabelle nicht wirklich sortiert ist.


Tipp: Gib mal nach dem SEARCH-Commando den Wert von 'S' aus, damit könntest Du eventuell ahnen, wohin der SEARCH-ALL sich verläuft!

@pong: machs dir selbst :D

cobol war schon veraltet, als ich in der schule basic lernen durfte...


@sari: sry, die fragestellung war zu verlockend ;)

ASM ist auch alt und kommt jetzt erst aus der Mode, weils von Cobol abgelöst wird...

pong

Ich weiß nicht, in welcher Welt Du lebst! Immerhin sind noch immer weltweit die meisten Programme in Cobol geschrieben.... :p

In Branchen, die EDV (nicht PCs), schon lange verwenden, zB Banken, wird Cobol auch heute noch oft eingesetzt.

Zum Thema selbst kann ich Dir leider nicht weiterhelfen. Hatte zwar mal in der Schule (HTL EDVO) ein halbes Jahr Cobol Unterricht auf einem Siemens Großrechner. Davon ahb ich allerdings nichts behalten, ausser meinen Hass darauf. :-)

CU