alezhu

<?sap.transform simple?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates">
  <tt:root name="ROOT"/>
  <tt:variable name="skip"/>
  <tt:template>
    <root>
      <values>
        <tt:assign to-var="skip" val="0"/>
        <tt:group>
          <tt:d-cond frq="?">

alezhu

<root>
  <values>
    <material>1</material>
    <prod>XXXX</prod>
    <foo>bar</foo>
  <values>
</root>

alezhu

REPORT ZTEST_SORT_DUP_DELETE_VS_HASH.

TYPES:
  BEGIN OF ts_data,
    num TYPE i,
  END OF ts_data.

TYPES:
  BEGIN OF ts_result,
    lines TYPE i,

alezhu

REPORT zaz_unlock_editor.

PARAMETERS p_prog TYPE trdir-name OBLIGATORY.

START-OF-SELECTION.
  UPDATE PROGDIR SET edtx = space WHERE name = p_prog AND edtx = 'X'.
  COMMIT WORK.
  WRITE 'Done'.

alezhu

*DEFINITION
private section.
types:
  begin of ts_dest,
    bskey type SLD_BSKEY,
    logsys type TBLSYSDEST-logsys,
    dest type TBLSYSDEST-rfcdest,
  end of ts_dest,
  tt_dest type HASHED TABLE OF ts_dest with UNIQUE key bskey.

alezhu

  class-methods SY2RETURN
    exporting
      !ES_RETURN type BAPIRET2
    changing
      !CT_RETURN type BAPIRET2_T optional .
      
  METHOD sy2return.
    CALL FUNCTION 'BALW_BAPIRETURN_GET2'
      EXPORTING
        type   = sy-msgty

alezhu

function logClass(target: any) {
 
  // save a reference to the original constructor
  var original = target;
 
  // a utility function to generate instances of a class
  function construct(constructor, args) {
    var c : any = function () {
      return constructor.apply(this, args);
    }

alezhu

class ZCL_TVARVC definition
  public
  abstract
  final
  create public .

public section.

  class-methods CHECK_VALUE
    importing

alezhu

CLASS zcl_call_fbl1n DEFINITION
  PUBLIC
  ABSTRACT
  FINAL
  CREATE PUBLIC .

  PUBLIC SECTION.

    TYPES:
      tt_bukrs TYPE STANDARD TABLE OF bukrs WITH DEFAULT KEY .

alezhu

Function GetCellPage(ra As range) As Long
    Dim ws As Worksheet
    GetCellPage = 0
    Set ws = ra.Parent
    Dim iRow As Long
    
    If ws.HPageBreaks.Count > 0 Then
        iRow = ra.Row
        Do
            GetCellPage = GetCellPage + 1