topic Re: report in Application Development and Automation Discussions

report

Former Member — Mon, 11 Dec 2006 05:47:04 GMT

Hi all,

My requirement is i want to convert 2900(means 29 min and 00 sec) into

00:29:00 ( 00 -

hrs,29 -

min, 00 -

seconds.).Pls explain with a sample code..

Regards & Thanks,

Alex

Re: report

Former Member — Mon, 11 Dec 2006 05:51:01 GMT

data p1(6) type c value '2900'.

data p2(8) type c.

data len type i.

datat off_set type i.

data dummy(6) type c value '0000'.

* operation

len = strlen( p1 ).

* len = 4.

off_set = 6 - len.

offset = 2.

if off_set <> 0.

CONCATENATE dummy(off_set) p1 into p1.

endif.

* p1 = 002900.

CONCATENATE p1(2) ':' into p2.

* p2 = 00:2900.

CONCATENATE p1+3(2) ':' into p2.

* p2 = 00:29:00.

Message was edited by:

vickram s

Re: report

Former Member — Mon, 11 Dec 2006 05:53:56 GMT

hi Alex,

I am giving a psuedo code. u might need to do adjustment for syntax etc.

1) l_time has 2900.

2) take l_time in string format l_time_str

3) length = length( l_time_str ) - 2.

4) l_seconds = l_time_str+length(2).

5) length = length - 2.

6) l_minutes = l_time_str+length(2).

So on. need to put If condition for length >= 0.

Regards,

Vivek.

Re: report

Former Member — Mon, 11 Dec 2006 05:54:17 GMT

Hi Alex,

try this

data x type t value '002900'.

write (8) x using edit mask '__:__:__'.

regards,

pankaj singhreward points if problem is solved

Re: report

Former Member — Mon, 11 Dec 2006 06:11:52 GMT

* declaration part

data p1(6) type c value '2900'.

data p2(8) type c.

data len type i.

datat off_set type i.

data dummy(6) type c value '0000'.

converting 2900 to 00:29:00.

len = strlen( p1 ).

* len = 4.

off_set = 6 - len.

* offset = 2.

if off_set <> 0.

CONCATENATE dummy(off_set) p1 into p1.

endif.

* p1 = 002900.

CONCATENATE p1(2) ':' into p2.

* p2 = 00:2900.

CONCATENATE p1+3(2) ':' into p2.

* p2 = 00:29:00.

write: p2.

Re: report

Former Member — Mon, 11 Dec 2006 06:36:51 GMT

try this.

data : pdat(6) type n value '2900'.

data : phr(2),

pmin(2),

psec(2),

ptime(8).

phr = pdat(2).

pmin = pdat+2(2).

psec = pdat+4(2).

concatenate phr pmin psec into ptime separated by ':'.

regards

shiba dutta