MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

EXTENDED ATTRIBUTES IN A BMS MAP

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware
View previous topic :: View next topic  
Author Message
pcmoonbeam
Beginner


Joined: 21 Nov 2005
Posts: 31
Topics: 10
Location: Orange County, California

PostPosted: Thu Jun 19, 2008 4:41 pm    Post subject: EXTENDED ATTRIBUTES IN A BMS MAP Reply with quote

I would like to be able to use extended attributes on a map to cause an error message to blink. However, when I assemble the map, I can't seem to get the extended attribute output in the DSECT that is copied into the CICS program. Here's the mapset and map definition
Code:

SC04MAP DFHMSD TYPE=MAP,MODE=INOUT,CTRL=(FREEKB,FRSET),LANG=COBOL,     X
               EXTATT=MAPONLY,MAPATTS=(COLOR),STORAGE=AUTO,TIOAPFX=YES 
MAP8    DFHMDI SIZE=(24,80)
DESCR   DFHMDF POS=(01,01),LENGTH=09,INITIAL='RETIREE  '               
SS1     DFHMDF POS=(01,11),LENGTH=03,ATTRB=(UNPROT,IC)                 
SS2     DFHMDF POS=(01,15),LENGTH=02,ATTRB=(UNPROT)                     
SS3     DFHMDF POS=(01,18),LENGTH=04,ATTRB=(UNPROT)                     
        DFHMDF POS=(01,23),LENGTH=01,INITIAL=' '                       
PNAM    DFHMDF POS=(01,26),LENGTH=22,ATTRB=(ASKIP)                     
        DFHMDF POS=(01,63),LENGTH=04,INITIAL='FUND'                     
FUND    DFHMDF POS=(01,68),LENGTH=01,ATTRB=(UNPROT)                     
FDESC   DFHMDF POS=(01,70),LENGTH=10,ATTRB=(ASKIP)                     
*****                                                                   
EMSG    DFHMDF POS=(02,01),LENGTH=79,ATTRB=(ASKIP,BRT)                 
*****                                                                   
        DFHMDF POS=(03,02),LENGTH=16,INITIAL='RETIREMENT TYPE:'         
RTYP    DFHMDF POS=(03,26),LENGTH=02,ATTRB=(UNPROT)                     
RDESC   DFHMDF POS=(03,29),LENGTH=30,ATTRB=(ASKIP)                     
        DFHMDF POS=(03,60),LENGTH=09,INITIAL='PPV FLAG:'               
PPVF    DFHMDF POS=(03,70),LENGTH=01,ATTRB=(UNPROT)                     
*****                                                                   
        DFHMDF POS=(04,09),LENGTH=16,INITIAL='SEND CHECKS TO:'         
*****                                                                   
        DFHMDF POS=(05,05),LENGTH=06,INITIAL='NAME1:'                   
SC1     DFHMDF POS=(05,14),LENGTH=30,ATTRB=(UNPROT)                     
        DFHMDF POS=(05,45),LENGTH=01,ATTRB=(ASKIP),INITIAL=' '         
*****                                                                   
        DFHMDF POS=(06,05),LENGTH=06,INITIAL='NAME2:'                   
SC2     DFHMDF POS=(06,14),LENGTH=25,ATTRB=(UNPROT)                     
        DFHMDF POS=(06,40),LENGTH=01,ATTRB=(ASKIP),INITIAL=' '         
MORE    DFHMDF POS=(06,60),LENGTH=12,ATTRB=(ASKIP)                     
*****                                                                   
        DFHMDF POS=(07,05),LENGTH=08,INITIAL='STREET1:'                 
SC3     DFHMDF POS=(07,14),LENGTH=25,ATTRB=(UNPROT)                     
        DFHMDF POS=(07,40),LENGTH=01,ATTRB=(ASKIP),INITIAL=' '         
NPRIME  DFHMDF POS=(07,60),LENGTH=12,ATTRB=(ASKIP)
        DFHMSD TYPE=FINAL                                               
        END                                                                                                                               

When the cobol program compiles, none of the fields in the map have the extended attribute bytes. I need to get field NPRIME to blink. What am I doing wrong?
_________________
Thanks,
PCMOONBEAM
Back to top
View user's profile Send private message
warp5
Intermediate


Joined: 02 Dec 2002
Posts: 429
Topics: 18
Location: Germany

PostPosted: Fri Jun 20, 2008 1:03 am    Post subject: Reply with quote

I don't have time to examine this, but did you look at your compile procedure if perhaps there is a restriction/parameter there?
Back to top
View user's profile Send private message Visit poster's website
CraigG
Intermediate


Joined: 02 May 2007
Posts: 202
Topics: 0
Location: Viginia, USA

PostPosted: Fri Jun 20, 2008 6:37 am    Post subject: Reply with quote

In the few maps where I have used extended attributes I use

DSATTS=(COLOR,HILIGHT), MAPATTS=(COLOR,HILIGHT),

on both the DFHMSD and the DFHMDI.
Back to top
View user's profile Send private message
archowdhury
Beginner


Joined: 30 Dec 2004
Posts: 4
Topics: 2

PostPosted: Mon Dec 01, 2008 3:24 am    Post subject: Reply with quote

Are you are using SDF2 to create/generate your map?

You can use extended attributes in SDF2 in the following manner:

Go to 1 (PANEL EDITOR) --> Select your panel for editing --> Select 1 (CHARACTERISTICS) --> press PF8.

You can see Highlight, Color etc. Select whichever attributes you require. Now when you generate your map you will get those variables in your symbolic map. For blinking your text just see what attributes you need to populate in the highlight attribute byte.

Hope this helps


~Amit
Back to top
View user's profile Send private message
Anand_R
Intermediate


Joined: 24 Dec 2002
Posts: 189
Topics: 60

PostPosted: Fri Feb 13, 2009 6:31 am    Post subject: Reply with quote

Hi

I was reading through cics programming guide and I see the following note in regards tO DSATTS, I belive you have to specify DSATTS if you want that field to be generated in the symbolic map

"The DSATTS option tells BMS that we want to alter the highlighting of some fields at execution time, and therefore it should produce
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> CICS and Middleware All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group