|
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 |
|
|
|
|
