IBM i (AS400) Access Client Solutions (ACS) 連線軟體，從 V7R1 後取代舊版 Client Access，是一套 Java 的套件，所以執行的機器需要安裝 Java runtime 8.0 以上的版本，才可以使用 ACS。
下載 ACS (需要有 IBM id，可以直接註冊)
星期二, 10月 03, 2023
星期一, 10月 02, 2023
Sample Program to List Lock Information for IFS Objects
https://www.ibm.com/support/pages/sample-program-list-lock-information-ifs-objects
Command source: Command name WRKLCK.
CMD
PARM KWD(PATH) TYPE(*CHAR) LEN(500)
RPGLE source: Program name WRKLCK
Dspaceloc S 3P 0
DPATH S 500
DCMD S 1024 INZ(' ')
DQUOTE S 1 INZ('''')
DCMDL S 15 0 INZ(1024)
DQCMDEXC PR EXTPGM('QCMDEXC')
DCMD 1024A OPTIONS(*VARSIZE) CONST
DCMDL 15p 5 CONST
C *ENTRY PLIST
C PARM PATH
C* PARM RTN
/FREE
spaceloc = %scan(' ':path);
path = %subst(path:1:spaceloc);
cmd='CALL QP0FPTOS PARM(*LSTOBJREF '+ QUOTE + %trim(path) + QUOTE + ' +
*FORMAT2)';
QCMDEXC (CMD : %SIZE(CMD));
*INLR = *ON;
/END-FREE
星期四, 11月 03, 2011
星期二, 10月 11, 2011
星期三, 5月 18, 2011
星期六, 5月 14, 2011
星期三, 4月 27, 2011
Use Ops Navigator to determine if the system is advising new access paths
You can use Ops Navigator to determine if the system is advising new access paths, look for combinations of high costs and frequency. This little SQL can show those suggested since last IPL
Code:
Code:
SELECT DBNAME as Library,
SYS_TNAME as File,
decimal(timesadv,6) as Advised,
date(lastadv) as Last_Adv,time(lastadv) as Time_Adv,
decimal(querycost,6) as Cost,
decimal(queryest,6) as Avg_Cost,
decimal(mticreated,6) as MTI_Create,
date(lastmtiuse) as MTI_LastUsed,
substr(KEYSADV,1,40) as Keys_Advised,
substr(leadkeys,1,40) as Key_Order
FROM qsys2/sysixadv
where mticreated > 0
ORDER BY queryest DESC
星期五, 4月 22, 2011
星期四, 4月 07, 2011
What's New in RPG for V6R1
May 2009
What’s New in RPG for V6R1
Barbara Morris, the lead developer for the WDS compilers in the IBM Toronto Lab
What’s New in RPG for V6R1
Barbara Morris, the lead developer for the WDS compilers in the IBM Toronto Lab
星期三, 3月 09, 2011
星期六, 3月 05, 2011
星期五, 3月 04, 2011
星期一, 2月 14, 2011
Threading in C# - Free E-book
Threading in C# - Free E-book
Part 1 Getting Started
Part 2 Basic Synchronization
Part 3 Using Threads
Part 4 Advanced Threading
Part 5 Parallel Programming
Part 1 Getting Started
Part 2 Basic Synchronization
Part 3 Using Threads
Part 4 Advanced Threading
Part 5 Parallel Programming
星期五, 1月 07, 2011
星期三, 12月 15, 2010
星期日, 12月 12, 2010
星期五, 12月 10, 2010
星期四, 12月 09, 2010
星期五, 12月 03, 2010
星期四, 12月 02, 2010
How to find out indexes created or used during the execution of an SQL statement
Two methods as following:
1. Visual Explain tool, through iSeries Navigator.
2. - chgjob (4 0) *seclvl logclpgm(*yes)
- strdbg
- run your sql statement from interactive sql400
- quit sql400
- enddbg
and watch the joblog to see which indexes where used/built.
星期三, 12月 01, 2010
星期三, 10月 13, 2010
星期二, 10月 12, 2010
星期三, 9月 29, 2010
星期五, 9月 24, 2010
MI - Test Bit in String (TSTBTS)
Test Bit in String (TSTBTS)
RPGLE SAMPLE CODE:
H Option( *SrcStmt ) BndDir( 'QC2LE' )
**-- Test bit in string:
D tstbts Pr 10i 0 ExtProc( 'tstbts' )
D string * Value
D bitofs 10u 0 Value
D testStr S 4
D bitOffset c 30
D result S 10i 0
/Free
result = tstbts( %Addr( testStr ) : bitOffset );
dsply result;
/End-Free
星期四, 9月 16, 2010
星期一, 9月 06, 2010
QlgTransformUCSData()--Transform UCS Data API
QlgTransformUCSData()--Transform UCS Data API
The QlgTransformUCSData() function transforms, through a formula as compared to a mapping, data from one form of Unicode to another. A transformation type identification is used to specify the type of transformation.
Usage Notes:
1. When requesting a BOM tagged output buffer the following BOM values will be generated.
BOMS Hex values
UTF-32 BE (020) 00 00 FE FF
UTF-32 LE (030) FF FE 00 00
UTF-16 BE (040) FE FF
UTF-16 LE (050) FF FE
UTF-8 (060) EF BB BF
A sample conversion:
transformation type: 030021
UTF-32 LE (030) -> UTF-32 BE marked (021)
x'AB 5F 00 00 7C 8E 00 00' -> x'00 00 FE FF 00 00 5F AB 00 00 8E 7C'
2. Auto detection is available when there is a BOM in the beginning of the inbuf that represents a Unicode type.
The QlgTransformUCSData() function transforms, through a formula as compared to a mapping, data from one form of Unicode to another. A transformation type identification is used to specify the type of transformation.
Usage Notes:
1. When requesting a BOM tagged output buffer the following BOM values will be generated.
BOMS Hex values
UTF-32 BE (020) 00 00 FE FF
UTF-32 LE (030) FF FE 00 00
UTF-16 BE (040) FE FF
UTF-16 LE (050) FF FE
UTF-8 (060) EF BB BF
A sample conversion:
transformation type: 030021
UTF-32 LE (030) -> UTF-32 BE marked (021)
x'AB 5F 00 00 7C 8E 00 00' -> x'00 00 FE FF 00 00 5F AB 00 00 8E 7C'
2. Auto detection is available when there is a BOM in the beginning of the inbuf that represents a Unicode type.
星期一, 8月 16, 2010
星期二, 8月 10, 2010
星期一, 8月 09, 2010
星期四, 7月 15, 2010
星期五, 8月 28, 2009
星期五, 7月 24, 2009
APIs by Example: Validation List Commands (ADDVLDLE, VFYVLDLE, CHGVLDLE, RMVVLDLE, WRKVLDL, CLRVLDL)| System iNetwork
星期二, 9月 02, 2008
星期三, 6月 18, 2008
Technical Document : 28942837 Receiving Messages from the Joblog after the Program Is off the Callstack
IBM System i Support: Software Technical Document : 28942837: "Receiving Messages from the Joblog after the Program Is off the Callstack"
星期五, 6月 13, 2008
星期三, 5月 28, 2008
星期一, 5月 26, 2008
星期四, 5月 22, 2008
WebSphere MQ Clustering Configuration Tips | Business Systems | IBM Systems Magazine
WebSphere MQ Clustering Configuration Tips | Business Systems | IBM Systems Magazine
A, B, C, D, and E: STRSBS SBSD(QMQM/QMQM)
A: CRTMQM MQMNAME(QMGR.A)
A: STRMQM MQMNAME(QMGR.A)
A: STRMQMLSR PORT(1500) MQMNAME(QMGR.A)
A: CHGMQM MQMNAME(QMGR.A) REPOS('SAMPLE.CLUSTER')
A: CRTMQMQ QNAME(CLUSTER.QUEUE) QTYPE(*LCL) MQMNAME(QMGR.A) DEFBIND(*NOTFIXED) CLUSTER('SAMPLE.CLUSTER')
A: CRTMQMCHL CHLNAME(TO.A) CHLTYPE(*CLUSRCVR) MQMNAME(QMGR.A) CONNAME('SYSTEMA.IBM.COM(1500)') DSCITV(0) CLUSTER('SAMPLE.CLUSTER')
A: CRTMQMCHL CHLNAME(TO.B) CHLTYPE(*CLUSSDR) MQMNAME(QMGR.A) CONNAME('SYSTEMB.IBM.COM(1500)') DSCITV(0)
B: CRTMQM MQMNAME(QMGR.B)
B: STRMQM MQMNAME(QMGR.B)
B: STRMQMLSR PORT(1500) MQMNAME(QMGR.B)
B: CHGMQM MQMNAME(QMGR.B) REPOS('SAMPLE.CLUSTER')
B: CRTMQMQ QNAME(CLUSTER.QUEUE) QTYPE(*LCL) MQMNAME(QMGR.B) DEFBIND(*NOTFIXED) CLUSTER('SAMPLE.CLUSTER')
B: CRTMQMCHL CHLNAME(TO.B) CHLTYPE(*CLUSRCVR) MQMNAME(QMGR.B) CONNAME('SYSTEMB.IBM.COM(1500)') DSCITV(0) CLUSTER('SAMPLE.CLUSTER')
B: CRTMQMCHL CHLNAME(TO.A) CHLTYPE(*CLUSSDR) MQMNAME(QMGR.B) CONNAME('SYSTEMA.IBM.COM(1500)') DSCITV(0)
C: CRTMQM MQMNAME(QMGR.C)
C: STRMQM MQMNAME(QMGR.C)
C: STRMQMLSR PORT(1500) MQMNAME(QMGR.C)
C: CRTMQMQ QNAME(CLUSTER.C) QTYPE(*LCL) MQMNAME(QMGR.C) DEFBIND(*NOTFIXED) CLUSTER('SAMPLE.CLUSTER')
C: CRTMQMCHL CHLNAME(TO.C) CHLTYPE(*CLUSRCVR) MQMNAME(QMGR.C) CONNAME('SYSTEMC.IBM.COM(1500)') DSCITV(0) CLUSTER('SAMPLE.CLUSTER')
C: CRTMQMCHL CHLNAME(TO.A) CHLTYPE(*CLUSSDR) MQMNAME(QMGR.C) CONNAME('SYSTEMA.IBM.COM(1500)') DSCITV(0)
D: CRTMQM MQMNAME(QMGR.D)
D: STRMQM MQMNAME(QMGR.D)
D: STRMQMLSR PORT(1500) MQMNAME(QMGR.D)
D: CRTMQMQ QNAME(CLUSTER.D) QTYPE(*LCL) MQMNAME(QMGR.D) DEFBIND(*NOTFIXED) CLUSTER('SAMPLE.CLUSTER')
D: CRTMQMCHL CHLNAME(TO.D) CHLTYPE(*CLUSRCVR) MQMNAME(QMGR.D) CONNAME('SYSTEMD.IBM.COM(1500)') DSCITV(0) CLUSTER('SAMPLE.CLUSTER')
D: CRTMQMCHL CHLNAME(TO.B) CHLTYPE(*CLUSSDR) MQMNAME(QMGR.D) CONNAME('SYSTEMB.IBM.COM(1500)') DSCITV(0)
E: CRTMQM MQMNAME(QMGR.E)
E: STRMQM MQMNAME(QMGR.E)
E: STRMQMLSR PORT(1500) MQMNAME(QMGR.E)
E: CRTMQMQ QNAME(CLUSTER.E) QTYPE(*LCL) MQMNAME(QMGR.E) DEFBIND(*NOTFIXED) CLUSTER('SAMPLE.CLUSTER')
E: CRTMQMCHL CHLNAME(TO.E) CHLTYPE(*CLUSRCVR) MQMNAME(QMGR.E) CONNAME('SYSTEME.IBM.COM(1500)') DSCITV(0) CLUSTER('SAMPLE.CLUSTER')
E: CRTMQMCHL CHLNAME(TO.B) CHLTYPE(*CLUSSDR) MQMNAME(QMGR.E) CONNAME('SYSTEMB.IBM.COM(1500)') DSCITV(0)
星期二, 5月 13, 2008
IBM System i Support: Software Technical Document : 329133089
IBM System i Support: Software Technical Document : 329133089: "Tracking IP Address at V5R2 (and later releases) for Invalid Sign-On Attempts"
星期二, 4月 08, 2008
星期一, 10月 29, 2007
星期六, 9月 29, 2007
IBM System i Support: Software Technical Document : 404791135
IBM System i Support: Software Technical Document : 404791135: "Configuring EE (Enterprise Extender) between Two IBM® System i™ Systems"
星期五, 9月 28, 2007
IBM Redbooks | IBM System i | Technotes
IBM Redbooks | IBM System i | Technotes
http://www.redbooks.ibm.com/Redbooks.nsf/portals/systemiTips
http://www.redbooks.ibm.com/Redbooks.nsf/portals/systemiTips
星期五, 9月 14, 2007
Output Queue Monitor(OutqMon or MONOUTQ)
The Learning Center Store == Starter Kit for the IBM iSeries and AS/400
OutqMon (Outq Monitor) utility(MONOUTQ)
Download the latest version of the Starter Kit source code
OutqMon (Outq Monitor) utility(MONOUTQ)
| Chapter 11 | A Plug-and-Play Output Queue Monitor | 157 |
| Setting the Stage | 158 | |
| The Output Queue Monitor Utility | 160 | |
| Configuring the Output Queue Monitor | 162 | |
| Using the Output Queue Monitor | 163 | |
| Monitoring Program OutQMon | 164 | |
| Installing the Output Queue Monitor Utility | 165 |
Download the latest version of the Starter Kit source code
星期一, 9月 10, 2007
TechTip: Using Vary Configuration Exit Points on i5/OS - MC Press Online
TechTip: Using Vary Configuration Exit Points on i5/OS - MC Press Online
QIBM_QDC_VRYEXIT exit point (which was introduced in V5R3)
QIBM_QDC_VRYEXIT exit point (which was introduced in V5R3)
星期一, 9月 03, 2007
星期四, 8月 30, 2007
予晴之見 - 知人之道
予晴之見 - 知人之道
【古文】諸葛亮的知人之道
【古文】諸葛亮的知人之道
夫知人之性，莫難察焉。美惡既殊，情貌不一。
有溫良而為詐者，有外恭而內欺者，有外勇而內怯者，
有盡力而不忠者。
然知人之道有七焉：
一曰，間之以是非而觀其志；
二曰，窮之以辭辯，而觀其變；
三曰，咨之以計謀，而觀其識；
四曰，告之以禍難，而觀其勇；
五曰，醉之以酒，而觀其性；
六曰，臨之以利，而觀其廉；
七曰，其之以事，而觀其信。
三國‧蜀漢‧諸葛亮《將苑‧知人性篇》
星期四, 8月 23, 2007
星期三, 8月 22, 2007
星期二, 8月 21, 2007
星期一, 7月 30, 2007
星期四, 7月 26, 2007
星期二, 7月 17, 2007
IBM DB2 for i5/OS - What's New
IBM DB2 for i5/OS - What's New
DB2 for i5/OS V5R4 Index Advisors and Autonomic Indexes presentation (1,91 MB) New!
March 27, 2007
The Case of The Missing Index Article New!
May 1, 2007
DB2 for i5/OS V5R4 Index Advisors and Autonomic Indexes presentation (1,91 MB) New!
March 27, 2007
The Case of The Missing Index Article New!
May 1, 2007
星期一, 7月 16, 2007
Integrated File System Tools: DEL, DELTREE, CMDALL, CHGAUTALL, CHGOWNALL, QRYIFSLIB, DLTIFSF, RNMIFSF
Getting the Integrated File System Tools to your system
The tools are included in a save file named ifstool.savf which is available at the ftp site, FTP site, public.dhe.ibm.com/services/us/igsc/cs2/ApiSamples/
星期五, 7月 13, 2007
星期三, 6月 27, 2007
星期五, 5月 25, 2007
星期一, 5月 07, 2007
星期三, 2月 14, 2007
中國人就那麼高貴嗎?
中國人總認為他們是尊貴的, 而台灣人是沒水準的, 有一位朋友竟然說台灣人沒文化, 台灣彈丸之地, 無法養出尊貴大氣度的人, 這是哪門子理論. 像馬英九被起訴, 竟然用參選總統來證明自己的清白, 真好笑. 若沒選上, 他是否就承認有罪. 貪污被起訴與參選總統是兩件不同的事, 將之相連成因果關係, 真是可笑. 這些不認同台灣的中國人, 終將為歷史所摒棄.
轉型正義不只是公平還必須善惡要報
http://city.udn.com/v1/blog/article/article.jsp?uid=FrankCTHsieh&f_ART_ID=740377
謝長廷：轉型正義不只是公平還必須善惡要報
前行政院長謝長廷今天暢談轉型正義理念，他說，轉型正義不只是要做到公平，還必須「善惡要報」，就像在社會、經濟上，國家必須特別照顧弱勢和基層勞工、農民和偏遠地區。
謝長廷今天到民進黨台東縣黨部，和地方人士座談，聽取地方意見，並且參加台東義務「長工辦公室」的成立，謝長廷暢談他的轉型正義理念。
謝長廷說，轉型正義不能只是做到公平，還要進一步「善惡要報」。他舉列說，他有一位朋友，白色恐怖期間，被冠上莫須有的罪名，遭到刑求，精神崩潰，四十年來都住在玉里精神病院，國家就應該給他補償。
另外，在經濟、社會上也一樣，北部的大企業，辦個尾牙動輒上千萬元，而台東卻是經濟蕭條，沒有工作機會，政府對這些偏遠地區和落後、弱勢團體，就應該給予照顧，這才是真正的轉型正義，而不是只做到公平而已。
(中央社記者盧太城台東縣十一日電)
謝長廷：轉型正義不只是公平還必須善惡要報
前行政院長謝長廷今天暢談轉型正義理念，他說，轉型正義不只是要做到公平，還必須「善惡要報」，就像在社會、經濟上，國家必須特別照顧弱勢和基層勞工、農民和偏遠地區。
謝長廷今天到民進黨台東縣黨部，和地方人士座談，聽取地方意見，並且參加台東義務「長工辦公室」的成立，謝長廷暢談他的轉型正義理念。
謝長廷說，轉型正義不能只是做到公平，還要進一步「善惡要報」。他舉列說，他有一位朋友，白色恐怖期間，被冠上莫須有的罪名，遭到刑求，精神崩潰，四十年來都住在玉里精神病院，國家就應該給他補償。
另外，在經濟、社會上也一樣，北部的大企業，辦個尾牙動輒上千萬元，而台東卻是經濟蕭條，沒有工作機會，政府對這些偏遠地區和落後、弱勢團體，就應該給予照顧，這才是真正的轉型正義，而不是只做到公平而已。
(中央社記者盧太城台東縣十一日電)
訂閱：
文章 (Atom)