Page History

...

例1：指定された注文のすべての行をブラウズし、個々の明細行を選択できるようにします。

   GROUP_BY   NAME(#BRWLIN) FIELDS(#ORDLIN #PRODUCT #QUANTITY)
   REQUEST    FIELDS(#ORDNUM)
   BROWSE     FIELDS(#BRWLIN) FROM_FILE(ORDLIN) WITH_KEY(#ORDNUM) RETURN_RRN(#RRNFLD)

これは、機能的に以下の例と似ています。

   DEF_LIST   NAME(#BRWLIN) FIELDS((#SELECTOR *SELECT) #ORDLIN #PRODUCT #QUANTITY #RRNFLD)
   REQUEST    FIELDS(#ORDNUM)
   CLR_LIST   NAMED(#BRWLIN)
   SELECT     FIELDS(#BRWLIN) FROM_FILE(ORDLIN) WITH_KEY(#ORDNUM) RETURN_RRN(#RRNFLD)
   ADD_ENTRY  TO_LIST(#BRWLIN)
   ENDSELECT
   DISPLAY    BROWSELIST(#BRWLIN)
   SELECTLIST NAMED(#BRWLIN) GET_ENTRYS(*SELECT)
   FETCH      FIELDS(#BRWLIN) FROM_FILE(ORDLIN) WITH_RRN(#RRNFLD)
   ENDSELECT

...