[转]步步教你如何修改OS/400缺省的登陆画面
好久没有写点东西了，刚好看到有朋友发贴提问这个话题，就按照步骤详细写了一遍，希望对大家有用。
1、从QGPL/QDDSSRC下拷贝QDSIGNON到个人LIB/QDSPSRC下。
2、13=Change text将MYSCREEN属性修改为DSPF。
3、利用SDA修改MYSCREEN屏幕文件
1）用17选项直接调用SDA修改屏幕文件MYSCREEN：
2）然后用12选项修改屏幕：
3）在屏幕下方直接用‘XXX’方式添加公司名称后回车：
4）然后在公司名称前加*来修改显示颜色：
5）选择Colors-----Y :
6)用1选择颜色为BLU（蓝色）后连续2次回车回到屏幕画面。
7）按F3退出屏幕设计画面，选1保存退出，然后再F3退出，再Y保存设计。
4、编译屏幕文件到个人LIB下为OBJECT。
5、在命令行执行，修改QINTER参数加载刚才编译好的屏幕OBJ。
CHGSBSD SBSD(QINTER) SGNDSPF(LIU/MYSCREEN)
6、在控制台上刷新QINTER子系统。
ENDSBS SBS(QINTER) OPTION(*IMMED)
STRSBS SBSD(QINTER)
7、再次登陆OS/400，出现如下个人修改的屏幕画面。
改了交互子系统QINTER的显示文件，当然是对所有用户生效啦。
kempzhang 回复于：2005-07-29 22:16:01
收藏，感谢！就是不知道有没有只设置自己的登陆画面？
ibmas400 回复于：2005-07-30 07:34:30
引用：原帖由 "快乐狗"]学了一招哦，不知道公司名能不能改成中文的
发表：
可以的，SDA设计时，采用‘@cccccccc......@’（2个cc代表一个汉字，所以cc个数需要成双）格式添加中文名称。
CHGSBSD SBSD(QINTER) SGNDSPF(*QDSIGNON)，然后刷新QINTER子系统。
qingzhou 回复于：2005-07-30 13:04:01
引用：原帖由 "ibmas400" 发表：
CHGSBSD SBSD(QINTER) SGNDSPF(*QDSIGNON)，然后刷新QINTER子系统。
看来你已经出师了~~~~ :mrgreen:
qingzhou 回复于：2005-07-30 13:06:17
引用：原帖由 "fairyboy"]问一下，这样改，会影响到其他人的登陆画面吗？
发表：
引用：原帖由 "kempzhang"]收藏，感谢！就是不知道有没有只设置自己的登陆画面？
发表：
我集团内部早期有使用自行搭建的AUTO/400环境，实现在QINTER外可用于交互访问OS/400的独立子系统,以满足另一套生产系统特殊的应用环境要求。
然后你再通过CHGSBSD SBSD(QGPL/AUTO400) SGNDSPF (LIB/MyScreen)加载个人设计的屏幕画面。
A-AUTO for OS/400系统环境设定
通过１～８的步骤，实现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
引用：原帖由 "快乐狗"]我不明白你为什么要换的个库放，难道不能在QGPL直接修改嘛？
发表：
如果直接修改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
引用：原帖由 "快乐狗"]就是说直接修改只会产生变更，不是使系统出现问题，是这样吧。
发表：
CHGSBSD SBSD(QINTER) SGNDSPF(LIB/MYSCREEN) 直接修改QSYS/QINTER的加载参数指向个人设计的屏幕OBJECT，只是使登陆OS/400的画面变成自己设计的屏幕画面而已，不要去修改原有IBM默认的设计参数等（如：USER、 PASSWORD、PROGRAM/PROCEDURE、MENU等），只加加公司名称没问题的。
另外，建议按照步骤拷贝一份到个人LIB去修改测试，不要直接去修改QGPL/QDSIGNON或QDSIGNON2文件，否则如果修改不好造成系统登陆界面面目全非时无法恢复，那就麻烦~~~
