如何完善下列代码，根据选择的字段生成新表

如何完善下列代码，根据选择的字段生成新表？请高手赐教，万分感谢！！！


Use xsda
L_TMP=SYS(2015)
L_CA=SELECT(  )
COPY   STRUCTURE   TO   (L_TMP)   EXTE
ALTER TABLE  (L_TMP)  ADD 是否打印 L
SELE (L_TMP)
REPLACE ALL 是否打印 WITH .T.
BROWSE FIELDS Field_name :20 :R :H='字段名称',是否打印  TITLE "选择打印字段：T-打印，F-不打印"
USE IN (L_TMP)