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

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

Active Member


Joined: 07 Feb 2009
Posts: 982
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 How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm
No new posts CICS Roll back partially - Need to re... dwijadas CICS 4 Wed Nov 16, 2016 4:30 pm
No new posts ODPP(Optim Data privacy Provider) Iss... Rama kishore IBM Tools 1 Mon Nov 07, 2016 5:46 pm
No new posts CICS NEW SIT PARAMETERS CICS BEHAVIOR... Kyle Carroll CICS 0 Fri Nov 04, 2016 11:55 pm


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