DEVD abfragen über API

[stoerfang]

hallo zusammen,

wie kann ich über ein API mir die Objektbeschreibung, da spezell die die Erstellzeit/datum, Datum letzte Änderung eine Einheitenbeschreibung ermitteln.

habe dies über das API QDCRDEVD
mit dem Format DEVD0700 versucht, aber für Inactivity timer bzw. activation timer keine Angaben erhalten.

Ist es dafür überhaupt das richtige API oder fehlt mir was ??

Danke und Gruss

[TARASIK]

Hallo,
ich denke da hilft Dir eher das DEVD0600 Format.

http://publib.boulder.ibm.com/infoce...s/QDCRDEVD.htm

[stoerfang]

habe das andere Format ausprobiert, aber an dieser Stelle bekomme ich ebenso für die Stelle 116 und 124 keine Angaben.. ???
An der Stelle 112 für max. length of request habe ich irgendwas kryptisches.
Kann es vielleicht damit zusammenhängen, bzw. was hat das zu bedeuten ?

danke und gruss

[TARASIK]

Hallo,
laut Handbuch aber richtig:

DEVD0600 Format

This format returns detailed information about a device of category *DSP.
Offset Type Field
Dec Hex
0 0 Returns everything from format DEVD0100
104 68 BINARY(4) Character identifier: graphic character set
108 6C BINARY(4) Character identifier: code page
112 70 BINARY(4) Maximum length of request unit
116 74 BINARY(4) Inactivity timer
120 78 BINARY(4) DBCS feature: RAM size
124 7C BINARY(4) Activation timer
128 80 BINARY(4) Switch setting
132 84 BINARY(4) Device port
136 88 BINARY(4) Maximum outstanding frames
140 8C BINARY(4) Idle timer
144 90 BINARY(4) NRM poll timer
148 94 BINARY(4) Frame retry
152 98 BINARY(4) Offset to list of auxiliary devices
156 9C BINARY(4) Number of auxiliary devices
160 A0 BINARY(4) Entry length for list of auxiliary devices
164 A4 CHAR(10) Device class
174 AE CHAR(10) Device type
184 B8 CHAR(10) Device model
194 C2 CHAR(10) Local location address
204 CC CHAR(10) Attached nonswitched controller name
214 D6 CHAR(10) Keyboard language type
224 E0 CHAR(10) Drop line at signoff
234 EA CHAR(10) Allow blinking cursor
244 F4 CHAR(10) Print device
254 FE CHAR(10) Remote location name
264 108 CHAR(10) Local location name
274 112 CHAR(10) Remote network identifier
284 11C CHAR(10) Control session device description
294 126 CHAR(10) Associated printer: name
304 130 CHAR(10) Associated printer: remote network identifier
314 13A CHAR(10) Alternate printer: name
324 144 CHAR(10) Alternate printer: remote network identifier
334 14E CHAR(10) Output queue: name
344 158 CHAR(10) Output queue: library
354 162 CHAR(10) Printer
364 16C CHAR(10) Print file: name
374 176 CHAR(10) Print file: library
384 180 CHAR(10) Work station customizing object: name
394 18A CHAR(10) Work station customizing object: library
404 194 CHAR(10) Application type
414 19E CHAR(10) DBCS feature: matrix size
424 1A8 CHAR(10) DBCS feature: language ID
434 1B2 CHAR(10) DBCS feature: last code point
444 1BC CHAR(10) SNA pass-through device
454 1C6 CHAR(10) SNA pass-through group name
464 1D0 CHAR(10) Emulated device
474 1DA CHAR(10) Emulated device model
484 1E4 CHAR(10) Emulating ASCII device
494 1EE CHAR(10) Physical attachment
504 1F8 CHAR(10) Line speed
514 202 CHAR(10) Word length
524 20C CHAR(10) Parity type
534 216 CHAR(10) Stop bits
544 220 CHAR(20) ASCII terminal identifier
564 234 CHAR(10) Associated APPC device
574 23E CHAR(256) Host signon/logon command
830 33E CHAR(1) Pass-through indicator
831 33F CHAR(10) Automatically configured
841 349 CHAR(3) Reserved
844 34C BINARY(4) Shared session number
848 350 CHAR(10) Dependent location name
858 35A CHAR(1) Network protocol
859 35B CHAR(18) Network protocol address
877 36D CHAR(15) Internet Protocol (IP) internet address in dotted decimal form
892 37C CHAR(10) Allocated by job name
902 386 CHAR(10) Allocated by user name
912 390 CHAR(6) Allocated by job number
918 396 CHAR(10) Current message queue: name
928 3A0 CHAR(10) Current message queue: library
938 3AA CHAR(1) Server network protocol
939 3AB CHAR(18) Server network protocol address
957 3BD CHAR(15) Server Internet Protocol (IP) internet address in dotted decimal form
These fields repeat for each auxiliary device BINARY(4) Auxiliary device address
CHAR(10) Auxiliary device type
CHAR(2) Reserved

