噗嚨共的天空

CA與CF定義的差別

一直都沒有想去探討

但是最近有相關問題

所以也來跟大家分享

※ CAnn(mm,'text')
    CA：按下功能鍵，不傳遞畫面值至Program
    nn：指功能鍵，可設定01~24

※ CFnn(mm,'text')
    CF：按下功能鍵，將傳遞畫面值直Program

今天如果印表機一直印出看不懂的報表

有時只有幾頁，有時數十頁，甚至數百數千頁都有可能！

首先你要先去OUTQ趕快把以下SPOOL HOLD住或者刪除

QPJOBLOG
QPSRVDMP
QPDSPJOB 
QPCSMPRT

再來檢查一下你的以上PRTF的定義

如果OUTQ還是指定到*JOB

那就得趕快改掉，改法如下，只是須要系統管理員權限才能做喔~

AS400也是可以跟OPEN SOURCE一樣有自己的視窗

只是那是虛擬的，不像WINDOWS那麼的『真實』，哈~

要怎麼做呢？

首先就要先了解DSPF裡面的RECORD的FUNCTION

其中有三個元素

1. WINDOW(A B C D)，這個FUNCTION就是視窗，這一定要有！

   A是視窗的直向起始位置

   B是視窗的橫向起始位置

   C是視窗的寬度

   D是視窗的高度

在AS/400要如何加總Array呢？

其實很簡單，只要一個指令就可以完成了

它就是XFOOT

XFOOT放在Operate code的地方

Factor2放置要加總的Array

Resault放置Array加總後的變數

這樣就大功告成囉~

是不是超簡單

不用do loop去一個一個加了XD

為什麼會出現這個訊息呢？

主要原因在於AS400的SUBFILE裡有一個控制筆數的變數

這個變數叫做RRN(Relative Record Number)

通常在DSPF(Display File)宣告的時候就會指定

圖中的TESTDS就是我的DSPF

當你不確定你的檔案格式應該要在哪裡輸入哪些元素時

可以在左邊的0022.00這些數字上輸入IF(Insert Format)

我自己是在2006年加入AS400 RPG的行列，

當時剛退伍，雖說是資訊系畢業，但是沒有特別專長

唯一較熟稔的就是電腦維修，所以就先做了短短的半年的電腦工程師

再進階到系統工程師之後，剛好遇到公司有狀況，又想換換跑道

就這樣踏入AS400的世界...

 

AS400 RPG是相當簡單的一種程式語言

可以直覺的知道"它"要做什麼

但是前提是你還是得先了解"它"是怎麼運作的

 

AS/400 是當今世界上最流行的中小型、多用戶商業計算機系統，在多用戶伺服器領域裡，始終保持著最暢銷的地位。目前 AS/400 在全球的裝機量已超過 75 萬套，覆蓋 150 多個國家，支持 40 多種語言，有近 1 萬個商業夥伴和獨立軟體商， 3 萬多個商業應用。廣泛應用於流通、金融證券、製造、運輸等各個行業。
IBM AS/400的創始人Frank G. Soltis博士認為「歷史」對設計新型計算機系統的影響
力遠勝於其他因素。

 同樣,在設計一個新型計算機系統時,開發的場所和先前的產品也有著相當大的影響力。 General以及IBM的New York Lab.等,佔盡地利,不僅分享了諸如MIT等名校和研究所的
研究成果,而且雇傭了大批東部高校的高材生。

 MIT當時曾為美國國防部開發了一個名為MULTICS的項目。東部的公司在設計計算機的
結構和操作系統時,大量借鑒了MULTICS的思想。Bell Lab.的UNIX正是這一環境下的產
物。