步步教你如何修改OS/400缺省的登陆画面.

中国IT动力,最新最全的IT技术教程

最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档

当前位置：> 操作系统 > IBM Server

步步教你如何修改OS/400缺省的登陆画面.

作者:未知时间:2005-09-13 15:51 出处:ChinaUnix.net 责编:chinaitpower

摘要：步步教你如何修改OS/400缺省的登陆画面.

好久没有写点东西了，刚好看到ibmas400发贴提问这个话题，就按照步骤详细写了一遍，希望对大家有用。

1、从QGPL/QDDSSRC下拷贝QDSIGNON到个人LIB/QDSPSRC下。
[code:1:6c6af40c53]
                                 Copy Members

From file . . . . . . . :   QDDSSRC
   From library  . . . . :     QGPL

Type the file name and library name to receive the copied members.

   To file . . . . . . . .   QDSPSRC      Name, F4 for list
     To library  . . . . .     LIU

To rename copied member, type New Name, press Enter.

Member         New Name
QDSIGNON       MYSCREEN






                                                                         Bottom
F3=Exit             F4=Prompt     F5=Refresh     F12=Cancel
F19=Submit to batch
[/code:1:6c6af40c53]

2、13=Change text将MYSCREEN属性修改为DSPF。
[code:1:6c6af40c53]
                      Change Physical File Member (CHGPFM)

Type choices, press Enter.

Physical file  . . . . . . . . . > QDSPSRC       Name
   Library  . . . . . . . . . . . >   LIU         Name, *LIBL, *CURLIB
Member . . . . . . . . . . . . . > MYSCREEN      Name, *FIRST
Source type  . . . . . . . . . . > DSPF          Name, *SAME, *NONE
Expiration date for member . . .   *NONE         Date, *SAME, *NONE
Share open data path . . . . . .   *NO           *SAME, *YES, *NO
Text 'description' . . . . . . . > 'My Designer Screen
       '








                                                                         Bottom
F3=Exit   F4=Prompt   F5=Refresh   F12=Cancel   F13=How to use this display
F24=More keys
Already at bottom of area.
[/code:1:6c6af40c53]
3、利用SDA修改MYSCREEN屏幕文件
1）用17选项直接调用SDA修改屏幕文件MYSCREEN：
[code:1:6c6af40c53]
                           Work with Members Using PDM                 S65F6F8B

File  . . . . . .   QDSPSRC
   Library . . . .     LIU                  Position to  . . . . .

Type options, press Enter.
   16=Run procedure    17=Change using SDA       19=Change using RLU
   25=Find string      54=Compare                55=Merge ...

Opt  Member      Type        Text
17   MYSCREEN    DSPF        My Designer Screen







                                                                         Bottom
Parameters or command
===>
F3=Exit          F4=Prompt             F5=Refresh            F6=Create
F9=Retrieve      F10=Command entry     F23=More options      F24=More keys
[/code:1:6c6af40c53]

2）然后用12选项修改屏幕：
[code:1:6c6af40c53]
                      Work with Display Records

File  . . . . . . :   QDSPSRC                Member . . . . . . :   MYSCREEN
   Library . . . . :     LIU                  Source type  . . . :   DSPF

Type options, press Enter.
   1=Add             2=Edit comments          3=Copy          4=Delete
   7=Rename          8=Select keywords       12=Design image

Opt  Order    Record        Type      Related Subfile   Date        DDS Error

12      10    SIGNON        RECORD                      29/07/05








                                                                         Bottom
F3=Exit                     F12=Cancel      F14=File-level keywords
F15=File-level comments     F17=Subset      F24=More keys
                                          (C) COPYRIGHT IBM CORP. 1981, 2002.
