7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 1/18

Tipul si obiectul de data – Tabelul intern

*&---------------------------------------------------------------------*

*& Report Y_PRC_08*&

*&---------------------------------------------------------------------*

*&*&

*&---------------------------------------------------------------------*

REPORT y_prc_08.

DATA: BEGIN OF ls_tab,

col1 TYPE i,col2 TYPE i,

col3 TYPE i,

END OF ls_tab.

DATA: it_tab LIKE STANDARD TABLE OF ls_tab.

DO 4 TIMES.

ls_tab-col1 = sy-index.

ls_tab-col2 = sy-index ** 2.ls_tab-col3 = sy-index ** 3.

APPEND ls_tab TO it_tab.

ENDDO.

START-OF-SELECTION.

LOOP AT it_tab INTO ls_tab.WRITE: / ls_tab-col1, ls_tab-col2, ls_tab-col3.ENDLOOP.

Tabel intern cu symbol de camp

*&---------------------------------------------------------------------*

*& Report Y_PRC_09*&

*&---------------------------------------------------------------------*

*&*&

*&---------------------------------------------------------------------*

REPORT y_prc_09.

DATA: BEGIN OF ls_tab,

col1 TYPE i,

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 2/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 3/18

col2 TYPE i,

col3 TYPE i,

END OF ls_tab.

DATA it_tab LIKE STANDARD TABLE OF ls_tab.

FIELD-SYMBOLS <wa_tab> LIKE ls_tab.ASSIGN ls_tab TO <wa_tab>.

DO 4 TIMES.<wa_tab>-col1 = sy-index.

<wa_tab>-col2 = sy-index ** 2.

<wa_tab>-col3 = sy-index ** 3.

APPEND <wa_tab> TO it_tab.ENDDO.

START-OF-SELECTION.

LOOP AT it_tab ASSIGNING <wa_tab>.WRITE: / <wa_tab>-col1, <wa_tab>-col2, <wa_tab>-col3.

ENDLOOP.

Tabel intern si ecran de selectie

*&---------------------------------------------------------------------*

*& Report Y_PRC_10

*&

*&---------------------------------------------------------------------**&

*&*&---------------------------------------------------------------------*

REPORT y_prc_10.

PARAMETERS linii TYPE i.

DATA: BEGIN OF ls_tab,

col1 TYPE i,col2 TYPE i,

col3 TYPE i,

END OF ls_tab.

DATA it_tab LIKE STANDARD TABLE OF ls_tab.

FIELD-SYMBOLS <wa_tab> LIKE ls_tab.ASSIGN ls_tab TO <wa_tab>.

DO linii TIMES.

<wa_tab>-col1 = sy-index.

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 4/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 5/18

<wa_tab>-col2 = sy-index ** 2.

<wa_tab>-col3 = sy-index ** 3.

APPEND <wa_tab> TO it_tab.ENDDO.

START-OF-SELECTION.LOOP AT it_tab ASSIGNING <wa_tab>.

WRITE: / <wa_tab>-col1, <wa_tab>-col2, <wa_tab>-col3.

ENDLOOP.

Data din ultima zi a lunii anterioare

*&---------------------------------------------------------------------**& Report Y_PRC_11

*&

*&---------------------------------------------------------------------*

*&*&

*&---------------------------------------------------------------------*

REPORT y_prc_11.

DATA: rezultat TYPE c LENGTH 15,

d_zi TYPE d.

d_zi = sy-datum.d_zi+6(2) = '01'.

d_zi = d_zi - 1.

WRITE d_zi TO rezultat.

START-OF-SELECTION.WRITE d_zi.

MESSAGE rezultat TYPE 'I'.

SQL CU WA (workarea)

*&---------------------------------------------------------------------*

*& Report Y_PRC_11_SQL*&

*&---------------------------------------------------------------------*

*&*&

*&---------------------------------------------------------------------*

REPORT y_prc_11_sql.

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 6/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 7/18

TYPES: BEGIN OF st_spfli,

carrid TYPE s_carr_id,*& se poate si cu field name ... (jos)

connid TYPE spfli-connid,

cityfrom TYPE spfli-cityfrom,cityto TYPE spfli-cityto,

