#2
|
|||
|
|||
Tomado desde la ayuda en línea para CREATE DATA.
PARAMETERS: type(10) TYPE c, length TYPE i, decimals TYPE i. DATA dref TYPE REF TO data. FIELD-SYMBOLS <fs> TYPE ANY. START-OF-SELECTION. TRY. PERFORM create_data USING type length decimals CHANGING dref. ASSIGN dref->* TO <fs>. DESCRIBE FIELD <fs> TYPE type LENGTH length IN BYTE MODE DECIMALS decimals. WRITE: type, length, decimals. CATCH cx_sy_create_data_error. WRITE: 'Error creating', type, length, decimals. ENDTRY. FORM create_data USING value(typ) TYPE c value(len) TYPE i value(dec) TYPE i CHANGING dref TYPE REF TO data RAISING cx_sy_create_data_error. TRANSLATE typ TO LOWER CASE. CASE typ. WHEN 'd' OR 'f' OR 'i' OR 'string' OR 't' OR 'xstring'. CREATE DATA dref TYPE (typ). WHEN 'c' OR 'n' OR 'x'. CREATE DATA dref TYPE (typ) LENGTH len. WHEN 'p'. CREATE DATA dref TYPE p LENGTH len DECIMALS dec. WHEN OTHERS. RAISE EXCEPTION TYPE cx_sy_create_data_error. ENDCASE. ENDFORM. |
Herramientas | Buscar en Tema |
Desplegado | |
|
|