September 2002 PL/I, das Spezifikation Abbildet: HÜLSE-FunktionscZusammenfassung 2-57 2 3 M ÖRTLICH FESTGELEGTES BIN(15), RESULTAT 3 REGELTE BIN(31); Der PL-/icode zum Zugänglich machen dieser Parameterliste konnte Gleiches schauen: ANRUF PODGET(ADDR(FOO_BAR_ARGS)); WENN CHECK_ERRORS('PODGET ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; DISPLAY('N = '||N); FOO_BAR_ARGS.M=FOO_BAR_ARGS.N; FOO_BAR_ARGS.RESULT=216; ANRUF PODPUT(ADDR(FOO_BAR_ARGS)); WENN CHECK_ERRORS('PODPUT ') ^ = COMPLETION_STATUS_YES DANN ZURÜCKGEHEN; 2,16,17 PODINFO Zusammenfassung PODINFO(PTR)-;/* AUS: Statusinfo-Zeiger*/ // holt Adresse des status_information_buffer zurück Beschreibung PODINFO erhält die Adresse von status_information_buffer . Wenn der Puffer ist nicht zugeteilt worden, dann wird er Null zugewiesen. Annehmen, daß der Puffer gewesen ist anderwohin zugeteilt und von einem Anruf nachher gefolgt PODSTAT der Anruf zu PODINFO fungiert als ob ein Anruf zu PODSTAT ist gebildet worden (da es die Adresse von erinnert an das status_information_buffer durch status_information_pointer wenn Sie verwendet werden, wie unten gezeigt). Dieses erlaubt das über den mehrfachen Modulen zu verwendender Puffer die später zusammen verbunden werden. Beispiel In einem PL-/imodul: ALLOC POD_STATUS_INFORMATION SET(POD_STATUS_PTR); ANRUF PODSTAT(POD_STATUS_PTR); . . . In einem anderen PL-/imodul (später verbunden zusammen mit dem Modul, das das oben genannte enthält Code). POD_STATUS_PTR zeigt jetzt auf den gleichen Bereich der Ablage wie POD_STATUS_PTR über. ANRUF PODINFO(POD_STATUS_PTR); . . .