Fujitsu BS2000/OSD COBOL2000 V1.5 Benutzerhandbuch Seite 153

Testhilfen für den Programmablauf
Beispiel 7-2
Mögliche Eingabe in AID:
(1) Zeigt den Inhalt des Datenfeldes, auf welches VERWEIS verweist als Gruppe vom
Typ PERSON bzw. das elementare Feld NAME in dieser Gruppe.
(2) Gibt sedezimal die Adresse von PERS1 zur weiteren Nutzung in Low Level AID aus.
(3) Entspricht in COBOL: MOVE PERS1 TO PERS2.
U41113-J-Z125-6
01 PT-TYP TYPEDEF USAGE POINTER TO PERSON.
01 PERSON TYPEDEF STRONG.
02 NAME PIC X(30).
02 VORNAME PIC X(30).
01 VERWEIS TYPE PT-TYP.
01 PERS1 TYPE PERSON.
01 PERS2 TYPE PERSON.
%SET ADDRESS OF PERS1 INTO VERWEIS.
%D *VERWEIS
%D NAME IN *VERWEIS
%D ADDRESS OF PERS1
%SET PERS1 INTO PERS2
Dialogtesthilfe AID
(1)
(2)
(3)
153