プロセス・ガイド

     前  次    新規ウィンドウで目次を開く    PDFとして表示 - 新規ウィンドウ  Adobe Readerを取得 - 新規ウィンドウ
コンテンツはここから始まります

Simple Appアプリケーション

 

Simple Appアプリケーションについて

目的

Simple Appアプリケーションは次の目的で使用されます。

構造

この単純なサンプル・アプリケーションには、次の言語でコーディングされたバッチ処理とオンライン処理が含まれます。

各プログラムはできるだけ単純な内容になっています。このアプリケーションの目的は、Refine for Z/OS Replatformingのすべての機能を示すことではありません。

使用方法

Simple Appアプリケーションを使用する際のすべてのプロセスは次のとおりです。

  1. Refine for Z/OS Replatforming環境をインストールします。
  2. Simple Appソース・プラットフォーム・ファイルをインストールします。
  3. Simple Appコンポーネントを変換します。
  4. Oracle Tuxedo Application Runtime for CICS and Batch環境をインストールします。
  5. Simple Appバッチ・プログラムを実行します。
  6. Simple Appトランザクション・プログラムを実行します。

構造

Simple Appの構成を次に示します。

図3-1 Simple Appの構成

Simple Appの構成

 

Simple Appコンポーネントの説明

ここでは、Simple Appコンポーネントのアーキテクチャおよびオンラインとバッチの処理について説明します。

図3-2 Simple Appコンポーネントのアーキテクチャ

Simple Appコンポーネントのアーキテクチャ

種類別のコンポーネント・リスト

CICS画面

名前
説明
MAPM000
顧客保守入力メニュー。
MAPM001
顧客データ照会画面。
MAPM002
顧客データ保守画面(新規顧客、顧客の更新および削除)。
MAPM003
顧客リスト画面。

CICSプログラム

名前
説明
PGMM000
顧客保守入力プログラム。
PGMM001
顧客データ照会プログラム。
PGMM002
顧客データ保守プログラム(新規顧客、顧客の更新および削除)。
PGMM003
顧客リスト・プログラム。

バッチ・プログラム

名前
説明
PGMMB00
VSAMファイルの初期ロード。このファイルはQSAMファイルからロードされます。
PGMMB01
このプログラムは、VSAM顧客ファイルに格納されている顧客リストを生成します。
PGMMB02
このプログラムは、VSAMのメイン顧客ファイルを更新するために使用されるコマンドとデータを含むQSAMファイルにアクセスします。

トランザクション・コード

名前
説明
M000
メインの入力トランザクション・コード(プログラムPGMM000)。
M001
顧客の照会(プログラムPGMM001)。
M002
顧客の保守(プログラムPGMM002)。
M003
顧客リスト(プログラムPGMM003)。

ジョブ

名前
説明
DEFVCUST
このジョブは、VSAM顧客ファイルの削除と定義(DELETEおよびDEFINE)を行うIDCAMSユーティリティを実行します。
CHKVCUST
このジョブは、IDCAMSユーティリティを実行し、VSAMファイルを読取りとチェックが容易なQSAMに再生成(REPRO)します。
LODVCUST
このジョブは、PGMMB00バッチ・プログラムを実行します。これは、新たに定義されたVSAM顧客ファイルに格納されるデータを含むシーケンシャル・ファイルを読み取ります。
PRTVCUST
このジョブは、VSAMファイルで参照される顧客のレポートを生成するPGMMB01バッチ・プログラムを実行します。
UPDVCUST
このジョブは、VSAM顧客ファイルの更新に使用されるデータを含むPGMMB02バッチ・プログラムを実行します。

マップの説明

リスト3-1 MAPM000 - Simple Appメイン・メニュー 
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
MAPM000             Simple sample application                        07/17/2009
M000
-------------------------------------------------------------------------------
    Customer’s identifier: àààààà
    PF04 –  Customer’s List 
    PF05 –  Add a new customer
    PF06 –  Modify an existing customer
    PF07 –  Delete an existing customer
    PF08 –  Customer’s inquiry
    PF03 –  Quit application          
-------------------------------------------------------------------------------
        Info: Type a customer number, select an action and press Enter.
