MODULE - 1 | ABAP BASICS ( ABAP BASICS HANDS-ON.PDF )

 SIMPLE WRITE STATEMENTS

QUESTION - 01:

REPORT ZTM20382363_SYSF1 NO STANDARD PAGE HEADING.
WRITE:  /(50) 'FIRST PROGRAM' CENTERED.
WRITE: /(50) SYST-ULINE.
SKIP.
WRITE: / 'THIS LIST IS GENERATED',
       / 'ON:', SY-DATUM,
       / 'AT:', SY-UZEIT,
       / 'BY:', SY-UNAME,
       /(50) SY-ULINE.

QUESTION - 02:

REPORT ZTM20382363_TITLE NO STANDARD PAGE HEADING.
SKIP.
WRITE: SY-ULINE.
WRITE: /(50) 'XYZ CO. PVT. LTD.' CENTERED.
WRITE: / 'DATE:', SY-DATUM LEFT-JUSTIFIED,
        (40) 'PAGE NO. 1' RIGHT-JUSTIFIED,
         SY-ULINE.

SYMBOLS, ICONS AND FORMATTING

QUESTION - 01:

REPORT ZTM20382363_ICON.

WRITE: / 'SYMBOLS' LEFT-JUSTIFIED,
     (17) 'ICONS' RIGHT-JUSTIFIED.
SKIP.
WRITE: / SYM_PHONE AS SYMBOL,
       (20) ICON_CHECKED AS ICON RIGHT-JUSTIFIED,
       / SYM_FAX AS SYMBOL,
       (20) ICON_DELETE AS ICON RIGHT-JUSTIFIED,
       / SYM_RIGHT_HAND AS SYMBOL,
       (20) ICON_PRINT AS ICON RIGHT-JUSTIFIED,
       / SYM_LEFT_HAND AS SYMBOL,
       / SYM_CAUTION AS SYMBOL.

QUESTION - 02:

REPORT ZTM20382363_COLOR.
WRITE: / 'HEADER' COLOR COL_HEADING.
SKIP.
WRITE: / 'HELLO WORLD' COLOR 1 ON.
WRITE: / 'HELLO WORLD' COLOR 1 OFF.
WRITE: / 'HELLO WORLD' COLOR 2 INTENSIFIED ON.
WRITE: / 'HELLO WORLD' COLOR 2 INTENSIFIED OFF.
WRITE: / 'HELLO WORLD' COLOR 3 INVERSE ON.
WRITE: / 'HELLO WORLD' COLOR 3 INVERSE OFF.

QUESTION - 03:

REPORT ZTM20382363_SIF2.
WRITE: 'BEFORE USING EDIT MASK: 123456'.
WRITE: / 'AFTER USING EDIT MASK:', (8) '123456' USING EDIT MASK '__:__:__'.

QUESTION - 04:

REPORT ZTM20382363_SIF3.
WRITE: 'BEFORE SUPRESS ALL LEADING ZEROS: 0000011'.
WRITE: / 'AFTER SUPRESS ALL LEADING ZEROS:', '0000011' NO-ZERO.

QUESTION - 05:

REPORT ZTM20382363_SIF4.
DATA INPUT TYPE I VALUE -37.
WRITE: 'BEFORE SUPPRESS A SIGN', INPUT.
WRITE: / 'AFTER SUPPRESS A SIGN', INPUT NO-SIGN.

GENERAL PROBLEMS

QUESTION - 01:

REPORT ZTM20382363_CALC.
PARAMETERS: NUM1 TYPE I,
            NUM2 TYPE I,
            RES TYPE I.
SELECTION-SCREEN:
SKIP,
BEGIN OF LINE,
  PUSHBUTTON 5(10) ADD USER-COMMAND ADD,
  PUSHBUTTON 20(10) SUBTRACT USER-COMMAND SUB,
  PUSHBUTTON 35(10) MULTIPLY USER-COMMAND MUL,
END OF LINE,
SKIP,
BEGIN OF LINE,
  PUSHBUTTON 5(10) DIVISION USER-COMMAND DIV,
  PUSHBUTTON 20(10) EXIT USER-COMMAND EXIT,
END OF LINE.

INITIALIZATION.
ADD = 'ADD'.
SUBTRACT = 'SUBTRACT'.
MULTIPLY = 'MULTIPLY'.
DIVISION = 'DIVISION'.
EXIT = 'EXIT'.

AT SELECTION-SCREEN.
CASE SY-UCOMM.
  WHEN 'ADD'.
    RES = NUM1 + NUM2.
  WHEN 'SUB'.
    RES = NUM1 - NUM2.
  WHEN 'MUL'.
    RES = NUM1 * NUM2.
  WHEN 'DIV'.
    RES = NUM1 / NUM2.
  WHEN 'EXIT'.
    LEAVE PROGRAM.
ENDCASE.

QUESTION - 02:

