View previous topic :: View next topic
|
Author |
Message |
ram_vizag
Active User
Joined: 21 Aug 2008 Posts: 112 Location: hyd
|
|
|
|
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 |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
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 |
|
|
ram_vizag
Active User
Joined: 21 Aug 2008 Posts: 112 Location: hyd
|
|
|
|
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 |
|
|
ram_vizag
Active User
Joined: 21 Aug 2008 Posts: 112 Location: hyd
|
|
|
|
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 |
|
|
Nic Clouston
Global Moderator
Joined: 10 May 2007 Posts: 2455 Location: Hampshire, UK
|
|
|
|
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 |
|
|
|