@abaplint/runtime 2.13.82 → 2.13.84

package/build/src/builtin/find_any_not_of.d.ts

@@ -0,0 +1,11 @@
+import { Integer } from "../types";
+import { ICharacter } from "../types/_character";
+import { INumeric } from "../types/_numeric";
+export interface IFindAnyNotOfInput {
+    val: ICharacter | string;
+    sub: ICharacter | string;
+    off?: INumeric | number;
+    len?: INumeric | number;
+    occ?: INumeric | number;
+}
+export declare function find_any_not_of(input: IFindAnyNotOfInput): Integer;

package/build/src/builtin/find_any_not_of.js

@@ -0,0 +1,43 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.find_any_not_of = find_any_not_of;
+const types_1 = require("../types");
+const throw_error_1 = require("../throw_error");
+function find_any_not_of(input) {
+    const val = typeof input.val === "string" ? input.val : input.val.get();
+    const sub = typeof input.sub === "string" ? input.sub : input.sub.get();
+    const off = typeof input.off === "number" ? input.off : input.off?.get() || 0;
+    const len = typeof input.len === "number" ? input.len : input.len?.get();
+    let occ = typeof input.occ === "number" ? input.occ : input.occ?.get();
+    if (occ === 0) {
+        (0, throw_error_1.throwError)("CX_SY_STRG_PAR_VAL");
+    }
+    else if (occ === undefined) {
+        occ = 1;
+    }
+    if (off < 0 || off > val.length) {
+        (0, throw_error_1.throwError)("CX_SY_RANGE_OUT_OF_BOUNDS");
+    }
+    if (len !== undefined && (len < 0 || off + len > val.length)) {
+        (0, throw_error_1.throwError)("CX_SY_RANGE_OUT_OF_BOUNDS");
+    }
+    const end = len === undefined ? val.length : off + len;
+    const characters = new Set(sub.split(""));
+    let remaining = Math.abs(occ);
+    if (occ > 0) {
+        for (let i = off; i < end; i++) {
+            if (!characters.has(val.charAt(i)) && --remaining === 0) {
+                return new types_1.Integer().set(i);
+            }
+        }
+    }
+    else {
+        for (let i = end - 1; i >= off; i--) {
+            if (!characters.has(val.charAt(i)) && --remaining === 0) {
+                return new types_1.Integer().set(i);
+            }
+        }
+    }
+    return new types_1.Integer().set(-1);
+}
+//# sourceMappingURL=find_any_not_of.js.map

package/build/src/builtin/find_any_of.d.ts

@@ -0,0 +1,11 @@
+import { Integer } from "../types";
+import { ICharacter } from "../types/_character";
+import { INumeric } from "../types/_numeric";
+export interface IFindAnyOfInput {
+    val: ICharacter | string;
+    sub: ICharacter | string;
+    off?: INumeric | number;
+    len?: INumeric | number;
+    occ?: INumeric | number;
+}
+export declare function find_any_of(input: IFindAnyOfInput): Integer;

package/build/src/builtin/find_any_of.js

@@ -0,0 +1,46 @@
+"use strict";
+Object.defineProperty(exports, "__esModule", { value: true });
+exports.find_any_of = find_any_of;
+const types_1 = require("../types");
+const throw_error_1 = require("../throw_error");
+function find_any_of(input) {
+    const val = typeof input.val === "string" ? input.val : input.val.get();
+    const sub = typeof input.sub === "string" ? input.sub : input.sub.get();
+    const off = typeof input.off === "number" ? input.off : input.off?.get() || 0;
+    const len = typeof input.len === "number" ? input.len : input.len?.get();
+    let occ = typeof input.occ === "number" ? input.occ : input.occ?.get();
+    if (occ === 0) {
+        (0, throw_error_1.throwError)("CX_SY_STRG_PAR_VAL");
+    }
+    else if (occ === undefined) {
+        occ = 1;
+    }
+    if (off < 0 || off > val.length) {
+        (0, throw_error_1.throwError)("CX_SY_RANGE_OUT_OF_BOUNDS");
+    }
+    if (len !== undefined && (len < 0 || off + len > val.length)) {
+        (0, throw_error_1.throwError)("CX_SY_RANGE_OUT_OF_BOUNDS");
+    }
+    if (sub === "") {
+        return new types_1.Integer().set(-1);
+    }
+    const end = len === undefined ? val.length : off + len;
+    const characters = new Set(sub.split(""));
+    let remaining = Math.abs(occ);
+    if (occ > 0) {
+        for (let i = off; i < end; i++) {
+            if (characters.has(val.charAt(i)) && --remaining === 0) {
+                return new types_1.Integer().set(i);
+            }
+        }
+    }
+    else {
+        for (let i = end - 1; i >= off; i--) {
+            if (characters.has(val.charAt(i)) && --remaining === 0) {
+                return new types_1.Integer().set(i);
+            }
+        }
+    }
+    return new types_1.Integer().set(-1);
+}
+//# sourceMappingURL=find_any_of.js.map

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