REPORT ZTM20382363_EXER1.
ULINE (10).
WRITE: / '* PATTERN'.
ULINE /(10).
SKIP.
DATA ROW TYPE N.
DATA COL TYPE N.
ROW = 1.
COL = 1.
WHILE ROW <= 5.
  COL = 1.
  WHILE COL <= ROW.
    WRITE: '*'.
    COL = COL + 1.
  ENDWHILE.
  WRITE: /.
  ROW = ROW + 1.
ENDWHILE.

ULINE (20).
WRITE: / 'NUMBER PATTERN'.
ULINE /(20).
SKIP.
ROW = 1.
COL = 1.
WHILE ROW <= 5.
  COL = 1.
  WHILE COL <= ROW.
    WRITE: COL.
    COL = COL + 1.
  ENDWHILE.
  WRITE: /.
  ROW = ROW + 1.
ENDWHILE.

QUESTION - 03:

REPORT ZTM20382363_SWAP.
PARAMETERS: NUM1 TYPE I,
            NUM2 TYPE I.
ULINE (30).
WRITE: / 'BEFORE SWAPPING'.
ULINE /(30).
WRITE: / 'FIRST NUMBER: ',NUM1,
       / 'SECOND NUMBER: ',NUM2.
NUM1 = NUM1 + NUM2.
NUM2 = NUM1 - NUM2.
NUM1 = NUM1 - NUM2.
SKIP.
ULINE (30).
WRITE: / 'AFTER SWAPPING'.
ULINE /(30).
WRITE: / 'FIRST NUMBER: ',NUM1,
       / 'SECOND NUMBER: ',NUM2.

QUESTION - 04:

REPORT ZTM20382363_EXER2.
DATA: STR(4) TYPE C VALUE 'ECHO',
      TEMP TYPE STRING.
DATA INDEX TYPE I VALUE 1.
WHILE INDEX <= 4.
  TEMP = STR(INDEX).
  WRITE: TEMP.
  WRITE: /.
  INDEX = INDEX + 1.
ENDWHILE.
INDEX = 3.
CLEAR TEMP.
WHILE INDEX >= 1.
  TEMP = STR(INDEX).
  WRITE: TEMP.
  WRITE: /.
  INDEX = INDEX - 1.
ENDWHILE.

QUESTION - 05:

REPORT ZTM20382363_GRADE.
PARAMETERS: MARK TYPE I.
IF MARK > 85.
  WRITE: / 'MARK: ', MARK,
         /'GRADE: A'.
  ELSEIF MARK >= 70 AND MARK <= 85.
    WRITE: / 'MARK: ',MARK,
    /'GRADE: B'.
    ELSEIF MARK >= 60 AND MARK <= 69.
      WRITE: / 'MARK: ',MARK,
      / 'GRADE: C'.
      ELSEIF MARK < 60.
        WRITE: / 'MARK: ',MARK,
        / 'GRADE: D'.
      ELSE.
        WRITE: / 'INVALID MARK'.
ENDIF.

QUESTION - 06:

REPORT ZTM20382363_TAX.
PARAMETERS: SALARY TYPE I.
DATA TAX TYPE P.
IF SALARY < 160000.
  WRITE: 'SALARY: ',SALARY,
        /'TAX: NO TAX'.
  ELSEIF SALARY >= 160001 AND SALARY <= 500000.
    TAX = SALARY * '0.1'.
    WRITE: 'SALARY: ',SALARY,
         / 'TAX: ', TAX.
    CLEAR TAX.
    ELSEIF SALARY >= 500001 AND SALARY <= 800000.
      TAX = SALARY * '0.2'.
      WRITE: 'SALARY: ',SALARY,
          / 'TAX: ', TAX.
      CLEAR TAX.
      ELSEIF SALARY > 800001.
        TAX = SALARY * '0.3'.
        WRITE: 'SALARY: ',SALARY,
            / 'TAX: ',TAX.
        ELSE.
          WRITE: 'INVALID INPUT'.
ENDIF.

QUESTION - 07:

REPORT ZTM20382363_LIST.
WRITE: (20) 'DATE' COLOR 5 , (40) 'DESCRIPTION' COLOR 5,
      /(20) '1ST JANUARY' COLOR 5 , (40) 'NEW YEAR' COLOR 4,
      /(20) '14TH JANUARY' COLOR 5 , (40) 'SANKRANTHHI / PONGAL' COLOR 1,
      /(20) '26TH JANUARY' COLOR 5 , (40) 'REPUBLIC DAY' COLOR 4,
      /(20) '14TH FEBRUARY' COLOR 5 , (40) 'VALENTINE DAY' COLOR 1,
      /(20) '2ND OCTOBER' COLOR 5 , (40) 'GANDHI JAYANTI' COLOR 4,
      /(20) '14TH NOVEMBER' COLOR 5 , (40) 'CHILDREN DAY' COLOR 1,
      /(20) '25TH DECEMBER' COLOR 5 , (40) 'CHRISTMAS' COLOR 4.