How to handle clear key in CICS

In CICS the clear key can be handled by the EIBAID.While entering into a transaction we can evaluate the EIBAID and if the EIBAID value is DFHCLEAR Then we can simply throw the map with its values. IF we  ever try to recieve a map after pressing the clear key then it will issue a AEIP abend, as the clear key clears the cics terminal amd while recieving the map it recieves a null value. So it issues an AEIP abend.

The Sample code is :-

EVALUATE EIBTRNID
WHEN TRANS

EVALUATE EIBAID

WHEN DFHCLEAR
PERFORM 100-SEND-PARA
END-EVALUATE
END-EVALUATE.
 
 
 
The send para is:-
 
100-SEND-PARA.



EXEC CICS SEND
MAP(POA)
MAPSET(TCHM121)
FROM(POAO)
ERASE
FREEKB
CURSOR
END-EXEC .