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)
![[NEWSboard IBMi Forum]](images/duke/nblogo.gif)
[professional_User]
Mit Zitat antworten
Bookmarks