WHEN 'FNAME'
MOVE XML-TEXT TO FNAME1
DISPLAY FNAME1
WHEN 'LNAME'
MOVE XML-TEXT TO LNAME1
DISPLAY LNAME1
WHEN 'SAL'
MOVE XML-TEXT TO SAL1
DISPLAY SAL1
END-EVALUATE
WHEN 'END-OF-DOCUMENT'
MOVE SPACES TO CURRENT-ELEMENT
WHEN OTHER
DISPLAY " EVLT OTHER"
END-EVALUATE
ELSE
DISPLAY XML-CODE
DISPLAY "ERROR IN PROGRAM"
END-IF
.
WHEN 'FNAME'
MOVE XML-TEXT TO FNAME1
DISPLAY "First name is " FNAME1
WHEN 'LNAME'
MOVE XML-TEXT TO LNAME1
DISPLAY "last name is "LNAME1
WHEN 'SAL'
MOVE XML-TEXT TO SAL1
DISPLAY "sal is " SAL1
END-EVALUATE
WHEN 'END-OF-DOCUMENT'
MOVE SPACES TO CURRENT-ELEMENT