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
 

 

Error while sending CICS pop up screen

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

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Wed Jul 08, 2015 12:47 am    Post subject: Error while sending CICS pop up screen
Reply with quote

Hello,

I am trying to display a pop up screen in my CICS. My Mapset has two maps where one is used for pop up screen. Below is the CICS command to display my pop up and getting error as sfe, sa or mf order was received with an invalid extended color value. error occurred at location 0x9b in the write.

Not able to figure out what does that mean. Any pointers?


Code:
EXEC CICS SEND                           
          MAP    (Mapname)           
          MAPSET (Mapset)             
          FROM   (Group)             
          CURSOR                         
END-EXEC                                 
Back to top
View user's profile Send private message

kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Wed Jul 08, 2015 3:07 am    Post subject:
Reply with quote

Mapset definition used

Code:
MAPSET DFHMSD TYPE=&SYSPARM,MODE=INOUT,TIOAPFX=YES,STORAGE=AUTO,      X
       CTRL=FREEKB,LANG=COBOL,EXTATT=YES,HILIGHT=OFF           
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 990
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Wed Jul 08, 2015 6:26 pm    Post subject:
Reply with quote

Quote:
MAPSET DFHMSD TYPE=&SYSPARM,MODE=INOUT,TIOAPFX=YES,STORAGE=AUTO, X
CTRL=FREEKB,LANG=COBOL,EXTATT=YES,HILIGHT=OFF


....and where are the fields for the map defined? The attributes of the fields are where the likes of extended colour values are to be found.

Garry.
Back to top
View user's profile Send private message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Thu Jul 09, 2015 1:42 am    Post subject:
Reply with quote

Code:
GROUP01 DFHMDI SIZE=(08,80),LINE=1,COLUMN=1                   
ATTR01  DFHMDF POS=(01,13),LENGTH=50,                         
               HILIGHT=UNDERLINE,                             
               COLOR=GREEN,                                   
               ATTRB=(NORM,UNPROT,IC,FSET)                   
        DFHMDF POS=(01,64),LENGTH=1,       
               ATTRB=(ASKIP)               
ATTR02  DFHMDF POS=(03,13),LENGTH=50,       
               HILIGHT=UNDERLINE,           
               COLOR=GREEN,                 
               ATTRB=(NORM,UNPROT,FSET)     
        DFHMDF POS=(03,64),LENGTH=1,       
               ATTRB=(ASKIP)               
MSGOUT  DFHMDF POS=(05,5),LENGTH=70,       
               COLOR=RED,                 
               ATTRB=(NORM,PROT,ASKIP)     
        DFHMDF POS=(05,76),LENGTH=1,       
               ATTRB=(ASKIP)         


Looks like the issue is due to the length of the MSGOUT field. When i decreased the size to 50 bytes i am able to skip the issue. But not sure why it does not work with 70 bytes.
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 990
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Thu Jul 09, 2015 12:52 pm    Post subject:
Reply with quote

t looks like the issue is with the field after MSGOUT, not with MSGOUT itself. I reckon this field is overlaying the end of the MSGOUT field, so when you move data into MSGOUT, the attributes of thls last field are corrupted.

Check the copybook generated for the map.

Garry. icon_rolleyes.gif
Back to top
View user's profile Send private message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Thu Jul 09, 2015 8:02 pm    Post subject:
Reply with quote

Not able to figure from the copybook. It all looks good to me. With each field not overlapping the other.
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 990
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Thu Jul 09, 2015 8:23 pm    Post subject:
Reply with quote

Were you able to get it working with any MSGPUT length > 50 and less than 70 ? Is the length of data moved to this field determined by the length of MSGOUT?

Garry
Back to top
View user's profile Send private message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Thu Jul 09, 2015 8:49 pm    Post subject:
Reply with quote

I havent tried with >50, Even with the working code highlight option is not working. It is working for one line and not the other.
Back to top
View user's profile Send private message
Garry Carroll

Active Member


Joined: 08 May 2006
Posts: 990
Location: Dublin, Ireland / Edinburgh, Scotland

PostPosted: Thu Jul 09, 2015 8:59 pm    Post subject:
Reply with quote

Are you setting highlight for MSGOUT or is it that highlight is not working for the ATTR01 and ATTR02 fields?

Garry.
Back to top
View user's profile Send private message
Mickeydusaor

Active User


Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon

PostPosted: Thu Jul 09, 2015 9:18 pm    Post subject:
Reply with quote

MAPSET DFHMSD TYPE=&SYSPARM,MODE=INOUT,TIOAPFX=YES,STORAGE=AUTO, X
CTRL=FREEKB,LANG=COBOL,EXTATT=YES,HILIGHT=OFF

try adding this to the above

MAPATTS=(COLOR,HILIGHT),DSATTS=(COLOR,HILIGHT),
CTRL=(FREEKB),TERM=3270-2,CURSLOC=YES
Back to top
View user's profile Send private message
kratos86

Active User


Joined: 17 Mar 2008
Posts: 148
Location: Anna NGR

PostPosted: Thu Jul 09, 2015 9:52 pm    Post subject:
Reply with quote

Resolved the issue by splitting the CICS send into map-only and data-only logic.
Back to top
View user's profile Send private message
Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 1610
Location: NY,USA

PostPosted: Thu Jul 09, 2015 10:10 pm    Post subject:
Reply with quote

Good to know and thanks for posting the resolution.
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 START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
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 Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts IMS DC screen Access sivasaras IMS DB/DC 3 Fri Nov 18, 2016 6:38 pm


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