View Full Version : SQL beschriebene Dateien Zugriff mit RPG
iseries_user
12-11-12, 09:16
Hallo,
ich muss in einem RPG III Programm auf eine SQL beschriebene Datei Zugreifen. Die Datei hat einen INDEX und mit RPGLE kann ich auch darauf zugreifen.
Beim Umwandeln bekomme ich folgende Fehlermeldung:
QRG4042 Bewertung: 20 Anzahl: 1
Nachricht . . . : Die Länge des binären Eingabefeldes ist nicht 2
oder 4. Standardwert ist 2.
Gibt es eine Möglichkeit, das ich das Feld in meinem RPG Programm nutzen kann?
Vielen Dank
iseries_user
Bei SQL greifst du immer auf die PF oder ggf. auf eine View hin.
Da du den Code nicht angibst kann ich nur raten, dass du ggf. ein Komma zwischen 2 Variablen vergessen hast, so dass die 2. Variable als NULL-Anzeiger interpretiert wird.
NULL-Anzeiger müssen 2-Byte-Binär bzw. 5I 0 definiert sein.
iseries_user
12-11-12, 09:26
Hallo,
habe mich evtl. nicht korrekt ausgedrückt. ich greife nicht mit SQL auf die Datei zu. Ich möchte mit Read/Chain auf einen Index zugreifen.
In ILE Programmen funktioniert das einwandfrei. Bei RPG3 Programmen bekomme ich die Fehlermeldung.
FVHL01L1 IF E K DISK
*
*
I SDS
I 1 10 PGM
*
*
C KEY1 KLIST
C KFLD VHLID
*
C************************************************* ****************
C* HAUPTSTEUERUNG *
C************************************************* ****************
*
C KEY1 SETLLVHL01L1
C KEY1 READEVHL01L1 99
C MOVE '1' *INLR
Dann solltest du mal das Listing mit der tatsächlichen Datei (DSPFFD) vergleichen.
Es gibt halt bestimmte Feldtypen, die von RPGIII nicht unterstützt werden.
iseries_user
12-11-12, 10:39
Hallo,
Laut Listing ist die Datei folgendermaßen deklariert.
VHLID P(18,0) A000001D
Laut DSPFFD:
VHLID BINARY 18 0
ich gehe mal davon aus, dass ich mit RPGIII nicht auf die Dateien zugreifen kann.
Nein! RPGIII kann zwar Binär-Felder bis 9B 0 (also normalen Integer) verarbeiten, jedoch keinen Big Integer (18 B 0).
Da musst Du schon einen CVTRPGSRC machen und das Ding endlich auf RPGIV konvertieren.
Birgitta
iseries_user
12-11-12, 10:51
Würde ich gerne machen...
Warum nur "würde" ?
Machs' doch einfach!
iseries_user
12-11-12, 12:38
Wenn man damit aber seinen vorgesetzten verärgert ist das nicht so gut ;)
Wie gesagt. Ich würde gerne :)
Dann musst du deinen Vorgesetzten überzeugen, dass z.B. mit diesem Programm die neuen Feldtypen nicht mehr unterstützt werden und eine simple Umsetzung erforderlich ist.
Es ändert ja nichts an der Funktionalität!
Beim Erstellen ist ggf. nur darauf zu achten, dass als ACTGRP(*CALLER) angegeben wird.