環境設定
目 次


ＡＳ／４００を新規導入したような場合、何からなにまで、作業のための環境を準備しなければなりません。
ここでは、その方法を説明します。
このページはＡＳ／４００のお守りを一人でまかされていたり、
そうでなくても、そここその環境設定をまかされている人向けのページです。


ＡＳ／４００パワーオンとパワーオフ

ＡＳ／４００のパワーオンは、全面のパネルの白色の４角なボタンを押します。
パイロットランプがフラッシュし始め、マシンの初期チェック後、ＩＰＬが開始されます。

パワーオフは、他に使用者がいないことを確認して、次のコマンドを入力します。

ＰＷＲＤＷＮＳＹＳ ＊ＩＭＭＥＤ

終結処理が行われ、パワーオフになります。＊ＩＭＭＥＤは活動ジョブの即時終了を意味します。


サインオンとサインオフ

サインオンは、ＡＳ／４００と対話を開始することをいい、サインオフは対話を終了することを言います。
マニュアルやシステムからのメッセージにおいては、「セッション」という用語が使用されています。

サインオン

サインオンするには、サインオンの画面において、ユーザー名とパスワードを入力して実行キーを押します。
ユーザーとしては機密保護管理者レベルのＱＳＥＣＯＦＲと、プログラマーレベルのＱＰＧＭＲ、
ユーザーレベルのＱＵＳＥＲなどが用意されていますが、ここでは、ＱＰＧＭＲを使用するこを
お勧めします。パスワードは特に設定がなければ、ユーザーに同じＱＰＧＭＲです。
パスワードが設定されていれば、そのパスワードを入力します。
パスワードは入力しても表示はされません。


サインオフ

サインオフするには、コマンドＳＩＧＮＯＦＦを入力して実行キーを押します。

メインメニューとコマンドライン

サインオンすると、特に設定されてない限り、次のようなメインメニューの画面が表示されます。
 MAIN                       AS/400 メイン・メニュー                             
                                                          システム :   S123456 
 次の中から１つを選んでください。                                               
                                                                                
      1. ユーザー・タスク                                                       
      2. オフィス・タスク                                                       
      3. 汎用システム・タスク                                                   
      4. ファイル，ライブラリー，およびフォルダー                               
      5. プログラミング                                                         
      6. 通信                                                                   
      7. システムの定義または変更                                               
      8. 問題処理                                                               
      9. メニューの表示                                                         
     10. 情報援助オプション                                                     
     11. クライアント・アクセス /400 タスク                                     
                                                                                
     90. サイン・オフ                                                           
                                                                                
 選択項目またはコマンド                                                         
 ===>                                                                           
                                                                                
 F3= 終了   F4=ﾌﾟﾛﾝﾌﾟﾄ   F9=ｺﾏﾝﾄﾞ の複写   F12= 取消し   F13= 情報援助          
 F23= 初期 ﾒﾆｭｰ の設定                                                          
 (C) COPYRIGHT IBM CORP. 1980, 1998.

メニューの番号でたぐっていっても、各種処理は可能ですが、ここではコマンド入力で処理を進めることにします。
そのため下記のコマンドを入力して、コマンド入力に便利な画面に切り替えます。

ＣＡＬＬ   ＱＣＭＤ


ライブラリーの作成

ＡＳ／４００ではライブラリー、オブジェクト、メンバーの３階層で管理を行っています。
汎用のライブラリーとしては、ＱＧＰＬというライブラリーが用意されていますが、これを
安易に使用すると、本番用とテスト・トレーニング用のファイルやプログラムが混合して、
収拾がつかなくなるとか、業務内容別の区別が付かなくなる恐れがあります。
ここでは、独自に使用するためのライブラリーを作成します。

ライブラリーには、本番用（＊ＰＲＯＤ）とテスト用（＊ＴＥＳＴ）の２種類があります。
本番用はデバッグモードのとき、更新タイプのファイルオープンができません。
テスト用はデバッグモードのときも、更新タイプのファイルオープンができます。
違いはそれだけです。
本番用、テスト用ライブラリー作成のコマンドはそれぞれ次の通りです。
本番用 CRTLIB LIB(WRKLIB) TYPE(*PROD) TEXT(' ＸＸＸ本番用ライブラリー ')
テスト用 CRTLIB LIB(WRKLIB) TYPE(*TEST) TEXT(' ＸＸＸテスト用ライブラリー ')
（実際には、データベース用、プログラム用、ソースファイル用などとライブラリーの使い分けが行われます。）


ソースファイルの作成

データベースファイル、画面ファイル記述、印刷ファイル記述、プログラムソース用などのソースファイルは
次のように入力します。

データベースファイル
画面ファイル記述
印刷ファイル記述用		 CRTSRCPF FILE(WRKLIB/QDDSSRC) IGCDTA(*YES) TEXT('XXX 用')
ＲＰＧ-III 用 CRTSRCPF FILE(WRKLIB/QRPGSRC) IGCDTA(*YES) TEXT('AAA 用')
ＲＰＧ-IV用 CRTSRCPF FILE(WRKLIB/QRPGLESRC) RCDLEN(112) IGCDTA(*YES) TEXT('BBB 用')
ＣＯＢＯＬ用 CRTSRCPF FILE(WRKLIB/QCBLSRC) IGCDTA(*YES) TEXT('CCC 用')
ＣＬ用 CRTSRCPF FILE(WRKLIB/QCLSRC) IGCDTA(*YES) TEXT('DDD 用')
コマンド定義用 CRTSRCPF FILE(WRKLIB/QCMDSRC) IGCDTA(*YES) TEXT('EEE 用')
注：ソースファイルのレコード長は、ＲＣＤＬＥＮパラメータを省略したとき９２バイトです。
１２バイトはＳＥＱ－№とタイムスタンプ用に使われます。
ＲＰＧ-Ⅳ用のソースファイルは、ソースの桁数が１００なので、レコード長さ１１２で生成します。
ＩＧＣＤＴＡはユーザー指定の２バイトコード文字（ＤＢＣＳ、すなわち漢字）使用を指定するもので、
＊ＹＥＳとすると、ＤＢＣＳが使用できます。通常＊ＹＥＳとします。


