OPERATIONS ON INTERNAL TABLE

*&---------------------------------------------------------------------*
*& Report  ZA_DEMO_ITABS_OPERATIONS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZA_DEMO_ITABS_OPERATIONS.
DATA : V_LINES TYPE I.
TYPES : BEGIN OF TY_T001,
        DEP_ID TYPE I,
        F_NAME TYPE STRING,
        l_NAME TYPE STRING,
        GENDER(4) TYPE C,
  END OF TY_T001.

  DATA ITAB1 TYPE TY_T001 OCCURS 2.
  DATA ITAB2 TYPE TY_T001 OCCURS 2.
  DATA WA_T001 TYPE TY_T001.

WA_T001-DEP_ID = '001'.
WA_T001-F_NAME = 'ANVESH'.
WA_T001-L_NAME = 'GODDATI'.
WA_T001-GENDER = 'MALE'.


INSERT WA_T001    INTO ITAB1 INDEX 1  .
CLEAR WA_T001.

WA_T001-DEP_ID = '002'.
WA_T001-F_NAME = 'RAMESH'.
WA_T001-L_NAME = 'GODAPATI'.
WA_T001-GENDER = 'MALE'.

APPEND WA_T001    TO ITAB1  .
CLEAR WA_T001.

WA_T001-DEP_ID = '003'.
WA_T001-F_NAME = 'SURESH'.
WA_T001-L_NAME = 'KODATI'.
WA_T001-GENDER = 'MALE'.

APPEND WA_T001    TO ITAB1  .
CLEAR WA_T001.

WA_T001-DEP_ID = '004'.
WA_T001-F_NAME = 'GURESH'.
WA_T001-L_NAME = 'KODATI'.
WA_T001-GENDER = 'MALE'.

INSERT  WA_T001   INTO ITAB1 INDEX 4  .
CLEAR WA_T001.
WA_T001-DEP_ID = '005'.
WA_T001-F_NAME = 'PADMESH'.
WA_T001-L_NAME = 'RUDRAPATI'.
WA_T001-GENDER = 'MALE'.

INSERT WA_T001    INTO ITAB1 INDEX 5  .
CLEAR WA_T001.

SORT ITAB1 ASCENDING BY  F_NAME.

LOOP AT ITAB1 INTO WA_T001.
  WRITE : 5 WA_T001-DEP_ID , 24
           WA_T001-F_NAME ,36
           WA_T001-L_NAME,45
           WA_T001-GENDER.
  SKIP.
           ENDLOOP.
CLEAR WA_T001.

*APPEND LINES OF ITAB1  TO ITAB2.
INSERT LINES OF ITAB1 FROM 3 TO 5 INTO ITAB2 INDEX 1.


LOOP AT ITAB2 INTO WA_T001.
  WRITE : 5 WA_T001-DEP_ID , 24
           WA_T001-F_NAME ,36
           WA_T001-L_NAME,45
           WA_T001-GENDER.
  SKIP.
           ENDLOOP.

DESCRIBE TABLE  ITAB1 LINES V_LINES.
           WRITE 5 V_LINES.

WA_T001-DEP_ID = '004'.
WA_T001-F_NAME = 'GURESH'.
WA_T001-L_NAME = 'KODATI'.
WA_T001-GENDER = 'MALE'.



INSERT WA_T001 INTO ITAB2 INDEX 4.
READ TABLE ITAB2 INTO WA_T001 INDEX 4.
WRITE :5 WA_T001-DEP_ID , 24
           WA_T001-F_NAME ,36
           WA_T001-L_NAME,45
           WA_T001-GENDER.
*DELETE ITAB2 INDEX 4.
*READ TABLE ITAB2 INTO WA_T001 INDEX 1.
*WRITE :5 WA_T001-DEP_ID , 24
*           WA_T001-F_NAME ,36
*           WA_T001-L_NAME,45
*           WA_T001-GENDER.

ADDING LINES TO THE INTERNAL TABLE USING HEADER LINE / WORK AREA.

*&---------------------------------------------------------------------*
*& Report  ZA_DEMO_ITABS_DISPLAY
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZA_DEMO_ITABS_DISPLAY.

TYPES : BEGIN OF  TY_MARA,
  CLIENT_NAME(20) TYPE C,
  MAT_NUMBER TYPE I,
  LASTCHNGDATE TYPE DATE,
  END OF TY_MARA.


  DATA IT_MARA TYPE  TABLE OF TY_MARA.
  DATA WA_MARA TYPE  TY_MARA.
  WA_MARA-CLIENT_NAME = '1.BAJAJALLIANZ'.
  WA_MARA-MAT_NUMBER = '1234'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.


APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.

 WA_MARA-CLIENT_NAME = '2.ICICILAMBORD'.
  WA_MARA-MAT_NUMBER = '4567'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.

APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
  WA_MARA-CLIENT_NAME = '3.HDFCERGO'.
  WA_MARA-MAT_NUMBER = '8901'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.


APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
 WA_MARA-CLIENT_NAME = '4.SBI-LIFE'.
  WA_MARA-MAT_NUMBER = '1212'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.

APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '5.LIC-INDIA'.
  WA_MARA-MAT_NUMBER = '1212'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.

APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.

  WA_MARA-CLIENT_NAME = '6.NEWINDIA-ASSURANCE'.
  WA_MARA-MAT_NUMBER = '1234'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.

APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
 WA_MARA-CLIENT_NAME = '7.OBC'.
  WA_MARA-MAT_NUMBER = '4567'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.

APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
  WA_MARA-CLIENT_NAME = '8.AB'.
  WA_MARA-MAT_NUMBER = '8901'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.


APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
 WA_MARA-CLIENT_NAME = '9.CANARA'.
  WA_MARA-MAT_NUMBER = '1212'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.

APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
WA_MARA-CLIENT_NAME = '10.P&S'.
  WA_MARA-MAT_NUMBER = '1212'.
  WA_MARA-LASTCHNGDATE = '13/12/2014'.

APPEND WA_MARA TO IT_MARA.
CLEAR WA_MARA.
  LOOP AT IT_MARA INTO WA_MARA.

    WRITE  : 5 WA_MARA-CLIENT_NAME,31 WA_MARA-MAT_NUMBER , 52  WA_MARA-LASTCHNGDATE.
    SKIP.


    ENDLOOP.
*WRITE : 60 'ANVESH',
*        127 'GODDATI'.

STRING COMPARISIONS

'AABB' co 'AB' True

•         'ABCD' co 'ABC' False---->string1 is refernce 

•         'AABB' cn 'AB' False------>string1 is refernce 

•         'ABCD' cn 'ABC' True----->string1 is refernce

•         'AXCZ' ca 'AB' True------>any string is reference

•         'ABCD' ca 'XYZ' False------>any string is reference

•         'AXCZ' na 'ABC' False------>any string is reference

•         'ABCD' na 'XYZ' True ------>any string is reference
•        'ABCD' CS    'A'          TRUE. ------>any string is reference
•       'ABCD'  CS   'XYZ'    FALSE. ------>any string is reference
•        'ABCD' NS    'A'          TRUE. ------>any string1 is reference
•       'ABCD'  NS   'XYZ'    FALSE. ------>any string1 is reference




CA:

*    srting str1 should be less than string 2 in case of co comparision.
*    STRING(STR1) MUST CONTAIN ALL OR ATLEAST ONE CHARACTER THAT  ARE IN 
     THE STRING 2.
*   BLANK SPACES ARE IGNORED EVEN IN THE STATEMENT STR1 OR STR2 .
*   the blanks or spaces  before or after the string1 and string2 are ignored.
    IF THE STATEMENT IS TRUE THE STRING1 LENGHT IS RETURN OTHERWISE,THE POSITON OF CHARACTER OF STRING2 THAT IS NOT THERE IN THE STRING ONE IS RETURN.


DATA : V_STR1(25) TYPE C,
              V_STR2(20) TYPE C.

 V_STR1 = '   ab      '.
 V_STR2 = '     abc@#$    '.

 IF V_STR1 co V_STR2 .
*   WRITE : 'TRUE'.
   write : sy-fdpos.
   ELSE .
*      WRITE : 'FALSE'.
       write : sy-fdpos.
     ENDIF.

CS:
REPORT  ZA_DEMO_STRINGS_COMPARISONS.
PARAMETERS : V_STR1 TYPE STRING,
             V_STR2 TYPE STRING.



IF  V_STR1 cs V_STR2 .

WRITE  'TRUE'.

ELSE.
  WRITE 'FALSE' .

ENDIF.

FORMAT COLOR DEMO PROGRAMME

WHILE SY-INDEX  <= 7.
FORMAT  COLOR = SY-INDEX.
  WRITE :   / SY-INDEX INTENSIFIED ,SY-INDEX   INTENSIFIED OFF,SY-INDEX INVERSE,SY-INDEX INVERSE OFF.
  SY-INDEX = SY-INDEX + 1.
  ENDWHILE.

SAP ABAP FORMAT OPTIONS DEMO PROGRAMME

REPORT  ZADEMO_FORMAT_OPTIONS.
DATA : G_VAR TYPE F .
      G_VAR = '534.123'.

WRITE  :  /40  G_VAR ROUND 2.
 WRITE  :     SY-ULINE.
  WRITE  :     SY-VLINE.
 WRITE   SKIP LINES.
WRITE  :  /40 G_VAR EXPONENT 3.
WRITE  :     SY-ULINE.
 WRITE  :     SY-VLINE.
WRITE  :  /40 G_VAR DECIMALS 3.
WRITE  :     SY-ULINE.
 WRITE  :     SY-VLINE.