[/code:1:6c6af40c53]
3）在屏幕下方直接用‘XXX’方式添加公司名称后回车：
[code:1:6c6af40c53]
                                   Sign On
                                               System  . . . . . :   OOOOOOOO
                                               Subsystem . . . . :   OOOOOOOOOO
                                               Display . . . . . :   OOOOOOOOOO

                User  . . . . . . . . . . . . . .   BBBBBBBBBB
                Password  . . . . . . . . . . . .
                Program/procedure . . . . . . . .   BBBBBBBBBB
                Menu  . . . . . . . . . . . . . .   BBBBBBBBBB
                Current library . . . . . . . . .   BBBBBBBBBB


              ‘Tohoku Ricoh (FuZhou) Printing Products Co.,Ltd.’










OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
[/code:1:6c6af40c53]
4）然后在公司名称前加*来修改显示颜色：
[code:1:6c6af40c53]

                                   Sign On
                                               System  . . . . . :   OOOOOOOO
                                               Subsystem . . . . :   OOOOOOOOOO
                                               Display . . . . . :   OOOOOOOOOO

                User  . . . . . . . . . . . . . .   BBBBBBBBBB
                Password  . . . . . . . . . . . .
                Program/procedure . . . . . . . .   BBBBBBBBBB
                Menu  . . . . . . . . . . . . . .   BBBBBBBBBB
                Current library . . . . . . . . .   BBBBBBBBBB


               *Tohoku Ricoh (FuZhou) Printing Products Co.,Ltd.










OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO
[/code:1:6c6af40c53]
5）选择Colors-----Y :
[code:1:6c6af40c53]
                             Select Field Keywords

Constant  . . . :   Tohoku Ricoh (FuZhou) Printing Products Co.,Ltd.
Length  . . . . :   48                   Row . . . :  13   Column . . . :  17

Type choices, press Enter.
                                     Y=Yes   For Field Type
   Display attributes  . . . . . . .         All except Hidden
   Colors  . . . . . . . . . . . . .   Y     All except Hidden



   General keywords  . . . . . . . .         All types






   TEXT keyword  . . . . . . . . . .


F3=Exit   F4=Display Selected Keywords   F12=Cancel
[/code:1:6c6af40c53]

6)用1选择颜色为BLU（蓝色）后连续2次回车回到屏幕画面。
[code:1:6c6af40c53]
                                 Select Colors

Constant  . . . :   Tohoku Ricoh (FuZhou) Printing Products Co.,Ltd.
Length  . . . . :   48                   Row . . . :  13   Column . . . :  17

Type choices, press Enter.

                                          Keyword   Order   Indicators/+
                                                    (1-7)
   Colors:                                COLOR
     Blue . . . . . . . . . . . . . . .     BLU       1
     Green  . . . . . . . . . . . . . .     GRN
     Pink . . . . . . . . . . . . . . .     PNK
     Red  . . . . . . . . . . . . . . .     RED
     Turquoise  . . . . . . . . . . . .     TRQ
     White  . . . . . . . . . . . . . .     WHT
     Yellow . . . . . . . . . . . . . .     YLW





F3=Exit   F12=Cancel
[/code:1:6c6af40c53]

7）按F3退出屏幕设计画面，选1保存退出，然后再F3退出，再Y保存设计。
[code:1:6c6af40c53]
                                Exit SDA Work Screen

Select one of the following:

     1. Save work since last Enter and exit work screen
     2. Exit without saving any work done on the work screen
     3. Resume work screen session












Selection
     1

F12=Cancel
[/code:1:6c6af40c53]

4、编译屏幕文件到个人LIB下为OBJECT。
[code:1:6c6af40c53]
                          Create Display File (CRTDSPF)

Type choices, press Enter.

File . . . . . . . . . . . . . . > MYSCREEN      Name
   Library  . . . . . . . . . . . >   LIU         Name, *CURLIB
Source file  . . . . . . . . . . > QDSPSRC       Name, *NONE
   Library  . . . . . . . . . . . >   LIU         Name, *LIBL, *CURLIB