-------------------------------------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
リスト3-2 MAPM003 - 顧客リスト 
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
MAPM003             Customers list                                   07/17/2009
M003
-------------------------------------------------------------------------------
Sel ID        Last name                      First name            Birth date
-------------------------------------------------------------------------------
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
@  @@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@ @@/@@/@@@@
-------------------------------------------------------------------------------
   -PF7: Page up -PF8: page down -PF3: return to previous menu
   -Info: Enter a non blank character and press enter to view customer's data
-------------------------------------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
リスト3-3 MAPM001 - 顧客詳細情報 
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
MAPMM01             Customer's detailed information                  07/17/2009
M001
-------------------------------------------------------------------------------
    Customer's identifier: àààààà
-------------------------------------------------------------------------------
  -Last name_____: àààààààààààààààààààààààààààààà
  -First name____: àààààààààààààààààààà
  -Address_______: àààààààààààààààààààààààààààààà
  -City__________: àààààààààààààààààààà
  -State_________: àà
  -Birth date____: àà/àà/àààà
  -Email_________: àààààààààààààààààààààààààààààààààààààààà
  -Phone number__: àààààààààà
-------------------------------------------------------------------------------
     -PF03: return to previous screen
-------------------------------------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
リスト3-4 MAPM002 - 顧客の保守 
....+....1....+....2....+....3....+....4....+....5....+....6....+....7....+....8
MAPM002            Customer's maintenance                           07/17/2009
M002
-------------------------------------------------------------------------------
    Customer's identifier: àààààà           Action: @@@@@@
-------------------------------------------------------------------------------
  -Last name_____: àààààààààààààààààààààààààààààà
  -First name____: àààààààààààààààààààà
  -Address_______: àààààààààààààààààààààààààààààà
  -City__________: àààààààààààààààààààà
  -State_________: àà
  -Birth date____: àà/àà/àààà
  -Email_________: àààààààààààààààààààààààààààààààààààààààà
  -Phone number__: àààààààààà
-------------------------------------------------------------------------------
     -PF11: clear screen
     -PF12: confirm action
     -PF03: return to previous screen     
-------------------------------------------------------------------------------
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

プログラムの説明

CICSプログラムの説明

PGMM000(顧客保守メイン・メニュー)

PGMM000はSimple Sample Applicationの(アクセス用)メイン・メニュー・プログラムです。次の機能にアクセスできます。

各機能にアクセスするには特定のファンクション・キーを押します。呼び出した機能が終了すると、メイン・メニューに戻ります。

制御:

このプログラムは、有効な顧客識別番号が入力されたことをチェックして、照会機能および保守機能にアクセスします。

PGMM001(顧客詳細情報の照会)

このプログラムは、通信領域を介して顧客識別番号を受け取ります。認識した顧客データを表示するために、VSAM顧客ファイルにアクセスします。

制御:

このプログラムではデータは変更できないため、制御は実行されません。

PGMM002(顧客データの保守)

このプログラムを使用して、次のようなVSAM顧客ファイルの保守を行うことができます。

PGMM002はアクション・コードと顧客識別番号(必要な場合)を受け取ります。実行されるアクションが画面に表示されます(CREATE、UPDATEまたはDELETE)。

制御:

実行される制御は、行われるアクションによって異なります。

新規顧客を作成するとき、このプログラムでは次のチェックが行われます。

既存顧客を更新する場合の制御は、顧客の作成と同じですが、変更できない顧客識別番号は除外されます。

顧客削除のリクエストでは制御は実行されません。

PGMMM03(顧客リスト)

このプログラムは、VSAMファイルに格納されている顧客リストを生成します。各画面に表示される顧客数は限定されますが、[PF7]キーと[PF8]キーを使用すると前後のページにアクセスできます。顧客行の先頭に空白以外の文字を入力すると、その顧客の詳細情報画面にアクセスできます(プログラムPGMM001に関する項を参照)。

バッチ・プログラムの説明

PGMMB00(VSAMファイルの初期ロード)

このバッチ・プログラムは、VSAMファイルに格納されるデータを含むシーケンシャル・ファイルを読み取ります。エントリ・ファイルのレコードごとに、VSAMレコードが作成されます。このプログラムを実行する前に、VSAMファイルを削除および定義しておく必要があります。エントリ・ファイル内のデータはすべて有効であるとみなされるため、このプログラム内では制御は実行されません。

