sowie IBM in OS/400 mit UIM:
Liebe System i Freunde,
hier eine weitere Ausgabe unseres neuen Projekts speziell für System i Entwickler.
Auch im Kapitel 3 gilt wie immer: „Klein und mit wenig Aufwand große Effekte erzielen.“
V6R1 oder V7R1 sind dazu nicht notwendig, da diese Funktionen schon seit Langem möglich sind.
Vielen Dank auch für Ihr fachliches und nützliches Feedback. Ich freue mich besonders, dass viele Kollegen diese interessanten, seit Langem vorhandenen Möglichkeiten so gut gebrauchen können.
System i Menüs erstellen ohne SDA sowie IBM in OS/400 mit UIM:
Im nachfolgenden Beispiel wird gezeigt, wie solche „IBM like“ Menüs mit vielen automatischen Funktionen ebenso wie auch blätterfähig erstellt werden können.
Aufruf des Menüs mit „GO WS_UIM_TT“:
(Illu in PDF)
Alle BLAUEN Angaben sind feste Werte, die Teil des Schlüsselwortes sind oder zur Steuerung gehören. Alle ROTEN Angaben sind variable Werte und müssen auf die einzelnen Bedürfnisse angepasst werden.
Hierfür sollten Sie die PDF aufrufen!
Hier die UIM-Quelle Teil 1 (Menü-Steuerung) vom Menü: WS_UIM_TT UIM ist die von IBM verwendete Sprache um alle Anzeigen, Menüs, Bedienerhilfen und viele Ausdrucke zu steuern. Durch kurze Defi nition können ganze Funktionen automatisch zur Verfügung gestellt werden. Einige aktivieren sich sogar bei Bedarf. Zum leichteren Verständnis habe ich die Defi nitionen gruppiert um die Zusammengehörigkeit besser darzustellen. UIM ist ähnlich aufgebaut wie HTML. Man braucht nur eine UIM-Quelle zu erstellen und beim Kompilieren werden Aussehen und Steuerungen des Menüs automatisch generiert.
**************************** Datenanfang **************************** 0001.00 .************************************************** 0002.00 .* UIM – Beispiel - Menü * 0003.00 .************************************************** 0004.00 .* 0005.00 .* Enable access to OS/400 index search when help is displayed for 0006.00 .* this menu. 0007.00 .* --------------------------------------------- 0008.00 :PNLGRP SCHIDX=qhss1 0009.00 DFTMSGF=‘qcpfmsg‘. 0010.00 .* 0011.00 .* --------------------------------------------- 0012.00 .* Copyright statement appears when the menu is initially displayed. 0013.00 .* --------------------------------------------- 0014.00 :COPYR. 0015.00 SSS/OSI Software Lab. 2012. 0016.00 .* 0017.00 .* --------------------------------------------- 0018.00 .* UIM Z-variable to be used as the panel identifi er 0019.00 .* --------------------------------------------- 0020.00 :VAR NAME=ZMENU. 0021.00 .* 0022.00 .* --------------------------------------------- 0023.00 .* Declare conditions 0024.00 .* --------------------------------------------- 0025.00 .* 0026.00 .* --------------------------------------------- 0027.00 .* Defi ne keys for the menu 0028.00 .* --------------------------------------------- 0029.00 :KEYL NAME=menukeys 0030.00 HELP=keyl. 0031.00 :KEYI KEY=F1 0032.00 ACTION=HELP 0033.00 HELP=helpf1. 0034.00 :KEYI KEY=F3 0035.00 ACTION=‘EXIT SET‘ 0036.00 VARUPD=NO 0037.00 HELP=exit. 0038.00 F3=Verlassen 0039.00 :KEYI KEY=F4 0040.00 ACTION=PROMPT 0041.00 HELP=prompt. 0042.00 F4=Bedienerführung 0043.00 :KEYI KEY=F9 0044.00 ACTION=RETRIEVE 0045.00 HELP=retrieve. 0046.00 F9=Auff inden 0047.00 :KEYI KEY=F12 0048.00 ACTION=‘CANCEL SET‘ 0049.00 VARUPD=NO 0050.00 HELP=cancel. 0051.00 F12=Abbrechen 0052.00 :KEYI KEY=F24 0053.00 ACTION=MOREKEYS 0054.00 HELP=morekeys. 0055.00 F24=Weitere Tasten 0056.00 :KEYI KEY=ENTER 0057.00 ACTION=ENTER 0058.00 HELP=enter. 0059.00 :KEYI KEY=HELP 0060.00 ACTION=HELP 0061.00 HELP=help. 0062.00 :KEYI KEY=HOME 0063.00 ACTION=HOME 0064.00 HELP=home. 0065.00 :KEYI KEY=PAGEDOWN 0066.00 ACTION=PAGEDOWN 0067.00 HELP=pagedown. 0068.00 :KEYI KEY=PAGEUP 0069.00 ACTION=PAGEUP 0070.00 HELP=pageup. 0071.00 :KEYI KEY=PRINT 0072.00 ACTION=PRINT 0073.00 HELP=print. 0074.00 :EKEYL. 0075.00 .* 0076.00 .* --------------------------------------------- 0077.00 .* Defi ne Example Menu panel 0078.00 .* --------------------------------------------- 0079.00 :PANEL NAME=menupnl 0080.00 KEYL=menukeys 0081.00 ENTER=‘MSG CPD9817 QCPFMSG‘ 0082.00 PANELID=ZMENU 0083.00 TOPSEP=SYSNAM 0084.00 HELP=‘menu/help‘. 0085.00 Objekt basierend entwickeln wie IBM 0086.00 .* 0087.00 .* ------------------------------------- 0088.00 .* Defi ne the menu area 0089.00 .* ------------------------------------- 0090.00 :MENU DEPTH=‘*‘ 0091.00 SCROLL=NO 0092.00 BOTSEP=SPACE. 0093.00 :TOPINST.Auswahlmöglichkeiten: 0094.00 .* 0095.00 .* ------------------------------------- 0096.00 .* Specify the action to be taken for each option 0097.00 .* ------------------------------------- 0098.00 .* 0099.00 :MENUGRP. Objekt basierend entwickeln mit RPG, RPIs & UIM 0100.00 :MENUI OPTION=1 0101.00 ACTION=‘CMD strsldshw book(COMMON) chapter(OBSE_2003)‘ 0102.00 HELP=‘menu/option1‘. 0103.00 SlideShow - Präsentation 0104.00 .* 0105.00 :MENUI OPTION=2 0106.00 ACTION=‘CMD call MA_KND_F‘ 0107.00 HELP=‘menu/option1‘. 0108.00 WRK ... Pgm ausführen 0109.00 .* 0110.00 :MENUI OPTION=10 0111.00 ACTION=‘CMD wrkobjpdm Augel_TT ma*‘ 0112.00 HELP=‘menu/option1‘. 0113.00 MA* Objekte aus Bibliothek Augel_TT anzeigen 0114.00 :EMENUGRP. 0115.00 .* 0116.00 :MENUGRP. 0117.00 :EMENUGRP. 0118.00 .* 0119.00 :MENUGRP. 0120.00 :EMENUGRP. 0121.00 .* 0122.00 .* 0123.00 :MENUGRP. Popup-Window mit Select-Bar 0124.00 :MENUI OPTION=20 0125.00 ACTION=‘CMD call ddschoice‘ 0126.00 HELP=‘menu/option1‘. 0127.00 Choice-Window Beispiel 0128.00 .* 0129.00 :MENUI OPTION=21 0130.00 ACTION=‘CMD strseu augel_tt/source ddschoiced option(5)‘ 0131.00 HELP=‘menu/option1‘. 0132.00 Choice -DDS- Source anzeigen 0133.00 .* 0134.00 :MENUI OPTION=22 0135.00 ACTION=‘CMD strseu augel_tt/source ddschoice option(5)‘ 0136.00 HELP=‘menu/option1‘. 0137.00 Choice -PGM- Source anzeigen 0138.00 :EMENUGRP. 0139.00 .* 0140.00 :EMENU. 0141.00 .* 0142.00 .* ------------------------------------- 0143.00 .* Use a command line and allow commands and option numbers 0144.00 .* ------------------------------------- 0145.00 :CMDLINE SIZE=LONG. 0146.00 Auswahl oder Befehl 0147.00 .* 0148.00 :EPANEL. 0149.00 .* 0150.00 .*
Noch nicht Abonnent? Sonderaktion nutzen.
Ähnliche Artikel:
