small operations like length, split, index, concatenate two strings
Numeric --> I,F,P.
Character --> C,N,D,T.
Hexadecimal --> X.
Charracter
REPORT ZAJAY_PRACTICE.
data: name1 type c value 'ajay babu varikallu',
name2(40) type c value 'ajay babu varikallu',
name3 type string value 'ajay babu varikallu'.
write:/ 'character data type without length',name1. "a
write: / 'character data type with length',name2. "ajay babu varikallu
write: / 'character data type with string',name3. "ajay babu varikallu'
Number
REPORT ZAJAY_PRACTICE.
data: num1 TYPE n value '12345',
num2(5) type n value '123',
num3(5) type n value '123' .
write: num1, "5
/ num2, "00123
/ num3 no-ZERO. " 123
Date and time
REPORT ZAJAY_PRACTICE.
data: a_date type d,
a_time type t.
a_date = '20230615'.
a_time = '103700'.
WRITE: a_date, "15062023
/ a_time. "103700
SKIP 4.
WRITE: a_date using EDIT MASK '__/__/____', "15/06/2023
/ a_time using EDIT MASK '__:__:__'. "10:37:00
Concatinate two strings
REPORT ZAJAY_PRACTICE.
PARAMETERS:name1 type string,
name2 type string.
data name type string.
CONCATENATE name1 name2 INTO NAME SEPARATED BY SPACE.
write :/ name COLOR 5. "ajay babu.
Split
REPORT ZAJAY_PRACTICE.
PARAMETERS:name1 type string,
name2 type string.
data name type string.
SPLIT name1 at '-' into data(pos1) data(pos2).
write : pos1, "ajay
/ pos2. "babu
> input : ajay-babu
Length
REPORT ZAJAY_PRACTICE.
PARAMETERS:name1 type string.
data(length) = strlen( name1 ) .
write : length.
> input :ajay
> output : 4
Index
REPORT ZAJAY_PRACTICE.
PARAMETERS:name type string.
write : / name+0(4), "ajay
/ name+4(4). " bab
Input : ajay babu
Comments
Post a Comment