PGMMB01(顧客レポート)

PGMMB01は、VSAMファイルからすべての顧客レコードを読み取り、レポートを生成します。生成されるレポートの例はこのドキュメントで示します。

PGMMB02(バッチ顧客保守プログラム)

入力シーケンシャル・ファイルの各レコードには3文字のアクション・コード(ADD、UPDまたはDEL)と、新規顧客の作成または既存顧客の更新時に必要な顧客データが含まれます。各入力行によってVSAM顧客ファイルが更新されます。シーケンシャル・ファイル内の顧客データは有効であるとみなされ、PGMMB02バッチ・プログラムでは制御は実行されません。

 

Simple Appの機能

バッチ処理

バッチ・プログラムおよびユーティリティを使用して、アプリケーションで管理されるデータを提供するVSAM顧客ファイルのデータ移入、更新およびリスト作成を行います。このアプリケーションでは5つのジョブが実行されます。ここでは、ジョブの使用方法について説明します。

VSAM顧客ファイルの初期ロード

  1. ステップ1: VSAMファイルの定義

    2. 最初に、DELETE/DEFINEコマンドを使用してIDCAMSユーティリティでVSAM顧客ファイルを定義します。

  2. ステップ2: VSAMファイルの初期ロード

    3. バッチ・プログラムPGMMB00を使用してVSAMファイルにデータを移入します。

  3. ステップ3: VSAMファイルのチェック

    4. IDCAMSを使用し、z/OS環境で容易に読み取ることができるシーケンシャル・ファイルをVSAMファイルから再生成(REPRO)します。

  4. ステップ4: VSAMファイルのレポート

    5. バッチ・プログラムPGMMB01は、VSAM顧客ファイルに格納されている顧客リストを生成します。

    図3-3 VSAM顧客ファイルの初期ロード


    VSAM顧客ファイルの初期ロード

VSAM顧客ファイルの更新

  1. ステップ1: VSAMファイルの更新

    2. バッチ・プログラムPGMMB02は、VSAM顧客ファイルに対して実行する更新を含むシーケンシャル・ファイルを読み取ります。入力ファイルは、IBM標準ソート・ユーティリティによってソートされます。

  2. ステップ2: VSAMファイルのレポート

    3. バッチ・プログラムPGMMB02を再び使用して、更新がVSAM顧客ファイルに正しく適用されたことをチェックします。

    図3-4 VSAMファイルの更新


    VSAMファイルの更新

データの説明

Simple Sample Applicationは、VSAMメイン顧客ファイル1つのみを利用します。移行プロセスをできるだけ単純にするために、データは表示可能な形式で格納されています(COBOL構文の場合、Xと9のUSAGE DISPLAY pictureが使用されます)。

VSAM顧客ファイルには、次の情報が含まれます。

表3-1 VSAM顧客ファイルの説明
名前
種類
長さ
説明
CUSTIDENT
数値
6
顧客識別番号
CUSTLNAME
英字
30
顧客の姓
CUSTFNAME
英字
20
顧客の名
CUSTADDRS
英字
30
顧客の住所(番地)
CUSTCITY
英字
20
市町村
CUSTSTATE
英字
2
州
CUSTBDATE
数値
8
顧客の生年月日
CUSTEMAIL
英字
40
顧客の電子メール・アドレス
CUSTPHONE
数値
10
顧客の電話番号

このVSAMファイルは、顧客識別番号に基づいたキー順データセット(KSDS)です。各レコードには266文字が含まれ、キーは位置1 - 6に格納されています。

VSAM顧客ファイルのCOBOLでの指定
リスト3-5 VSAM顧客ファイルのCOBOLでの指定 
01  ODCSF0-RECORD.
    05  CUSTIDENT    PIC 9(006).
    05  CUSTLNAME    PIC X(030).
    05  CUSTFNAME    PIC X(020).
    05  CUSTADDRS    PIC X(030).
    05  CUSTCITY     PIC X(020).
    05  CUSTSTATE    PIC X(002).
    05  CUSTBDATE    PIC 9(008).
    05  CUSTBDATE-G  REDEFINES CUSTBDATE.
     10 CUSTBDATE-CC PIC 9(002). 
     10 CUSTBDATE-YY PIC 9(002). 
     10 CUSTBDATE-MM PIC 9(002). 
     10 CUSTBDATE-DD PIC 9(002). 
    05  CUSTEMAIL    PIC X(040).
    05  CUSTPHONE    PIC 9(010).
    05  FILLER       PIC X(100).

