Page History

注文内容の明細を表示するファンクションを作成します。

処理対象ファイル

物理ファイル「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