Function createData

packages/runtime/src/statements/create_data.ts:26–199

(target: DataReference | FieldSymbol, options?: ICreateDataOptions)

const tableOptions: ITableOptions = {withHeader: false, keyType: TableKeyType.default};


/** CREATE DATA ... TYPE REF TO <name>, both the static and the dynamic spelling.
 * "REF TO data" is the generic case: the created data object is itself an
 * unbound data reference, so the target points at a DataReference. Anything
 * else names a class or interface. */
function createDataRefTo(target: DataReference, name: string) {
  if (name.toUpperCase() === "DATA") {
    // a DataReference pointing at a DataReference, same shape GET REFERENCE OF
    // a "REF TO data" variable produces - the declared types do not model the
    // nesting, so this mirrors get_reference's cast
    target.assign(new DataReference(undefined) as any);
    return;
  }

  if (abap.Classes[name.toUpperCase()] === undefined) {
    throwError("CX_SY_CREATE_DATA_ERROR");
  }

  target.assign(new abap.types.ABAPObject({qualifiedName: name, RTTIName: name}));
}

/** CREATE DATA ... LIKE dobj takes the type of dobj, never its content: the
 * created data object starts initial. A table is created empty right away
 * instead of copying its rows first. */
function initialLike(like: any) {
  if (like instanceof Table || like instanceof HashedTable) {
    const TableType = like.constructor as typeof Table;
    return new TableType(like.getRowType(), like.getOptions(), like.getQualifiedName());
  }
  const copy = like.clone();
  copy.clear();
  return copy;
}

export function createData(target: DataReference | FieldSymbol, options?: ICreateDataOptions) {
  // console.dir(options);

  if (target instanceof FieldSymbol) {
    createData(target.getPointer(), options);
    return;
  } else if (!(target instanceof DataReference)) {
    throw new Error("CREATE_DATA_REFERENCE_EXPECTED");
  }
  if (options?.name && options?.table) {
    if (abap.DDIC[options.name.trimEnd()] === undefined) {
      throwError("CX_SY_CREATE_DATA_ERROR");
    }
    target.assign(new abap.types.Table(abap.DDIC[options.name.trimEnd()].type(), tableOptions));
  } else if (options?.name !== undefined) {
    if (abap.DDIC[options.name.trimEnd()]) {
      target.assign(abap.DDIC[options.name.trimEnd()].type().clone());
    } else if (options.name.includes("=>")) {
      const [className, typeName] = options.name.trimEnd().toUpperCase().split("=>");

      if (abap.Classes[className] === undefined) {
        throwError("CX_SY_CREATE_DATA_ERROR");
      }
      if (abap.Classes[className][typeName.toLowerCase()] === undefined) {