«

2011/12/12 月曜日

SELECT

Filed under: CL — takahashi @ 0:48:16

CLでのSELECT処理

PLAIN TEXT
RPG:
  1. SELECT                                                   
  2. WHEN       COND(&PGNAME *EQ 'xxxxxx')  THEN(DO)       
  3. 処理
  4. ENDDO                 
  5. WHEN       COND(&PGNAME *EQ 'xxxxxx')  THEN(DO)       
  6. 処理
  7. ENDDO                 
  8. ENDSELECT

«
»

2011/12/8 木曜日

組込みSQLでの結果セット受取りのサポート

Filed under: 未分類 — takahashi @ 19:54:17

http://www-06.ibm.com/systems/jp/i/library/pdf/db2.pdf

のP53にある組込みSQLでの結果セット受取りのサポート、ちょっと興味があるので今度試してみようと思います

«
»

2011/10/25 火曜日

D仕様書

Filed under: ILE — takahashi @ 22:16:29

D仕様書で15文字以上長い名前を定義したい場合は...で2行目以降に定義を記述します

PLAIN TEXT
RPG:
  1. D  abcdefghijklmn0p...                                           
  2. D                                      LIKEDS(abc)

«
»

2011/8/22 月曜日

IFS領域のユーザーディレクトリーの保管

Filed under: その他 — takahashi @ 20:04:05

IFS上のユーザーディレクトリの保管は以下のような感じで保管しています
例はSAVFに保管しています

