IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Error while sending CICS pop up screen


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
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
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
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

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Wed Jul 08, 2015 6:26 pm
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
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

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Thu Jul 09, 2015 12:52 pm
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
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

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Thu Jul 09, 2015 8:23 pm
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
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

Senior Member


Joined: 08 May 2006
Posts: 1193
Location: Dublin, Ireland

PostPosted: Thu Jul 09, 2015 8:59 pm
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
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
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

Global Moderator


Joined: 21 Sep 2010
Posts: 3051
Location: NYC,USA

PostPosted: Thu Jul 09, 2015 10:10 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using API Gateway from CICS program CICS 0
No new posts Error to read log with rexx CLIST & REXX 11
No new posts Error when install DB2 DB2 2
No new posts CLIST - Virtual storage allocation error CLIST & REXX 5
No new posts Calling an Open C library function in... CICS 1
Search our Forums:

Back to Top