Source member  . . . . . . . . . > MYSCREEN      Name, *FILE
Generation severity level  . . .   20            0-30
Flagging severity level  . . . .   0             0-30
Display device . . . . . . . . .   *REQUESTER    Name, *NONE, *REQUESTER
                + for more values
User specified DBCS data . . . .   *NO           *NO, *YES
DBCS extension characters  . . .   *YES          *YES, *NO
Text 'description' . . . . . . . > 'My Designer Screen'




                                                                        More...
F3=Exit   F4=Prompt   F5=Refresh   F10=Additional parameters   F12=Cancel
F13=How to use this display        F24=More keys
[/code:1:6c6af40c53]

5、在命令行执行，修改QINTER参数加载刚才编译好的屏幕OBJ。
CHGSBSD SBSD(QINTER) SGNDSPF(LIU/MYSCREEN)

6、在控制台上刷新QINTER子系统。
ENDSBS SBS(QINTER) OPTION(*IMMED)
STRSBS SBSD(QINTER)

7、再次登陆OS/400，出现如下个人修改的屏幕画面。

ibmas400 回复于：2005-07-29 19:28:59

QINGZHOU大哥简直就像宋公明——及时雨~~~
写得很好、也很详细，受教了。
建议设为精华！！！

快乐狗回复于：2005-07-29 20:02:42

学了一招哦，不知道公司名能不能改成中文的

fairyboy 回复于：2005-07-29 20:27:42

问一下，这样改，会影响到其他人的登陆画面吗？

ibmas400 回复于：2005-07-29 20:34:27

[quote:4d46cd9380="fairyboy"]问一下，这样改，会影响到其他人的登陆画面吗？[/quote:4d46cd9380]
改了交互子系统QINTER的显示文件，当然是对所有用户生效啦。

kempzhang 回复于：2005-07-29 22:16:01

收藏，感谢！就是不知道有没有只设置自己的登陆画面？

ibmas400 回复于：2005-07-30 07:34:30

[quote:412c618056="快乐狗"]学了一招哦，不知道公司名能不能改成中文的[/quote:412c618056]
可以的，SDA设计时，采用‘@cccccccc......@’（2个cc代表一个汉字，所以cc个数需要成双）格式添加中文名称。

fairyboy 回复于：2005-07-30 08:21:13

啊　～～人家的也会变捏，会被打死的．

ibmas400 回复于：2005-07-30 08:35:45

[quote:c1c1805102="fairyboy"]啊　～～人家的也会变捏，会被打死的．[/quote:c1c1805102] :oops:  :oops:  :oops:
不会的，同事会打从心里都很佩服你~~~

“哇，fairyboy一日不见，技术提高这么快。。。”
         ○
        ○
      ○
     ○
    想

RobinL 回复于：2005-07-30 08:36:04

精华，收藏，谢谢Qinzhou

zzw3206 回复于：2005-07-30 10:57:27

哥哥你真是太牛了！！！！！！！！

Ginger 回复于：2005-07-30 11:40:40

如何复原？
重新编译？

ibmas400 回复于：2005-07-30 11:43:29

[quote:8f0d20ffec="Ginger"]如何复原？
重新编译？[/quote:8f0d20ffec]
CHGSBSD SBSD(QINTER) SGNDSPF(*QDSIGNON)，然后刷新QINTER子系统。

qingzhou 回复于：2005-07-30 13:04:01

[quote:93486e7080="ibmas400"]
CHGSBSD SBSD(QINTER) SGNDSPF(*QDSIGNON)，然后刷新QINTER子系统。[/quote:93486e7080]
看来你已经出师了~~~~ :mrgreen:

qingzhou 回复于：2005-07-30 13:06:17