@@ -15,6 +15,8 @@ export * from "./count";
 export * from "./escape";
 export * from "./exp";
 export * from "./find";
+export * from "./find_any_not_of";
+export * from "./find_any_of";
 export * from "./floor";
 export * from "./frac";
 export * from "./from_mixed";

package/build/src/builtin/index.js

@@ -32,6 +32,8 @@ __exportStar(require("./count"), exports);
 __exportStar(require("./escape"), exports);
 __exportStar(require("./exp"), exports);
 __exportStar(require("./find"), exports);
+__exportStar(require("./find_any_not_of"), exports);
+__exportStar(require("./find_any_of"), exports);
 __exportStar(require("./floor"), exports);
 __exportStar(require("./frac"), exports);
 __exportStar(require("./from_mixed"), exports);

package/build/src/db/db.d.ts

@@ -42,8 +42,11 @@ export interface DatabaseClient {
     disconnect(): Promise<void>;
     /*** execute any native SQL command */
     execute(sql: string | string[]): Promise<void>;
+    /*** no-op if a transaction is already open */
     beginTransaction(): Promise<void>;
+    /*** no-op if no transaction is open */
     commit(): Promise<void>;
+    /*** no-op if no transaction is open */
     rollback(): Promise<void>;
     delete(options: DeleteDatabaseOptions): Promise<{
         subrc: number;

package/build/src/statements/assign.js

@@ -21,6 +21,13 @@ function assign(input) {
                 for (const s of split) {
                     const upperS = s.toUpperCase().trimEnd();
                     if (upperS === "*") {
+                        if (!(input.dynamicSource instanceof types_1.DataReference)
+                            && !(input.dynamicSource instanceof types_1.FieldSymbol)) {
+                            // an earlier segment resolved to nothing, or to something that has
+                            // no address, so the name cannot be followed: sy-subrc 4
+                            abap.builtin.sy.get().subrc.set(4);
+                            return;
+                        }
                         // @ts-ignore
                         input.dynamicSource = input.dynamicSource.dereference();
                     }

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

@@ -1 +1,8 @@
-export declare function commit(): void;
+import { Context } from "../context";
+export interface ICommitOptions {
+    /** COMMIT CONNECTION, name of the database connection to commit */
+    connection?: string;
+    /** COMMIT WORK AND WAIT, note that updates are always executed synchronously */
+    wait?: boolean;
+}
+export declare function commit(context: Context, options?: ICommitOptions): Promise<void>;

package/build/src/statements/commit.js

@@ -1,7 +1,22 @@
 "use strict";
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.commit = commit;
-function commit() {
-    // todo
+async function commit(context, options) {
+    if (options?.connection !== undefined) {
+        const db = context.databaseConnections[options.connection];
+        if (db === undefined) {
+            throw new Error(`COMMIT CONNECTION, unknown connection "${options.connection}"`);
+        }
+        await db.commit();
+        return;
+    }
+    // COMMIT WORK ends the current LUW, ie. all open database connections are committed
+    for (const name of Object.keys(context.databaseConnections)) {
+        await context.databaseConnections[name].commit();
+    }
+    // sy-subrc is only set when the WAIT addition is specified
+    if (options?.wait === true) {
+        abap.builtin.sy.get().subrc.set(0);
+    }
 }
 //# sourceMappingURL=commit.js.map

package/build/src/statements/find.js

@@ -12,7 +12,12 @@ function find(input, options) {
     let s = "";
     if (options.find) {
         s = options.find;
-        if (typeof s !== "string") {
+        if (s instanceof types_1.Character) {
+            // trailing blanks are ignored for fixed length character typed operands,
+            // note that text string operands keep them
+            s = s.getTrimEnd();
+        }
+        else if (typeof s !== "string") {
             s = s.get();
         }
         if (s === "") {

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

@@ -1,7 +1,7 @@
 import { append } from "./append";
 import { assert } from "./assert";
 import { assign } from "./assign";
-import { commit } from "./commit";
+import { ICommitOptions } from "./commit";
 import { concatenate } from "./concatenate";
 import { condense } from "./condense";
 import { convert } from "./convert";
@@ -33,7 +33,7 @@ import { modifyInternal } from "./modify_internal";
 import { moveCorresponding } from "./move_corresponding";
 import { readTable } from "./read_table";
 import { replace } from "./replace";
-import { rollback } from "./rollback";
+import { IRollbackOptions } from "./rollback";
 import { setBit } from "./set_bit";
 import { shift } from "./shift";
 import { sort } from "./sort";
@@ -59,7 +59,6 @@ export declare class Statements {
     assign: typeof assign;
     cast: typeof cast;
     collect: typeof collect;
-    commit: typeof commit;
     concatenate: typeof concatenate;
     condense: typeof condense;
     convert: typeof convert;
@@ -81,7 +80,6 @@ export declare class Statements {
     raiseEvent: typeof raiseEvent;
     readTable: typeof readTable;
     replace: typeof replace;
-    rollback: typeof rollback;
     setBit: typeof setBit;
     setHandler: typeof setHandler;
     setLocale: typeof setLocale;
@@ -99,6 +97,8 @@ export declare class Statements {
     openCursor(target: INumeric, select: string, options: IOpenCursorDatabaseOptions): Promise<void>;
     fetchNextCursor(cursor: INumeric, target: any, packageSize?: INumeric): Promise<void>;
     closeCursor(cursor: INumeric): Promise<void>;
+    commit(options?: ICommitOptions): Promise<void>;
+    rollback(options?: IRollbackOptions): Promise<void>;
     deleteDatabase(table: string | ICharacter, options: IDeleteDatabaseOptions): Promise<void>;
     insertDatabase(table: string | ICharacter, options: IInsertDatabaseOptions): Promise<number | undefined>;
     modifyDatabase(table: string | ICharacter, options: IModifyDatabaseOptions): Promise<void>;

package/build/src/statements/index.js

@@ -62,7 +62,6 @@ class Statements {
     assign = assign_1.assign;
     cast = cast_1.cast;
     collect = collect_1.collect;
-    commit = commit_1.commit;
     concatenate = concatenate_1.concatenate;
     condense = condense_1.condense;
     convert = convert_1.convert;
@@ -84,7 +83,6 @@ class Statements {
     raiseEvent = raise_event_1.raiseEvent;
     readTable = read_table_1.readTable;
     replace = replace_1.replace;
-    rollback = rollback_1.rollback;
     setBit = set_bit_1.setBit;
     setHandler = set_handler_1.setHandler;
     setLocale = set_locale_1.setLocale;
@@ -113,6 +111,12 @@ class Statements {
     async closeCursor(cursor) {
         await (0, close_cursor_1.closeCursor)(this.context, cursor.get());
     }
+    async commit(options) {
+        return (0, commit_1.commit)(this.context, options);
+    }
+    async rollback(options) {
+        return (0, rollback_1.rollback)(this.context, options);
+    }
     async deleteDatabase(table, options) {
         await (0, delete_database_1.deleteDatabase)(table, options, this.context);
     }

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

@@ -1 +1,6 @@
-export declare function rollback(): void;
+import { Context } from "../context";
+export interface IRollbackOptions {
+    /** ROLLBACK CONNECTION, name of the database connection to roll back */
+    connection?: string;
+}
+export declare function rollback(context: Context, options?: IRollbackOptions): Promise<void>;

package/build/src/statements/rollback.js

@@ -1,7 +1,18 @@
 "use strict";
 Object.defineProperty(exports, "__esModule", { value: true });
 exports.rollback = rollback;
-function rollback() {
-    // todo
+async function rollback(context, options) {
+    if (options?.connection !== undefined) {
+        const db = context.databaseConnections[options.connection];
+        if (db === undefined) {
+            throw new Error(`ROLLBACK CONNECTION, unknown connection "${options.connection}"`);
+        }
+        await db.rollback();
+        return;
+    }
+    // ROLLBACK WORK ends the current LUW, ie. all open database connections are rolled back
+    for (const name of Object.keys(context.databaseConnections)) {
+        await context.databaseConnections[name].rollback();
+    }
 }
 //# sourceMappingURL=rollback.js.map

package/build/src/types/xstring.js

@@ -23,7 +23,9 @@ class XString {
     }
     set(value) {
         if (typeof value === "string") {
-            this.value = value;
+            // the input is interpreted as hexadecimal digits, the conversion stops at
+            // the first character which is not an uppercase hex digit
+            this.value = /^[0-9A-F]*/.exec(value)?.[0] || "";
             if (this.value.length % 2 === 1) {
                 this.value = this.value + "0";
             }

package/package.json

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