Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

DATA SHIFTING IN CICS SCREEN ON INVALID PF KEY PRESS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
Amit_Singh47

New User


Joined: 15 May 2013
Posts: 22
Location: India

PostPosted: Mon May 27, 2013 7:54 pm    Post subject: DATA SHIFTING IN CICS SCREEN ON INVALID PF KEY PRESS
Reply with quote

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
View user's profile Send private message

Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Mon May 27, 2013 8:03 pm    Post subject: Reply to: DATA SHIFTING IN CICS SCREEN ON INVALID PF KEY PRE
Reply with quote

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
View user's profile Send private message
prino

Senior Member


Joined: 07 Feb 2009
Posts: 1020
Location: Oostende, Belgium

PostPosted: Mon May 27, 2013 8:36 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Tue May 28, 2013 12:14 am    Post subject: Reply to: DATA SHIFTING IN CICS SCREEN ON INVALID PF KEY PRE
Reply with quote

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
View user's profile Send private message
Amit_Singh47

New User


Joined: 15 May 2013
Posts: 22
Location: India

PostPosted: Tue May 28, 2013 11:06 am    Post subject:
Reply with quote

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
View user's profile Send private message
rajesh_mbt

New User


Joined: 27 Mar 2006
Posts: 95
Location: India

PostPosted: Wed Jun 26, 2013 1:43 pm    Post subject:
Reply with quote

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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm
No new posts NDM syntax checking without actually ... GAPX1 All Other Mainframe Topics 0 Wed Jun 07, 2017 2:36 am
No new posts Replace values in the input data Vikas Maharnawar DFSORT/ICETOOL 10 Thu May 11, 2017 2:18 pm
No new posts Group Data based on a key Arun Raj DFSORT/ICETOOL 7 Thu Apr 27, 2017 11:29 pm
No new posts unload data from table with lob columns farhad_evan DB2 1 Sat Apr 22, 2017 1:32 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us