www.lucasozio.it » ABAP

Working with Internal tables.

admin — Wed, 15 Apr 2009 14:39:48 +0000

Here is a small example on how to work with ABAP iternal tables. Enjoy it. You will find this example on ABAPDOCU transaction inside SAP system.

REPORT demo_int_tables_move .
 
* move
 
DATA: BEGIN OF line,
        col1(1) TYPE c,
        col2(1) TYPE c,
      END OF line.
 
DATA: etab LIKE TABLE OF line WITH HEADER LINE,
      ftab1 LIKE TABLE OF line.
 
line-col1 = 'A'. line-col2 = 'B'.
 
APPEND line TO etab.
 
MOVE etab[] TO ftab1.
 
LOOP AT ftab1 INTO line.
  WRITE: / line-col1, line-col2.
ENDLOOP.
 
SKIP.
ULINE.
 
* =
 
DATA: ftab2 TYPE SORTED TABLE OF f
            WITH NON-UNIQUE KEY table_line,
      itab1 TYPE HASHED TABLE OF i
            WITH UNIQUE KEY table_line,
      fl    TYPE f.
 
DO 3 TIMES.
  INSERT sy-index INTO TABLE itab1.
ENDDO.

Funzioni ABS, SIGN, CEIL, FLOOR, TRUNC, e FRAC

admin1 — Fri, 31 Oct 2008 15:30:05 +0000

Ecco un esempio di alcune funzioni che potrebbero risultare utili nella quotidiana attività del programmatore ABAP.
In basso un semplicissimo programma che illustra come operano le funzioni ABS, SIGN, CEIL, FLOOR, TRUNC e FRAC scritto in ABAP4.
Per maggiori dettagli, e per altre funzioni disponibili nel linguaggio ABAP, visitate questa pagina

* Le Funzioni ABS, SIGN, CEIL, FLOOR, TRUNC, e FRAC.
 
DATA: I TYPE I,
P TYPE P DECIMALS 2,
M TYPE F VALUE '-3.5',
D TYPE P DECIMALS 1.
P = ABS( M ). " 3,5
I = P. " 4 - business rounding
I = M. " -4
I = CEIL( P ). " 4 - l'intero più grande
I = CEIL( M ). " -3
I = FLOOR( P ). " 3 - l'intero più piccolo
I = FLOOR( M ). " -4
I = TRUNC( P ). " 3 - parte intera
I = TRUNC( M ). " -3
D = FRAC( P ). " 0.5 - parte decimale
D = FRAC( M ). " -0.5

SAP: Debugging User Exit

admin — Sun, 14 Sep 2008 13:07:19 +0000

Per chi giornalmente lavora come programmatore ABAP su ambienti SAP sarà sicuramente capitato di essere impossibilitato nell’eseguire il debug di codice ABAP. Uno di questi casi è quando viene attivato un Enhancement con user exit associate.

Se vi trovate in questa situazione, seguite questa procedura e riuscirete ad attivare il debug:
Prima di Iniziare. Accertarsi dove è utilizzata la user exit.

Nel caso della User Exit EXIT_SAPLMBMB_001
il punto esatto è MB_UPDATE_TASKS. Teniamo a mente questo dato.

n.b. Questa operazione potrebbe non essere fruttuosa al primo tentativo, dopo qualche sessione di debug riusciremo comunque ad ottenere quella precisa.

Seguiamo ora i seguenti step:

* Aprire una sessione di Debug nella “Command field” con il classico metodo /H + Invio.

* Selezionare dal menu la voce Settings -> Display/Change Debugger Settings e nella popup che appare la voce “Update Debugging”.

* Rientrando nella schermata di Debugging premere il tasto F8. Verrà aperta una nuova sessione di Debug (Update Debugging).

* In questa finestra re-impostare il System Debugging andando su Settings -> Display/Change Debugger Settings e selezionando la voce “System Debugging” nella popup

* Spostiamoci ora nella sezione Desktop 2, e nella sezione ABAP Stack fare doppio click sulla riga “VB_CALL_FUNC” (vedi figura 5), e impostare un Break Point (Punto di interruzione) sulla stringa:

PERFORM (VBFUNC) IN PROGRAM (TFDIR-PNAME) USING VBID.

* Eseguire ora il debug regolarmente finché non si arriva alla chiamata della funzione che ci interessa. Per aiutarci, in questo frangente è utile impostare nella sezione desktop 1 i campi VBFUNC e TFDIR-PNAME e monitorarli finché non assumono il valore della funzione desiderata.