高橋CTOのSystemiテクニカル講座

IBMi(Systemi)に搭載されているCD-ROMドライブから、データをi5/os側に取り込む方法です。

一番簡単なのは、CD-ROMからIFS領域に一旦コピーする方法と思いますが
今回は直接、CD-ROMからコピーする方法です。

CD-ROMにはWindows形式のTXTファイルがあり
その内容をAS400のDBに落とすとした場合の処理を記述します

以下のコマンドはCD-ROMの中のREADMEフォルダーにあるAPAR.TXT
をQTEMP上のAAAファイルにCPYする場合です。
※AAAは CRTPF FILE(QTEMP/AAA) RCDLEN(1024) IGCDTA(*YES) で作成

CPYFRMSTMF FROMSTMF(‘/QOPT/C7523390_01/README/APAR.TXT’) TOMBR(‘/QSYS.LIB
/QTEMP.LIB/AAA.FILE/AAA.MBR’) MBROPT(*ADD) ENDLINFMT(*CRLF)

※C7523390_01はCD-ROMのボリュームラベルになります。
※CSVファイルであれば、CPYFRMIMPFでDDS記述ファイルに
落とせます。

CL内でもRPGのBEGSRで定義するようなサブルーチンが定義できると、同一処理等が発生する場合は
便利ですよね。
V5R4から、CALLSUBRとSUBRコマンドが新しく増えて、CL内でもサブルーチンが定義できるようになりました

RPGに例えるならば
CALLSUBRコマンドがEXSR
SUBRコマンドがBEGSRに該当するイメージです。

以下に例を書いてみました。
SHOW_TIMEサブルーチンを定義してみました。
サブルーチンでは、タイムスタンムプを取得して、表示しています

新規でWEBサーバーを起動する場合など、使用中のポートの
確認を行いたい場合があります。
使用ポートの確認は
コマンド　WRKSRVTBLE　で行えます

小文字で表示されますので、環境によっては
Ctrl+F3で表示を切り替えて下さい

CLで変数を定義する時の文字タイプの長さは何バイトまで指定できすか？
という質問があったので、マニュアルを調べてみました。
以下、マニュアルより抜粋です

5つのタイプのそれぞれの最大長は次の通りです。

* 10進数-- 15桁（小数点以下の桁数は9桁）
* 文字-- 32767バイト

注: CL変数の初期値(VALUEパラメーターに指定）は，5000桁より大きくすることはできません。
* 論理-- 1バイト
* 整数-- 4バイト
* 符号なし整数-- 4バイト

5つのタイプのそれぞれの省略時の長さは次の通りです。

* 10進数 -- 15桁で，小数点以下の桁数は5
* 文字-- 32バイト
* 論理-- 1バイト
* 整数-- 4バイト
* 符号なし整数-- 4バイト

注: 10進数および文字タイプでは，VALUEパラメーターに1が指定された場合には，省略時の長さは初期値の長さと同じです。

文字タイプでは32767バイトまで指定できるようです。
因みに、32767を超える値を入力すると、SEU上でエラーとなります

#V5R4

CLでの条件式について

CL内での四則演算について

CHGVARコマンドを使用します。VALUEパラメータ内に演算式を記入します。

以下の例は変数IIにそれぞれ１を加算・減算・乗算・除算する場合になります。

CLでの文字列の結合方法です。

*TCAT 先行文字列の後ろスペースが削除され、後続文字列を連結する
*BCAT 先行文字列の後ろスペースが削除され、スペースを1バイト挿入し、後続文字列を連結する
*CAT スペースを考慮せずに、単純結合を行う。
例）
変数Ａ　"ABCDEF△△"
変数Ｂ "XYZ"

< 結合処理>　< 結果>
&A *TCAT &B "ABCDEFXYZ"
&A *BCAT &B "ABCDEF△XYZ"
&A *CAT &B "ABCDEF△△XYZ"

覚えにくいので
TCATはトリム
BCATはブランク
と覚えるといいかもですね。

CLでの文字列の分割方法です。

(1)変数WKの5バイト目から3バイト目にABCをセット代入する

(2)変数FILEに変数OBJの１バイト目から10バイトを代入する
%SSTは%SUBSTRINGでも可

先日、社内でり物理ファイルのバイト数の制限は？との質問を受け
マニュアルを開いて調べてみました。

結果、通常の物理ファイルであれば
フィールドで8000個、バイト数は32766バイトまでとなっているようです。

以下はマニュアルからの抜粋です。

指定できるフィールドの数は、
1 つのレコード様式について最高 8000 個です。
レコード様式内のフィールドのいずれかが、日付、時刻、時刻スタンプ、可変長であるか、またはヌル値を許容するときに、フィールドの実際の最大数は 8000 より少なくなる場合もあります。
フィールドの最大数はレコード様式内にあるフィールドの数およびフィールドの組み合わせによって異なります。
レコード様式内の最大バイト数は可変長フィールドが含まれていなければ32766です。
可変長フィールドが含まれれば 32740 です

RPGのコンパイルオプションに10進数データ・エラーの無視（IGNDECERR）がありますが
コンパイルされたあとでは、プログラムが10進数無視を*YES or *NOのどちらを指定しているのか
知りたいときがありますよね
コンパイルリストがある場合はコンパイルリストにQRG1019とあれば*YESでコンパイルされていると
わかるのですが、通常はコンパイルリストも残ってないとおもいます。

そこで、今回は 10進数データ・エラーの無視のコンパイル状況を調べる方法をお伝えします。
方法は該当PGをデバッグします。
ブレイクポイントはどこでも構いませんので、指定します。
ブレイクしたら、DSPPGMVAR で ZIGNDECDを調べます。

ZIGNDECDの内容が
0なら、*NO
1なら、*YES
となります。