Chinaunix

标题: 关于将用户T掉的方法 [打印本页]

作者: 尹少侠 时间: 2011-03-22 22:13
标题: 关于将用户T掉的方法
本帖最后由尹少侠于 2011-03-23 20:12 编辑

首先先定位自己为小白
1 已解决 strpj这个命令的主要功能是指什么，如果是指提前执行程序，那么是指什么时间。怎么应用？我在启动子系统时，看作业里，有很多PJ类型的，所以STRPJ是不是指启动子系统时，预先启动哪些程序？
原来自己从本质上对这个命令理解错了，针对子系统的PJ可以用ADDPJE的方式来加载PJ，  而STRPJ  是和 ENDPJ  相对应的如使理解就通顺了。

2 已解决在IPL时自动加载某个程序,可以通过修改QGPL/QCLSRC(QSTRUP)程序来实现｡但是我没有QSTRUP这个程序怎么办，可以自己建吗？名子必需启这个，或是在哪关联的。原因：看6楼

3  如果采用ADDJOBSCDE实现定时执行某个作业（问：作业是指自己建的批处理作业？）那么可以告诉我具体参数的例子吗  AND 举一些这个命令一般在应用在什么情况。
已解决  其实就是定时执行一个程序
4  已解决，还有一个疑问，400系统本身有没有简单的方法可以把所有登陆用户全T掉。可以通过将关闭QINTER SUBSYSTEM实现
5  已解决公司现在400是定的每天17点自动关机（不知道是不是关机，反正就是提示个MSG 然后17点就连不上400了，第2天也不知道是什么时候启开的）我想问下，是通过什么实现在，是有系统值设置，还是通过什么命令。还有如何设置和关机对应的启动。
补充：今天查看下日志是系统自动切断电源，请问这是如何设置的。是通过系统清理吗？然后我又看到User cleanup program started.这个日志，请问，这个程序在哪里，程序名是什么。或用什么命令可以直接把所有用户T了。原因：通过 go POWER 菜单中实现
日志：System is scheduled to power off at 17:00:00 on 03/22/11.

6 已解决最后如果我想让400每天早上8点都自动运行一个CLLE程序，是不是应该用ADDJOBSCDE来做  但是参数应该如何写呢？通过6楼可以很简单的实现

作者: insmile 时间: 2011-03-22 23:21
无法理解，400也每天关机开机吗？

以为是微机一样么？

最多就是每天下班不准登录，全部踢了

作者: 尹少侠 时间: 2011-03-22 23:25
回复 2# insmile

感谢您的解答
请问如何设置的呢，而且他不是把用户都T而是连登陆界面都出不来。是过了那个时间以后，而且不是手动执行的，是全自动的。

作者: fairyboy 时间: 2011-03-23 09:12
本帖最后由 fairyboy 于 2011-03-23 09:17 编辑

ADDJOBSCDE就是定时定频率进行自动作业任务，比如每日的备份。

关于每天都关机？？

可以限制用户登录，如果用户有登录时指定的默认菜单，

1：先修改用户默认的菜单，使无法登陆。(原来菜单名为A1,则改名字为A2)
2：提示当前用户，在几分钟内退出，否则强制关闭
3：检查当前活动用户，进行系统强制关闭
4：全部工作结束后，修改默认菜单为正常名字

   /*================================================ */
   /* 更改默认用户登陆菜单名 A1  为 A2  */
   /*================================================ */
/*    RNMOBJ    OBJ(M510P/A1) OBJTYPE(*PGM) + */
/*                NEWOBJ(A2)                   */
/*    MONMSG    MSGID(CPF0000)                         */

   /* ================================== */
   /*       发送中断信息给所有用户    */
   /* ================================== */
/*    SNDBRKMSG  +                                              */
/*                MSG(''' 请立刻退出 AS00 系统 ,5 分钟后将强 + */
/*                制中断 '' +                                  */
/*                ---- <系统信息部> ') +          */

/* =================================== */
/* 　　　　　程序延时 5  分钟 ,300 秒  */
/* =================================== */
DLYJOB    DLY(300)
/* =========================================== */
/* 　　检查 QINTER  和 QBATCH  中活动用户信息  */
/* =========================================== */
  WRKACTJOB OUTPUT(*PRINT) SBS(QINTER)

/* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= */
/*  　　　　　　将产生的 SPLF=(QPDSPAJB) 记录复制到 DAYBACKUP          */
/*  　　　　　　结束后立即删除该 SPLF=(QPDSPAJB)                      */
/* =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= */
/*       CPYSPLF FILE(QPDSPAJB) TOFILE(m510bDAYBACKUP) +       */
/*                   SPLNBR(*LAST) CTLCHAR(*NONE)                      */
/*                MONMSG    MSGID(CPF0000)                         */
/*                DLTSPLF FILE(QPRTSPLQ) JOB(*) SPLNBR(*LAST)    */
/*                MONMSG    MSGID(CPF0000)                         */



         /* 　每读取一条记录，判断是否为有效记录       */
         /*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
RCVF:    RCVF    RCDFMT(RBACK)
            MONMSG    MSGID(CPF0000) EXEC(GOTO CMDLBL(ENDRCV))
         IF       COND(&BLK2 *NE ' ' *OR &JOBNAM = 'NTER    ') +
                     THEN(GOTO CMDLBL(RCVF))
         /*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
         /* 　对符合条件的用户进行强制中断操作　       */
         /*=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=*/
   /*    ENDJOB    JOB(&JOBNUM/&JOBUSR/&JOBNAM) OPTION(*IMMED) +    */
   /*                DELAY(3)                                     */
   /*    MONMSG    MSGID(CPF0000)                                  */
   /*    GOTO    CMDLBL(RCVF)                                     */
ENDRCV:

pf的字段定义
****************************************************************
   ** AUTHOR: fairyboy             DATE:  2006-08-11

   ****************************************************************

   A       R RBACK                   TEXT('BACK PF')
   A          BLK1          3
   A          JOBNAM       10
   A          BLK2          3
   A          JOBUSR       10
   A          BLK3          2
   A          JOBNUM       6

作者: 尹少侠 时间: 2011-03-23 09:25
回复 4# fairyboy

感谢您的详细解答，刚刚认真的看完后，让我有了新的思路，万分感谢。但我有几个疑问，首先系统自动切断是完全自动的，早上启动也是完全自动的。按您的方法完全可以自动定时切断系统，但是如何令其自动开机呢。

作者: fairyboy 时间: 2011-03-23 09:32
回复 5# 尹少侠

让程序开机自动运行的简易方法

系统在IPL后会自动执行一个CL程序，可以实现系统自动启动某些功能，通常用户要增加或修改自动启动的功能需要修改此程序，这里提供一个简单的方法实现相同的目的，而不需要修改此程序本身：

1。使用CL命令DSPSYSVAL QSTRUPPGM来确定系统自动调用的程序名，如qsys/qstrup

2。建立另一个CL程序，并编译，程序代码：
*************** Beginning of data ***************************

0001.00 PGM
0002.00 --------QSYS/CALL PGM(QSYS/QSTRUP)
0003.00 --------QSYS/STRSBS SBSD(MYLIB/SALESSBSD)
0004.00 --------QSYS/CALL PGM(MYLIB/CLEARSALES)
0005.00 ENDPGM
0006.00
****************** End of data *******************************
程序的后两条语句为用户要增加的功能，假设编译后的可执行的程序为：MYLIB/STARTUP

3。修改系统值QSTRUPPGM：用命令WRKSSVAL QSTRUPPGM，再用2选择项，将程序名修改为MYLIB/STARTUP。系统在IPL后会自动调用程序MYLIB/STARTUP，不需要直接修改QSYS/QSTRUP程序的内容！

《以上内容来源于http://bbs.chinaunix.net/thread-723188-1-1.html，AS400版主居士发表于2006-03-24 13:27 》

希望上面的内容能帮助到你。

作者: fairyboy 时间: 2011-03-23 09:37
再补充一下，关于AS400的自动开机的问题

AS/400,用go power--->2, Change power on and off schedule ,可以设置了自动开机,但是请万分仔细，不用乱用此命令。

里面可以设置什么时候关机，什么时候开机。。

作者: 尹少侠 时间: 2011-03-23 09:41
回复 6# fairyboy

很专业，佩服你们的思路。感觉自己的问题不太专业，但我还是想问下自己不明白的几个地方

呵呵首先是最开始的问题，关于自动关机，按你的方法可以实现，连400的Sign On 界面都不显示吗？

作者: 尹少侠 时间: 2011-03-23 09:50
回复 7# fairyboy

感觉应该就是通过这种方法了，但是不知道用这种方法时操作控制台是如何显示的呢，是不是正在连接中

作者: dave_10 时间: 2011-03-23 09:51
定时开始，定时开机。。。power on and off schedule

作者: 尹少侠 时间: 2011-03-23 10:03
回复 7# fairyboy

呵呵果然是通过go power这个实现在，恩我还想问下 400每天都关机开机对系统本身没有影响吗？公司为什么要这么做，一般情况下多长时间重启一次系统。

作者: rolexliu 时间: 2011-03-23 10:24

作者: fairyboy 时间: 2011-03-23 11:09
回复 11# 尹少侠

就我们公司的AS400来说，除了全系统备份，需要重起机器，或者遇到断电点突飞情况外，一般情况不会开机，关机的操作的。

作者: mxpy 时间: 2011-03-23 14:44
在IPL时自动加载某个程序,可以自己通过修改System Value来实现

作者: hammerdin 时间: 2011-03-23 15:28
问题3 自己打了命令按F4看，参数解释都很详细的，命令那直接CALL你自己做好的CL或者QRY什么的，Schedule day和time可以设置哪天跑和几点跑。

问题4 这个更简单，到时间，把某些 subsystem 关了，那些用户自动就踢了，这个可以写个cl，然后用sbmjob来提交，你可以自己设定这个job触发的时间。

作者: qingzhou 时间: 2011-03-24 10:16
我也补充说明下,

1. STRPJE可以设置以LIB/PGM方式让SBS启动时自动启动某些程序;也可以通过ADDAJE加载JOBD达到自动启动JOB的目的.以下为sbsd相关对应定义:
3. Autostart job entries
10. Prestart job entries

2 在IPL时自动加载某个程序,可以通过修改QGPL/QCLSRC(QSTRUP)程序来实现｡我们可以通过RTVCLSRC反编译该CLP程序,然后直接修改CLP代码,加载IPL相关启动,再重新编译. 或者自行写个CLP,然后调用QSYS/QSTRUP

3 可通过ADDJOBSCDE或ADDJOBJS(LICPGM:Advanced Job Schedule)追加定时任务,自动运行程序.

4  如果登陆用户都在QINTER SBS下,那关闭QINTER SBS实现来得简便.如果系统有根据应用设置独立SBS,关闭QINTER不会影响应用,否则5250用户都无法登陆.

5  GO POWER菜单可以简便设置定时开关机.不过不建议经常开关机器,对机器硬件影响大.
GO CLEANUP可以设置定时清理系统,提高管理效率.

6  ADDJOBSCDE参数很多可以满足通常要求;如果没有规律的定时任务,AS400还提供了高级定时任务工具ADDJOBJS实现,这个是付费软件.

作者: 尹少侠 时间: 2011-03-24 10:36
回复 16# qingzhou

谢谢轻舟的补充说明，我还想问一下，如何改变交互子系统下的工作站名，
Display . . . . . : QPADEV000Z
目的是使自己的用户登陆时工作站名按自己的方式命名。从而WRKACTJOB时比较好看。

作者: qingzhou 时间: 2011-03-24 10:52
回复 17# 尹少侠

配置5250 display session时在configure PC5250配置里面设定. 可以指定工作站名称,可以选上"Avoid duplicate names on this workstation" 或 "Avoid duplicate names with other workstations"或同时选上,显示的名称规律不一样,自行测试就知道了.

作者: 尹少侠 时间: 2011-03-24 10:58
回复 18# qingzhou

恩真相如此简单，谢谢

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)