Community
Application Development and Automation Discussions
Join the discussions or start your own on all things application development, including tools and APIs, programming models, and keeping your skills sharp.
cancel
Turn on suggestions
Auto-suggest helps you quickly narrow down your search results by suggesting possible matches as you type.
Showing results for 
Search instead for 
Did you mean: 
Read only

Condense in a structure

former_member194669
Active Contributor

‎2007 Nov 01 4:17 PM

0 Likes
1,501

Hi,


report  zars no standard page heading
        line-size 170
        line-count 65(4).

data: begin of d1600,
        field1(5),
        field2(10),
        field3(3).
data: end of d1600.

move '1' to d1600-field1.  " Only 1
move ' 3' to d1600-field3. " Space and 3

concatenate d1600 space into d1600.

condense d1600 no-gaps.

.

After concatenate result showing like 


FIELD1	1
FIELD2                                                                                
FIELD3	 3

After condense system showing like


FIELD1	13
FIELD2                                                                                
FIELD3

But i want the results after condense this way


FIELD1	1 3
FIELD2                                                                                
FIELD3

a®

Hi,


report  zars no standard page heading
        line-size 170
        line-count 65(4).

data: begin of d1600,
        field1(5),
        field2(10),
        field3(3).
data: end of d1600.

move '1' to d1600-field1.  " Only 1
move ' 3' to d1600-field3. " Space and 3

concatenate d1600 space into d1600.

condense d1600 no-gaps.

.

After concatenate result showing like 


FIELD1	1
FIELD2                                                                                
FIELD3	 3

After condense system showing like


FIELD1	13
FIELD2                                                                                
FIELD3

But i want the results after condense this way


FIELD1	1 3
FIELD2                                                                                
FIELD3

a®

Reply
4 REPLIES 4
Read only

Former Member

‎2007 Nov 01 4:23 PM

0 Likes
942

remove no-gaps from the below statement

condense d1600 no-gaps.

Reward if it helps,

Satish

Read only

Former Member

‎2007 Nov 01 4:24 PM

0 Likes
942

Hi

Small change,


condense d1600.     "Remove  no-gaps.

Read only

Former Member

‎2007 Nov 01 4:24 PM

0 Likes
942

Hi,

Did u try shift command?

Regards,

Niyaz

Read only

suresh_datti
Active Contributor

‎2007 Nov 01 4:24 PM

0 Likes
942

try this instead..

report  zars no standard page heading
        line-size 170
        line-count 65(4).
 
data: begin of d1600,
        field1(5),
        field2(10),
        field3(3).
data: end of d1600.
 
move '1' to d1600-field1.  " Only 1
move ' 3' to d1600-field3. " Space and 3
 
concatenate d1600-field1 d1600-field3 into d1600-field1.
clear  d1600-field3.

~Suresh