@abaplint/runtime 1.7.33 → 1.7.37

package/build/src/statements/append.js

@@ -19,6 +19,8 @@ function append(input) {
             }
         }
     }
+    // @ts-ignore
+    abap.builtin.sy.get().tabix.set(input.target.array().length);
 }
 exports.append = append;
 //# sourceMappingURL=append.js.map

package/build/src/statements/create_data.d.ts

@@ -1,11 +1,12 @@
-import { ABAPObject, DataReference, Structure, Table } from "../types";
+import { ABAPObject, DataReference, FieldSymbol, Structure, Table } from "../types";
 import { ICharacter } from "../types/_character";
 import { INumeric } from "../types/_numeric";
-declare type PointerType = INumeric | Table | ICharacter | ABAPObject | undefined | Structure;
+declare type PointerType = INumeric | Table | ICharacter | ABAPObject | undefined | Structure | FieldSymbol;
 export interface ICreateDataOptions {
     table?: boolean;
     name?: string;
     type?: PointerType;
+    likeLineOf?: FieldSymbol | Table;
 }
 export declare function createData(target: DataReference, options?: ICreateDataOptions): void;
 export {};

package/build/src/statements/create_data.js

@@ -2,7 +2,9 @@
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.createData = void 0;
 const clone_1 = require("../clone");
