View previous topic :: View next topic
|
Author |
Message |
Amit_Singh47
New User
Joined: 15 May 2013 Posts: 22 Location: India
|
|
|
|
I am developing a new CICS screen in which PF18 is an invalid key.
so, whenever user presses pf18 im simply sending the map like this:
Code: |
EXEC CICS SEND
MAP('N1B8MAP')
MAPSET('N1B8MAP')
FROM (N1B8MAPO)
CURSOR
END-EXEC.
EXEC CICS RETURN
TRANSID('BRX7')
COMMAREA(WS-COMMAREA)
LENGTH(LENGTH OF WS-COMMAREA)
END-EXEC. |
my screen displays data from TSQ. initially it looks like this
Code: |
SID SSN TYPE-CODE
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
000000WA XXXXXXXX17A US6101540010080
|
when invalid key is pressed it becomes like this(data is shifted one place):
Code: |
SID SSN TYPE-CODE
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080
000000WAXXXXXXXX17A US6101540010080 |
Please help.
Code'd |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
If spacing is significant, you must use the Code tags and the Preview button to get it to look how it should be. |
|
Back to top |
|
|
prino
Senior Member
Joined: 07 Feb 2009 Posts: 1306 Location: Vilnius, Lithuania
|
|
|
|
Computers are deterministic. They don't just change an external TSQ upon hitting a wrong PF key, so it's pretty obvious that the program must be doing a lot more between detecting the PF18 and executing the snippet of code you have posted... |
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
You're either storing the screen-data erroneously or re-populating the screen from the TSQ without initializing each map-line to SPACES beforehand. LOW-VALUES will cause this type of "Shifting".
Use an INSPECT to rid the TSQ data of all LOW-VALUES and replace with SPACES, before re-populating the screen. |
|
Back to top |
|
|
Amit_Singh47
New User
Joined: 15 May 2013 Posts: 22 Location: India
|
|
|
|
Code: |
PERFORM XXXXX-RECEIVE-MAP-PARA
******PERFORM VALIDATION*******
IF 88-VALID
*********DO STUFFS***********
ELSE
EXEC CICS SEND
MAP('N1B8MAP')
MAPSET('N1B8MAP')
FROM (N1B8MAPO)
CURSOR
END-EXEC
EXEC CICS RETURN
TRANSID('TRAN')
COMMAREA(WS-COMMAREA)
LENGTH(LENGTH OF WS-COMMAREA)
END-EXEC
END-IF |
THIS ELSE PART WILL BE PERFORMED AGAIN AND AGAIN TILL USER ENTERS INVALID VALUE. |
|
Back to top |
|
|
rajesh_mbt
New User
Joined: 27 Mar 2006 Posts: 97 Location: India
|
|
|
|
I suspect the symbolic map structure and physical map structure might not be matched.. Is this happening only for PF18 key function alone or other key as well? |
|
Back to top |
|
|
|