1-18 COBOLCSprache, die Aktualisierten Juni 1999 Abbildet 1 Beispiel 01 Beispiel-mein-irgendwelche ZEIGER. 01 W-kurz ABBILDUNG 9(05) BINÄR. 01 W-lang ABBILDUNG 9(10) BINÄR. . . . PROZEDURTEIL . . . ANRUF "TYPEGET" VERWENDEND Beispiel-mein-irgendein Beispiel-Art-Code WERTEN SIE ZUTREFFENDES AUS WENN Beispiel-Art-kurz ANRUF "ANYGET" VERWENDEND Beispiel-mein-irgendein W-kurz ZEIGEN Sie "IST IRGENDWIE KURZ" W-kurz An WENN Beispiel-Art-lang ANRUF "ANYGET" VERWENDEND Beispiel-mein-irgendein W-lang ZEIGEN SIE "IST IRGENDWIE LANG" AN W-lang WENN ANDERES DIE UNGESTÜTZTE ANZEIGE "TIPPEN IRGENDWELCHE" EIN Ende-werten Sie aus 1,15,3 ANYFREE Zusammenfassung Gibt Ablage innerhalb IRGENDWIE frei, das z.Z. verwendet wird, um einen Wert zu halten. ANYFREE(IN irgendwie Undurchlässig-Irgendein-Art) Beschreibung Wenn ANYSET benannt wird, teilt es Ablage zu, um das tatsächliche zu halten JEDER MÖGLICHER Wert. Dieses kann mit einem Anruf zu ANYFREE dann freigegeben werden. Wenn die irgendeine Art nicht z.Z. eingestellt wird, wird der Betrieb ignoriert. Beispiel 01 Beispiel-mein-irgendwelche ZEIGER. . . . BEWEGUNG 12 ZU W-kurz GESETZTES Beispiel-Art-kurzes ZU ZUTREFFEND "GESETZTES" VERWENDEN DES ANRUFS Beispiel-mein-irgendein Beispiel-Art-Code-Länge Beispiel-Art-Code