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

Regarding DYNAmic attributes comparision:


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
ram_vizag

Active User


Joined: 21 Aug 2008
Posts: 112
Location: hyd

PostPosted: Thu Dec 19, 2013 11:03 pm
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: 2501
Location: Atlanta, Georgia, USA

PostPosted: Fri Dec 20, 2013 7:07 am
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

Active User


Joined: 21 Aug 2008
Posts: 112
Location: hyd

PostPosted: Fri Dec 20, 2013 8:43 am
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

Active User


Joined: 21 Aug 2008
Posts: 112
Location: hyd

PostPosted: Fri Dec 20, 2013 9:42 am
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: 2455
Location: Hampshire, UK

PostPosted: Fri Dec 20, 2013 3:20 pm
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts Using Dynamic file handler in the Fil... COBOL Programming 2
No new posts JCL Dynamic System Symbols JCL & VSAM 3
No new posts Synctool-dynamic split job for varyin... JCL & VSAM 7
No new posts Dynamic file allocation using JCL JCL & VSAM 8
No new posts Dynamic Sortin DD cards SYNCSORT 8
Search our Forums:

Back to Top