package obuchenie;

import com.sap.mw.jco.*;

public class TEST extends Object {

    public static void main(String args[]) {
        TEST app = new TEST();
    }
    int count;
    JCO.Client mConnection;
    JCO.Repository mRepository;
    String[] SAPInterfaces;

    public TEST() {
        try {
            // Logon info
            mConnection = JCO.createClient("SAP client",
                    "userid",
                    "password",
                    "language",
                    "application server host name",
                    "system number");
            mConnection.connect();
            mRepository = new JCO.Repository("TEST_REP", mConnection);
        } catch (Exception ex) {
            ex.printStackTrace();
            System.exit(1);
        }

        JCO.Function function = null;
        JCO.Table codes = null;

        try {
            function = this.createFunction("Z_RFC_TEST");
            function.getTableParameterList();

            if (function == null) {
                System.out.println(
                        "Z_RFC_TEST" + " not found in SAP.");
                System.exit(1);
            }

            codes = function.getTableParameterList().getTable("TABLE_FOR_Z");

            codes.appendRows(2); // Add two rows to internal table
            codes.setValue("1101", "ZWERKS");
            codes.setValue("0121", "ZMTART");

            codes.nextRow(); // Move onto next row
            codes.setValue("1102", "ZWERKS");
            codes.setValue("0122", "ZMTART");
            
            mConnection.execute(function);
            
            // Output result
            System.out.println(
                    function.getTableParameterList().getValue("TABLE_FOR_Z"));
        } catch (Exception ex) {
            System.exit(1);
        }
    }

    public JCO.Function createFunction(String name) throws Exception {
        try {
            IFunctionTemplate ft =
                    mRepository.getFunctionTemplate(name.toUpperCase());
            if (ft == null) {
                return null;
            }
            return ft.getFunction();
        } catch (Exception ex) {
            throw new Exception("Problem retrieving JCO.Function object.");
        }
    }
}

FUNCTION Z_RFC_TEST.

DATA: WA_ZOZM_TEST TYPE ZOZM_TEST,
      T_ZOZM_TEST TYPE STANDARD TABLE OF ZOZM_TEST.

LOOP AT TABLE_FOR_Z INTO WA_ZOZM_TEST.
  insert into zozm_test values wa_zozm_test.    "Запись в Z-таблицу ZOZM_TEST
  INSERT WA_ZOZM_TEST INTO TABLE T_FOR_CHECK.   "Запись во внутренню таблицу T_FOR_CHECK для проверки
ENDLOOP.


ENDFUNCTION.

FUNCTION Z_RFC_TEST.

DATA: ls_zozm_test TYPE zozm_test.

IF table_for_z[] IS NOT INITIAL.

LOOP AT table_for_z[] INTO ls_zozm_test.
  INSERT INTO zozm_test VALUES ls_zozm_test.
  INSERT ls_zozm_test INTO TABLE t_for_check[].
ENDLOOP.

ELSE.

*обработка на случай прихода пустой таблицы

ENDIF.

ENDFUNCTION.