レポート・レイアウト

次のレポートがプログラムPGMMB01によって生成されます。初期ロード後のVSAMファイル(METAW00.VSAM.CUSTOMER)の顧客リストです。

リスト3-6 Simple Appの初期レポート 
PGMMB01                 Simple Sample Application                           07/16/2009    
    _ ID _ _ LAST NAME    _ _    FIRST NAME    _ _    CITY     _ _ PHONE  _ _B. DATE _     
    ------ ----------------------------------- -------------------- ---------- ----------  
         1 Richardson            Bobby          New Orleans      5553557901 09/07/1961     
         2 Roberts               Sammy          San Francisco    5559827383 01/24/1973     
         3 Douglas               Burt           Atlanta          5556531100 10/12/1981     
         4 Ewing                 Samantha       New York         5558762763 07/27/1962     
         5 Prince                Anne           Fresno           5553410156 12/25/1991
PGMMB01             Simple Sample Application                                 07/16/2009    
    _ ID _ _    LAST NAME    _ _    FIRST NAME    _ _    CITY     _ _ PHONE  _ _B. DATE _   
   ------ ------------------------------ -------------------- -------------------- -------  
        6 Colombus              Christopher     Colombus          5557811021 07/27/1962     
        7 Raul                  Menedez         Fresno            5558981572 07/27/1962     
        8 Doors                 Bill            Seattle           5553122000 01/01/1958     
        9 Awing                 Charles         San antonio       5559990123 06/29/1929

次のレポートは、更新された顧客ファイルに基づくものです。

リスト3-7 Simple Appの更新された顧客ファイル・レポート 
PGMMB01                 Simple Sample Application                           07/16/2009    
    _ ID _ _ LAST NAME    _ _    FIRST NAME    _ _    CITY     _ _ PHONE  _ _B. DATE _     
    ------ ----------------------------------- -------------------- ---------- ----------  
         1 Richardson            Bobby          New Orleans      5553557901 09/07/1961     
         2 Roberts               Sammy Jr       San Francisco    5559827383 01/24/1973     
         3 Douglas               Burt           Atlanta          5556531100 10/12/1981     
         4 Ewing                 Samantha       New York         5558762763 07/27/1962     
         5 Prince                Anne           Fresno           5553410156 12/25/1991     
_ ID _ _ LAST NAME    _ _    FIRST NAME    _ _    CITY     _ _ PHONE  _ _B. DATE _     
    ------ ----------------------------------- -------------------- ---------- ----------  
6 Colombus             Christopher      Colombus         5557811021 07/27/1950      
        8 Doors                Bill             Seattle          5553122000 01/01/1958      
        9 Awing                Charles          San antonio      5559990123 06/29/1929      
       10 Simms                Arthur           New Orleans      5551298373 01/17/1969      
       11 LaFayette            Eric             Plesanton        5554653213 02/12/1995      
       12 Jackson              Mic              Fresno           5559800727 01/01/1959

 

Simple Appアプリケーションの使用

ここでは、Simple Appアプリケーションの使用方法を説明するために、アプリケーションの使用例を示します。

顧客レコードの表示

  1. CICS環境にアクセスし、Simple Appのメイン・トランザクション・コードM000を入力してアプリケーションに接続します。


    2. VSAMファイルの更新

  2. メイン・メニューが表示されます。「顧客ID」フィールドに000003と入力し、[PF08]キーを押して顧客を照会します。


    3. VSAMファイルの更新

  3. Douglas Burtの顧客レコードが表示されます。[PF03]キーを押して、メイン・メニューに戻ります。


    4. VSAMファイルの更新