PLAIN TEXT
RPG:
  1. SAV DEV('/QSYS.LIB/TAKAHASHI.LIB/SV01.FILE') OBJ(('/*') ('/QSYS.LIB' 
  2. *OMIT) ('/QDLS' *OMIT) ('/QIBM/PRODDATA' *OMIT) ('/QOPENSYS/QIBM/PRODDATA
  3. ' *OMIT))

«
»

2011/7/18 月曜日

自動応答

Filed under: 未分類 — takahashi @ 20:00:41

メッセージの自動応答

WRKRPYLE (システム応答リスト項目処理)
でF6（ADDRPYLE）で追加します

PLAIN TEXT
RPG:
  1. システム応答リスト項目処理                           
  2.                                                           システム :   XXXXXXX
  3.  オプションを入力して，実行キーを押してください。                               
  4.    2= 変更   4= 削除                                                           
  5.                                                                                
  6.        順序   xｮﾈｰﾆﾞ                                                比較       
  7.  OPT   番号   ID        応答        比較値                          開始       
  8.          10   CPA0700  D           *NONE                                       
  9.          20   RPG0000  D           *NONE                                       
  10.          30   CBE0000  D           *NONE                                       
  11.          40   PLI0000  D           *NONE                                       
  12.                                                                                
  13.                                                                                
  14.                                                                                
  15.                                                                                
  16.                                                                                
  17.                                                                                
  18.                                                                                
  19.                                                                         終わり 
  20.  パラメーターまたはコマンド                                                     
  21.  ===>                                                                           
  22.  F3= 終了   F5= 最新表示   F6= 追加   F11= 応答全体の表示   F12= 取消し         
  23.  F24= キーの続き                                                               
  24.  (C) COPYRIGHT IBM CORP. 1980, 2009.

«
»

2011/1/6 木曜日

WRKPTFGRPのV6R1での変更点

Filed under: その他 — takahashi @ 10:33:35

V6R1からWRKPTFGRPで表示される内容が現在のレベルと１世代前のレベルと２つ表示されてるようになっているようです。

PLAIN TEXT
RPG:
  1. PTF グループの処理                               
  2.                                                          
  3.  オプションを入力して，実行キーを押してください。                               
  4.    1= 発注   4= 削除   5= 表示   6= 印刷   8= 特殊処理 PTF の表示               
  5.    9= 関連 PTF グループの表示                                                   
  6.                                                                                
  7.  OPT  PTF  グループ          ﾚﾍﾞﾙ   状況                                       
  8.       SF99616                   4   導入済み                                   
  9.       SF99610                9111   導入済み                                   
  10.       SF99609                  46   導入済み                                   
  11.       SF99608                  10   導入済み                                   
  12.       SF99601                  10   導入済み                                   
  13.       SF99601                  11   導入済み                                   
  14.       SF99562                  10   導入済み                                   
  15.       SF99562                  14   導入済み                                   
  16.       SF99356                  12   導入済み                                   
  17.       SF99354                   4   導入済み                                   
  18.       SF99187                  10   導入済み                                   
  19.       SF99115                   9   導入済み                                   
  20.       SF99115                  15   導入済み                                   
  21.                                                                         終わり 
  22.  F3= 終了   F6= 印刷   F11= 記述の表示   F12= 取り消し                         
  23.  F22= 全フィールドの表示

SF99601やSF99562やSF99115がレベル違いで表示されていると思います。

これを昔の様に１世代で表示するには

コマンドCHGSRVAでPTF グループ・レベルを１にすれば良いみたいです

PLAIN TEXT
RPG:
  1. サービス属性の変更  (CHGSRVA)                         
  2.                                                                                
  3.   選択項目を入力して，実行キーを押してください。                               
  4.                                                                                
  5.   システム使用不可報告  . . . . .   '                              '           
  6.   システム使用不可コールバック      '                              '           
  7.   問題の自動分析  . . . . . . . .   *YES          *SAME, *NO, *YES             
  8.   問題の自動報告  . . . . . . . .   *YES          *SAME, *NO, *YES             
  9.   問題の報告先 :                                                               
  10.       制御点名  . . . . . . . . . .   *IBMSRV        名前 , *SAME, *IBMSRV...     
  11.       ネットワーク ID . . . . . . .                        名前 , *LCLNETID             
  12.   サービス提供元接続  . . . . . .   '                              '           
  13.   PTF 導入タイプ  . . . . . . . .    *DLYIPL       *SAME, *DLYIPL, *DLYALL...   
  14.   PTF のコピー   . . . . . . . . .   *NO           *SAME, *NO, *YES             
  15.   PTF グループ・レベル   . . . . .   00002         1-99999, *SAME, *NOMAX       
  16.   データ・パケットの送信  . . . .     *YES          *SAME, *NO, *YES             
  17.   ECS メッセージ待ち行列   . . . .   QSERVICE       名前 , *SAME                 
  18.    ﾗｲﾌﾞﾗﾘｰ  . . . . . . . . . . .     QSYS         名前                         
  19.                                                                                
  20.                                                                                
  21.                                                                        続く ...
  22.  F3= 終了    F4=ﾌﾟﾛﾝﾌﾟﾄ   F5= 最新表示    F12= 取り消し                         
  23.  F13= この画面の使用法                    F24= キーの続き

«
»

2010/12/15 水曜日

CPF9E18

Filed under: その他 — takahashi @ 13:23:47

STRPDMを実行すると、

プロダクト 5761WDS の使用制限を超える試みが行なわれた。ユーザーは追加されません。
処理コマンドの障害。詳細についてはジョブ・ログを参照してください。

といったメッセージが表示されて、PDMが使用できなくなる現象に遭遇しました。

メッセージの詳細は
追加のメッセージ情報

メッセージ ID . . . . : CPF9E18
送信日付 . . . . . . . : 10/12/14 送信時刻 . . . . . . . : 17:35:02

メッセージ . . : プロダクト 5761WDS の使用制限を超える試みが行なわれた。
ユーザーは追加されません。

原因－－プロダクト 5761WDS, ライセンス項目 V6R1M0, 機能 5103 の使用制限を超
える試みがなされました。これが使用制限猶予期間内の *KEYED 承諾プロダクトの
場合には，使用制限の 50% 以上使用制限を超えています。 1.00 を使用するジョ
ブ 414736/ＸＸＸＸＸＸＸ/QPADEV0003 のライセンス・ユーザー *JOB は追加されません
。現在，すべての区画で 2.00 個の使用があります。システム操作員には通知され
ています。
回復手順－－ *KEYED 承諾のあるプロダクトの場合には，ライセンス・キー追加
(ADDLICKEY) コマンドを使用して使用制限を大きくしてください。その他のすべて
のプロダクトの場合には，ライセンス情報変更 (CHGLICINF) コマンドを使用して
使用制限を大きくしてください。
終わり
続行するには，実行キーを押してください。

F1= ヘルプ F3= 終了 F6= 印刷 F9= メッセージ詳細の表示
F10= ジョブ・ログ中のメッセージの表示 F12= 取り消し F21= 援助レベルの選択

です。

ライセンス違反はしておりませんし、昨日までは問題なく使えてました

現象的に該当しそうなＰＴＦ情報がありました。

http://www-01.ibm.com/support/docview.wss?uid=nas23c49850ee92b2556862575bc003c7011

PTFを当てた所、使えるようになりました。

環境はV6R1です。

あくまでも弊社環境でのお話ですので、PTFの導入は自己責任でお願いいたします。

«
»

2010/11/17 水曜日

プロセッサー・グループの調べ方

Filed under: 未分類 — takahashi @ 12:57:53

P05 やP10など、使用しているマシンのプロセッサー・グループの調べ方です。

コマンド WRKLICINF　を実行すると、画面左上に表示されます。

«
»

2010/9/1 水曜日

VISTAよりIFSへアクセス

Filed under: 未分類 — takahashi @ 9:52:04

VISTAのPCよりV6R1へネットサーバーを利用して、IFSへアクセスを試みたところ、アクセスができませんでした。
XPやWindows7からはアクセスができます。
因みに、VISTAからV5R4のマシンへは問題なくアクセスできます。

調べたところ、VISTAからsamba サーバに接続に使用する認証方法として、新しい方法（NTLMv2）を使用するようなった為に認証に失敗してしまうようです。

IBMi側の設定変更は不明でしたが、とりあえずクライント側のレジストリのLmCompatibilityLevelを0に変更すれば良いようです。

※レジストリの変更は自己責任でお願いします

«
»

2010/6/18 金曜日

CD-ROMからのコピー

Filed under: 未分類 — takahashi @ 9:56:24

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記述ファイルに
落とせます。

次ページへ »

HTML convert time: 1.032 sec. Powered by WordPress ME