Windows-Zwischenablage von AS/400

[Seppi]

Hallo zusammen.
Wir nutzen IBM ClientAccess als 5250-Emulator für unsere AS/400.

Ich möchte aus einem RPG- oder CL-Programm den Inhalt eines Feldes (14 Stellen) automatisch in die Windows-Zwischenablage kopieren.

Um den Installationsaufwand möglichst klein zu halten (ca 500 Clients) sollte dies, wenn möglich, mit Bordmitteln realisiert werden können.

Hat da wer eine Idee oder sogar eine fertige Lösung ?

Vielen Dank und Gruss
Sepp

[Fuerchau]

Von der AS/400 aus hast du keinen direkten Zugriff auf diese Funktionen.
Man kann per STRPCO/STRPCCMD ein Windows-Programm aufrufen, diesem einen Parameter mitgeben, der den Parameter dann in die Zwischenablage (CLipboard) kopiert, ggf. reicht auch ein VBScript (xxx.vbs).

[Seppi]

Vielen Dank für die rasche Antwort.
Habe es genau so gelöst mit STRPCO/STRPCCMD. Funktioniert auch. Das Problem ist, mit VBScript habe ich keinen Zugriff auf Clipboard. Da habe ich mir die avbClipboard-DLL installiert. Die braucht aber die Visual Basic 6-Runtime Dateien,was mit erheblichem Installationsaufwand verbunden ist.
Im VBScript weis ich nicht, wie ich einen Verweis auf Clipboard machen muss.

[KM]

Hallo Seppi,

wie wäre es mit folgendem VBScript ?

strCopy = "This text has been copied to the clipboard."
With CreateObject("Scripting.FileSystemObject")
  With .CreateTextFile("Child.vbs")
    .WriteLine "CreateObject(""WScript.Shell"").SendKeys ""^c{ENTER}"""
    .Close
  End With
  CreateObject("WScript.Shell").Run "Child.vbs"
  Dummy = InputBox("","" , strCopy)
  .DeleteFile "Child.vbs"
End With

Gruß,
KM

[Seppi]

Hallo KM

Super, deine Lösung. Hab schnell ein Script erstellt und es funktioniert. Jetzt bau ich das in mein CL ein und rufe das ganze mit STRPCCMD auf. Melde mich, sobald es funktioniert.

Vielen Dank.
Gruss
Sepp

[Seppi]

Hallo KM
Es funktioniert super. Vom RPG über ein CL und danach mit STRPCCMD dein Script und das übergebene Feld ist in der Zwischenablage.
Auf dem Bildschirm ist jetzt nur noch ein kurzes flackern.
Vielen Dank nochmals. Hast mir sehr geholfen.
Gruss
Sepp