外星人找路回家

CONSTRUCT回傳多參的寫法

       CONSTRUCT BY NAME tm.wc ON tc_obh01,tc_obh011

           BEFORE CONSTRUCT

             CALL cl_qbe_init()

            ON ACTION controlp                #單頭欄位開窗查詢

            CASE

               WHEN INFIELD(tc_obh01)  #申請單號

                  CALL cl_init_qry_var()

                  LET g_qryparam.form = "q_tc_obh_01"

                  LET g_qryparam.default1 = l_tc_obh01

                  LET g_qryparam.default2 = l_tc_obh011

                  CALL cl_create_qry() RETURNING l_tc_obh01,l_tc_obh011

                  DISPLAY l_tc_obh01 TO tc_obh01

                  DISPLAY l_tc_obh011 TO tc_obh011

                  NEXT FIELD tc_obh01

            END CASE