*& nu vor fi afisate daca se foloseste CORRESPONDING FIELDS OF

dist TYPE spfli-distance,unit TYPE spfli-distid,

END OF st_spfli.

DATA: it_spfli TYPE TABLE OF st_spfli,

wa_spfli LIKE LINE OF it_spfli.

*& daca definim structura de baza de tip DATA nu mai e nevoie de WA*& pentru ca o putem folosi in acest scop

SELECT carrid connid cityfrom cityto distance distid

FROM spfli

*& INTO CORRESPONDING FIELDS OF wa_spfliINTO wa_spfli

WHERE carrid = 'LH'.

APPEND wa_spfli TO it_spfli.

ENDSELECT.

LOOP AT it_spfli INTO wa_spfli.WRITE: /wa_spfli-carrid,

wa_spfli-connid,

wa_spfli-cityfrom,wa_spfli-cityto,

wa_spfli-dist,

wa_spfli-unit.

ENDLOOP.

SQL where DINAMIC (input)

*&---------------------------------------------------------------------*

*& Report Y_PRC_12

*&*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 8/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 9/18

REPORT Y_PRC_12.

PARAMETERS p_carrid TYPE spfli-carrid.

TYPES: BEGIN OF st_spfli,carrid TYPE s_carr_id,

*& se poate si cu field name ... (jos)

connid TYPE spfli-connid,cityfrom TYPE spfli-cityfrom,

cityto TYPE spfli-cityto,

*& nu vor fi afisate daca se foloseste CORRESPONDING FIELDS OF

dist TYPE spfli-distance,unit TYPE spfli-distid,

END OF st_spfli.

DATA: it_spfli TYPE TABLE OF st_spfli,

wa_spfli LIKE LINE OF it_spfli.

*& daca definim structura de baza de tip DATA nu mai e nevoie de WA

*& pentru ca o putem folosi in acest scop

SELECT carrid connid cityfrom cityto distance distid

FROM spfli

*& INTO CORRESPONDING FIELDS OF wa_spfliINTO wa_spfli

WHERE carrid = p_carrid.APPEND wa_spfli TO it_spfli.ENDSELECT.

LOOP AT it_spfli INTO wa_spfli.WRITE: /

wa_spfli-carrid,

wa_spfli-connid,

wa_spfli-cityfrom,wa_spfli-cityto,

wa_spfli-dist,

wa_spfli-unit.ENDLOOP.

SQL ARRAY FETCH

*&---------------------------------------------------------------------*

*& Report Y_PRC_13

*&

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 10/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 11/18

*&---------------------------------------------------------------------*

*&

*&*&---------------------------------------------------------------------*

REPORT Y_PRC_13.

PARAMETERS p_carrid TYPE spfli-carrid.

TYPES: BEGIN OF st_spfli,

carrid TYPE s_carr_id,

*& se poate si cu field name ... (jos)

connid TYPE spfli-connid,cityfrom TYPE spfli-cityfrom,

cityto TYPE spfli-cityto,

*& nu vor fi afisate daca se foloseste CORRESPONDING FIELDS OF

dist TYPE spfli-distance,unit TYPE spfli-distid,

END OF st_spfli.

DATA: it_spfli TYPE TABLE OF st_spfli,wa_spfli LIKE LINE OF it_spfli.

*& daca definim structura de baza de tip DATA nu mai e nevoie de WA

*& pentru ca o putem folosi in acest scop

*& tehnica array fetch::SELECT carrid connid cityfrom cityto distance distid

FROM spfli

INTO TABLE it_spfliWHERE carrid = p_carrid.

LOOP AT it_spfli INTO wa_spfli.

WRITE: /wa_spfli-carrid,

wa_spfli-connid,

wa_spfli-cityfrom,wa_spfli-cityto,

wa_spfli-dist,

wa_spfli-unit.ENDLOOP.

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 12/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 13/18

Field SYMBOLS

*&---------------------------------------------------------------------**& Report Y_PRC_14

*&

*&---------------------------------------------------------------------**&

*&

*&---------------------------------------------------------------------*

REPORT y_prc_14.

PARAMETERS p_carrid TYPE spfli-carrid.