[quote:876a1a05de="fairyboy"]问一下，这样改，会影响到其他人的登陆画面吗？[/quote:876a1a05de]
[quote:876a1a05de="kempzhang"]收藏，感谢！就是不知道有没有只设置自己的登陆画面？[/quote:876a1a05de]
我集团内部早期有使用自行搭建的AUTO/400环境，实现在QINTER外可用于交互访问OS/400的独立子系统,以满足另一套生产系统特殊的应用环境要求。
然后你再通过CHGSBSD SBSD(QGPL/AUTO400) SGNDSPF (LIB/MyScreen)加载个人设计的屏幕画面。

[b:876a1a05de]A-AUTO for OS/400系统环境设定[/b:876a1a05de]
通过１～８的步骤，实现AUTO/400环境的设定。

1.子系统的作成：
CRTSBSD SBSD(QGPL/AUTO400) POOLS((1 *BASE))

2.CLASS的作成：
CRTCLS CLS(QGPL/AUTO400)

３．作业队列的作成：
CRTJOBQ JOBQ(QGPL/AUTO400)

４．添加作业队列项目：
子系统追加前作业队列SEQNBR的确认
WRKSBSD SBSD(QGPL/AUTO400)
再添加作业队列入口
ADDJOBQE SBSD(QGPL/AUTO400) JOBQ(QGPL/AUTO400)

５．作业队列的确认:
WRKJOBQ JOBQ(*ALL)

６．追加路由项目 :
ADDRTGE SBSD(QGPL/AUTO400) SEQNBR(9999) CMPVAL(*ANY) PGM(QSYS/QCMD) CLS(QGPL/AUTO400)

７．变更AUTO/400作业描述 :
CHGJOBD JOBD(AUTO400JBD) JOBQ(QGPL/AUTO400) TEXT('A-AUTO FOR OS/400') USER(AUTO400V3) INLLIBL(QTEMP XXXX XXXX QGPL QEVX)

８．变更User profile(AUTO400V3):
CHGUSRPRF USRPRF(AUTO400V3) CURLIB(AUTO400V3) INLPGM(*LIBL/WAMENU0R) TEXT(' ＡＵＴＯ／４００　ＶＥＲ．３．１ ') JOBD(AUTO400V3/AUTO400JBD) OUTQ(QGPL/QPRINTS)

sniper 回复于：2005-07-31 20:55:03

福州的公司啊。老乡哦~~~~

qingzhou 回复于：2005-08-01 18:31:52

今天下午在本地搭建了另一个独立于QINTER外可用于交互访问OS/400的独立子系统，并成功加载个人登陆画面，结果证明是完全可行的。
请看附图~~~

成功加载个人设计的登陆OS/400的画面

通过WRKACTJOB验证已经成功创建独立于QINTER的子系统。

快乐狗回复于：2005-08-02 07:56:50

我不明白你为什么要换的个库放，难道不能在QGPL直接修改嘛？

ibmas400 回复于：2005-08-02 09:14:13

[quote:4f8021a456="快乐狗"]我不明白你为什么要换的个库放，难道不能在QGPL直接修改嘛？[/quote:4f8021a456]
如果直接修改QSYS/QINTER这个子系统，会对所有用户生效，如果没事先通知变更说明，容易产生误解，所以他们才说担心直接修改QINTER的加载参数会影响大家，问有没有不影响别人的办法。
后来qingzhou提议创建QINTER外并同样可交互访问OS/400的独立子系统，既可以测试加载个人设计的屏幕，又不影响别人登陆画面；既掌握了更深入一层的技术（创建独立子系统），又能够2者结合并用。

快乐狗回复于：2005-08-02 10:31:49

就是说直接修改只会产生变更，不是使系统出现问题，是这样吧。

胖老头回复于：2005-08-02 12:51:50

好东西，收藏，多谢了！

ibmas400 回复于：2005-08-02 13:49:02

