フリー・フォーマット RPG で対話型アプリケーション (準備)

ライブラリーは DSPTEST というものを作成して使用しました。

テーブル(ファイル)の作成とデータのロード

まず、使用するテーブルを SQL を使って作成します。

/* テーブルの作成 */
CREATE TABLE  DSPTEST.CUSTOMER
      (CUSTOMER_NUMBER FOR COLUMN CUST DEC ( 5, 0) NOT NULL WITH DEFAULT,
       CUSTOMER_NAME FOR COLUMN NAME CHAR ( 20) NOT NULL WITH DEFAULT,
       CUSTOMER_ADDRESS1 FOR COLUMN ADDR1 CHAR ( 20) NOT NULL WITH DEFAULT,
       CUSTOMER_ADDRESS2 FOR COLUMN ADDR2 CHAR ( 20) NOT NULL WITH DEFAULT,
       CUSTOMER_CITY FOR COLUMN CITY CHAR ( 20) NOT NULL WITH DEFAULT,
       CUSTOMER_STATE FOR COLUMN STATE CHAR ( 2) NOT NULL WITH DEFAULT,
       CUSTOMER_ZIP_CODE FOR COLUMN ZIP DEC ( 5, 0) NOT NULL WITH DEFAULT,
       ACCOUNTS_RECEIVABLE_BALANCE FOR COLUMN ARBAL DEC ( 10, 2) NOT NULL WITH DEFAULT);

また、データがないとテストにならないので、システムにサンプルとして導入されている QIWS/QCUSTCDT というファイル(テーブル)のデータをちょっと加工して使用しています。

/* 名前サーチ用のテストデータ */
INSERT INTO DSPTEST.CUSTOMER 
SELECT SUBSTR(CUSNUM,2, 5),                            
LSTNAM, STREET, '', CITY, STATE, ZIPCOD, BALDUE FROM   
QIWS.QCUSTCDT; 

INSERT INTO DSPTEST.CUSTOMER SELECT SUBSTR(CUSNUM,1, 5), LSTNAM,
STREET, '',CITY, STATE, ZIPCOD, BALDUE FROM QIWS.QCUSTCDT;        

/* ZIP コードサーチ用のテストデータ */
INSERT INTO DSPTEST.CUSTOMER SELECT SUBSTR(CUSNUM,3, 4), LSTNAM,
STREET, '',CITY, STATE, 11111, BALDUE FROM QIWS.QCUSTCDT;         

INSERT INTO DSPTEST.CUSTOMER SELECT SUBSTR(CUSNUM,4, 3), LSTNAM,
STREET, '',CITY, STATE, 11111, BALDUE FROM QIWS.QCUSTCDT;

実行結果は↓のようなかんじになります。

ファイルの作成

その他のファイル等の作成です。

ビューは DDS を紹介しているので、その DDS から作成できるように CRTLF コマンドを使用します。

ADDLIBLE DSPTEST

CRTLF FILE(DSPTEST/CUSMSTL2) SRCFILE(DSPTEST/QDDSSRC)

CRTDSPF FILE(DSPTEST/SZIPMENU) SRCFILE(DSPTEST/QDDSSRC) IGCDTA(*YES)

プログラムの作成

プログラムは、いったん CRTRPGMOD コマンドを使用してモジュールを作成し、後で CRTPGM コマンドを使用して最終的な実行可能プログラムにします。

CRTRPGMOD MODULE(DSPTEST/cusmain) SRCFILE(DSPTEST/QRPGLESRC) DBGVIEW(*SOURCE)

CRTRPGMOD MODULE(DSPTEST/cusmnt) SRCFILE(DSPTEST/QRPGLESRC) DBGVIEW(*SOURCE)

CRTRPGMOD MODULE(DSPTEST/schzip) SRCFILE(DSPTEST/QRPGLESRC) DBGVIEW(*SOURCE)

CRTRPGMOD MODULE(DSPTEST/schnam) SRCFILE(DSPTEST/QRPGLESRC) DBGVIEW(*SOURCE)

CRTPGM PGM(DSPTEST/SAMPLE)
MODULE(DSPTEST/CUSMAIN DSPTEST/CUSMNT DSPTEST/SCHZIP DSPTEST/SCHNAM)
ENTMOD(CUSMAIN)

[Top Pageに戻る]

Ads by TOK2