亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標(biāo)題: RPG程序中AS400系統(tǒng)日期問(wèn)題請(qǐng)教。 [打印本頁(yè)]
作者: V01619    時(shí)間: 2008-08-25 11:23
標(biāo)題: RPG程序中AS400系統(tǒng)日期問(wèn)題請(qǐng)教。
最近公司里的AS/400開始24小不間斷使用了，有用戶8/24日登錄的系統(tǒng)，一直沒(méi)有退出，
到了8/25，顯示文件中的*DATE顯示的竟然仍是8/24，退出程序再進(jìn)入仍然如此。非要完全AS/400，重新登錄后
日期才會(huì)變成8/25，有人遇到過(guò)這樣的怪事嗎？

[ 本帖最后由 V01619 于 2008-8-25 11:24 編輯 ]
作者: V01619    時(shí)間: 2008-08-25 12:48
用CHGJOB查看日期異常的用戶，發(fā)現(xiàn)DATE值是080824。
也就是說(shuō)RPG程序所讀的系統(tǒng)日期是JOBD里的日期，而不是真正的系統(tǒng)日期。
如何做才能讓RPG程序讀到真正的系統(tǒng)日期呢？
作者: qingzhou    時(shí)間: 2008-08-25 12:48
你把系統(tǒng)值QINACTITV：*NONE改為指定時(shí)間，到了限制時(shí)間會(huì)用戶自動(dòng)signoff。
作者: qingzhou    時(shí)間: 2008-08-25 12:52
原帖由 V01619 于 2008-8-25 12:48 發(fā)表
用CHGJOB查看日期異常的用戶，發(fā)現(xiàn)DATE值是080824。
也就是說(shuō)RPG程序所讀的系統(tǒng)日期是JOBD里的日期，而不是真正的系統(tǒng)日期。
如何做才能讓RPG程序讀到真正的系統(tǒng)日期呢？

或者試試程序直接RTVSYSVAL QDATA
作者: fairyboy    時(shí)間: 2008-08-26 09:28
那個(gè)用戶調(diào)用的程序是不是SBMJOB出去的?
作者: V01619    時(shí)間: 2008-08-26 09:32
感謝老大提供思路，編寫了一個(gè)CL程序，解決了這個(gè)問(wèn)題。
取得JOB DATE和SYS DATE進(jìn)行比較，
若兩日期不一致，則用SYS DATE替換JOB DATE。

PGM                                                      
DCL        VAR(&JOB1)  TYPE(*CHAR) LEN(10)               
DCL        VAR(&USER1)  TYPE(*CHAR) LEN(10)               
DCL        VAR(&NBR1)  TYPE(*CHAR) LEN(6)                 
DCL        VAR(&DATE1)  TYPE(*CHAR) LEN(6)               
DCL        VAR(&DATE2)  TYPE(*CHAR) LEN(6)               
RTVJOBA    JOB(&JOB1) USER(&USER1) NBR(&NBR1) DATE(&DATE1)
RTVSYSVAL  SYSVAL(QDATE) RTNVAR(&DATE2)                  
IF         COND(&DATE1 *NE &DATE2) THEN(DO)               
CHGJOB     JOB(&NBR1/&USER1/&JOB1) DATE(&DATE2)
ENDDO   
ENDPGM
作者: uglyneo    時(shí)間: 2008-08-27 10:05
學(xué)習(xí)了，謝謝。
作者: ALCHU    時(shí)間: 2008-08-27 14:57
原帖由 V01619 于 2008-8-26 09:32 發(fā)表
感謝老大提供思路，編寫了一個(gè)CL程序，解決了這個(gè)問(wèn)題。
取得JOB DATE和SYS DATE進(jìn)行比較，
若兩日期不一致，則用SYS DATE替換JOB DATE。

PGM                                                      
D ...


這不是脫褲子放屁嗎？這和直接用系統(tǒng)日期有什么不一樣？
作者: roden    時(shí)間: 2008-08-27 16:39
呵呵,只能說(shuō)取錯(cuò)值了
作者: V01619    時(shí)間: 2008-08-29 16:47
RPG程序里一般都是用Z-ADD *DATE 來(lái)獲取當(dāng)前日期的，一般情況下也沒(méi)有問(wèn)題。
可自從AS/400用到了生產(chǎn)線后，一個(gè)用戶登錄到了系統(tǒng)后是從來(lái)不退系統(tǒng)的，有可能超過(guò)24小時(shí)，所以這個(gè)用戶的JOB DATE會(huì)一直保持著登錄時(shí)的日期。這時(shí)如果用Z-ADD *DATE取日期的話，會(huì)發(fā)現(xiàn)取到的是登錄時(shí)的日期，而不是真正的系統(tǒng)日期。所以需要用CL程序來(lái)處理一下。
樓上兩位不相信的話，可用用WRKACTJOB找到自己當(dāng)前的JOB，修改一下JOB DATE，然后再CALL個(gè)RPG程序試試看，顯示的日期是當(dāng)前系統(tǒng)日期還是你改過(guò)的JOB DATE。

[ 本帖最后由 V01619 于 2008-8-29 16:53 編輯 ]
作者: ux400    時(shí)間: 2008-08-29 17:08
我用 QWCCVTDT API 可以取得 YYYY-MM-DD hh:mm:ss.uuu000 的 Timestamp，如：
2008-08-29 17:00:19.545000
作者: uglyneo    時(shí)間: 2008-08-29 19:27
原帖由 V01619 于 2008-8-29 16:47 發(fā)表
RPG程序里一般都是用Z-ADD *DATE 來(lái)獲取當(dāng)前日期的，一般情況下也沒(méi)有問(wèn)題。
可自從AS/400用到了生產(chǎn)線后，一個(gè)用戶登錄到了系統(tǒng)后是從來(lái)不退系統(tǒng)的，有可能超過(guò)24小時(shí)，所以這個(gè)用戶的JOB DATE會(huì)一直保持著登 ...


我想他的意思可能是，為什么要比較，直接修改成System 的日期不好么？



歡迎光臨 Chinaunix (http://72891.cn/) Powered by Discuz! X3.2