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
IF FUNCTIONI = 'A'
IF PLANTYPEA = DFHBMPRF AND
NWBUSCOMA =DFHBMPRF AND
RNWBSCOMA = DFHBMPRF AND
COMMENTSA = DFHBMPRF
SOME PERFORM STATMENTS
MOVE DFHBMUNP TO PLANTYPEA
MOVE DFHBMFSE TO PLANTYPEA
MOVE DFHGREEN TO PLANTYPEC
AGAIN SOME PERFROM STATEMENTS
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
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'.
Joined: 10 May 2007 Posts: 2230 Location: Hampshire, UK
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.