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
 

 

Regarding DYNAmic attributes comparision:

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

New User


Joined: 21 Aug 2008
Posts: 92
Location: hyd

PostPosted: Thu Dec 19, 2013 11:03 pm    Post subject: Regarding DYNAmic attributes comparision:
Reply with quote

Hi,

I have 10 fiels in cics screen. FOR EXAMPLE for field FUNCTIONI = A
THEN 5 of 10 fields shoud turn unprotected...keeping rest as protected.
I ahve handled these in my prgram as below

I SHOULD check if field are protected only then i have to make them unprotected...this changes in somany scenarios
Code:

IF FUNCTIONI = 'A'
   IF PLANTYPEA = DFHBMPRF      AND 
           NWBUSCOMA =DFHBMPRF      AND 
           RNWBSCOMA = DFHBMPRF      AND 
           COMMENTSA = DFHBMPRF     
          SOME PERFORM STATMENTS
          MOVE DFHBMUNP TO PLANTYPEA
                            NWBUSCOMA
                             RNWBSCOMA
                           COMMENTSA
                           
          MOVE DFHBMFSE TO PLANTYPEA
                              NWBUSCOMA
                            RNWBSCOMA
                          COMMENTSA
                           
         MOVE DFHGREEN TO PLANTYPEC
                           NWBUSCOMC
                             RNWBSCOMC
                 COMMENTSC

    ELSE
           AGAIN SOME PERFROM STATEMENTS
END-IF

               


THE PROBLEM I'M FACING IS the attributes are not remained as i have updated in program ...every timei reciecve the map they are being reset which i my validations getting vfailed...howto deal with this????

below is my mainframe DFHBMSCA copy book

01 DFHBMSCA.
02 DFHBMPEM PICTURE X VALUE IS X'19'.
02 DFHBMPNL PICTURE X VALUE IS X'15'.
02 DFHBMPFF PICTURE X VALUE IS X'0C'.
02 DFHBMPCR PICTURE X VALUE IS X'0D'.
02 DFHBMASK PICTURE X VALUE IS '0'.
02 DFHBMUNP PICTURE X VALUE IS ' '.
02 DFHBMUNN PICTURE X VALUE IS '&'.
02 DFHBMPRO PICTURE X VALUE IS '-'.
02 DFHBMBRY PICTURE X VALUE IS 'H'.
02 DFHBMDAR PICTURE X VALUE IS '<'.
02 DFHBMFSE PICTURE X VALUE IS 'A'.
02 DFHBMPRF PICTURE X VALUE IS '/'.
02 DFHBMASF PICTURE X VALUE IS '1'.
02 DFHBMASB PICTURE X VALUE IS '8'.
02 DFHBMEOF PICTURE X VALUE IS X'80'.
02 DFHBMCUR PICTURE X VALUE IS X'02'.
02 DFHBMEC PICTURE X VALUE IS X'82'.


please suggest friends...
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: Fri Dec 20, 2013 7:07 am    Post subject: Reply to: Regarding DYNAmic attributes comparision:
Reply with quote

Try an appropriate attribute-byte with FSET, such as DFHBMASF as opposed to DFHBMASK. FSET will retain the data, whereas without FSET, it won't.

HTH....
Back to top
View user's profile Send private message
ram_vizag

New User


Joined: 21 Aug 2008
Posts: 92
Location: hyd

PostPosted: Fri Dec 20, 2013 8:43 am    Post subject: Re: Reply to: Regarding DYNAmic attributes comparision:
Reply with quote

Bill O'Boyle wrote:
Try an appropriate attribute-byte with FSET, such as DFHBMASF as opposed to DFHBMASK. FSET will retain the data, whereas without FSET, it won't.

HTH....


thanks Bill,

you mean to say that i have to check with DFHBMASK (autoskip)
and change to DFHBMASF(AUTOSKIP and MDT SET)

bcoz evry time when i'm recieving map the fields are having DFHBMASK ,
is it becoz due to declaration of attributes in my map?? if so when i'm changing why they r not being unchanged???

also is autoskip equal to protected n autoskip...i think NO
n autoskip n mdt set meeands unprotected??? pls confirm??
i think no

please suggest
Back to top
View user's profile Send private message
ram_vizag

New User


Joined: 21 Aug 2008
Posts: 92
Location: hyd

PostPosted: Fri Dec 20, 2013 9:42 am    Post subject: Re: Reply to: Regarding DYNAmic attributes comparision:
Reply with quote

ram_vizag wrote:
Bill O'Boyle wrote:
Try an appropriate attribute-byte with FSET, such as DFHBMASF as opposed to DFHBMASK. FSET will retain the data, whereas without FSET, it won't.

HTH....


thanks Bill,

you mean to say that i have to check with DFHBMASK (autoskip)
and change to DFHBMASF(AUTOSKIP and MDT SET)

bcoz evry time when i'm recieving map the fields are having DFHBMASK ,
is it becoz due to declaration of attributes in my map?? if so when i'm changing why they r not being unchanged???

also is autoskip equal to protected n autoskip...i think NO
n autoskip n mdt set meeands unprotected??? pls confirm??
i think no


or should i use DATAONLY while sending map instead of resending map????

any ways problem is while recieving the map i can only see DFHBMASK
THE whole logic depend upon this,....please suggest at the earliest....
please suggest
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1712
Location: UK

PostPosted: Fri Dec 20, 2013 3:20 pm    Post subject:
Reply with quote

Quote:
please suggest at the earliest

is an invalid request on a forum because:
a) people give their time as and when they want
b) if they want
c)they are not paid

So if you need "urgent" a forum is not the place to go to.

Also you have a lot of incomplete words - this is not an SMS conversation so words should be typed in full - we will ignore the spelling mistakes and typos and grammar as long as we can make sense but the letter 'n', for example, could stand for n, in, on, an, and or several other words. If yoiu want 'quick' things are speeded up if people do not have to decipher, possibly wrongly, what you write.
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 Creating a dynamic sort card in JCL u... ChitraChhabra DFSORT/ICETOOL 4 Wed Aug 03, 2016 6:15 pm
No new posts How to change dataset attributes of m... ignich7 JCL & VSAM 3 Thu Jul 21, 2016 9:17 pm
No new posts Need help on SQL Dynamic WHERE Clause subratarec DB2 12 Sat Jul 16, 2016 3:11 pm
No new posts Need to create file with Dynamic Name... kapil27 JCL & VSAM 4 Wed May 25, 2016 9:45 am
No new posts DB2 Stored Procedure - Dynamic SQL - ... GuyC DB2 2 Wed Feb 17, 2016 5:10 pm


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