"S36"-Devicename

[Bleil]

Hallo!
Weiß jemand, wie man von einem AS/400-Devicename (z.B.: DSP01) den zugehörigen S/36-Devicenamen(z.B.: W3) in einem CL-, oder RPG-Programm dazulesen kann?
Wird dringend gebraucht!
Vieen Dank, Rudolf Bleil

[Günther]

Hallo Rudolf,

dazu würde ich eine OCL-Prozedur erstellen, in der ?WS? in die LDA übertragen wird;
OCL in CLP per Strs36prc aufrufen, danach LDA (*LDA) per RTVDTAARA abfragen

Gruß Günther

[Brownie]

wäre hilfreich zu wissen, ob man hier per PGM zugreifen kann.


Danke


brownie ;)

[dino]

Hallo, da gibt es den Befehl "wrks36".
Da kannst du die entsprechend die Device-Namen AS/400 und /36 verknüpfen.

[Brownie]

.... für die schnelle Antwort.

wrks36, chgs36, dsps36 kenne ich.

ich muesste jedoch per Programm auf diese "File" zugreifen, d.h. wie heisst das Ding und wo steht es.


Gruss, brownie :eek:

[jajonowak]

versuchmal ob das noch funktioniert:


call pgm(qssp/qexcvtdv) parm(&wsid &dev &devtype)
2 10 1


die source ist von 1994 daher kann ich da nicht mehr viel zu sagen.


lg
hans-joachim

[Brownie]

1 Use the following Dump Object ( DMPOBJ ) command to dump out the SET information associated with each display device description:

DMPOBJ OBJ(#LIBRARY/QS36ENV) OBJTYPE(*S36)
2 Use the Work with Job (WRKJOB) command with the default parameters, such as JOB(*) and OUTPUT(*), and select Option 4 ( Work with spooled files).
3 Select Option 5 (Display) next to the resulting QPSRVDMP spooled file.
4 Tab to the Find parameter and type the name of the display device description in ALL CAPS, such as QPADEV0005, and then press the F16 (Find) key. If this is done from the same display device, then you will need to press the F16 (Find) key twice to get past the name of the display device description in the header on the first page.
5 You should then find the display device description in body of the Dump Object output; for example:

003280 E600C2C1 0000010C 00000000 00000000 0000 D8D7 C1C4C5E5 F0F0F0F5 000100 33 *W BA QPADEV0005 *

0032A0 F0F0F0F9 00000000 00000000 00000000 E600E6F0 000000FF 00FF0000 00000000 * 0009 W W0 *

The D8D7 C1C4C5E5 F0F0F0F5 in the above example is the QPADEV0005 display device description in hexadecimal (or hex) format. The 33 is the hex representation of decimal 51, which is the Number of lines to be printed per page from the SET procedure. The F0F0F0F9 is the hex representation of decimal 0009, which is the Forms number for printed output.

@hajo auch das werd ich mal probieren


Danke:)