@abaplint/transpiler-cli 2.13.94 → 2.13.96

package/build/bundle.js

@@ -605,9 +605,8 @@ const BUFS = new Set([
     CH_DOT, CH_COMMA, CH_COLON, 40 /* ( */, 41 /* ) */, 91 /* [ */,
     93 /* ] */, 43 /* + */, CH_AT
 ]);
-// characters that may follow the closing "'", "`" or "|" of a literal, anything else
-// is a syntax error, "There must be a space or equivalent character after ...",
-// note that "(" is allowed, ie. text elements like 'text'(001)
+// characters treated as separators after ping literals and string templates.
+// Single-quoted text literals always end at their closing quote.
 const AFTER_LITERAL = new Set([
     EOF, CH_SPACE, CH_TAB, CH_NL, CH_DOT, CH_COMMA, CH_COLON, CH_DQUOTE,
     40 /* ( */, 41 /* ) */, 91 /* [ */, 93 /* ] */
@@ -925,9 +924,7 @@ class Lexer {
                 && ahead !== CH_QUOTE
                 && this.buffer.countIsEven(CH_QUOTE)) {
                 // end of string
-                if (AFTER_LITERAL.has(ahead)) {
-                    this.add();
-                }
+                this.add();
                 if (ahead === CH_DQUOTE) {
                     this.m = ModeComment;
                 }
@@ -3646,7 +3643,8 @@ class ExpandMacros {
         for (const input of inputs) {
             const search = "&" + i;
             const reg = new RegExp(search, "g");
-            str = str.replace(reg, input);
+            // a function replacement: "$`" and "$'" in the argument are text, not patterns
+            str = str.replace(reg, () => input);
             i++;
         }
         const file = new memory_file_1.MemoryFile("expand_macros.abap.prog", str);
@@ -17390,7 +17388,7 @@ class ModifyEntities {
         const mapped = (0, combi_1.seq)("MAPPED", expressions_1.Target);
         const reported = (0, combi_1.seq)("REPORTED", expressions_1.Target);
         const end = (0, combi_1.optPrio)((0, combi_1.per)(failed, result, mapped, reported));
-        const entities = (0, combi_1.seq)((0, combi_1.optPrio)("AUGMENTING"), "ENTITIES OF", expressions_1.NamespaceSimpleName, (0, combi_1.opt)("IN LOCAL MODE"), (0, combi_1.plusPrio)((0, combi_1.seq)("ENTITY", expressions_1.NamespaceSimpleName, (0, combi_1.plus)(operation))));
+        const entities = (0, combi_1.seq)((0, combi_1.optPrio)("AUGMENTING"), "ENTITIES OF", expressions_1.NamespaceSimpleName, (0, combi_1.optPrio)((0, combi_1.altPrio)("IN LOCAL MODE", (0, combi_1.seq)((0, combi_1.opt)("FORWARDING"), "PRIVILEGED"))), (0, combi_1.plusPrio)((0, combi_1.seq)("ENTITY", expressions_1.NamespaceSimpleName, (0, combi_1.plus)(operation))));
         const dynamic = (0, combi_1.seq)("ENTITIES", (0, combi_1.optPrio)((0, combi_1.altPrio)("IN LOCAL MODE", (0, combi_1.seq)((0, combi_1.opt)("FORWARDING"), "PRIVILEGED"))), "OPERATIONS", expressions_1.Source);
         const create2 = (0, combi_1.seq)("CREATE", fieldsWith, (0, combi_1.opt)((0, combi_1.seq)("CREATE BY", expressions_1.EMLEntityPath, fieldsWith)));
         const create3 = (0, combi_1.seq)("CREATE BY", expressions_1.EMLEntityPath, fieldsWith);
@@ -28102,6 +28100,7 @@ class TypeUtils {
             || type instanceof basic_1.StringType
             || type instanceof basic_1.CLikeType
             || type instanceof basic_1.CSequenceType
+            || type instanceof basic_1.DataType
             || this.isCharLikeField(type);
     }
     isCharLike(type) {
@@ -29352,6 +29351,7 @@ class BasicTypes {
     }
     parseType(node, qualifiedName) {
         var _a, _b, _c, _d, _e, _f, _g, _h, _j, _k;
+        var _l;
         const typeName = node.findFirstExpression(Expressions.TypeName);
         let text = (_a = node.findFirstExpression(Expressions.Type)) === null || _a === void 0 ? void 0 : _a.concatTokens().toUpperCase();
         if (text === undefined) {
@@ -29502,6 +29502,9 @@ class BasicTypes {
                         length = parseInt(int.concatTokens(), 10);
                     }
                 }
+                else if (node.get() instanceof Statements.Parameter) {
+                    length = (_l = this.findParameterLength(node)) !== null && _l !== void 0 ? _l : length;
+                }
                 found = new Types.CharacterType(length, { qualifiedName: qualifiedName }); // fallback
                 if (this.isOccurs(node)) {
                     found = new Types.TableType(found, { withHeader: concat.includes(" WITH HEADER LINE"), keyType: Types.TableKeyType.default }, qualifiedName);
@@ -29871,11 +29874,43 @@ class BasicTypes {
         throw new Error("findValue, unexpected");
     }
     findDecimals(node) {
-        var _a, _b;
+        var _a, _b, _c;
         const dec = (_b = (_a = node.findDirectExpression(Expressions.Decimals)) === null || _a === void 0 ? void 0 : _a.findDirectExpression(Expressions.Integer)) === null || _b === void 0 ? void 0 : _b.concatTokens();
         if (dec) {
             return parseInt(dec, 10);
         }
+        if (node.get() instanceof Statements.Parameter) {
+            // PARAMETERS spells it seq("DECIMALS", Source) instead of the Decimals expression
+            const source = (_c = this.findParameterAddition(node, "DECIMALS")) === null || _c === void 0 ? void 0 : _c.concatTokens();
+            if (source && /^\d+$/.test(source)) {
+                return parseInt(source, 10);
+            }
+        }
+        return undefined;
+    }
+    // PARAMETERS spells it seq("LENGTH", Constant) instead of the Length expression
+    findParameterLength(node) {
+        const constant = this.findParameterAddition(node, "LENGTH");
+        if (constant === undefined) {
+            return undefined;
+        }
+        const length = this.parseInt(constant.concatTokens());
+        return length === undefined || isNaN(length) ? undefined : length;
+    }
+    // finds the expression following a direct keyword token, "VISIBLE LENGTH" is not "LENGTH"
+    findParameterAddition(node, keyword) {
+        var _a;
+        const children = node.getChildren();
+        for (let i = 0; i < children.length - 1; i++) {
+            const child = children[i];
+            const next = children[i + 1];
+            if (child instanceof nodes_1.ExpressionNode
+                || child.getFirstToken().getStr().toUpperCase() !== keyword
+                || ((_a = children[i - 1]) === null || _a === void 0 ? void 0 : _a.getFirstToken().getStr().toUpperCase()) === "VISIBLE") {
+                continue;
+            }
+            return next instanceof nodes_1.ExpressionNode ? next : undefined;
+        }
         return undefined;
     }
     findLength(node) {
@@ -29896,6 +29931,9 @@ class BasicTypes {
             }
         }
         if (val === undefined) {
+            if (node.get() instanceof Statements.Parameter) {
+                return this.findParameterLength(node);
+            }
             return undefined;
         }
         const intExpr = val.findFirstExpression(Expressions.Integer);
@@ -57052,7 +57090,7 @@ class DDIC {
                     return new Types.PackedType(length, 0, { qualifiedName: qualifiedName });
                 }
                 else {
-                    return new Types.PackedType(8, 0, { qualifiedName: qualifiedName });
+                    return new Types.PackedType(8, decimals !== null && decimals !== void 0 ? decimals : 0, { qualifiedName: qualifiedName });
                 }
             case "C":
                 if (length) {
@@ -69488,11 +69526,17 @@ class Table extends _abstract_object_1.AbstractObject {
         }
         const ret = [];
         for (const p of this.parsedData.fields) {
-            if (p.KEYFLAG === "X" && p.FIELDNAME === ".INCLUDE") {
-                const lookup = new ddic_1.DDIC(reg).lookupTableOrView(p.PRECFIELD).type;
+            if (p.KEYFLAG === "X" && (p.FIELDNAME === ".INCLUDE" || p.FIELDNAME.startsWith(".INCLU-"))) {
+                let lookup = new ddic_1.DDIC(reg).lookupTableOrView(p.PRECFIELD).type;
+                if (lookup instanceof _typed_identifier_1.TypedIdentifier) {
+                    lookup = lookup.getType();
+                }
+                // same naming as in parseType(), "--AP" are .APPENDS and get no suffix
+                const postfix = p.FIELDNAME.startsWith(".INCLU-") && p.FIELDNAME !== ".INCLU--AP"
+                    ? p.FIELDNAME.substring(".INCLU-".length) : "";
                 if (lookup instanceof Types.StructureType) {
                     for (const c of lookup.getComponents()) {
-                        ret.push(c.name);
+                        ret.push(c.name + postfix);
                     }
                 }
             }
@@ -71317,7 +71361,7 @@ class Registry {
     }
     static abaplintVersion() {
         // magic, see build script "version.js"
-        return "2.120.61";
+        return "2.120.64";
     }
     getDDICReferences() {
         return this.ddicReferences;
@@ -81813,6 +81857,178 @@ exports.EasyToFindMessages = EasyToFindMessages;
 
 /***/ },
 
+/***/ "./node_modules/@abaplint/core/build/src/rules/else_after_all_returns.js"
+/*!*******************************************************************************!*\
+  !*** ./node_modules/@abaplint/core/build/src/rules/else_after_all_returns.js ***!
+  \*******************************************************************************/
+(__unused_webpack_module, exports, __webpack_require__) {
+
+"use strict";
+
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
+Object.defineProperty(exports, "__esModule", ({ value: true }));
+exports.ElseAfterAllReturns = exports.ElseAfterAllReturnsConf = void 0;
+const issue_1 = __webpack_require__(/*! ../issue */ "./node_modules/@abaplint/core/build/src/issue.js");
+const _abap_rule_1 = __webpack_require__(/*! ./_abap_rule */ "./node_modules/@abaplint/core/build/src/rules/_abap_rule.js");
+const _basic_rule_config_1 = __webpack_require__(/*! ./_basic_rule_config */ "./node_modules/@abaplint/core/build/src/rules/_basic_rule_config.js");
+const _irule_1 = __webpack_require__(/*! ./_irule */ "./node_modules/@abaplint/core/build/src/rules/_irule.js");
+const Statements = __importStar(__webpack_require__(/*! ../abap/2_statements/statements */ "./node_modules/@abaplint/core/build/src/abap/2_statements/statements/index.js"));
+const Structures = __importStar(__webpack_require__(/*! ../abap/3_structures/structures */ "./node_modules/@abaplint/core/build/src/abap/3_structures/structures/index.js"));
+const Expressions = __importStar(__webpack_require__(/*! ../abap/2_statements/expressions */ "./node_modules/@abaplint/core/build/src/abap/2_statements/expressions/index.js"));
+const nodes_1 = __webpack_require__(/*! ../abap/nodes */ "./node_modules/@abaplint/core/build/src/abap/nodes/index.js");
+const edit_helper_1 = __webpack_require__(/*! ../edit_helper */ "./node_modules/@abaplint/core/build/src/edit_helper.js");
+const _statement_1 = __webpack_require__(/*! ../abap/2_statements/statements/_statement */ "./node_modules/@abaplint/core/build/src/abap/2_statements/statements/_statement.js");
+class ElseAfterAllReturnsConf extends _basic_rule_config_1.BasicRuleConfig {
+}
+exports.ElseAfterAllReturnsConf = ElseAfterAllReturnsConf;
+class ElseAfterAllReturns extends _abap_rule_1.ABAPRule {
+    constructor() {
+        super(...arguments);
+        this.conf = new ElseAfterAllReturnsConf();
+    }
+    getMetadata() {
+        return {
+            key: "else_after_all_returns",
+            title: "Else after all returns",
+            shortDescription: `Finds ELSE branches that are redundant because all prior branches exit unconditionally.`,
+            extendedInformation: `When every branch preceding ELSE ends with RETURN, EXIT, or CONTINUE (or a non-resumable RAISE / LEAVE), ` +
+                `the ELSE keyword adds no logical value and can be removed by de-indenting its body.`,
+            tags: [_irule_1.RuleTag.SingleFile, _irule_1.RuleTag.Styleguide, _irule_1.RuleTag.Quickfix],
+            badExample: `IF x = 1.\n  RETURN.\nELSE.\n  WRITE 'hello'.\nENDIF.`,
+            goodExample: `IF x = 1.\n  RETURN.\nENDIF.\nWRITE 'hello'.`,
+        };
+    }
+    getConfig() {
+        return this.conf;
+    }
+    setConfig(conf) {
+        this.conf = conf;
+    }
+    runParsed(file, _obj) {
+        const issues = [];
+        const structure = file.getStructure();
+        if (structure === undefined) {
+            return [];
+        }
+        for (const ifNode of structure.findAllStructures(Structures.If)) {
+            const elseNode = ifNode.findDirectStructure(Structures.Else);
+            if (elseNode === undefined) {
+                continue;
+            }
+            if (this.allBranchesExit(ifNode)) {
+                const elseStatement = elseNode.findFirstStatement(Statements.Else);
+                const endifStatement = ifNode.findDirectStatement(Statements.EndIf);
+                if (elseStatement === undefined || endifStatement === undefined) {
+                    continue;
+                }
+                const fix = edit_helper_1.EditHelper.merge(edit_helper_1.EditHelper.replaceRange(file, elseStatement.getFirstToken().getStart(), elseStatement.getLastToken().getEnd(), "ENDIF."), edit_helper_1.EditHelper.deleteStatement(file, endifStatement));
+                // eslint-disable-next-line max-len
+                issues.push(issue_1.Issue.atStatement(file, elseStatement, "Redundant ELSE: all prior branches exit unconditionally", this.getMetadata().key, this.conf.severity, fix));
+            }
+        }
+        return issues;
+    }
+    // Returns true if every branch before the ELSE ends with an unconditional exit.
+    allBranchesExit(ifNode) {
+        // Main IF body
+        const mainBody = ifNode.findDirectStructure(Structures.Body);
+        if (!this.bodyEndsWithExit(mainBody)) {
+            return false;
+        }
+        // Each ELSEIF body
+        for (const elseifNode of ifNode.findDirectStructures(Structures.ElseIf)) {
+            const elseifBody = elseifNode.findDirectStructure(Structures.Body);
+            if (!this.bodyEndsWithExit(elseifBody)) {
+                return false;
+            }
+        }
+        return true;
+    }
+    bodyEndsWithExit(body) {
+        if (body === undefined) {
+            return false;
+        }
+        const last = this.lastNonCommentStatement(body);
+        if (last === undefined) {
+            return false;
+        }
+        return this.isExit(last);
+    }
+    collectStatements(node) {
+        const result = [];
+        for (const child of node.getChildren()) {
+            if (child instanceof nodes_1.StatementNode) {
+                result.push(child);
+            }
+            else if (child instanceof nodes_1.StructureNode) {
+                result.push(...this.collectStatements(child));
+            }
+        }
+        return result;
+    }
+    lastNonCommentStatement(node) {
+        const all = this.collectStatements(node);
+        for (let i = all.length - 1; i >= 0; i--) {
+            if (!(all[i].get() instanceof _statement_1.Comment)) {
+                return all[i];
+            }
+        }
+        return undefined;
+    }
+    isExit(node) {
+        const s = node.get();
+        if (s instanceof Statements.Return
+            || s instanceof Statements.Exit
+            || s instanceof Statements.Continue) {
+            return true;
+        }
+        if (s instanceof Statements.Raise) {
+            return !node.concatTokens().toUpperCase().includes("RESUMABLE");
+        }
+        if (s instanceof Statements.Leave) {
+            const tokens = node.concatTokens().toUpperCase();
+            return !tokens.includes("LIST-PROCESSING") && node.findFirstExpression(Expressions.AndReturn) === undefined;
+        }
+        return false;
+    }
+}
+exports.ElseAfterAllReturns = ElseAfterAllReturns;
+//# sourceMappingURL=else_after_all_returns.js.map
+
+/***/ },
+
 /***/ "./node_modules/@abaplint/core/build/src/rules/empty_event.js"
 /*!********************************************************************!*\
   !*** ./node_modules/@abaplint/core/build/src/rules/empty_event.js ***!
@@ -85634,6 +85850,7 @@ __exportStar(__webpack_require__(/*! ./empty_event */ "./node_modules/@abaplint/
 __exportStar(__webpack_require__(/*! ./empty_line_in_statement */ "./node_modules/@abaplint/core/build/src/rules/empty_line_in_statement.js"), exports);
 __exportStar(__webpack_require__(/*! ./empty_statement */ "./node_modules/@abaplint/core/build/src/rules/empty_statement.js"), exports);
 __exportStar(__webpack_require__(/*! ./empty_structure */ "./node_modules/@abaplint/core/build/src/rules/empty_structure.js"), exports);
+__exportStar(__webpack_require__(/*! ./else_after_all_returns */ "./node_modules/@abaplint/core/build/src/rules/else_after_all_returns.js"), exports);
 __exportStar(__webpack_require__(/*! ./exit_or_check */ "./node_modules/@abaplint/core/build/src/rules/exit_or_check.js"), exports);
 __exportStar(__webpack_require__(/*! ./expand_macros */ "./node_modules/@abaplint/core/build/src/rules/expand_macros.js"), exports);
 __exportStar(__webpack_require__(/*! ./exporting */ "./node_modules/@abaplint/core/build/src/rules/exporting.js"), exports);
@@ -102428,6 +102645,8 @@ class XMLConsistencyConf extends _basic_rule_config_1.BasicRuleConfig {
         this.textAndTranslationLengthSeverity = severity_1.Severity.Error;
         /** Problem severity for data element(DTEL) field checks */
         this.dataElementSeverity = severity_1.Severity.Error;
+        /** Problem severity for transparent table checks */
+        this.transparentTableSeverity = severity_1.Severity.Error;
     }
 }
 exports.XMLConsistencyConf = XMLConsistencyConf;
@@ -102715,11 +102934,11 @@ class XMLConsistency {
         if (obj.getTableCategory() === Objects.TableCategory.Transparent) {
             if (!((_c = obj.getDeliveryClass()) === null || _c === void 0 ? void 0 : _c.trim())) {
                 const message = `Transparent table must have delivery class(CONTFLAG in DD02V) set`;
-                issues.push(issue_1.Issue.atRow(file, 1, message, this.getMetadata().key, this.conf.severity));
+                issues.push(issue_1.Issue.atRow(file, 1, message, this.getMetadata().key, this.conf.transparentTableSeverity));
             }
             if (!((_d = obj.getSizeCategory()) === null || _d === void 0 ? void 0 : _d.trim())) {
                 const message = `Transparent table must have size category(TABKAT in DD09L) set`;
-                issues.push(issue_1.Issue.atRow(file, 1, message, this.getMetadata().key, this.conf.severity));
+                issues.push(issue_1.Issue.atRow(file, 1, message, this.getMetadata().key, this.conf.transparentTableSeverity));
             }
         }
         return issues;
@@ -104872,6 +105091,9 @@ class PGDatabaseSchema {
         else if (type instanceof abaplint.BasicTypes.IntegerType) {
             return `INT`;
         }
+        else if (type instanceof abaplint.BasicTypes.Integer8Type) {
+            return `BIGINT`;
+        }
         else if (type instanceof abaplint.BasicTypes.FloatType
             || type instanceof abaplint.BasicTypes.FloatingPointType) {
             return `REAL`;
@@ -104995,6 +105217,9 @@ class SnowflakeDatabaseSchema {
         else if (type instanceof abaplint.BasicTypes.IntegerType) {
             return `INT`;
         }
+        else if (type instanceof abaplint.BasicTypes.Integer8Type) {
+            return `NUMBER(19)`;
+        }
         else if (type instanceof abaplint.BasicTypes.FloatType
             || type instanceof abaplint.BasicTypes.FloatingPointType) {
             return `REAL`;
@@ -105120,6 +105345,9 @@ class SQLiteDatabaseSchema {
         else if (type instanceof abaplint.BasicTypes.IntegerType) {
             return `INT`;
         }
+        else if (type instanceof abaplint.BasicTypes.Integer8Type) {
+            return `INTEGER`;
+        }
         else if (type instanceof abaplint.BasicTypes.FloatType
             || type instanceof abaplint.BasicTypes.FloatingPointType) {
             return `REAL`;
@@ -109084,6 +109312,11 @@ class SQLCondTranspiler {
             ret += fieldName + " IS NULL";
             return ret;
         }
+        const aggregation = c.findDirectExpression(abaplint.Expressions.SQLAggregation);
+        if (aggregation && operator && source) {
+            return aggregation.concatTokens() + " " + this.sqlOperator(operator.concatTokens()) + " "
+                + this.sqlSource(source, traversal, filename, table, true);
+        }
         if (fieldName === undefined || operator === undefined || source === undefined) {
             throw new Error("SQL Condition, transpiler todo2, " + c.concatTokens());
         }
@@ -109145,17 +109378,18 @@ class SQLCondTranspiler {
         }
         return ret + ")";
     }
-    sqlSource(source, traversal, filename, table) {
+    sqlSource(source, traversal, filename, table, numericHost = false) {
         let ret = "";
         const simple = source.findDirectExpression(abaplint.Expressions.SimpleSource3);
         const hostExpression = source.findDirectExpression(abaplint.Expressions.Source);
         const alias = source.findDirectExpression(abaplint.Expressions.SQLAliasField);
         if (source.getFirstToken().getStr() === "@" && hostExpression) {
             const code = new source_1.SourceTranspiler(true).transpile(hostExpression, traversal).getCode();
-            ret += "'\" + " + code + " + \"'";
+            ret += this.sqlHost(code, numericHost);
         }
         else if (simple && simple.findDirectExpression(abaplint.Expressions.Constant) === undefined) {
-            ret += "'\" + " + new simple_source3_1.SimpleSource3Transpiler(true).transpile(simple, traversal).getCode() + " + \"'";
+            const code = new simple_source3_1.SimpleSource3Transpiler(true).transpile(simple, traversal).getCode();
+            ret += this.sqlHost(code, numericHost);
         }
         else if (alias) {
             // SQLAliasField might be a SQL reference or value from ABAP interface
@@ -109190,6 +109424,12 @@ class SQLCondTranspiler {
         }
         return ret;
     }
+    sqlHost(code, numericHost) {
+        if (numericHost) {
+            return `" + ((value) => typeof value === "number" || typeof value === "bigint" ? value : "'" + value + "'")(${code}) + "`;
+        }
+        return "'\" + " + code + " + \"'";
+    }
     basicConditionNew(node, traversal, filename, table) {
         const sourceWithComponents = this.sourceWithComponents(node, traversal);
         if (sourceWithComponents) {
@@ -112804,6 +113044,190 @@ exports.Requires = Requires;
 
 /***/ },
 
+/***/ "./node_modules/@abaplint/transpiler/build/src/statements/_dataset.js"
+/*!****************************************************************************!*\
+  !*** ./node_modules/@abaplint/transpiler/build/src/statements/_dataset.js ***!
+  \****************************************************************************/
+(__unused_webpack_module, exports, __webpack_require__) {
+
+"use strict";
+
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
+Object.defineProperty(exports, "__esModule", ({ value: true }));
+exports.DatasetOperands = void 0;
+const abaplint = __importStar(__webpack_require__(/*! @abaplint/core */ "./node_modules/@abaplint/core/build/src/index.js"));
+/** the Sources and Targets of a DATASET statement, each found by the
+ *  keywords right in front of it: "MESSAGE" in "FOR INPUT IN BINARY MODE
+ *  MESSAGE m", "LENGTH" only when not "MAXIMUM LENGTH" or "ACTUAL LENGTH" */
+class DatasetOperands {
+    operands = [];
+    words = [];
+    constructor(node, traversal) {
+        let keywords = [];
+        for (const c of node.getChildren()) {
+            if (c instanceof abaplint.Nodes.TokenNode) {
+                keywords.push(c.getFirstToken().getStr().toUpperCase());
+                this.words.push(c.getFirstToken().getStr().toUpperCase());
+            }
+            else if (c instanceof abaplint.Nodes.ExpressionNode) {
+                this.operands.push({ keywords, code: traversal.traverse(c).getCode() });
+                keywords = [];
+            }
+        }
+    }
+    /** whether the statement has these keywords in a row: its own tokens only,
+     *  never the text of an operand, so a variable lv_type or a literal
+     *  'no end of line' is not an addition */
+    has(words) {
+        // abaplint splits UTF-8, NON-UNICODE and BYTE-ORDER into three tokens
+        const joined = this.words.join(" ").replace(/ - /g, "-");
+        return (" " + joined + " ").includes(" " + words + " ");
+    }
+    /** the dataset name, or the source of TRANSFER: the first operand */
+    first() {
+        return this.operands[0].code;
+    }
+    after(words, notAfter = []) {
+        const want = words.split(" ");
+        for (const o of this.operands.slice(1)) {
+            const tail = o.keywords.slice(-want.length);
+            const before = o.keywords[o.keywords.length - want.length - 1];
+            if (tail.join(" ") === words && (before === undefined || notAfter.includes(before) === false)) {
+                return o.code;
+            }
+        }
+        return undefined;
+    }
+}
+exports.DatasetOperands = DatasetOperands;
+//# sourceMappingURL=_dataset.js.map
+
+/***/ },
+
+/***/ "./node_modules/@abaplint/transpiler/build/src/statements/_selection.js"
+/*!******************************************************************************!*\
+  !*** ./node_modules/@abaplint/transpiler/build/src/statements/_selection.js ***!
+  \******************************************************************************/
+(__unused_webpack_module, exports, __webpack_require__) {
+
+"use strict";
+
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
+Object.defineProperty(exports, "__esModule", ({ value: true }));
+exports.SelectionDefault = void 0;
+const abaplint = __importStar(__webpack_require__(/*! @abaplint/core */ "./node_modules/@abaplint/core/build/src/index.js"));
+const traversal_1 = __webpack_require__(/*! ../traversal */ "./node_modules/@abaplint/transpiler/build/src/traversal.js");
+/** PARAMETERS and SELECT-OPTIONS declare program variables that exist, with their
+ * DEFAULT values, before INITIALIZATION runs. Without LOWER CASE a character-like
+ * default is upper-cased (measured on a 7.5x system: 'abcdef' into a parameter of
+ * length 4 is "ABCD", a string parameter and the LOW of a select-option likewise) */
+class SelectionDefault {
+    static variable(node, traversal) {
+        const token = node.findDirectExpression(abaplint.Expressions.FieldSub)?.getFirstToken();
+        if (token === undefined) {
+            return undefined;
+        }
+        const found = traversal.findCurrentScopeByToken(token)?.findVariable(token.getStr());
+        if (found === undefined) {
+            return undefined;
+        }
+        return {
+            name: traversal_1.Traversal.prefixVariable(traversal_1.Traversal.escapeNamespace(found.getName().toLowerCase())),
+            type: found.getType(),
+        };
+    }
+    /** the expression after a keyword of the statement, eg. DEFAULT; only a keyword
+     * token counts, an operand named like the keyword does not */
+    static after(node, keyword) {
+        const children = node.getChildren();
+        for (let i = 0; i < children.length - 1; i++) {
+            if (children[i] instanceof abaplint.Nodes.TokenNode && children[i].concatTokens().toUpperCase() === keyword) {
+                return children[i + 1];
+            }
+        }
+        return undefined;
+    }
+    /** sets the target to a DEFAULT operand, a Constant or a FieldChain, and upper-cases
+     * it when the target is character-like and the statement has no LOWER CASE */
+    static set(node, target, targetType, operand, traversal) {
+        let code = "\n" + target + ".set(" + traversal.traverse(operand).getCode() + ");";
+        const characterLike = targetType instanceof abaplint.BasicTypes.CharacterType
+            || targetType instanceof abaplint.BasicTypes.StringType;
+        if (node.findDirectTokenByText("LOWER") === undefined && characterLike === true) {
+            code += "\n" + target + ".set(abap.builtin.to_upper({val: " + target + "}));";
+        }
+        return code;
+    }
+}
+exports.SelectionDefault = SelectionDefault;
+//# sourceMappingURL=_selection.js.map
+
+/***/ },
+
 /***/ "./node_modules/@abaplint/transpiler/build/src/statements/add.js"
 /*!***********************************************************************!*\
   !*** ./node_modules/@abaplint/transpiler/build/src/statements/add.js ***!
@@ -114353,12 +114777,50 @@ exports.CloseCursorTranspiler = CloseCursorTranspiler;
 
 "use strict";
 
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.CloseDatasetTranspiler = void 0;
+const abaplint = __importStar(__webpack_require__(/*! @abaplint/core */ "./node_modules/@abaplint/core/build/src/index.js"));
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
 class CloseDatasetTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("CloseDataset, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const name = traversal.traverse(node.findDirectExpression(abaplint.Expressions.Source)).getCode();
+        return new chunk_1.Chunk()
+            .append("await abap.statements.closeDataset(", node, traversal)
+            .appendString(name)
+            .append(");", node.getLastToken(), traversal);
     }
 }
 exports.CloseDatasetTranspiler = CloseDatasetTranspiler;
@@ -115388,12 +115850,50 @@ exports.DeleteDatabaseTranspiler = DeleteDatabaseTranspiler;
 
 "use strict";
 
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.DeleteDatasetTranspiler = void 0;
+const abaplint = __importStar(__webpack_require__(/*! @abaplint/core */ "./node_modules/@abaplint/core/build/src/index.js"));
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
 class DeleteDatasetTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("DeleteDataset, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const name = traversal.traverse(node.findDirectExpression(abaplint.Expressions.Source)).getCode();
+        return new chunk_1.Chunk()
+            .append("await abap.statements.deleteDataset(", node, traversal)
+            .appendString(name)
+            .append(");", node.getLastToken(), traversal);
     }
 }
 exports.DeleteDatasetTranspiler = DeleteDatasetTranspiler;
@@ -116886,9 +117386,21 @@ exports.GetBitTranspiler = GetBitTranspiler;
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.GetDatasetTranspiler = void 0;
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
+const _dataset_1 = __webpack_require__(/*! ./_dataset */ "./node_modules/@abaplint/transpiler/build/src/statements/_dataset.js");
 class GetDatasetTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("GetDataset, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const operands = new _dataset_1.DatasetOperands(node, traversal);
+        const options = [];
+        if (operands.after("POSITION") !== undefined) {
+            options.push("position: " + operands.after("POSITION"));
+        }
+        if (operands.after("ATTRIBUTES") !== undefined) {
+            options.push("attributes: " + operands.after("ATTRIBUTES"));
+        }
+        return new chunk_1.Chunk()
+            .append("await abap.statements.getDataset(", node, traversal)
+            .appendString(operands.first() + ", {" + options.join(", ") + "}")
+            .append(");", node.getLastToken(), traversal);
     }
 }
 exports.GetDatasetTranspiler = GetDatasetTranspiler;
@@ -118014,6 +118526,10 @@ class LoopTranspiler {
                 targetNode = assigning;
                 target = traversal.traverse(assigning).getCode() + ".assign(" + this.unique + ");";
             }
+            else if (!node.concatTokens().toUpperCase().includes(" TRANSPORTING NO FIELDS") && this.hasHeaderLine(loopSource, traversal)) {
+                // LOOP AT itab. without a target: the row goes into the header line of the table
+                target = source + ".getHeader().set(" + this.unique + ");";
+            }
         }
         const extra = [];
         const fromNode = node.findExpressionAfterToken("FROM");
@@ -118068,7 +118584,10 @@ class LoopTranspiler {
             extra.push(`atLast: (last) => { ${this.atLast} = last; }`);
         }
         const topEquals = {};
-        for (const compare of whereNode?.findDirectExpressions(abaplint.Expressions.ComponentCompare) || []) {
+        // only a pure conjunction makes each top-level `=` a condition every row
+        // has to meet: `a = 1 OR b = 2` narrows by neither
+        const onlyAnd = whereNode?.getChildren().every(c => !(c instanceof abaplint.Nodes.TokenNode) || c.concatTokens().toUpperCase() !== "OR") ?? true;
+        for (const compare of onlyAnd ? whereNode?.findDirectExpressions(abaplint.Expressions.ComponentCompare) || [] : []) {
             const op = compare.findDirectExpression(abaplint.Expressions.CompareOperator)?.concatTokens().toUpperCase();
             if (op !== "=" && op !== "EQ") {
                 continue;
@@ -118105,6 +118624,14 @@ class LoopTranspiler {
         }
         return ret;
     }
+    hasHeaderLine(loopSource, traversal) {
+        if (loopSource === undefined || /^[\w\/]+$/.test(loopSource.concatTokens()) === false) {
+            return false;
+        }
+        const token = loopSource.getFirstToken();
+        const type = traversal.findCurrentScopeByToken(token)?.findVariable(loopSource.concatTokens())?.getType();
+        return type instanceof abaplint.BasicTypes.TableType && type.isWithHeader();
+    }
 }
 exports.LoopTranspiler = LoopTranspiler;
 //# sourceMappingURL=loop.js.map
@@ -119141,9 +119668,39 @@ exports.OpenCursorTranspiler = OpenCursorTranspiler;
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.OpenDatasetTranspiler = void 0;
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
+const _dataset_1 = __webpack_require__(/*! ./_dataset */ "./node_modules/@abaplint/transpiler/build/src/statements/_dataset.js");
 class OpenDatasetTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("OpenDataset, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const operands = new _dataset_1.DatasetOperands(node, traversal);
+        const options = [];
+        const mode = ["INPUT", "OUTPUT", "APPENDING", "UPDATE"].find(m => operands.has("FOR " + m)) ?? "INPUT";
+        options.push(`mode: "${mode}"`);
+        options.push(`binary: ${operands.has("BINARY MODE")}`);
+        const encoding = ["DEFAULT", "UTF-8", "NON-UNICODE"].find(e => operands.has("ENCODING " + e));
+        if (encoding !== undefined) {
+            options.push(`encoding: "${encoding}"`);
+        }
+        if (operands.has("IN LEGACY")) {
+            options.push("legacy: true");
+        }
+        if (operands.after("MESSAGE") !== undefined) {
+            options.push("message: " + operands.after("MESSAGE"));
+        }
+        if (operands.after("AT POSITION") !== undefined) {
+            options.push("position: " + operands.after("AT POSITION"));
+        }
+        // accepted by the syntax, not implemented by the runtime: it refuses them
+        // by name rather than ignoring them
+        const unsupported = ["CODE PAGE", "TYPE", "FILTER", "REPLACEMENT CHARACTER", "WITH BYTE-ORDER MARK", "SKIPPING BYTE-ORDER MARK",
+            "WITH SMART LINEFEED", "WITH NATIVE LINEFEED", "WITH UNIX LINEFEED", "WITH WINDOWS LINEFEED", "IGNORING CONVERSION ERRORS"]
+            .filter(u => operands.has(u) || operands.after(u) !== undefined);
+        if (unsupported.length > 0) {
+            options.push("unsupported: " + JSON.stringify(unsupported));
+        }
+        return new chunk_1.Chunk()
+            .append("await abap.statements.openDataset(", node, traversal)
+            .appendString(operands.first() + ", {" + options.join(", ") + "}")
+            .append(");", node.getLastToken(), traversal);
     }
 }
 exports.OpenDatasetTranspiler = OpenDatasetTranspiler;
@@ -119221,12 +119778,78 @@ exports.OverlayTranspiler = OverlayTranspiler;
 
 "use strict";
 
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.ParameterTranspiler = void 0;
+const abaplint = __importStar(__webpack_require__(/*! @abaplint/core */ "./node_modules/@abaplint/core/build/src/index.js"));
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
+const transpile_types_1 = __webpack_require__(/*! ../transpile_types */ "./node_modules/@abaplint/transpiler/build/src/transpile_types.js");
+const _selection_1 = __webpack_require__(/*! ./_selection */ "./node_modules/@abaplint/transpiler/build/src/statements/_selection.js");
 class ParameterTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("Parameter, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const variable = _selection_1.SelectionDefault.variable(node, traversal);
+        // abaplint types "TYPE c LENGTH 3" and "TYPE p ... DECIMALS 2" of a parameter
+        // without the length and the decimals, a value would be cut silently
+        const tokens = node.getTokens().map(t => t.getStr().toUpperCase());
+        const sized = tokens.some((t, i) => (t === "LENGTH" && tokens[i - 1] !== "VISIBLE") || t === "DECIMALS");
+        if (variable === undefined || sized === true) {
+            return new chunk_1.Chunk(`throw new Error("Parameter, not supported, transpiler");`);
+        }
+        const { name, type } = variable;
+        const ret = new chunk_1.Chunk().appendString("let " + name + " = " + transpile_types_1.TranspileTypes.toType(type) + ";");
+        const operand = _selection_1.SelectionDefault.after(node, "DEFAULT");
+        if (operand) {
+            ret.appendString(_selection_1.SelectionDefault.set(node, name, type, operand, traversal));
+        }
+        else if (this.isFirstOfUnsetRadioGroup(node, traversal)) {
+            // a radio button group without DEFAULT 'X' starts with its first button chosen
+            ret.appendString("\n" + name + ".set('X');");
+        }
+        return ret;
+    }
+    isFirstOfUnsetRadioGroup(node, traversal) {
+        const group = node.findDirectExpression(abaplint.Expressions.RadioGroupName)?.concatTokens().toUpperCase();
+        if (group === undefined) {
+            return false;
+        }
+        const members = traversal.getFile().getStatements().filter(s => s.get() instanceof abaplint.Statements.Parameter
+            && s.findDirectExpression(abaplint.Expressions.RadioGroupName)?.concatTokens().toUpperCase() === group);
+        if (members.some(m => _selection_1.SelectionDefault.after(m, "DEFAULT") !== undefined)) {
+            return false;
+        }
+        return members[0].getStart().equals(node.getStart());
     }
 }
 exports.ParameterTranspiler = ParameterTranspiler;
@@ -119670,9 +120293,23 @@ exports.RangesTranspiler = RangesTranspiler;
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.ReadDatasetTranspiler = void 0;
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
+const _dataset_1 = __webpack_require__(/*! ./_dataset */ "./node_modules/@abaplint/transpiler/build/src/statements/_dataset.js");
 class ReadDatasetTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("ReadDataset, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const operands = new _dataset_1.DatasetOperands(node, traversal);
+        const options = [];
+        if (operands.after("MAXIMUM LENGTH") !== undefined) {
+            options.push("maximumLength: " + operands.after("MAXIMUM LENGTH"));
+        }
+        // the obsolete LENGTH is ACTUAL LENGTH
+        const actual = operands.after("ACTUAL LENGTH") ?? operands.after("LENGTH", ["MAXIMUM", "ACTUAL"]);
+        if (actual !== undefined) {
+            options.push("actualLength: " + actual);
+        }
+        return new chunk_1.Chunk()
+            .append("await abap.statements.readDataset(", node, traversal)
+            .appendString(operands.first() + ", " + operands.after("INTO") + ", {" + options.join(", ") + "}")
+            .append(");", node.getLastToken(), traversal);
     }
 }
 exports.ReadDatasetTranspiler = ReadDatasetTranspiler;
@@ -120554,6 +121191,12 @@ class SelectTranspiler {
         if (groupBy) {
             select += new sql_group_by_1.SQLGroupByTranspiler().transpile(groupBy, traversal).getCode() + " ";
         }
+        const having = node.findDirectExpression(abaplint.Expressions.Select)
+            ?.findDirectExpression(abaplint.Expressions.SQLHaving);
+        const havingCond = having?.findFirstExpression(abaplint.Expressions.SQLCond);
+        if (havingCond) {
+            select += "HAVING " + new expressions_1.SQLCondTranspiler().transpile(havingCond, traversal, table).getCode() + " ";
+        }
         const upTo = node.findFirstExpression(abaplint.Expressions.SQLUpTo);
         if (upTo) {
             const s = upTo.findFirstExpression(abaplint.Expressions.SimpleSource3);
@@ -120620,14 +121263,25 @@ class SelectTranspiler {
             const faeTranspiled = new expressions_1.SQLSourceTranspiler().transpile(fn, traversal).getCode();
             // ABAP semantics: with an empty driving table the whole WHERE condition is ignored
             const selectEmpty = select.replace(whereClause, "");
-            select = select.replace(new RegExp(" " + escapeRegExp(faeTranspiled), "g"), " " + unique);
-            select = select.replace(unique + ".get().table_line.get()", unique + ".get()"); // there can be only one?
+            const bindRow = (text) => text
+                .replace(new RegExp(" " + escapeRegExp(faeTranspiled), "g"), " " + unique)
+                .replace(unique + ".get().table_line.get()", unique + ".get()"); // there can be only one?
+            select = bindRow(select);
+            const where = bindRow(whereClause);
             // FOR ALL ENTRIES removes duplicate rows from the result: duplicates of
             // the selected columns, so de-duplicate by the target's components. The
             // DB key alone is wrong for projections (INTO CORRESPONDING FIELDS
             // without the key fields crashed on the missing component names)
             const by = `Object.keys(${target}.getRowType().get())`;
-            const code = `if (${faeTranspiled}.array().length === 0) {
+            const dedup = `if (!(${target} instanceof abap.types.HashedTable) && ${target}.getOptions()?.primaryKey?.type !== "SORTED") {
+    abap.statements.sort(${target}, {by: ${by}.map(k => { return {component: k}; })});
+    await abap.statements.deleteInternal(${target}, {adjacent: true, allFields: true});
+  }`;
+            const at = where.startsWith("WHERE ") ? select.indexOf(where) : -1;
+            // UP TO with ORDER BY keeps the first n rows in that order; the blocks
+            // trim after the de-duplicating sort, so that pair stays row by row
+            if (concat.startsWith("SELECT SINGLE ") || at < 0 || (upTo && orderBy)) {
+                const code = `if (${faeTranspiled}.array().length === 0) {
   await abap.statements.select(${target}, {select: "${selectEmpty.trim()}"${extra}});
 } else {
   const ${unique2} = ${faeTranspiled}.array();
@@ -120635,9 +121289,56 @@ class SelectTranspiler {
   for await (const ${unique} of ${unique2}) {
     await abap.statements.select(${target}, {select: "${select.trim()}"${extra}}, {appending: true});
   }
-  if (!(${target} instanceof abap.types.HashedTable) && ${target}.getOptions()?.primaryKey?.type !== "SORTED") {
-    abap.statements.sort(${target}, {by: ${by}.map(k => { return {component: k}; })});
-    await abap.statements.deleteInternal(${target}, {adjacent: true, allFields: true});
+  ${dedup}
+  abap.builtin.sy.get().dbcnt.set(${target}.getArrayLength());
+}`;
+                return new chunk_1.Chunk().append(code, node, traversal);
+            }
+            // One SELECT per block of driving rows, similar to the kernel's blocking
+            // of FOR ALL ENTRIES (rsdb/max_blocking_factor): the condition of each row in
+            // parentheses, joined with OR. Not one SELECT per row. UP TO n ROWS
+            // counts the whole de-duplicated result, not each block (measured on
+            // a 7.5x system: two driving rows and UP TO 3 give 3 rows).
+            let tail = select.substring(at + where.length);
+            let upToCode = "0";
+            if (upTo) {
+                const s = upTo.findFirstExpression(abaplint.Expressions.SimpleSource3);
+                if (s) {
+                    const n = new expressions_1.SourceTranspiler(true).transpile(s, traversal).getCode();
+                    tail = tail.replace(`UP TO " + ${n} + " ROWS `, "");
+                    upToCode = `parseInt(${n}, 10)`;
+                }
+                else {
+                    tail = tail.replace(upTo.concatTokens() + " ", "");
+                    upToCode = String(parseInt(upTo.findFirstExpression(abaplint.Expressions.Integer)?.concatTokens() ?? "0", 10));
+                }
+            }
+            const head = select.substring(0, at);
+            const condition = where.substring("WHERE ".length).trimEnd();
+            const unique3 = unique_identifier_1.UniqueIdentifier.get();
+            const unique4 = unique_identifier_1.UniqueIdentifier.get();
+            const code = `if (${faeTranspiled}.array().length === 0) {
+  await abap.statements.select(${target}, {select: "${selectEmpty.trim()}"${extra}});
+} else {
+  const ${unique2} = ${faeTranspiled}.array();
+  ${target}.clear();
+  const ${unique3} = (${unique}) => "(${condition})";
+  for (let ${unique4} = 0; ${unique4} < ${unique2}.length; ${unique4} += 50) {
+    const ${unique4}where = ${unique2}.slice(${unique4}, ${unique4} + 50).map(${unique3}).join(" OR ");
+    await abap.statements.select(${target}, {select: "${head}WHERE " + ${unique4}where + " ${tail.trim()}"${extra}}, {appending: true});
+  }
+  ${dedup}
+  const ${unique4}max = ${upToCode};
+  if (${unique4}max > 0 && ${target}.getArrayLength() > ${unique4}max) {
+    if (${target} instanceof abap.types.HashedTable) {
+      for (const ${unique4}row of ${target}.array().slice(${unique4}max)) {
+        await abap.statements.deleteInternal(${target}, {fromValue: ${unique4}row});
+      }
+    } else {
+      while (${target}.getArrayLength() > ${unique4}max) {
+        ${target}.deleteIndex(${target}.getArrayLength() - 1);
+      }
+    }
   }
   abap.builtin.sy.get().dbcnt.set(${target}.getArrayLength());
 }`;
@@ -120700,12 +121401,73 @@ exports.SelectTranspiler = SelectTranspiler;
 
 "use strict";
 
+var __createBinding = (this && this.__createBinding) || (Object.create ? (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    var desc = Object.getOwnPropertyDescriptor(m, k);
+    if (!desc || ("get" in desc ? !m.__esModule : desc.writable || desc.configurable)) {
+      desc = { enumerable: true, get: function() { return m[k]; } };
+    }
+    Object.defineProperty(o, k2, desc);
+}) : (function(o, m, k, k2) {
+    if (k2 === undefined) k2 = k;
+    o[k2] = m[k];
+}));
+var __setModuleDefault = (this && this.__setModuleDefault) || (Object.create ? (function(o, v) {
+    Object.defineProperty(o, "default", { enumerable: true, value: v });
+}) : function(o, v) {
+    o["default"] = v;
+});
+var __importStar = (this && this.__importStar) || (function () {
+    var ownKeys = function(o) {
+        ownKeys = Object.getOwnPropertyNames || function (o) {
+            var ar = [];
+            for (var k in o) if (Object.prototype.hasOwnProperty.call(o, k)) ar[ar.length] = k;
+            return ar;
+        };
+        return ownKeys(o);
+    };
+    return function (mod) {
+        if (mod && mod.__esModule) return mod;
+        var result = {};
+        if (mod != null) for (var k = ownKeys(mod), i = 0; i < k.length; i++) if (k[i] !== "default") __createBinding(result, mod, k[i]);
+        __setModuleDefault(result, mod);
+        return result;
+    };
+})();
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.SelectOptionTranspiler = void 0;
+const abaplint = __importStar(__webpack_require__(/*! @abaplint/core */ "./node_modules/@abaplint/core/build/src/index.js"));
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
+const transpile_types_1 = __webpack_require__(/*! ../transpile_types */ "./node_modules/@abaplint/transpiler/build/src/transpile_types.js");
+const _selection_1 = __webpack_require__(/*! ./_selection */ "./node_modules/@abaplint/transpiler/build/src/statements/_selection.js");
 class SelectOptionTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("SelectOption, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const variable = _selection_1.SelectionDefault.variable(node, traversal);
+        const row = variable?.type instanceof abaplint.BasicTypes.TableType ? variable.type.getRowType() : undefined;
+        const lowType = row instanceof abaplint.BasicTypes.StructureType ? row.getComponentByName("LOW") : undefined;
+        if (variable === undefined || lowType === undefined) {
+            // eg. FOR (dynamic)
+            return new chunk_1.Chunk(`throw new Error("SelectOption, not supported, transpiler");`);
+        }
+        const { name, type } = variable;
+        const ret = new chunk_1.Chunk().appendString("let " + name + " = " + transpile_types_1.TranspileTypes.toType(type) + ";");
+        // DEFAULT low [TO high] [OPTION o] [SIGN s] is the first row of the table and
+        // stays in the header line: I EQ, or I BT with TO, unless OPTION or SIGN say otherwise
+        const low = _selection_1.SelectionDefault.after(node, "DEFAULT");
+        if (low === undefined) {
+            return ret;
+        }
+        const high = _selection_1.SelectionDefault.after(node, "TO");
+        const option = _selection_1.SelectionDefault.after(node, "OPTION")?.concatTokens().toUpperCase() ?? (high ? "BT" : "EQ");
+        const sign = _selection_1.SelectionDefault.after(node, "SIGN")?.concatTokens().toUpperCase() ?? "I";
+        ret.appendString("\n" + name + ".get().sign.set('" + sign + "');");
+        ret.appendString("\n" + name + ".get().option.set('" + option + "');");
+        ret.appendString(_selection_1.SelectionDefault.set(node, name + ".get().low", lowType, low, traversal));
+        if (high) {
+            ret.appendString(_selection_1.SelectionDefault.set(node, name + ".get().high", lowType, high, traversal));
+        }
+        ret.appendString("\nabap.statements.append({source: " + name + "});");
+        return ret;
     }
 }
 exports.SelectOptionTranspiler = SelectOptionTranspiler;
@@ -120851,9 +121613,17 @@ exports.SetCursorTranspiler = SetCursorTranspiler;
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.SetDatasetTranspiler = void 0;
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
+const _dataset_1 = __webpack_require__(/*! ./_dataset */ "./node_modules/@abaplint/transpiler/build/src/statements/_dataset.js");
 class SetDatasetTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("SetDataset, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const operands = new _dataset_1.DatasetOperands(node, traversal);
+        const option = operands.after("POSITION") !== undefined
+            ? "position: " + operands.after("POSITION")
+            : "endOfFile: true";
+        return new chunk_1.Chunk()
+            .append("await abap.statements.setDataset(", node, traversal)
+            .appendString(operands.first() + ", {" + option + "}")
+            .append(");", node.getLastToken(), traversal);
     }
 }
 exports.SetDatasetTranspiler = SetDatasetTranspiler;
@@ -121797,9 +122567,21 @@ exports.TopOfPageTranspiler = TopOfPageTranspiler;
 Object.defineProperty(exports, "__esModule", ({ value: true }));
 exports.TransferTranspiler = void 0;
 const chunk_1 = __webpack_require__(/*! ../chunk */ "./node_modules/@abaplint/transpiler/build/src/chunk.js");
+const _dataset_1 = __webpack_require__(/*! ./_dataset */ "./node_modules/@abaplint/transpiler/build/src/statements/_dataset.js");
 class TransferTranspiler {
-    transpile(_node, _traversal) {
-        return new chunk_1.Chunk(`throw new Error("Transfer, not supported, transpiler");`);
+    transpile(node, traversal) {
+        const operands = new _dataset_1.DatasetOperands(node, traversal);
+        const options = [];
+        if (operands.after("LENGTH", ["MAXIMUM", "ACTUAL"]) !== undefined) {
+            options.push("length: " + operands.after("LENGTH", ["MAXIMUM", "ACTUAL"]));
+        }
+        if (operands.has("NO END OF LINE")) {
+            options.push("noEndOfLine: true");
+        }
+        return new chunk_1.Chunk()
+            .append("await abap.statements.transfer(", node, traversal)
+            .appendString(operands.first() + ", " + operands.after("TO") + ", {" + options.join(", ") + "}")
+            .append(");", node.getLastToken(), traversal);
     }
 }
 exports.TransferTranspiler = TransferTranspiler;
@@ -122169,8 +122951,12 @@ class UpdateDatabaseTranspiler {
             }
             options.push(`"set": [${s.join(",")}]`);
         }
+        const fromTable = node.findExpressionAfterToken("TABLE");
+        if (fromTable && fromTable.get() instanceof abaplint.Expressions.SQLSource) {
+            options.push(`"table": ` + traversal.traverse(fromTable).getCode());
+        }
         const sourceExpression = node.findDirectExpression(abaplint.Expressions.SQLSource)?.findDirectExpression(abaplint.Expressions.SimpleSource3);
-        if (sourceExpression) {
+        if (sourceExpression && fromTable === undefined) {
             const sqlSource = new expressions_1.SourceTranspiler(true).transpile(sourceExpression, traversal).getCode();
             const tableName = node.findDirectExpression(abaplint.Expressions.DatabaseTable)?.concatTokens();
             const tabl = traversal.findTable(tableName);
@@ -131543,7 +132329,23 @@ function pLimit(concurrency) {
 		},
 		map: {
 			async value(iterable, function_) {
-				const promises = Array.from(iterable, (value, index) => generator(function_, value, index));
+				const promises = [];
+
+				try {
+					Array.from(iterable, (value, index) => {
+						const promise = generator(function_, value, index);
+						promises.push(promise);
+						return promise;
+					});
+				} catch (error) {
+					// The iterable threw, so `Promise.all` never observes the already scheduled promises. Observe them here to avoid unhandled rejections.
+					for (const promise of promises) {
+						promise.catch(() => {}); // eslint-disable-line promise/prefer-await-to-then
+					}
+
+					throw error;
+				}
+
 				return Promise.all(promises);
 			},
 		},

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@abaplint/transpiler-cli",
-  "version": "2.13.94",
+  "version": "2.13.96",
   "description": "Transpiler - Command Line Interface",
   "funding": "https://github.com/sponsors/larshp",
   "bin": {
@@ -27,13 +27,13 @@
   "author": "abaplint",
   "license": "MIT",
   "devDependencies": {
-    "@abaplint/core": "^2.120.61",
-    "@abaplint/transpiler": "^2.13.94",
+    "@abaplint/core": "^2.120.64",
+    "@abaplint/transpiler": "^2.13.96",
     "@types/glob": "^9.0.0",
     "@types/node": "^26.6.2",
     "@types/progress": "^2.0.7",
     "glob": "^13.0.6",
-    "p-limit": "^7.3.2",
+    "p-limit": "^7.3.3",
     "progress": "^2.0.3",
     "ts-json-schema-generator": "^2.9.0",
     "typescript": "^6.0.3",