Re: QDMRTVFO API won't work - help

I have never understood the File Informational Data Structure to be printer
files only. But there are fields in the data structure that are for data
files only
and other fields for printer files only. The following clip is the data
structure
I keyed in years ago, and have occassionially used. Sorry I didn't document
each field (see RPG/400 Reference Manual). I've added some text
for some of the obvious ones. Sorry for the bad cut & paste from Client
Access.

FXYZ       IP   E           K DISK    INFDS(XYZDS)
D* * * * * * * * * * * * * * * * * * * * *
D*                                       *
D* FILE  INFORMATION  DATA  STRUCTURE    *
D*                                       *
D* * * * * * * * * * * * * * * * * * * * *
D XYZDS           DS
D  @FILE                  1      8
D  @OPEN                  9      9
D  @EOF                  10     10
D  @ISTAT                11     15  0
D  @OCODE                16     21
D  @ROUTE                22     29
D  @ISEQ#                30     37
D  @RECD                 38     45
D  @ERROR                46     52
D  @MIODT                53     56
D  @UN#1                 57     80
D  @ODPTY                81     82
D  @NFILE                83     92
D  @LIB                  93    102                 Library
D  @SPLDF               103    112            Spool File
D  @SFLIB               113    122             Spool File Lib
D  @SPLF#               123    124B 0       Spool File number
D  @PRECL               125    126B 0
D  @SRECL               127    128B 0
D  @MBRNM               129    138            member name
D  @IBUFL               139    142B 0
D  @OBUFL               143    146B 0
D  @DEVCL               147    148B 0
D  @DKTLC               149    151
D  @ROW                 152    153B 0         row (on screen)
D  @COL                 154    155B 0          column (on screen)
D  @#RCDS               156    159B 0       #records in file
D  @ACCES               160    161
D  @DUPKY               162    162
D  @SOURC               163    163
D  @UCFBP               164    173
D  @UCFBO               174    183
D  @OFSET               184    185B 0
D  @#RCDX               186    187B 0
D  @OF#                 188    189B 0
D  @UN#2                190    240
D  @OFFST               241    242B 0
D  @PCNT                243    246B 0
D  @GCNT                247    250B 0
D  @PGCNT               251    254B 0
D  @IOCNT               255    258B 0
D  @CUROP               259    260
D  @RFMT                261    270
D  @DEVCL               271    272
D  @DEVNM               273    282
D  @IOLEN               283    286B 0
D  @RTGNG               287    366
D  @LINE#               367    368B 0
D  @AID                 369    369
D  @UN#3                370    370
D  @#XMIT               371    372B 0
D  @UN#4                373    375
D  @SFRRN               376    377B 0
D  @UN#5                378    396
D  @DBRRN               397    400B 0       File relative record # (rrn)
D  @DBKEY               401    528

hope this helps
Jim

----- Original Message -----
From: "Mark A. Manske" <mmanske@minter-weisman.com>
To: <RPG400-L@midrange.com>
Sent: Friday, December 29, 2000 11:36 AM
Subject: RE: QDMRTVFO API won't work - help


> Thanks Scott,
>
> This did just what I needed it to do now -
>
> Anton mentioned the IFDS "Open Feedback Information" -
> his point is a good one about the ovrscope; however;
> as I have discovered this another point of IBM manuals mis-leading me -
> reading online it appears to me that it is only valid for printer files -
> I wish they had one spot(I have not seen one) that showed the entire
> contents of the IFDS for all file types with positions/special names;
> I am too quick to read and judge the examples(hmm I may have to slow down
> on that one from now on)
>
>
> Thank you all for the insight and help
> and I wish you a save and happy new year...
>
>
> Mark A. Manske
> [mailto:mmanske@minter-weisman.com]
> Sr. Project Lead
> Minter-Weisman
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---