4.3.2 簡単な問い合わせ処理

ファイルからレコードを検索し、表示するファンクションを作成します。

処理対象ファイル

物理ファイル「CUSMST」(顧客マスター)

RDMLプログラム - その1

    GROUP_BY   NAME(#CUSTOMER) FIELDS(#CUSTNO #NAME #ADDL1 
               #ADDL2 #ADDL3)
    BEGIN_LOOP
L10 REQUEST    FIELD(#CUSTNO)
    FETCH      FIELDS(#CUSTOMER) FROM_FILE(CUSMST) 
               WITH_KEY(#CUSTNO) NOT_FOUND(L10) 
               ISSUE_MSG(*YES)
    DISPLAY    FIELDS(#CUSTOMER)
    END_LOOP

 

RDMLプログラム - その2

    GROUP_BY   NAME(#CUSTOMER) FIELDS(#CUSTNO #NAME #ADDL1 
               #ADDL2 #ADDL3)
    BEGIN_LOOP
    REQUEST    FIELD(#CUSTNO)
    FETCH      FIELDS(#CUSTOMER) FROM_FILE(CUSMST) 
               WITH_KEY(#CUSTNO)
       IF_STATUS  IS(*OKAY)
       DISPLAY    FIELDS(#CUSTOMER)
       ELSE
       MESSAGE    MSGTXT('No customer exists with this number')
       ENDIF
    END_LOOP

 

着目点: