softy12

PROGRAM zmm_loop_replacement.

CLASS zcl_loop_replacement DEFINITION.

  PUBLIC SECTION.
    TYPES t_output  TYPE TABLE OF string.

  CLASS-METHODS:
      run EXPORTING output TYPE t_output.

softy12

PROGRAM GET_BW_RELEASE_INFO.

* Determine whather SAP ABAP Platform bases system is runnign BW4 or not
* Based on standard SAP program's /SSA/BWT and routine GET_BW_RELEASE_INFO
* lv_BWRELEASE contains the BW release (SAP_BW), e.g. 740
* lv_BWSP      contains the BW support package,  e.g.   7
* lv_ISBW4HANA 'X' if the system is BW/4HANA, blank otherwise

SELECT SINGLE
  FROM cvers

softy12

REPORT zmm_check_if_pc_ran.

PARAMETERS: p_chain TYPE rspc_chain OBLIGATORY,
            p_days  TYPE i OBLIGATORY DEFAULT 30.

DATA: l_v_date   TYPE sydatum,
      l_t_logs   TYPE TABLE OF rspc_s_log_f4,
      l_v_logid  TYPE rspc_logid,
      l_v_status TYPE rspc_state,
      l_t_clog   TYPE rspc_t_msg,

softy12

//demo prg to showcase usage of table and variable parameters of SAP's BAPI while called from nodejs app via SAP/node-rfc nodule
"use strict";
var rfc = require('node-rfc');
var abapSystem = {
    user: 'sap_user',
    passwd: 'sap_user_pwd',
    ashost: 'sap.nodomain',
    sysnr: '01',
    client: '800'
};

softy12

SELECT * FROM rsant_process INTO TABLE @DATA(lt_apd) WHERE objvers = 'A'.

LOOP AT lt_apd ASSIGNING FIELD-SYMBOL(<fs>).
  FIND 'PROCESS_DATA_IN_MEMORY="X"' IN <fs>-xml.
  IF sy-subrc = 0.
    WRITE: / <fs>-process.
  ENDIF.
ENDLOOP.

softy12

//demo prg to showcase usage of structure parameter of SAP's BAPI while called from nodejs app via SAP/node-rfc nodule
"use strict";
var rfc = require('node-rfc');
var abapSystem = {
    user: 'sap_user',
    passwd: 'sap_user_pwd',
    ashost: 'sap.nodomain',
    sysnr: '01',
    client: '800'
};

softy12

REPORT ZMM_SYS_INFO.

DATA lc_cl_server_info TYPE REF TO cl_server_info.

CREATE OBJECT lc_cl_server_info TYPE cl_server_info.

CALL METHOD lc_cl_server_info->get_startup_time
  RECEIVING
    startup_time = DATA(lv_startup).
WRITE: / 'startup time: ', 30 lv_startup.