SQL beschriebene Dateien Zugriff mit RPG

[iseries_user]

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

[Fuerchau]

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]

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

[Fuerchau]

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]

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.

[B.Hauser]

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]

Würde ich gerne machen...

[Fuerchau]

Warum nur "würde" ?
Machs' doch einfach!

[iseries_user]

Wenn man damit aber seinen vorgesetzten verärgert ist das nicht so gut

Wie gesagt. Ich würde gerne

[Fuerchau]

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.

[andreaspr@aon.at]

Wenn man damit aber seinen vorgesetzten verärgert ist das nicht so gut

SQL Tabellen sind OK, aber RPG V nicht?
Mich würden die Argumente dafür sehr interessieren!

Eventuell kannst du im DDS eine LF erstellen wo du eine entsprechende Konvertierung dieser 18 B 0 Spalten vor nimmst?!

lg Andreas