4.3.1 レコードをファイルに追加(1レコード単位)

あるファイルにレコードを追加するファンクションを作成します。

処理対象ファイル

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

RDMLプログラム

GROUP_BY   NAME(#CUSTOMER) FIELDS(#CUSTNO #NAME #ADDL1 
           #ADDL2 #ADDL3)

BEGIN_LOOP
CHANGE     FIELD(#CUSTOMER) TO(*DEFAULT)
REQUEST    FIELDS(#CUSTOMER) EXIT_KEY(*YES *EXIT) 
           MENU_KEY(*YES *MENU)
INSERT     FIELDS(#CUSTOMER) TO_FILE(CUSMST) 
           VAL_ERROR(*LASTDIS) 
END_LOOP

 

着目点: