malzusrex
21-08-17, 10:38
Hallo Gemeinde,
an mich ist aus meiner Kundschaft folgendes Problem heran getragen worden.
Bei der Definition einer Datenstruktur bringt der Compiler eine Fehlermeldung, wenn diese in FREE definiert ist.
dcl-ds bezds2 occurs(3);
#obj zoned(5) pos(1) inz(0);
#jahr2 zoned(4) pos(6) inz(0);
#folg zoned(3) pos(10) inz(0);
#summe zoned(5) pos(13) inz(0);
end-ds;
dbezds ds occurs(3)
d#obj 1 5s 0 inz(0)
d#jahr2 6 9s 0 inz(0)
d#folg 10 12s 0 inz(0)
d#summe 13 17s 0 inz(0)
exec SQL open C1;
exec SQL fetch first from C1 for 3 rows into :bezds;
exec SQL fetch first from C1 for 3 rows into :bezds2;
exec SQL close C1;
Bei der Umwandlung kommt dann folgendes
MSG ID WTK SATZ TEXT
SQL5011 30 266 Position 54 Bereich der Host-Struktur BEZDS2 nicht
definiert oder nicht verwendbar.
Auf dem System läuft V7.2 mit dem aktuellesten PTF-Stand
Jemand einen Lösungsansatz?
Gruß Ronald
an mich ist aus meiner Kundschaft folgendes Problem heran getragen worden.
Bei der Definition einer Datenstruktur bringt der Compiler eine Fehlermeldung, wenn diese in FREE definiert ist.
dcl-ds bezds2 occurs(3);
#obj zoned(5) pos(1) inz(0);
#jahr2 zoned(4) pos(6) inz(0);
#folg zoned(3) pos(10) inz(0);
#summe zoned(5) pos(13) inz(0);
end-ds;
dbezds ds occurs(3)
d#obj 1 5s 0 inz(0)
d#jahr2 6 9s 0 inz(0)
d#folg 10 12s 0 inz(0)
d#summe 13 17s 0 inz(0)
exec SQL open C1;
exec SQL fetch first from C1 for 3 rows into :bezds;
exec SQL fetch first from C1 for 3 rows into :bezds2;
exec SQL close C1;
Bei der Umwandlung kommt dann folgendes
MSG ID WTK SATZ TEXT
SQL5011 30 266 Position 54 Bereich der Host-Struktur BEZDS2 nicht
definiert oder nicht verwendbar.
Auf dem System läuft V7.2 mit dem aktuellesten PTF-Stand
Jemand einen Lösungsansatz?
Gruß Ronald