HI - 

I am using XML Extension with RM/COBOL. I have below question

Current System

Programs1 [Listen to Linux Port. Never Temrinate]

   === >P1 Calls P2

                            ===> P2 Call P3 [P3 Uses XML Extension. Has XML INITIALIZE Function but not XML TEMRINATE]

                            ===> P2 Call P4 

                            ===> P2 Call P5 [[P3 Uses XML Extension. Has XML INITIALIZE Function but not XML TEMRINATE]

I want to introduce XML call to program P2 before it calls P3 or P4.

Will below lines can cause abend or error: 

XML INITIALIZE

XML GET UNIQUEID
WS-uuid.

IF NOT XML-OK
DISPLAY "************************************"
DISPLAY "!!!!!!!!XML Error Occurred!!!!!!!!"
DISPLAY "XML Status: " XML-Status
PERFORM WITH TEST AFTER UNTIL XML-NoMore
XML GET STATUS-TEXT
DISPLAY XML-StatusText
END-PERFORM