Refreshing the Map for every 30seconds to view updated data

Pulla Reddy Arveti · New User Joined: 15 Sep 2005 Posts: 3 Location: Chennai

Hi All,

How to refresh the screen for every 30seconds/one minute to get or show updated data on the screen without pressing ENTER key?
If user enters a refreshing time we have to use this refreshing time and has to refresh the screen for every time interval the user entered. Here also we shoud not press ENTER key except when entering refresh time.

Thanks,
Reddy

mallikiran · New User Joined: 07 Sep 2005 Posts: 49

You may use

EXEC CICS START
TRANSID (WS-TRANSID)
AFTER
SECONDS(30)
END-EXEC.

EXEC CICS
RETURN
END-EXEC.

This would issue a command to start the transaction after 30 seconds and return control to CICS.

Pulla Reddy Arveti · New User Joined: 15 Sep 2005 Posts: 3 Location: Chennai

Thanks Mallikiran.
I tried with the option but it's not working.

I've a doubt.
IF EIBCALEN = 0 THEN
PERFORM DATE-PARA
PERFORM SEND-MAP
PERFORM START-TRANSACTION
ELSE
PERFORM RECEIVE MAP.

RECEIVE-MAP.
IF EIBAID = DFHENTER
PERFORM SEND-MAP
PERFORM START-TRANSACTION
START-TRANSACTION.
EXEC CICS START TRANSID()
INTERVAL(000030)
TERMID()
END-EXEC.

Will this code works?

p.m.s.Reddy · New User Joined: 20 Sep 2005 Posts: 11 Location: chennai

Hi Pulla Reddy,

I tried with ur code but its not working.One thing i am not getting why r u using that eibcalen.

Pulla Reddy Arveti · New User Joined: 15 Sep 2005 Posts: 3 Location: Chennai

Hi M.S.Reddy,
I'm using that eibcalen for pseudo conversation.If user enters his refreshing time, we have to use this refresing time and has to refresh the map.So we have to check eibcalen = 0 or not.

Thanks

mallikiran · New User Joined: 07 Sep 2005 Posts: 49

This is how I would code it:

PROCEDURE DIVISION.
EXEC CICS RECEIVE MAP(MAPNAME)
INTO (WS-MAPNAME)
RESP(WS-RESP)
END-EXEC.

Insert routine to read database
Insert routine to build map
Insert routine to send map

EXEC CICS START
TRANSID (WS-TRANSID)
AFTER
SECONDS(WS-MAP-INTERVALI)
END-EXEC.

EXEC CICS
RETURN
END-EXEC.

Ensure that MDT is on for all fields so that even if user does not change the previous value, that value is always returned when RECEIVE MAP is done.