WRITE : G_VAR NO-SIGN.

SAP ABAP FORMAT OPTIONS

1. BAP Development

Formatting options

Ambitious Project By Two Friends With Two Big Hearts And Two Laundry Machines! (Buzzwok)

Ad by BuyNsave | Close

Skip to end of metadata

• Added by Suraj Ravindran Nair, last edited by Suraj Ravindran Nair on Apr 08, 2012  (view change)
• show comment

Go to start of metadata

Link to Content's target Space :

http://wiki.sdn.sap.com/wiki/display/ABAP/ABAP+Development+and+Programming

WRITE WITH COLOR SPECIFICATIONS.

NEW LINE SPEC /, COLUMN SPEC, LENGTH SPEC

FORMAT STATEMENT. FORMAT RESET, FORMAT HOTSPOT = <V>

                                   <V> VALUE ON/OFF

COLOR SPEC AT DATA OBJECT LEVEL

COLOR CONTROL: EITHER BACKGROUND OR FOREGROUND

----------------------------------------------------------

| VAL | INTENSIFIED ON |INTENSIFIED OFF |INVERSE ON      |

| -UE | (BACKGROUND)      | (BACKGROUND)           | (FOREGROUND)        |

----------------------------------------------------------

|  0  |COL_BACKGROUND  |COL_BACKGROUND      |COL_BACKGROUND  |

|  1  |COL_HEADING           |COL_HEADING                |COL_HEADING           |

|  2  |COL_NORMAL           |COL_NORMAL                 |COL_NORMAL           |

|  3  |COL_TOTAL              |COL_TOTAL                     |COL_TOTAL              |

|  4  |COL_KEY                   |COL_KEY                         |COL_KEY                  |

|  5  |COL_POSITIVE          |COL_POSITIVE                  |COL_POSITIVE          |

|  6  |COL_NEGATIVE       |COL_NEGATIVE                 |COL_NEGATIVE        |

|  7  |COL_GROUP             |COL_GROUP                     |COL_GROUP             |

----------------------------------------------------------

Output format of predefined data types

=================================================

Data    Output length          Positioning

Type

=================================================

C       field length           left-justified

D       8                      left-justified

F       22                     right-justified

I       11                     right-justified

N       field length           left-justified

P       2 * field length       right-justified

T       6                      left-justified

X       2 * field length       left-justified

=================================================

Formatting options for all data types

=========================================================

Option                     Function

=========================================================

LEFT-JUSTIFIED           Output is left-justified.

CENTERED                 Output is centered.

RIGHT-JUSTIFIED          Output is right-justified.

UNDER <g>                Output starts directly under field <g>.

NO-GAP                   The blank after field <f> is omitted.

USING EDIT MASK <m>      Specifies format template <m> ('==XXXXX').

USING NO EDIT MASK       Deactivates a format template specified in the ABAP Dictionary.

NO-ZERO                  If a field contains only zeros, these are replaced by blanks.

                        For type C and N fields, leading zeros are replaced automatically.

Formatting options for numeric fields

=========================================================

Option                  Function

=========================================================

NO-SIGN                 The leading sign is not displayed on the

screen.

DECIMALS <d>            <d> defines the number of digits after the decimal point.

EXPONENT <e>            In type F fields, the exponent is defined in <e>.

ROUND <r>               Type P fields are multiplied by 10**(-r) and then rounded.

CURRENCY <c>            Format according to currency <c> in table TCURX.

UNIT <u>                The number of decimal places is fixed according to unit

                       <u> specified in table T006 for type P fields.

Formatting options for date fields

=========================================================

Option                  Function

=========================================================

DD/MM/YY                Separators as defined in user’s master record.

MM/DD/YY                Separators as defined in user’s master record.

DD/MM/YYYY              Separators as defined in user’s master record.

MM/DD/YYYY              Separators as defined in user’s master record.

DDMMYY                  No separators.

MMDDYY                  No separators.

YYMMDD                  No separators.

ULINE COMMAND, SY-ULINE, SY-VLINE

SKIP LINES, SKIP TO LINE <l>, POSITION <L>

OUTPUTTING BLANK LINES, SET BLANK LINES ON

WRITE <f> AS CHECKBOX.

WRITE <symbol-name> AS SYMBOL.

WRITE <icon-name> AS ICON.

LINE-SIZE, LINE-COUNT(FL) WITH REPORT STATEMENT.

NEW-PAGE [stage:(LINE-COUNT)] COMMAND, TOP-OF-PAGE EVENT,

END-OF-PAGE EVENT, NEW-LINE NO-SCROLLING.

SET LEFT SCROLL-BOUNDARY [stage:COLUMN <col>].

STANDARD PAGE HEADER THRU TEXT ELEMENTS

SY-TVAR0 - SY-TVAR9

SY-TITLE, SY-PAGNO, SY-LINSZ, SY-LINCT.SY-LINNO

RESERVE <n> LINES.