tables: KNA1.*TYPE-POOLS: Z100T.TYPES: BEGIN OF Z100T_REC, cus_num like KNA1-KUNNR, name like KNA1-NAME1, s_term like KNA1-SORTL, city like KNA1-ORT01, pos_code like KNA1-PSTLZ, country type KNA1-SPRAS, Language type Kna1-spras,end of Z100T_REC.DATA: STRU TYPE standard table of Z100T_REC with header line.selection-screen begin of block blk1 with frame title text-t01.parameters: cu type KNA1-KUNNR obligatory, na type KNA1-NAME1 obligatory, s type KNA1-SORTL obligatory, ci type KNA1-ORT01 obligatory, po type KNA1-PSTLZ obligatory, co type KNA1-LAND1 obligatory, La type Kna1-spras OBLIGATORY default 'EN'.selection-screen end of block blk1.selection-screen begin of block blk2 with frame title text-t02.parameters: p_fname TYPE STRING default 'ZFILE100_SF01.txt' obligatory.selection-screen end of block blk2.selection-screen begin of block blk3 with frame title text-t03.parameters: add radiobutton group gr1, app radiobutton group gr1.selection-screen end of block blk3.start-of-selection.DO 10 TIMES. stru-cus_num = cu. stru-name = na. stru-s_term = s. stru-city = ci. stru-pos_code = po. stru-country = co. stru-language = la. append stru.ENDDO. IF add = 'X'. open dataset p_fname for output in text mode encoding default. LOOP AT stru. transfer stru to p_fname. IF SY-SUBRC NE 0. WRITE: / 'Error transferring record.'. stop. ENDIF. ENDLOOP. ENDIF.IF add <> 'X'. open dataset p_fname for appending in text mode encoding default. transfer stru to p_fname. IF SY-SUBRC NE 0. WRITE: / 'Error transferring record.'. ENDIF.ENDIF.write: / 'Data transfer successful'.end-of-selection.close dataset p_fname.
