-
 Anmeldeschirm ändern
Hi Profis! 
Ich hab mal wieder eine Frage:
Und zwar: Ich möchte meine AS400 einwenig "individualisieren" und desshalb würde ich gerne den Anmeldeschirm "anpassen". Kann mir bitte jemand erklären wie und wo das geht?
Vielen Dank im Voraus!
-
Ändere die DSPF QDSIGNON.
Die Quelle steht irgendwo in QDDSSRC in der QGPL.
Du kannst fast alles ändern außer der Reihenfolge, Ausprägung und des Typ's.
Um Felder auszublenden nimm DSPATR(ND).
Sämtliche Konstanten können beliebig geändert werden, Felder können verschoben werden, allerdings darfst du sie nie neu sortieren.
Erstelle die QDSIGNON wohin du willst und ordne dem Subsystem per CHGSBSD die neue QDSIGNON zu.
Achtung: Das Subsystem muss runtergefahren werden.
-
Danke schön!
Werde ich gleich mal ausprobieren
MfG
-
Hier noch ein Bsp. mit MSGF-Variablen und einfachem CLP-Pflegeprogramm.
Damit kannst du deine Signon-Maske inhaltlich live aktualisieren.
Vorab musst du dir nur eine MSGF mit dem Namen im Bsp. und 23 MSGID's erstellen.
Die Attribute im DSPF bzw. Pflegeprogramm sind nur bsp.haft. und kannst du nach eigenen Wünschen anpassen.
Auch habe ich die variablen PROGRAM und Menü mit DSPATR(ND PR) ausgeblendet.
Die Variablen aus der Original-QDSIGNON müssen alle in derselben Größe und Reihenfolge erhalten bleiben, die Anordnung im Record (Zeile/Spalte) ist beliebig, soll heissen der Satzpuffer darf nicht verändert werden.
(siehe Fuerchau)
Ich würde dir empfehlen ein eigenes QINTERxxxx mit definierten Datenstationseinträgen zu erstellen und das ganze erst mal zu testen bevor du damit live gehst.
Nicht das du dir deine ganzen 5250-User lahmlegst.
QDSIGNON-DSPF mit MSGID'S für die SBSD
Code:
A DSPSIZ(24 80 *DS3)
A***********************************************************
A* *
A* RECORD FORMAT -- NAME: SIGNON *
A* FUNCTION: SIGN ON DISPLAY *
A* INDICATORS USED: 01 02 *
A* FUNCTION KEYS USED: NONE *
A* NUMBER OF I/O FIELDS: 11 *
A* KEYWORDS USED: DSPATR CHGINPDFT CLEAR *
A* CHECK *
A* *
A***********************************************************
A*
A R SIGNON
A*%%TS SD 20010425 223106 QPCS REL-V4R4M0 5769-PW1
A CLEAR
A BLINK
A MSG0001 78A O 1 2MSGID(MSG 0001 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0002 78A O 2 2MSGID(MSG 0002 CRTAS400/QDSIGNOND)
A MSG0003 45A O 3 2MSGID(MSG 0003 CRTAS400/QDSIGNOND)
A 3 48'System . . . . . :'
A SYSNAME 8A O 3 70
A MSG0004 45A O 4 2MSGID(MSG 0004 CRTAS400/QDSIGNOND)
A 4 48'Subsystem . . . . :'
A SBSNAME 10A O 4 70
A MSG0005 45A O 5 2MSGID(MSG 0005 CRTAS400/QDSIGNOND)
A 5 48'Bildschirm . . . :'
A DEVNAME 10A O 5 70
A MSG0006 78A O 6 2MSGID(MSG 0006 CRTAS400/QDSIGNOND)
A MSG0007 78A O 7 2MSGID(MSG 0007 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0008 78A O 8 2MSGID(MSG 0008 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0009 78A O 9 2MSGID(MSG 0009 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0010 78A O 10 2MSGID(MSG 0010 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0011 78A O 11 2MSGID(MSG 0011 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0012 78A O 12 2MSGID(MSG 0012 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0013 78A O 13 2MSGID(MSG 0013 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A MSG0014 78A O 14 2MSGID(MSG 0014 CRTAS400/QDSIGNOND)
A MSG0015 45A O 15 2MSGID(MSG 0015 CRTAS400/QDSIGNOND)
A 15 48'Benutzer . . . . .'
A USERID 10A B 15 70
A MSG0016 45A O 16 2MSGID(MSG 0016 CRTAS400/QDSIGNOND)
A 01 16 48'Kennwort . . . . .'
A 01 PASSWRD 10A I 16 70DSPATR(ND)
A MSG0017 78A O 17 2MSGID(MSG 0017 CRTAS400/QDSIGNOND)
A 17 48'Programm/Prozedur .'
A DSPATR(ND)
A PROGRAM 10A B 17 70DSPATR(PR)
A DSPATR(ND)
A MSG0018 78A O 18 2MSGID(MSG 0018 CRTAS400/QDSIGNOND)
A 18 48'Menü . . . . . . .'
A DSPATR(ND)
A MENU 10A B 18 70DSPATR(PR)
A DSPATR(ND)
A MSG0019 78A O 19 2MSGID(MSG 0019 CRTAS400/QDSIGNOND)
A 19 48'Aktuelle Biblioth .'
A DSPATR(ND)
A CURLIB 10A B 19 70DSPATR(PR)
A DSPATR(ND)
A MSG0020 78A O 20 2MSGID(MSG 0020 CRTAS400/QDSIGNOND)
A MSG0021 78A O 21 2MSGID(MSG 0021 CRTAS400/QDSIGNOND)
A MSG0022 78A O 22 2MSGID(MSG 0022 CRTAS400/QDSIGNOND)
A MSG0023 78A O 23 2MSGID(MSG 0023 CRTAS400/QDSIGNOND)
A 02 QSNERROR 80A O 24 1DSPATR(HI)
A COPYRIGHT 40A O 24 40DSPATR(HI)
A UBUFFER 128A H
Das DSPF QDSIGNOXD für das Pflegeprogramm
Code:
A DSPSIZ(24 80 *DS3)
A***********************************************************
A* *
A* RECORD FORMAT -- NAME: SIGNON *
A* FUNCTION: SIGN ON DISPLAY *
A* INDICATORS USED: 01 02 *
A* FUNCTION KEYS USED: NONE *
A* NUMBER OF I/O FIELDS: 11 *
A* KEYWORDS USED: DSPATR CHGINPDFT CLEAR *
A* CHECK *
A* *
A***********************************************************
A*
A R SIGNON
A*%%TS SD 20010425 221829 QPCS REL-V4R4M0 5769-PW1
A CLEAR
A BLINK
A MSG0001 78A B 1 2MSGID(MSG 0001 CRTAS400/QDSIGNOND)
A DSPATR(HI)
A CHECK(LC)
A MSG0002 78A B 2 2MSGID(MSG 0002 CRTAS400/QDSIGNOND)
A CHECK(LC)
A MSG0003 45A B 3 2MSGID(MSG 0003 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 3 48'System . . . . . :'
A SYSNAME 8A O 3 70
A MSG0004 45A B 4 2MSGID(MSG 0004 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 4 48'Subsystem . . . . :'
A SBSNAME 10A O 4 70
A MSG0005 45A B 5 2MSGID(MSG 0005 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 5 48'Bildschirm . . . :'
A DEVNAME 10A O 5 70
A MSG0006 78A B 6 2MSGID(MSG 0006 CRTAS400/QDSIGNOND)
A CHECK(LC)
A MSG0007 78A B 7 2MSGID(MSG 0007 CRTAS400/QDSIGNOND)
A CHECK(LC)
A DSPATR(HI)
A MSG0008 78A B 8 2MSGID(MSG 0008 CRTAS400/QDSIGNOND)
A CHECK(LC)
A DSPATR(HI)
A MSG0009 78A B 9 2MSGID(MSG 0009 CRTAS400/QDSIGNOND)
A CHECK(LC)
A DSPATR(HI)
A MSG0010 78A B 10 2MSGID(MSG 0010 CRTAS400/QDSIGNOND)
A CHECK(LC)
A DSPATR(HI)
A MSG0011 78A B 11 2MSGID(MSG 0011 CRTAS400/QDSIGNOND)
A CHECK(LC)
A DSPATR(HI)
A MSG0012 78A B 12 2MSGID(MSG 0012 CRTAS400/QDSIGNOND)
A CHECK(LC)
A DSPATR(HI)
A MSG0013 78A B 13 2MSGID(MSG 0013 CRTAS400/QDSIGNOND)
A CHECK(LC)
A DSPATR(HI)
A MSG0014 78A B 14 2MSGID(MSG 0014 CRTAS400/QDSIGNOND)
A CHECK(LC)
A MSG0015 45A B 15 2MSGID(MSG 0015 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 15 48'Benutzer . . . . .'
A USERID 10A B 15 70
A MSG0016 45A B 16 2MSGID(MSG 0016 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 01 16 48'Kennwort . . . . .'
A 01 PASSWRD 10A I 16 70DSPATR(ND)
A MSG0017 78A B 17 2MSGID(MSG 0017 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 17 48'Programm/Prozedur .'
A DSPATR(ND)
A PROGRAM 10A B 17 70CHECK(LC)
A DSPATR(PR)
A DSPATR(ND)
A MSG0018 78A B 18 2MSGID(MSG 0018 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 18 48'Menü . . . . . . .'
A DSPATR(ND)
A MENU 10A B 18 70CHECK(LC)
A DSPATR(PR)
A DSPATR(ND)
A MSG0019 78A B 19 2MSGID(MSG 0019 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 19 48'Aktuelle Biblioth .'
A DSPATR(ND)
A CURLIB 10A B 19 70CHECK(LC)
A DSPATR(PR)
A DSPATR(ND)
A MSG0020 78A B 20 2MSGID(MSG 0020 CRTAS400/QDSIGNOND)
A CHECK(LC)
A MSG0021 78A B 21 2MSGID(MSG 0021 CRTAS400/QDSIGNOND)
A CHECK(LC)
A MSG0022 78A B 22 2MSGID(MSG 0022 CRTAS400/QDSIGNOND)
A CHECK(LC)
A MSG0023 78A B 23 2MSGID(MSG 0023 CRTAS400/QDSIGNOND)
A CHECK(LC)
A 02 QSNERROR 80A O 24 1DSPATR(HI)
A COPYRIGHT 40A O 24 40DSPATR(HI)
A UBUFFER 128A H
CLP-Pflegeprogramm
Code:
DCLF FILE(CRTAS400/QDSIGNOXD)
CHGVAR VAR(&IN01) VALUE('1')
CHGVAR VAR(©RIGHT) VALUE('(C) COPYRIGHT IBM +
CORP. 1980, 2003.')
RTVNETA SYSNAME(&SYSNAME)
CHGVAR VAR(&SBSNAME) VALUE('QINTER')
RTVJOBA JOB(&DEVNAME)
SNDRCVF RCDFMT(SIGNON)
CHGVAR VAR(%SST(&MSG0010 1 1)) VALUE(X'29')
CHGVAR VAR(%SST(&MSG0011 1 1)) VALUE(X'29')
CHGVAR VAR(%SST(&MSG0010 78 1)) VALUE(X'21')
CHGVAR VAR(%SST(&MSG0011 78 1)) VALUE(X'21')
CHGMSGD MSGID(MSG0001) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0001)
CHGMSGD MSGID(MSG0002) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0002)
CHGMSGD MSGID(MSG0003) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0003)
CHGMSGD MSGID(MSG0004) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0004)
CHGMSGD MSGID(MSG0005) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0005)
CHGMSGD MSGID(MSG0006) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0006)
CHGMSGD MSGID(MSG0007) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0007)
CHGMSGD MSGID(MSG0008) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0008)
CHGMSGD MSGID(MSG0009) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0009)
CHGMSGD MSGID(MSG0010) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0010)
CHGMSGD MSGID(MSG0011) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0011)
CHGMSGD MSGID(MSG0012) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0012)
CHGMSGD MSGID(MSG0013) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0013)
CHGMSGD MSGID(MSG0014) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0014)
CHGMSGD MSGID(MSG0015) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0015)
CHGMSGD MSGID(MSG0016) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0016)
CHGMSGD MSGID(MSG0017) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0017)
CHGMSGD MSGID(MSG0018) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0018)
CHGMSGD MSGID(MSG0019) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0019)
CHGMSGD MSGID(MSG0020) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0020)
CHGMSGD MSGID(MSG0021) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0021)
CHGMSGD MSGID(MSG0022) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0022)
CHGMSGD MSGID(MSG0023) MSGF(CRTAS400/QDSIGNOND) MSG(&MSG0023)
-
Morgen!
Ich hab meinen SignOn-Schirm angepasst und mich einwenig gespielt ... Jetzt schaut der Schirm recht pasabel aus 
Und das mit den Usern ist egal. Ich hab meine eigene kleine 250er zu Hause stehen wo ich herum probiere
Thx!
Christian
-
abgesehen davon, kann im qctl (konsole) mit einem guten save die ganze sache wieder rückgängig gemacht werden.
Berechtigungen
- Neue Themen erstellen: Nein
- Themen beantworten: Nein
- You may not post attachments
- You may not edit your posts
-
Foren-Regeln
|
Erweiterte Foren Suche
Google Foren Suche
Forum & Artikel
Update eMail
AS/400 / IBM i
Server Expert Gruppen
Unternehmens IT
|
Kategorien online Artikel
- Big Data, Analytics, BI, MIS
- Cloud, Social Media, Devices
- DMS, Archivierung, Druck
- ERP + Add-ons, Business Software
- Hochverfügbarkeit
- Human Resources, Personal
- IBM Announcements
- IT-Karikaturen
- Leitartikel
- Load`n`go
- Messen, Veranstaltungen
- NEWSolutions Dossiers
- Programmierung
- Security
- Software Development + Change Mgmt.
- Solutions & Provider
- Speicher – Storage
- Strategische Berichte
- Systemmanagement
- Tools, Hot-Tips
Auf dem Laufenden bleiben
|
![[NEWSboard IBMi Forum]](images/duke/nblogo.gif)
[professional_User]
Mit Zitat antworten
Bookmarks