SAP/ABAP: MAKRO

REPORT  ZABAP_DEFINE_MAKRO                      .

DATA: BEGIN OF GS_STR,
FIELD1(10),
FIELD2(30),
END OF GS_STR.
DATA: GT_ITAB LIKE TABLE OF GS_STR.

DEFINE SATIR_EKLE.
  CLEAR GS_STR.
  GS_STR-FIELD1 = &1.
  GS_STR-FIELD2 = &2.
  APPEND GS_STR TO GT_ITAB.
END-OF-DEFINITION.

*makroyu cagiriyorum!!!!
SATIR_EKLE 'Birinci' 'satir'.
SATIR_EKLE 'ikinci'  'satir'.
SATIR_EKLE 'Böyle'   'satir ekleniyor'.

LOOP AT GT_ITAB INTO GS_STR.
  WRITE:/ GS_STR-FIELD1, GS_STR-FIELD2.
ENDLOOP.

SAP/ABAP: Parameters on same line in selection screen

SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT (33) text-p01 FOR FIELD p_equnr.
PARAMETERS: p_equnr TYPE equi-equnr.
PARAMETERS: p_eqktx TYPE eqkt-eqktx  MODIF ID md1.
PARAMETERS: p_eqtyp TYPE equi-eqtyp  MODIF ID md1.
PARAMETERS: p_typtx TYPE t370u-typtx MODIF ID md1.
SELECTION-SCREEN END OF LINE.

SAP/ABAP: ALV Coloring

DATA : BEGIN OF GT_DATA OCCURS 0,
SEL,
CELLCOLOR TYPE LVC_T_SCOL.
INCLUDE STRUCTURE ZMM_TEKLIF_DEG.
DATA : END OF GT_DATA.



IF GT_DATA-SA7 LT 70 AND
GT_DATA-SA7 GT 0.
LS_CELLCOLOR-FNAME = 'SA7'.
LS_CELLCOLOR-COLOR-COL = 6.
LS_CELLCOLOR-COLOR-INT = '1'.
LS_CELLCOLOR-COLOR-INV = '0'.

APPEND LS_CELLCOLOR TO GT_DATA-CELLCOLOR.
MODIFY GT_DATA.

ENDIF.

SAP/ABAP: OXT_MESSAGE_TO_POPUP FM

data: lt_msg   type bapirettab with header line,
           lv_pernr type pa0001-pernr.
  clear:lv_pernr.

  shift gt_out-pernr left deleting leading '0'.

  loop at gt_mesaj where pernr = gt_out-pernr.

lt_msg-type = gt_mesaj-msgtyp.
lt_msg-id = gt_mesaj-msgid.
lt_msg-number = gt_mesaj-msgnr.
lt_msg-message_v1 = gt_mesaj-msgv1.
lt_msg-message_v2 = gt_mesaj-msgv2.
lt_msg-message_v3 = gt_mesaj-msgv3.
lt_msg-message_v4 = gt_mesaj-msgv4.
    append lt_msg.
  endloop.

  check lt_msg[] is not initial.
  call function 'OXT_MESSAGE_TO_POPUP'
    exporting
      it_message = lt_msg[]
    exceptions
      bal_error  = 1
      others     = 2.
  if sy-subrc ne 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
  endif.

SAP/ABAP: Smartforms, SF Symbols

use this:
&symbol(.N)& Display upto N decimal places

Other options

&symbol(Z)& Omit Leading Zeros
&symbol(S)& Omit Leading Sign
&symbol(<)& Display Leading Sign to the Left &symbol(>)& Display Leading Sign to the Right
&symbol(C)& Compress Spaces
&symbol(.N)& Display upto N decimal places
&symbol(T)& Omit thousands separator
&symbol(R)& Right justified
&symbol(I)& Suppress output of the initial value

eg &SFSY-FORMPAGES(3ZC)& —outputlen,c-condense,z-Omit Leading Zeros

*—————————————————-
my requirement is to suppress the zeros for field MENGE NETPR NETWR.output is as follows
10,000 10,00 100,00

but i want it as
10 10 100

code it like &WS_NETWR(18.2)&
If you do not want any zero after decimal…&WS_NETWR(18.0)&

SAP/ABAP: EXIT, CONTINUE

DATA: LT_MARA TYPE TABLE OF MARA WITH HEADER LINE.

DATA: LV_CONTINUE TYPE I,
      LV_EXIT     TYPE I.

SELECT *
  FROM MARA
  INTO TABLE LT_MARA
  UP TO 20 ROWS.

LOOP AT LT_MARA.

  LV_CONTINUE = SY-TABIX.

  IF SY-TABIX EQ 6.
    CONTINUE.
  ENDIF.

ENDLOOP.

LOOP AT LT_MARA.

  LV_EXIT = SY-TABIX.

  IF SY-TABIX EQ 6.
    EXIT.
  ENDIF.

ENDLOOP.

WRITE: / 'LV_CONTINUE', 12 ' = ', LV_CONTINUE,
       / 'LV_EXIT'    , 12 ' = ', LV_EXIT    .