好久没有写点东西了,刚好看到有朋友发贴提问这个话题,就按照步骤详细写了一遍,希望对大家有用。
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系统环境设定
通过1~8的步骤,实现AUTO/400环境的设定。
1.子系统的作成:
CRTSBSD SBSD(QGPL/AUTO400) POOLS((1 *BASE))
2.CLASS的作成:
CRTCLS CLS(QGPL/AUTO400)
3.作业队列的作成 :
CRTJOBQ JOBQ(QGPL/AUTO400)
4.添加作业队列项目:
子系统追加前作业队列SEQNBR的确认
WRKSBSD SBSD(QGPL/AUTO400)
再添加作业队列入口
ADDJOBQE SBSD(QGPL/AUTO400) JOBQ(QGPL/AUTO400)
5.作业队列的确认:
WRKJOBQ JOBQ(*ALL)
6.追加路由项目 :
ADDRTGE SBSD(QGPL/AUTO400) SEQNBR(9999) CMPVAL(*ANY) PGM(QSYS/QCMD) CLS(QGPL/AUTO400)
7.变更AUTO/400作业描述 :
CHGJOBD JOBD(AUTO400JBD) JOBQ(QGPL/AUTO400) TEXT('A-AUTO FOR OS/400') USER(AUTO400V3) INLLIBL(QTEMP XXXX XXXX QGPL QEVX)
8.变更User profile(AUTO400V3):
CHGUSRPRF USRPRF(AUTO400V3) CURLIB(AUTO400V3) INLPGM(*LIBL/WAMENU0R) TEXT(' AUTO/400 VER.3.1 ') 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文件,否则如果修改不好造成系统登陆界面面目全非时无法恢复,那就麻烦~~~