TYPES: BEGIN OF st_spfli,

carrid TYPE s_carr_id,

*& se poate si cu field name ... (jos)connid TYPE spfli-connid,

cityfrom TYPE spfli-cityfrom,cityto TYPE spfli-cityto,

*& nu vor fi afisate daca se foloseste CORRESPONDING FIELDS OF

dist TYPE spfli-distance,unit TYPE spfli-distid,

END OF st_spfli.

DATA: it_spfli TYPE TABLE OF st_spfli.

FIELD-SYMBOLS <wa_spfli> TYPE st_spfli.* wa_spfli LIKE LINE OF it_spfli.

*& daca definim structura de baza de tip DATA nu mai e nevoie de WA

*& pentru ca o putem folosi in acest scop

SELECT carrid connid cityfrom cityto distance distid

FROM spfli

INTO TABLE it_spfliWHERE carrid = p_carrid.

LOOP AT it_spfli ASSIGNING <wa_spfli>.WRITE: /

<wa_spfli>-carrid,

<wa_spfli>-connid,<wa_spfli>-cityfrom,

<wa_spfli>-cityto,

<wa_spfli>-dist,

<wa_spfli>-unit.

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 14/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 15/18

ENDLOOP.

2 parametrii (input)

*&---------------------------------------------------------------------*

*& Report Y_PRC_15*&

*&---------------------------------------------------------------------*

*&*&

*&---------------------------------------------------------------------*

REPORT Y_PRC_15.

PARAMETERS: p_carrid TYPE spfli-carrid,

p_connid TYPE spfli-connid.

TYPES: BEGIN OF st_spfli,

carrid TYPE s_carr_id,*& se poate si cu field name ... (jos)

connid TYPE spfli-connid,

cityfrom TYPE spfli-cityfrom,cityto TYPE spfli-cityto,

*& nu vor fi afisate daca se foloseste CORRESPONDING FIELDS OF

dist TYPE spfli-distance,

unit TYPE spfli-distid,END OF st_spfli.

DATA: it_spfli TYPE TABLE OF st_spfli.

FIELD-SYMBOLS <wa_spfli> TYPE st_spfli.* wa_spfli LIKE LINE OF it_spfli.

*& daca definim structura de baza de tip DATA nu mai e nevoie de WA

*& pentru ca o putem folosi in acest scop

SELECT carrid connid cityfrom cityto distance distid

FROM spfliINTO TABLE it_spfli

WHERE carrid = p_carrid

AND connid = p_connid.

LOOP AT it_spfli ASSIGNING <wa_spfli>.

WRITE: /

<wa_spfli>-carrid,

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 16/18

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 17/18

<wa_spfli>-connid,

<wa_spfli>-cityfrom,

<wa_spfli>-cityto,<wa_spfli>-dist,

<wa_spfli>-unit.

ENDLOOP.

TABEL IT MODIFICAT

*&---------------------------------------------------------------------*

*& Report Y_PRC_16

*&

*&---------------------------------------------------------------------**&

*&

*&---------------------------------------------------------------------*

REPORT Y_PRC_16.

PARAMETERS p_carrid TYPE spfli-carrid.

TYPES: BEGIN OF st_spfli,carrid TYPE s_carr_id,

*& se poate si cu field name ... (jos)

connid TYPE spfli-connid,

cityfrom TYPE spfli-cityfrom,cityto TYPE spfli-cityto,

*& nu vor fi afisate daca se foloseste CORRESPONDING FIELDS OFdist TYPE spfli-distance,unit TYPE spfli-distid,

END OF st_spfli.

DATA: it_spfli TYPE TABLE OF st_spfli.

FIELD-SYMBOLS <wa_spfli> TYPE st_spfli.* wa_spfli LIKE LINE OF it_spfli.

*& daca definim structura de baza de tip DATA nu mai e nevoie de WA*& pentru ca o putem folosi in acest scop

SELECT carrid connid cityfrom cityto distance distidFROM spfli

INTO TABLE it_spfli

WHERE carrid = p_carrid.

7/16/2019 Coduri Sap

http://slidepdf.com/reader/full/coduri-sap 18/18