API QDBRTVFD und Rückgabewert FILETYPE

[Daechsle]

Hallo Welt!

Ich möchte mit dem API QDBRTVFD ermitteln, ob der FILETYPE eines Files *DATA oder *SRC ist. Laut Beschreibung des APIs auf der IBM-Homepage steht das im 3. Feld der Rückgabewerte, wobei nur das 5. Bit davon aussagt, ob es *DATA (0) oder *SRC (1) ist.
Wie kann man den Wert eines einzelnen Bits einer Variablen auslesen?
Derzeit rufe ich das API aus einem CL-Programm auf, aber von mir aus kann es auch RPG oder COBOL sein.

Oder gibt es noch irgendeine andere Möglichkeit, diesen Wert, den ich auch mit DSPFD TYPE(*ALL) bekommen könnte, in eine Variable zu bringen? DSPFD TYPE(*ALL) OUTPUT(*OUTFILE) geht leider nicht und mit etwas Anderem als TYPE(*ALL) bekomme ich diesen Wert nicht.

Vielen Dank im Voraus für eure Expertenhilfe!
Roland

[B.Hauser]

Schau Dir mal die Catalog View SYSTABLES in der Bibliothek QSYS2 an.

Die folgende Abfrage sollte entweder ein S (=Source) oder ein D (=Daten) zurückliefern.

Select File_Type
From SysTables
Where System_Table_Schema = 'YOURLIB' and System_Table_Name = 'YOURFILE' 

Birgitta

[Daechsle]

GENIAL!
Funktioniert perfekt so, vielen Dank!

Select File_Type
From SysTables
Where System_Table_Schema = 'YOURLIB' and System_Table_Name = 'YOURFILE'

[Pikachu]

Wie kann man den Wert eines einzelnen Bits einer Variablen auslesen?

In RPG geht das mit TESTB.

[Pikachu]

Oder im CL-Programm mit DSPFD FILE(Bibliothek/Datei) TYPE(*BASATR) OUTPUT(*OUTFILE) OUTFILE(Ausgabedatei) und in der Ausgabedatei dann das Feld ATDTAT.

[Fuerchau]

Oder einfach

DCL &TYPE *CHAR 5
RTVMBRD ... FILETYPE(&TYPE)

&TYPE = *DATA bzw. *SRC