CLP中sbmjob后立即更改LIBL和ENVVAR等等对其有何影响？

mickeycheng

[quote="qingzhou"]
SBMJOB     CMD(CALL PGM(QNOTES/TEST) PARM(T '-f' +
                         '/test/test.out')) USER(QNOTES) +
                         PRTTXT(*CURRENT) CURLIB(QDOMINO***) +
                         INLLIBL(*NONE) LOG(4 00 *SECLVL) +
                         CPYENVVAR(*YES) /* run TEST */
quote]

看不太懂，上面的代码中，如果指定INLLIBL（*NONE），那么之前改变当前库列表的代码有什么用场？如果要使提交的作业使用当前的库列表，那么要指定INLLIBL(*CURRENT)才对。如果要使用JOBD中设定的库列表，应该指定INLLIBL（*JOBD）才对的。

至于CURDIR以及ENVVAR的值对当前JOB的影响偶不清楚的。

qingzhou

原帖由 "xuguopeng" 发表：
......
HANYU的意思是说一般会做一个专门的JOBD 专用于SUBMIT动作

专设一个USRPRF加载这个JOBD来用于SUBMIT JOB？

qingzhou

原帖由 "mickeycheng" 发表：

SBMJOB     CMD(CALL PGM(QNOTES/TEST) PARM(T '-f' +
                         '/test/test.out')) USER(QNOTES) +
                         PRTTXT(*CURRENT) CURLIB(QDOMINO***) +
          ..........

QNOTES/TEST的代码不清楚，所以看得有些模糊。。。

DOMINO FOR OS/400的应用好象也没那么复杂初始运行的环境。

st.linux.ily

如果指定INLLIBL（*NONE），那么之前改变当前库列表的代码有什么用场？如果要使提交的作业使用当前的库列表，那么要指定INLLIBL(*CURRENT)才对。如果要使用JOBD中设定的库列表，应该指定INLLIBL（*JOBD）才对的。

这是个值得考虑的问题，谢谢！

st.linux.ily

QNOTES/TEST的代码不清楚，所以看得有些模糊。。。

DOMINO FOR OS/400的应用好象也没那么复杂初始运行的环境。

其实就是在运行test PGM时候要设定curdir\libl\envvar这三者，不然的话我可以直接在command entry中就运行了，再者我只是想保证我的程序完成后能够恢复到先前，即保证系统参数的前后一致性……不知这个考虑是否必要？

谢谢各位的指点

qingzhou

原帖由 "st.linux.ily" 发表：

其实就是在运行test PGM时候要设定curdir\libl\envvar这三者，不然的话我可以直接在command entry中就运行了，再者我只是想保证我的程序完成后能够恢复到先前，即保证系统参数的前后一致性……不知这个考虑是否必..........

拜托、按照以下步骤写个简单的CLP，然后直接CALL就行了，刚才还在想TEST这个PGM究竟是什么玩意。。。

1、直接设定curdir\libl\envvar这三者具体的值：
CHGCURDIR 。。。
CHGLIBL  。。。
ADDENVVAR  。。。

2、CALL PGM（TEST）

3、修改回curdir\libl\envvar这三者的原来的值
CHGCURDIR 。。。
CHGLIBL  。。。
ADDENVVAR  。。。

如果怕执行了会直接影响当前的运用，那就ADDJOBSCDE加载TEST程序设定在下班后执行就可以了。

xuguopeng

原帖由 "qingzhou" 发表：

专设一个USRPRF加载这个JOBD来用于SUBMIT JOB？

SBMJOB的时候是可以指定JOBD的。。。。。。。

st.linux.ily

2、CALL PGM（TEST）

问题是USER要是QNOTES啊……以JOB的形式是不是更合理？

qingzhou

原帖由 "xuguopeng" 发表：


SBMJOB的时候是可以指定JOBD的。。。。。。。

是的，指定为特殊JOBD或者JOBQ都可以。

qingzhou

原帖由 "st.linux.ily" 发表：

问题是USER要是QNOTES啊……以JOB的形式是不是更合理？

CALL PGM(QNOTES/TEST) PARM(T '-f' '/test/test.out')) USER(QNOTES)  PRTTXT(*CURRENT) CURLIB(QDOMINO***)  INLLIBL(*NONE) LOG(4 00 *SECLVL)   CPYENVVAR(*YES)

执行TEST的用意是什么呢？执行TEST程序一定要调用系统提供的Q打头的系统用户才能执行吗？普通用户无法CALL TEST么？