• [转]步步教你如何修改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系统环境设定
    通过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文件,否则如果修改不好造成系统登陆界面面目全非时无法恢复,那就麻烦~~~
  • 相关阅读:
    在Html中使用echarts图表
    html+css模拟微信对话
    解决React 的<img >src使用require的方式图片显示不出来,展示的是[object Module]的问题
    easygui入门
    python安装easygui
    关于gcc、make和CMake的区别
    FreeRTOS使用心得。
    C/C++整数输出位不足前补0方法
    AngularJS前端分页 + PageHelper后端分页
    AngularJS常见指令
  • 原文地址:https://www.cnblogs.com/moon25/p/1737716.html
Copyright © 2020-2023  润新知