SQL beschriebene Dateien Zugriff mit RPG

[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

[Fuerchau]

Eine Konvertierung per DDS bringt nichts, da es sich ja um ein Schlüsselfeld handelt.

Im RPGIII kann man da nur per SQL auf die Tabelle (PF) zugreifen und halt ein gepacktes Feld (18, 0) definieren.
Gecastet wird dabei automatisch, aber ob SQL dann noch den Index verwendet?

[Robi]

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

Ich weis zwar hier nicht den Grund, bin aber häufig in einer ähnlichen Situation.
Es gibt ältere AS400 Hasen für die ist nichts besser, schneller, einfacher ... als RPGII oder bestenfalls III.

Alles andere kennen Sie nicht, daher ist es schlecht.
Man stelle sich vor ein Programmierer ist im Urlaub, der andere Krank und nun muß die Änderung vom 'Chef' selber gemacht werden. Und der kann ILE nichtmal lesen!

Und SQL wird trotzdem genemigt, man hört soviel davon das dann alles viel einfacher sein soll.
Das kann ja nicht so schwer sein.

Außerdem ... welcher Vorgesetzte braucht Argumente für eine Entscheidung?

Robi