|
midrange.com
Thanks for the help. I'm not sure what you mean by the DSPPGMREF arrary.
This is what I'm doing:
1. Getting a space pointer to a library. In the library header there are
two pointers that I am accessing. One being the QDIDX pointer which I can
use to access the objects in a library. And two, the OIRS pointer to the
ORS information for each entry in the QDIDX space.
2. For every object in the library I am getting OIR information from 1 or
more 512 byte blocks. For example, if program ABC uses two files. The
first OIR record would contain information about the program. The second
OIR record would contain reference information abou each of the files.
Here is a portion of the dump that I did.
OBJECT TYPE- SPACE *OIRS
NAME- TEST TYPE- 19 SUBTYPE-
52
CREATION- 07/31/03 13:24:54 SIZE- 0000002000
OWNER- QPGMR TYPE- 08 SUBTYPE-
01
ATTRIBUTES- 0800 ADDRESS- 0FAEFA50BB
000000
SPACE ATTRIBUTES-
000000 00FFF000 00000074 1952E3C5 E2E34040 40404040 40404040
40404040 40404040 * 0 È êTEST *
000020 40404040 40404040 C0000000 00000000 00001F00 00000000
00000000 00000000 * { *
000040 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
000060 00000000 00000000 00000000 00000000 00FFFF00 *
*
SPACE-
000000 00000000 00000000 00000000 00000000 80000000 00000000
31776707 8F000200 * ÏÅ ± *
000020 00001F00 00020000 00000000 00000000 00000000 00000000
00000000 00000000 * *
000040 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
LINES 000060 TO 0000FF SAME AS ABOVE
000100 FFFFFFFF 0401E3C5 E2E34040 40404040 00000001 000BD7D9
D6C44040 40404040 * TEST PROD *
000120 F0000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 *0 *
000140 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
LINES 000160 TO 0001FF SAME AS ABOVE
000200 000000A8 40404040 40404040 40404040 40404040 40404040
40F14040 40404040 * y 1 *
000220 40404040 40404040 40404040 404040E5 F5D9F1D4 F0F1F0F3
F0F7F3F1 F1F3F2F4 * V5R1M010307311324*
000240 F5F34040 40404040 40404040 40404040 40404040 40404040
40404040 40404040 *53 *
000260 40404040 40404040 40404040 40404040 40404040 40404040
40404040 00000000 * *
000280 00000000 00000000 00000000 00000000 00000000 00000000
00000000 40400000 * *
0002A0 00000000 00000000 00000000 001AC8C9 C3D2E26D D9404040
C3C3C3D4 C9C3C840 * HICKS_R CCCMICH *
0002C0 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
0002E0 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
(First record for program DS101RP)
000300 FFFFFFFF 0201C4E2 F1F0F1D9 D7404040 00000002 0014D9D7
C7D3C540 40404040 * DS101RP RPGLE *
000320 40404040 40404040 40400032 C2818440 81A4A388 969989A3
A8404040 40404040 * Bad authority *
000340 40404040 40404040 40404040 40404040 40404040 40404040
40404040 40400000 * *
000360 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
LINES 000380 TO 0003FF SAME AS ABOVE
000400 000000A8 40404040 40404040 40404040 40404040 40404040
40F14040 40404040 * y 1 *
000420 4040C3D9 E3D7C7D4 40E5F5D9 F1D4F0E5 F5D9F1D4 F0F1F0F3
F0F7F3F1 F1F3F2F5 * CRTPGM V5R1M0V5R1M010307311325*
000440 F0F84040 40404040 40404040 40404040 40404040 40404040
40404040 40404040 *08 *
000460 40404040 40404040 40404040 40404040 40404040 40404040
40404040 00000000 * *
000480 00000000 00000000 00000000 00000000 00000000 01580000
00000000 40400000 * ì *
0004A0 00000000 00000000 00000000 001AC8C9 C3D2E26D D9404040
C3C3C3D4 C9C3C840 * HICKS_R CCCMICH *
0004C0 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
(The last serveral bytes
contain a value, and I can't figure out what it s)
0004E0 00000000 00000000 00000000 00000000 00000000 00000000
0000011B 000AD8E4 * QU*
(Second record for program DS101RP)
000500 FFFFFFFE C9C1C4C4 D3C54040 405CD3C9 C2D34040 40404040
0201D8E4 C9C3D3D6 * ÚIADDLE *LIBL QUICLO*
000520 C1404040 405CD3C9 C2D34040 40404040 0201D8E4 C9C4D3E3
D3404040 405CD3C9 *A *LIBL QUIDLTL *LI*
000540 C2D34040 40404040 0201D8E4 C9C4E2D7 D7404040 405CD3C9
C2D34040 40404040 *BL QUIDSPP *LIBL *
000560 0201D8E4 C9D6D7D5 C4C14040 405CD3C9 C2D34040 40404040
0201C4E2 F1F0F2D7 * QUIOPNDA *LIBL DS102P*
000580 F1404040 40C3C3C3 7BE2C6E3 D2C97C40 1901C4E2 F1F0F2D7
F1404040 40070001 *1 CCC#SFTKI@ DS102P1 *
0005A0 C4E2F1F0 F2D7F1C1 4040F2F2 C5C1F6F6 F6F5F8C4 C5F5C600
000002C4 E2E2D9E5 *DS102P1A 22EA66658DE5F DSSRV*
0005C0 D7C7D440 40405CD3 C9C2D340 40404040 400203D8 D9D5E7C9
C5404040 4040D8E2 *PGM *LIBL QRNXIE QS*
0005E0 E8E24040 40404040 400203D8 D9D5E7C9 D6404040 4040D8E2
E8E24040 40404040 *YS QRNXIO QSYS *
000600 400203D8 D3C5C1E6 C9404040 4040D8E2 E8E24040 40404040
40020300 00000000 * QLEAWI QSYS *
PAGE 3
000620 00000000 00000000 00000000 00000000 00000000 00000000
00000000 00000000 * *
LINES 000640 TO 001EFF SAME AS ABOVE
.POINTERS-
000010 SPP 04 01 TEST MACHINE CONTEXT
000001E0 0000
END OF DUMP
* * * * * E N D O F L I S T I
N G * * * * *
Bobby.
Robert Hicks
Combinatorics Consulting Company
Tel.: (248) 347 - 7222, ext. 222
Fax: (248) 347 - 7227
Email: Robert.Hicks@xxxxxxxxxxxxxxxx
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.