[quote:cdc30233f7="快乐狗"]就是说直接修改只会产生变更，不是使系统出现问题，是这样吧。[/quote:cdc30233f7]
CHGSBSD SBSD(QINTER) SGNDSPF(LIB/MYSCREEN) 直接修改QSYS/QINTER的加载参数指向个人设计的屏幕OBJECT，只是使登陆OS/400的画面变成自己设计的屏幕画面而已，不要去修改原有IBM默认的设计参数等（如：USER、PASSWORD、PROGRAM/PROCEDURE、MENU等），只加加公司名称没问题的。
另外，建议按照步骤拷贝一份到个人LIB去修改测试，不要直接去修改QGPL/QDSIGNON或QDSIGNON2文件，否则如果修改不好造成系统登陆界面面目全非时无法恢复，那就麻烦~~~

快乐狗回复于：2005-08-08 07:27:25

改了登陆界面会不会影响路径？？？

laolaolaoma 回复于：2005-08-08 14:31:45

哥哥，你害死我了，我的子系统qinter结束了，怎么无法启动阿？？

laolaolaoma 回复于：2005-08-08 14:33:54

CHGSBSD SBSD(QINTER) SGNDSPF(LIU/MYSCREEN) （ok)

ENDSBS SBS(QINTER) OPTION(*IMMED) (ok)
就退出，无法再登陆了，那我如何进行下个command??
STRSBS SBSD(QINTER)

laolaolaoma 回复于：2005-08-08 14:42:32

没有事情了，呵呵，吓死我拉

ibmas400 回复于：2005-08-08 16:40:15

[quote:e93979c6fe="laolaolaoma"]哥哥，你害死我了，我的子系统qinter结束了，怎么无法启动阿？？[/quote:e93979c6fe]
拜托、操作QINTER是要在AS/400 控制台执行的。

哈哈 :mrgreen: :mrgreen: :mrgreen:

pollux66 回复于：2005-08-23 16:51:37

我怎么按照ibmas400 的方法不行啊？
现在我想还原具体应该怎么做啊？
^_^

qingzhou 回复于：2005-08-23 17:01:01

[quote:061ca47a55="pollux66"]我怎么按照ibmas400 的方法不行啊？
现在我想还原具体应该怎么做啊？
^_^[/quote:061ca47a55]
在AS/400 CONSOLE执行：
ENDSBS QINTER *IMMED
CHGSBSD SBSD(QINTER) SGNDSPF(*QDSIGNON)
STRSBS QINTER

你不会直接把QGPL/QDDSSRC（QDSIGNON）也修改了吧？！

pollux66 回复于：2005-08-23 17:31:28

QingZhou兄，
刚刚犯了个错误，
让公司所有用户都退出来了，
我的妈呀！！！
吓死人了...
以后这些好东东也要谨慎点用了!!!
不过还是挺谢谢你的....
^_^

qingzhou 回复于：2005-08-23 17:53:58

[quote:97a985ed37="pollux66"]QingZhou兄，
刚刚犯了个错误，
让公司所有用户都退出来了，
我的妈呀！！！
吓死人了...
以后这些好东东也要谨慎点用了!!!
不过还是挺谢谢你的....
^_^[/quote:97a985ed37]
测试有些技术帖子要视情况来做的，比如关系QINTER、QBATCH等SubSystem关闭、开启问题，会影响到整个系统运行的，就要小心了，所以先理解后再测试，感受会深些。

哈哈。。。 :mrgreen:

怎么你们都在上班的时候把QINTER停啦？？？不怕被你的老板K呀。 :roll:

pollux66 回复于：2005-08-24 10:37:06

哎，
别提了轻舟兄！
初生牛犊哦！！！
老板到是没有过多的说我，
但自己觉得不好意思啊，
那种感觉还不如...
以后要小心了才是！！！
你发的一些帖子如:
(一)手把手教你如何使用DFU工具
(二)手把手教你如何使用RLU设计打印文件
(三)使用SDA+RPGIV进行交互式设计程序
(四)使用SDA+RPGIV进行子文件程序设计(1)
.....
对我们这种学习不久的人帮助很大，
从心底感谢你...
^_^

关闭本页