顧客レコードの更新

  1. メイン・メニューで、「顧客ID」フィールドに000003と入力して[PF06]キーを押し、顧客情報を更新します。


    2. VSAMファイルの更新

  2. 更新画面ではすべてのデータを変更できます。画面ヘッダーにアクション更新が表示されます。顧客の住所を変更して、[Enter]を押します。


    3. VSAMファイルの更新

  3. [PF12]を押して更新を確認します。画面のフッター部分に保守完了というメッセージが表示されます。入力内容を取り消すには、[PF03]を押してメイン・メニューに戻ります。


    4. VSAMファイルの更新

顧客レポートの印刷

  1. メイン・メニューで[PF04]キーを押して、顧客リストの最初のページにアクセスします。


    2. VSAMファイルの更新

  2. [PF08]キーを押すとリストの次のページが表示されます。[PF07]キーを押すとリストの前のページが表示されます。
注意: 各顧客の左側の選択列に空白以外の任意の文字を入力すると、顧客照会を実行できます。

新規顧客の追加

  1. メイン・メニューで[PF05]キーを押すと、次の画面が表示されます。


    2. VSAMファイルの更新

    画面ヘッダーのアクションが作成に設定され、フィールドの保護が解除されます。

  2. 存在していない有効なIDを含む新規顧客データを入力し、[Enter]を押します。

    3. プログラムがレコードを検証します。エラーが見つからなければ、確認メッセージが表示されます。

  3. [PF12]キーを押すと、新しい顧客レコードが作成されます。

    4. 新規顧客が追加されたというメッセージが表示されます。

  4. [PF03]キーを押してメイン・メニューに戻ります。

 

Simple AppのAPI

ここでは、Simple Appアプリケーション・プログラムで使用されるCICS APIについて説明します。

MAP API

SEND 

EXEC CICS
     SEND MAP('MAPM000') MAPSET('MAPM000') ERASE
END-EXEC.
EXEC CICS 
     SEND MAP('MAPM000') MAPSET('MAPM000') CURSOR ERASE
END-EXEC.
EXEC CICS
     SEND MAP('MAPM001') MAPSET('MAPM001') FROM(MAPM001O) ERASE
END-EXEC.

RECEIVE 

EXEC CICS
     RECEIVE MAP('MAPM000') MAPSET('MAPM000')
END-EXEC.
EXEC CICS
     RECEIVE MAP('ORDMAP1') MAPSET('ORDSET1') INTO(ORDMAP1)
END-EXEC.

NAVIGATION API

RETURN 

EXEC CICS    
     RETURN  
END-EXEC.    
EXEC CICS                                
     RETURN TRANSID('M000') COMMAREA(COMM-RECORD)
                            LENGTH(LENGTH OF COMM-RECORD)
END-EXEC.

XCTL 

EXEC CICS
     XCTL PROGRAM(PGM-DEST) COMMAREA(COMM-RECORD) 
                            LENGTH(LENGTH OF COMM-RECORD)
END-EXEC.

ABEND 

EXEC CICS
     ABEND ABCODE('META')
END-EXEC.

VSAM API

STARTBR 

EXEC CICS STARTBR DATASET ('ODCSF0') 
                  RIDFILD (CUST-FILE-KEY)
                  EQUAL 
                  RESP    (RESPONSE-CODE) 
END-EXEC.
EXEC CICS STARTBR DATASET ('ODCSF0') 
                  RIDFILD (CUST-FILE-KEY)
                  GTEQ
                  RESP    (RESPONSE-CODE)
END-EXEC.

READ 

EXEC CICS 
    READ FILE('ODCSF0') 
         INTO(VS-ODCSF0-RECORD) 
         RIDFLD(CUST-FILE-KEY) 
         LENGTH(LENGTH OF VS-ODCSF0-RECORD)
         EQUAL
         RESP(RESPONSE-CODE) 
END-EXEC.
EXEC CICS READ DATASET ('ODCSF0') 
               INTO    (READ-ODCSF0-RECORD) 
               LENGTH  (LENGTH OF READ-ODCSF0-RECORD) 
               RIDFLD  (CUST-FILE-KEY) 
               EQUAL 
               UPDATE 
               RESP    (RESPONSE-CODE) 
END-EXEC.

WRITE 