[stoerfang]

D  RVAR1          S          32766A              
D  RVLEN1         S             10I 0 INZ(32766) 
D  FORM1          S              8A              
D  CFGN1          S             10A              
D  ERR1           S          32766A              


 
D GETDD           PR                  ExtPgm('QDCRDEVD')
D                            32766A   OPTIONS(*varsize) 
D                               10I 0 CONST             
D                                8A   CONST             
D                               10A   CONST             
D                            32766A   options(*varsize) 

Ist vielleicht mein Aufruf falsch ?
FORM1 = DEVD0600 und CFGN1 = Einheit

[JP]

Hallo,

wie schauen denn die anderen Werte nach der Rückgabe aus, sind die OK?

Wie ermittelst du die entdprechenden Werte aus RVAR1?

[holgerscherer]

hallo zusammen,

wie kann ich über ein API mir die Objektbeschreibung, da spezell die die Erstellzeit/datum, Datum letzte Änderung eine Einheitenbeschreibung ermitteln.

Moin Stoerfang, reichen Dir vielleicht die über RTVOBJD erhältlichen Objektbeschreibungen?

-h

[stoerfang]

ja, das würde mir vorerst reichen, wobei ich nicht verstehe warum ich auf dem anderen Weg kein Ergebnis erhalten habe.

Muss ich wohl noch weiter suchen.


Danke und Gruss
stoerfang

[BenderD]

... oder viellecht mal etwas genauer beschreiben was du da so treibst und was dann das Joblog so sagt...

ja, das würde mir vorerst reichen, wobei ich nicht verstehe warum ich auf dem anderen Weg kein Ergebnis erhalten habe.

Muss ich wohl noch weiter suchen.


Danke und Gruss
stoerfang

[Pikachu]

Was suchst du genau? Die Zeitpunkte der Erstellung und Änderung einer Einheitenbeschreibung oder die Angaben "Inactivity timer" und "Activation timer" einer Einheitenbeschreibung?

[stoerfang]

... oder viellecht mal etwas genauer beschreiben was du da so treibst und was dann das Joblog so sagt...

Ich wollte mir in einer Subfile alle DEVD als Übersicht anzeigen lassen, über Status, letzte Änderung usw. und nach entsprechendenden Auswahlkriterien selektieren

Klappt jetzt auch ganz gut. Will jetzt nur noch aus der Subfile z.B. Einheiten ab- und anhängen und löschen.

[BenderD]

also der WRKCFGSTS *DEV im Projekt OS/401

Ich wollte mir in einer Subfile alle DEVD als Übersicht anzeigen lassen, über Status, letzte Änderung usw. und nach entsprechendenden Auswahlkriterien selektieren

Klappt jetzt auch ganz gut. Will jetzt nur noch aus der Subfile z.B. Einheiten ab- und anhängen und löschen.