ＯＵＴＱ（出力待ち行列）の作成

予め用意されている共用のＯＵＴＱとしては、ＱＰＲＩＮＴ，ＱＰＲＩＮＴ２，ＱＰＲＩＮＴＳなどがあります。
想定されている、それぞれの使用目的は次の通りです。
ＱＰＲＩＮＴ 省略時の印刷装置出力待ち行列
ＱＰＲＩＮＴ２ ２部用紙用の印刷装置出力待ち行列
ＱＰＲＩＮＴＳ 特殊用紙用の印刷装置出力待ち行列

自分専用のＯＵＴＱを、自分のライブラリー（例えばＷＲＫＬＩＢ）に作成するには、つぎのようにします。

ＣＲＴＯＵＴＱ ＯＵＴＱ（ＷＲＫＬＩＢ／ＱＰＲＩＮＴ９） ＴＥＸＴ（’ＸＸＸ用’）

使用するときは、ＣＨＧＪＯＢコマンドで、印刷結果のためのＯＵＴＱを変更しておきます。

ＣＨＧＪＯＢ ＯＵＴＱ（ＷＲＫＬＩＢ／ＱＰＲＩＮＴ９）

注：ライブラリーリストにＷＲＫＬＩＢがあれば、ＷＲＫＬＩＢによる修飾は省略できます。
ＯＵＴＱの変更はサインオンのたびに必要です。


ライブラリーリストの準備

ライブラリーリストの準備はサインオンの度に必要です。
ＥＤＴＬＩＢＬと入力し、実行キーを押します。次の、リスト編集画面が表示されます。
                          ライブラリー・リスト編集                            
                                                                              
  新規／変更情報を入力して，実行キーを押してください。                        
    ライブラリーを追加するためには，名前と必要な順序番号を入力してください。  
    ライブラリーを取り除くためには，ライブラリー名をスペースにしてください。  
    ライブラリーの位置を変更するためには，新しい順序番号を入力してください。  
                                                                              
                                                                              
   順序                       順序                      順序                  
   番号     ライブラリー       番号     ライブラリー      番号     ライブラリー 
   010                        120                       230                   
   020      QGPL              130                       240                   
   030      QTEMP             140                       250                   
   040      QEVX              150                                             
   050                        160                                             
   060                        170                                             
   070                        180                                             
   080                        190                                             
   090                        200                                             
   100                        210                                             
   110                        220                                             
                                                                              
 F3= 終了    F5= 最新表示    F12= 取消し

上記で予め表示されたライブラリーの用途は次のとおりです。
ＱＧＰＬ 予め用意されているＧＥＮＥＲＡＬ ＰＵＲＰＵＳ ＬＩＢＲＡＲＹ
ＱＴＥＭＰ そのセッションだけに臨時に用意される仮置き用ライブラリーです。
サインオフすると削除されます。
ＱＥＶＸ ＴＯＯＬ ＢＯＸとよばれる、便利プログラム集のライブラリーです。
ＴＯＯＬ ＢＯＸが導入されていることが前提です。
ライブラリーリストの変更は、画面の指示のとおり、適当な順序番号の個所に、必要な
ライブラリー名を入力して実行キーを押します。


起動時の処理

システム起動時には、システム値ＱＳＴＲＵＰＰＧＭに指定されたプログラムが起動されます。
ＡＳ／４００を導入した直後は、このプログラムはシステム専用ライブラリーＱＳＹＳのＱＳＴＲＵＰに設定されて
います。一般には販売代理店のＳＥあるいはＣＥが、これをライブラリーＱＧＰＬのプログラムＱＳＴＲＵＰに
設定しなおししています。このプログラムを改訂することにより、ユーザーのプログラムも朝一番で
実行させることができるようになります。その方法は次の通りです。

１．システム値ＱＳＴＲＵＰＰＧＭに指定のプログラムがＱＳＹＳのＱＳＴＲＵＰのときは、
ＲＴＶＣＬＳＲＣコマンドにより、ＱＧＰＬのＱＣＬＳＲＣにＣＬソースを復元する。

２．ＱＧＰＬのＱＣＬＳＲＣのＱＳＴＲＵＰのソースに、ユーザープログラム呼出の命令を追加する
（例を参照）
     PGM
     DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
     DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
     QSYS/STRSBS SBSD(QSPL)
     MONMSG MSGID(CPF0000)

     一部省略

     QSYS/STRTCPSVR SERVER(*DDM *HTTP)
     MONMSG MSGID(CPF0000)
     PANELWKR/STRPNLSVR
     MONMSG MSGID(CPF0000)
DONE:
     /* ここにユーザープログラムを入れる */
     CALL  ASA1BAN     
NOWTRS:
     RETURN
     ENDPGM

３．上記改訂したプログラムをコンパイルする。

４．システム値ＱＳＴＲＵＰＰＧＭて指定しているプログラムをライブラリーＱＧＰＬのＱＳＴＲＵＰに
変更する。


以上でほぼ、プログラム開発のための環境設定が終わりです。



目 次

（Ｃ）ＣＯＰＹＲＩＧＨＴ ＩＳＨＩＯＫＡ ＫＡＴＳＵＨＩＤＥ ２０００