+const types_1 = require("../types");
 function createData(target, options) {
+    //  console.dir(options);
     if ((options === null || options === void 0 ? void 0 : options.name) && (options === null || options === void 0 ? void 0 : options.table)) {
         // @ts-ignore
         if (abap.DDIC[options.name] === undefined) {
@@ -30,6 +32,12 @@ function createData(target, options) {
     else if (options === null || options === void 0 ? void 0 : options.type) {
         target.assign((0, clone_1.clone)(options.type));
     }
+    else if (options === null || options === void 0 ? void 0 : options.likeLineOf) {
+        if (options.likeLineOf instanceof types_1.FieldSymbol) {
+            options.likeLineOf = options.likeLineOf.getPointer();
+        }
+        target.assign((0, clone_1.clone)(options.likeLineOf.getRowType()));
+    }
     else {
         target.assign((0, clone_1.clone)(target.getType()));
     }

package/build/src/statements/index.d.ts

@@ -19,6 +19,7 @@ import { insertDatabase } from "./insert_database";
 import { insertInternal } from "./insert_internal";
 import { loop } from "./loop";
 import { message } from "./message";
+import { modifyDatabase } from "./modify_database";
 import { modifyInternal } from "./modify_internal";
 import { moveCorresponding } from "./move_corresponding";
 import { readTable } from "./read_table";
@@ -30,6 +31,7 @@ import { shift } from "./shift";
 import { sort } from "./sort";
 import { split } from "./split";
 import { translate } from "./translate";
+import { updateDatabase } from "./update_database";
 import { write } from "./write";
 export declare class Statements {
     append: typeof append;
@@ -55,6 +57,8 @@ export declare class Statements {
     modifyInternal: typeof modifyInternal;
     moveCorresponding: typeof moveCorresponding;
     readTable: typeof readTable;
+    updateDatabase: typeof updateDatabase;
+    modifyDatabase: typeof modifyDatabase;
     replace: typeof replace;
     rollback: typeof rollback;
     select: typeof select;

package/build/src/statements/index.js

@@ -21,6 +21,7 @@ const insert_database_1 = require("./insert_database");
 const insert_internal_1 = require("./insert_internal");
 const loop_1 = require("./loop");
 const message_1 = require("./message");
+const modify_database_1 = require("./modify_database");
 const modify_internal_1 = require("./modify_internal");
 const move_corresponding_1 = require("./move_corresponding");
 const read_table_1 = require("./read_table");
@@ -32,6 +33,7 @@ const shift_1 = require("./shift");
 const sort_1 = require("./sort");
 const split_1 = require("./split");
 const translate_1 = require("./translate");
+const update_database_1 = require("./update_database");
 const write_1 = require("./write");
 // this is a class, as statements like SELECT needs access to the database object instance
 // and WRITE will access the Console
@@ -60,6 +62,8 @@ class Statements {
         this.modifyInternal = modify_internal_1.modifyInternal;
         this.moveCorresponding = move_corresponding_1.moveCorresponding;
         this.readTable = read_table_1.readTable;
+        this.updateDatabase = update_database_1.updateDatabase;
+        this.modifyDatabase = modify_database_1.modifyDatabase;
         this.replace = replace_1.replace;
         this.rollback = rollback_1.rollback;
         this.select = select_1.select;

package/build/src/statements/insert_database.d.ts

@@ -3,4 +3,4 @@ import { ICharacter } from "../types/_character";
 export interface IInsertDatabaseOptions {
     values: Structure;
 }
-export declare function insertDatabase(table: string | ICharacter, options: IInsertDatabaseOptions): void;
+export declare function insertDatabase(table: string | ICharacter, options: IInsertDatabaseOptions): number;

package/build/src/statements/insert_database.js

@@ -13,18 +13,22 @@ function insertDatabase(table, options) {
         // todo, integers should not be surrounded by '"'?
         values.push('"' + structure[k].get() + '"');
     }
+    if (typeof table !== "string") {
+        table = table.get();
+    }
     const sql = `INSERT INTO ${table} (${columns.join(",")}) VALUES (${values.join(",")})`;
     //  console.dir(sql);
+    let subrc = 0;
     try {
         this.db.exec(sql);
-        // @ts-ignore
-        abap.builtin.sy.get().subrc.set(0);
     }
     catch (error) {
         // eg "UNIQUE constraint failed" errors
-        // @ts-ignore
-        abap.builtin.sy.get().subrc.set(4);
+        subrc = 4;
     }
+    // @ts-ignore
+    abap.builtin.sy.get().subrc.set(subrc);
+    return subrc;
 }
 exports.insertDatabase = insertDatabase;
 //# sourceMappingURL=insert_database.js.map

package/build/src/statements/insert_internal.d.ts

@@ -5,7 +5,7 @@ export interface IInsertInternalOptions {
     index?: INumeric;
     initial?: boolean;
     data?: INumeric | ICharacter | Structure | ABAPObject | Table | string;
-    table: Table;
+    table: Table | FieldSymbol;
     referenceInto?: DataReference;
     assigning?: FieldSymbol;
     lines?: boolean;

package/build/src/statements/insert_internal.js

@@ -8,6 +8,9 @@ const read_table_1 = require("./read_table");
 const sort_1 = require("./sort");
 function insertInternal(options) {
     var _a;
+    if (options.table instanceof types_1.FieldSymbol) {
+        options.table = options.table.getPointer();
+    }
     const tableOptions = options.table.getOptions();
     const isSorted = (tableOptions === null || tableOptions === void 0 ? void 0 : tableOptions.type) === types_1.TableAccessType.sorted || (tableOptions === null || tableOptions === void 0 ? void 0 : tableOptions.type) === types_1.TableAccessType.hashed;
     if (isSorted) {

package/build/src/statements/modify_database.d.ts

@@ -0,0 +1,7 @@
+import { FieldSymbol, Structure, Table } from "../types";
+import { ICharacter } from "../types/_character";
+export interface IInsertDatabaseOptions {
+    from?: Structure | FieldSymbol;
+    table?: Table | FieldSymbol;
+}
+export declare function modifyDatabase(table: string | ICharacter, options: IInsertDatabaseOptions): void;

package/build/src/statements/modify_database.js

@@ -0,0 +1,36 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.modifyDatabase = void 0;
+const types_1 = require("../types");
+const insert_database_1 = require("./insert_database");
+const update_database_1 = require("./update_database");
+function modifyDatabase(table, options) {
+    if (this.db === undefined) {
+        throw new Error("Runtime, database not initialized");
+    }
+    if (options.table instanceof types_1.FieldSymbol) {
+        options.table = options.table.getPointer();
+    }
+    if (options.from instanceof types_1.FieldSymbol) {
+        options.from = options.from.getPointer();
+    }
+    if (options.table) {
+        for (const row of options.table.array()) {
+            const subrc = insert_database_1.insertDatabase.bind(this)(table, { values: row });
+            if (subrc !== 0) {
+                update_database_1.updateDatabase.bind(this)(table, { from: row });
+            }
+        }
+    }
+    else if (options.from) {
+        const subrc = insert_database_1.insertDatabase.bind(this)(table, { values: options.from });
+        if (subrc !== 0) {
+            update_database_1.updateDatabase.bind(this)(table, { from: options.from });
+        }
+    }
+    else {
+        throw "modifyDatabase todo";
+    }
+}
+exports.modifyDatabase = modifyDatabase;
+//# sourceMappingURL=modify_database.js.map

package/build/src/statements/update_database.d.ts

@@ -0,0 +1,7 @@
+import { FieldSymbol, Structure, Table } from "../types";
+import { ICharacter } from "../types/_character";
+export interface IInsertDatabaseOptions {
+    from?: Structure | FieldSymbol;
+    table?: Table | FieldSymbol;
+}
+export declare function updateDatabase(table: string | ICharacter, options: IInsertDatabaseOptions): number;

package/build/src/statements/update_database.js

@@ -0,0 +1,51 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.updateDatabase = void 0;
+const types_1 = require("../types");
+function updateDatabase(table, options) {
+    if (this.db === undefined) {
+        throw new Error("Runtime, database not initialized");
+    }
+    if (options.table instanceof types_1.FieldSymbol) {
+        options.table = options.table.getPointer();
+    }
+    if (options.from instanceof types_1.FieldSymbol) {
+        options.from = options.from.getPointer();
+    }
+    if (typeof table !== "string") {
+        table = table.get();
+    }
+    // @ts-ignore
+    const keys = abap.DDIC[table.toUpperCase()].keyFields;
+    const where = [];
+    const set = [];
+    if (options.from) {
+        const structure = options.from.get();
+        for (const k of Object.keys(structure)) {
+            // todo, integers should not be surrounded by '"'?
+            const str = k + ' = "' + structure[k].get() + '"';
+            if (keys.includes(k.toUpperCase())) {
+                where.push(str);
+            }
+            else {
+                set.push(str);
+            }
+        }
+    }
+    else {
+        throw "updateDatabase, todo";
+    }
+    const sql = `UPDATE ${table} SET ${set.join(", ")} WHERE ${where.join(" AND ")}`;
+    let subrc = 0;
+    try {
+        this.db.exec(sql);
+    }
+    catch (error) {
+        subrc = 4;
+    }
+    // @ts-ignore
+    abap.builtin.sy.get().subrc.set(subrc);
+    return subrc;
+}
+exports.updateDatabase = updateDatabase;
+//# sourceMappingURL=update_database.js.map

package/build/src/types/integer.js

@@ -16,6 +16,16 @@ class Integer {
             this.value = 0;
         }
         else if (typeof value === "string") {
+            if (/[a-z]/i.test(value) === true) { // todo, match more here?
+                // @ts-ignore
+                if (abap.Classes["CX_SY_CONVERSION_NO_NUMBER"] !== undefined) {
+                    // @ts-ignore
+                    throw new abap.Classes["CX_SY_CONVERSION_NO_NUMBER"]();
+                }
+                else {
+                    throw "Global class CX_SY_CONVERSION_NO_NUMBER not found";
+                }
+            }
             this.value = parseInt(value, 10);
         }
         else if (value instanceof float_1.Float) {

package/build/src/types/numc.d.ts

@@ -8,6 +8,7 @@ export declare class Numc implements ICharacter {
         length?: number;
     });
     set(value: INumeric | ICharacter | Hex | string | number): this | undefined;
+    getLength(): number;
     clear(): void;
     get(): string;
 }

package/build/src/types/numc.js

@@ -28,6 +28,9 @@ class Numc {
         }
         return this;
     }
+    getLength() {
+        return this.length;
+    }
     clear() {
         this.value = "0".repeat(this.length);
     }

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@abaplint/runtime",
-  "version": "1.7.33",
+  "version": "1.7.37",
   "description": "Transpiler - Runtime",
   "main": "build/src/index.js",
   "typings": "build/src/index.d.ts",