|
midrange.com
Try DSPFD FILE(DDMFILE) TYPE(*ATR) OUTPUT(*OUTFILE) FILEATR(*DDMF)
OUTFILE(YOURLIB/QAFDDDM).
We're at V4R3 and this is the outfile file layout. The fields you want are
DDRMTF and DDRMTL, near the bottom of the list.
FILELAYOUT 02/18/99 F I L E L A Y O U T PAGE 1
DSPFD format for TYPE(*ATR) FILEATR(*DDMF)
FILE:QAFDDDM LIBRARY:YOURLIB TYPE:PHYSICAL RECL: 477 FIELDS: 32
RECORD NAME:QWHFDDDM
ACCESS PATH:ARRIVAL UNIQUE:NO ORDER:FIFO MAINT:*DLY
---------------------------------------------------------------------------
FIELD FMT POSITION NO FLD FIELD
NAME FROM TO BYTE LENGTH TEXT
----------------------- ---------------------------------------------------
DDRCEN A 1 1 1 1 Retrieval century: 0=19xx, 1=20xx
DDRDAT A 2 7 6 6 Retrieval date: year/month/day
DDRTIM A 8 13 6 6 Retrieval time: hour/minute/second
DDFILE A 14 23 10 10 File
DDLIB A 24 33 10 10 Library
DDFTYP A 34 34 1 1 Type of file: D=Device, P=Physical,
L=Logical
DDFILA A 35 38 4 4 File attribute
DDMXD A 39 41 3 3 Reserved
DDFATR A 42 47 6 6 File attribute
DDSYSN A 48 55 8 8 System Name (Source System, if file is
DDM)
DDASP P 56 57 2 3,0 Auxiliary storage pool ID: 1=System
ASP
DDRES1 A 58 61 4 4 Reserved
DDRES2 A 62 68 7 7 Reserved
DDSHAR A 69 69 1 1 Share open data path: N=*NO, Y=*YES
DDLVLC A 70 70 1 1 Record format level check: N=*NO,
Y=*YES
DDTXT A 71 120 50 50 Text 'description'
DDRES3 P 121 123 3 5,0 Reserved
DDFCCN A 124 124 1 1 Century created: 0=19xx, 1=20xx
DDFCDT A 125 130 6 6 Date created: year/month/day
DDFCTM A 131 136 6 6 Time created: hour/minute/second
DDFLS A 137 137 1 1 Externally described file: N=No,
Y=Yes
DDRES4 A 138 147 10 10 Reserved
DDRES5 A 148 175 28 28 Reserved
DDDEVN A 176 185 10 10 Device
DDMODE A 186 193 8 8 Mode
DDACCM A 194 195 2 2 Access method
DDNAML P 196 197 2 3,0 Remote file name length
DDRMTF A 198 452 255 255 Remote file
DDRMTL A 453 460 8 8 Remote location name
DDLCL A 461 468 8 8 Local location name
DDNET A 469 476 8 8 Remote network identifier
DDPTCC A 477 477 1 1 Protected Conversation: N=*NO, Y=*YES
Guy Murphy
University of Illinois
FACTS system
217-333-8670
murphyfa@uiuc.edu
-----Original Message-----
From: Bob Luebbe [mailto:bluebbe@conn2000.com]
Sent: Thursday, February 18, 1999 8:32 AM
To: MIDRANGE-L@midrange.com
Subject: DDM remote system, remote library, remote file - Asking again
I posted this message a few days ago and still can't find the solution.
For a DDM file, we want to retrieve its remote system name, remote library
and remote file name programmically within an RPG or CL program. It appears
that the "Retrieve Database File Description (QDBRTVFD)" api does not return
that information. Is there an API or system table that will give us this
information?
The only way we've found so far is to do a DSPFD to a spool file, convert it
to a DB file, then read the DB file and parse through it. This technique is
slow and tedious, so we would prefer a quicker way.
Thanks in advance,
Bob Luebbe
CONNECTIONS 2000
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.
