注文内容の明細を表示するファンクションを作成します。
処理対象ファイル
物理ファイル「ORDHDR」(注文頭書き)、「ORDLIN」(注文明細)、「CUSMST」(顧客マスター)、「PROMST」(製品マスター)
RDMLプログラム
GROUP_BY NAME(#ORDERHEAD) FIELDS(#ORDER #DATDUE #CUSTNO
#NAME #ADDL1)
DEF_LIST NAME(#ORDERLINE) FIELDS(#ORDLIN #PRODNO #DESC
#QTY #VALUE)
BEGIN_LOOP
<< Get order number and fetch header and customer details >>
L10 REQUEST FIELDS(#ORDER)
FETCH FIELDS(#ORDERHEAD) FROM_FILE(ORDHDR)
WITH_KEY(#ORDER) NOT_FOUND(L10) ISSUE_MSG(*YES)
FETCH FIELDS(#ORDERHEAD) FROM_FILE(CUSTMST)
WITH_KEY(#CUSTNO) NOT_FOUND(L10) ISSUE_MSG(*YES)
<< Build list of associated lines and product details >>
CLR_LIST NAMED(#ORDERLINE)
SELECT FIELDS(#ORDERLINE) FROM_FILE(ORDLIN)
WITH_KEY(#ORDER)
FETCH FIELDS(#ORDERLINE) FROM_FILE(PROMST)
WITH_KEY(#PRODNO)
ADD_ENTRY TO_LIST(#ORDERLINE)
ENDSELECT
<< Display full details of the order >>
DISPLAY FIELDS(#ORDERHEAD) BROWSELIST(#ORDERLINE)
END_LOOP
