关于将用户T掉的方法

尹少侠

首先先定位自己为小白
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

无法理解，400也每天关机开机吗？

以为是微机一样么？

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

尹少侠

回复 2# insmile


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

fairyboy

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

尹少侠

回复 4# fairyboy


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

fairyboy

回复 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

再补充一下，关于AS400的自动开机的问题

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

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

尹少侠

回复 6# fairyboy


    很专业，佩服你们的思路。    感觉自己的问题不太专业，但我还是想问下自己不明白的几个地方    呵呵       首先是最开始的问题，关于自动关机，按你的方法可以实现，连400的Sign On 界面都不显示吗？

尹少侠

回复 7# fairyboy


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

dave_10

定时开始，定时开机。。。power on and off schedule