EXEC CICS WRITE DATASET   ('ODCSF0') 
                FROM      (MAJ-ODCSF0-RECORD) 
                LENGTH    (LENGTH OF MAJ-ODCSF0-RECORD)
                RIDFLD    (MAJ-CUSTIDENT) 
                KEYLENGTH (6) 
                RESP      (RESPONSE-CODE) 
END-EXEC.

REWRITE 

EXEC CICS REWRITE DATASET ('ODCSF0') 
                  FROM    (READ-ODCSF0-RECORD) 
                  LENGTH  (LENGTH OF READ-ODCSF0-RECORD)
                  RESP    (RESPONSE-CODE) 
END-EXEC.

READNEXT 

EXEC CICS READNEXT DATASET ('ODCSF0') 
                   INTO    (CLT-ODCSF0-RECORD) 
                   LENGTH  (LENGTH OF CLT-ODCSF0-RECORD)
                   RIDFLD  (CUST-FILE-KEY) 
                   RESP    (RESPONSE-CODE) 
END-EXEC.

READPREV 

EXEC CICS READPREV DATASET ('ODCSF0') 
                   INTO    (CLT-ODCSF0-RECORD) 
                   LENGTH  (LENGTH OF CLT-ODCSF0-RECORD)
                   RIDFLD  (CUST-FILE-KEY) 
                   RESP    (RESPONSE-CODE) 
END-EXEC.

ENDBR 

EXEC CICS ENDBR DATASET ('ODCSF0')
END-EXEC.

DELETE 

EXEC CICS DELETE FILE    ('ODCSF0')
                 RIDFLD  (CUST-FILE-KEY)
                 RESP    (RESPONSE-CODE)
END-EXEC.

MISCELLEANOUS API

TIME 

EXEC CICS                         
     ASKTIME ABSTIME(ABS-TIME)   
END-EXEC.                         
EXEC CICS 
     FORMATTIME ABSTIME(ABS-TIME)
                DDMMYY(VDATEO) DATESEP('-')      
END-EXEC.

HANDLE CONDITION 

EXEC CICS
     IGNORE CONDITION   MAPFAIL
END-EXEC.
EXEC CICS 
     HANDLE CONDITION PGMIDERR(PGM-NOTFOUND)
END-EXEC.

 

Simple Appの参照ドキュメント

CICS APIの詳細は次のアドレスを参照してください。

http://publib.boulder.ibm.com/infocenter/cicsts/v3r1/index.jsp?topic=/com.ibm.cics.ts31.doc/dfhp4/topics/dfhp4_commands.htm

CICS APIの詳細

次のCICS APIがSimple Appアプリケーションで使用されています。

表3-2 Simple AppのCICS API
API
説明
ASKTIME
現在の日付と時刻をリクエストします。
DELETE
ファイル(VSAM KSDS、VSAM RRDS、データ表のみ)からレコードを削除します。
ENDBR
ファイルのブラウズを停止します。
FORMATTIME
絶対日時を指定された書式に変換します。
LINK
戻り値を想定する別のプログラムにリンクします。外部CICSインタフェース(EXCI)で提供されるLINKコマンドは、1回の呼出しでインタフェースの6つのコマンドすべてを実行します。EXCIの詳細は、『CICS外部インタフェース・ガイド』を参照してください。
READ
ファイルからレコードを読み取ります。
READNEXT
ファイルのブラウズ中に次のレコードを読み取ります。
READPREV
ファイルのブラウズ中に前のレコードを読み取ります(VSAMおよびデータ表のみ)。
RECEIVE MAP
画面からの入力をアプリケーション・データ領域に受け取ります。BMSの詳細は、次を参照してください
RETURN
プログラムに制御を返します。
REWRITE
ファイルのレコードを更新します。
SEND MAP
マップされた出力データを端末に送信します。キーワードは、最小、標準および完全BMSでサポートされるように区切られます。BMSの詳細は、『CICSアプリケーション・プログラミング・ガイド』を参照してください。
START
指定された時刻にタスクを開始します。
STARTBR
ファイルのブラウズを開始します。
WRITE
レコードを書き込みます。
XCTL
プログラムの制御を移します。

このドキュメントは、『CICS Transaction Server for z/OSアプリケーション・プログラミング・リファレンス』に基づいています。


  先頭に戻る       前  次