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

  免費(fèi)注冊 查看新帖 |

Chinaunix

  平臺(tái) 論壇 博客 文庫
12下一頁
最近訪問板塊 發(fā)新帖
查看: 7189 | 回復(fù): 11
打印 上一主題 下一主題

RPG程序中AS400系統(tǒng)日期問題請教。 [復(fù)制鏈接]

論壇徽章:
0
跳轉(zhuǎn)到指定樓層
1樓 [收藏(0)] [報(bào)告]
發(fā)表于 2008-08-25 11:23 |只看該作者 |倒序?yàn)g覽
最近公司里的AS/400開始24小不間斷使用了，有用戶8/24日登錄的系統(tǒng)，一直沒有退出，
到了8/25，顯示文件中的*DATE顯示的竟然仍是8/24，退出程序再進(jìn)入仍然如此。非要完全AS/400，重新登錄后
日期才會(huì)變成8/25，有人遇到過這樣的怪事嗎？

[ 本帖最后由 V01619 于 2008-8-25 11:24 編輯 ]

論壇徽章:
0
2樓 [報(bào)告]
發(fā)表于 2008-08-25 12:48 |只看該作者
用CHGJOB查看日期異常的用戶，發(fā)現(xiàn)DATE值是080824。
也就是說RPG程序所讀的系統(tǒng)日期是JOBD里的日期，而不是真正的系統(tǒng)日期。
如何做才能讓RPG程序讀到真正的系統(tǒng)日期呢？

論壇徽章:
0
3樓 [報(bào)告]
發(fā)表于 2008-08-25 12:48 |只看該作者
你把系統(tǒng)值QINACTITV：*NONE改為指定時(shí)間，到了限制時(shí)間會(huì)用戶自動(dòng)signoff。

論壇徽章:
0
4樓 [報(bào)告]
發(fā)表于 2008-08-25 12:52 |只看該作者
原帖由 V01619 于 2008-8-25 12:48 發(fā)表
用CHGJOB查看日期異常的用戶，發(fā)現(xiàn)DATE值是080824。
也就是說RPG程序所讀的系統(tǒng)日期是JOBD里的日期，而不是真正的系統(tǒng)日期。
如何做才能讓RPG程序讀到真正的系統(tǒng)日期呢？

或者試試程序直接RTVSYSVAL QDATA

論壇徽章:
0
5樓 [報(bào)告]
發(fā)表于 2008-08-26 09:28 |只看該作者
那個(gè)用戶調(diào)用的程序是不是SBMJOB出去的?

論壇徽章:
0
6樓 [報(bào)告]
發(fā)表于 2008-08-26 09:32 |只看該作者
感謝老大提供思路，編寫了一個(gè)CL程序，解決了這個(gè)問題。
取得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

論壇徽章:
0
7樓 [報(bào)告]
發(fā)表于 2008-08-27 10:05 |只看該作者
學(xué)習(xí)了，謝謝。

論壇徽章:
0
8樓 [報(bào)告]
發(fā)表于 2008-08-27 14:57 |只看該作者
原帖由 V01619 于 2008-8-26 09:32 發(fā)表
感謝老大提供思路，編寫了一個(gè)CL程序，解決了這個(gè)問題。
取得JOB DATE和SYS DATE進(jìn)行比較，
若兩日期不一致，則用SYS DATE替換JOB DATE。

PGM                                                      
D ...


這不是脫褲子放屁嗎？這和直接用系統(tǒng)日期有什么不一樣？

論壇徽章:
0
9樓 [報(bào)告]
發(fā)表于 2008-08-27 16:39 |只看該作者
呵呵,只能說取錯(cuò)值了

論壇徽章:
0
10樓 [報(bào)告]
發(fā)表于 2008-08-29 16:47 |只看該作者
RPG程序里一般都是用Z-ADD *DATE 來獲取當(dāng)前日期的，一般情況下也沒有問題。
可自從AS/400用到了生產(chǎn)線后，一個(gè)用戶登錄到了系統(tǒng)后是從來不退系統(tǒng)的，有可能超過24小時(shí)，所以這個(gè)用戶的JOB DATE會(huì)一直保持著登錄時(shí)的日期。這時(shí)如果用Z-ADD *DATE取日期的話，會(huì)發(fā)現(xiàn)取到的是登錄時(shí)的日期，而不是真正的系統(tǒng)日期。所以需要用CL程序來處理一下。
樓上兩位不相信的話，可用用WRKACTJOB找到自己當(dāng)前的JOB，修改一下JOB DATE，然后再CALL個(gè)RPG程序試試看，顯示的日期是當(dāng)前系統(tǒng)日期還是你改過的JOB DATE。

[ 本帖最后由 V01619 于 2008-8-29 16:53 編輯 ]
您需要登錄后才可以回帖 登錄 | 注冊

本版積分規(guī)則 發(fā)表回復(fù)

  

北京盛拓優(yōu)訊信息技術(shù)有限公司. 版權(quán)所有 京ICP備16024965號(hào)-6 北京市公安局海淀分局網(wǎng)監(jiān)中心備案編號(hào)：11010802020122 niuxiaotong@pcpop.com 17352615567
未成年舉報(bào)專區(qū)
中國互聯(lián)網(wǎng)協(xié)會(huì)會(huì)員  聯(lián)系我們：huangweiwei@itpub.net
感謝所有關(guān)心和支持過ChinaUnix的朋友們 轉(zhuǎn)載本站內(nèi)容請注明原作者名及出處

清除 Cookies - ChinaUnix - Archiver - WAP - TOP