Write XML File

Dear Sir,

When I executed this Code in Visual Cobol for Visual Studio, Thge Output File is Empty :  

$set p(prexml) endp

  program-id grabaxml as"XMLDemo.grabaxml".

 EnvironmentDivision.

 Input-OutputSection.

 File-Control.

 Select xml-stream assignTOnotlineadvancing"C:\MByB\out.xml"

 organization  isXML  document-type is"group"

 filestatusis xml-status.

 datadivision.

 xd xml-stream.

   01  xmls-group. 

    05  xmls-Number pic 9(18) identifiedby"group".   

    05  xmls-Alpha  pic x(80) identifiedby"elementAlpha".

 Working-Storagesection.

 01  xml-status         pic xx value 99.

 proceduredivision.

 openoutput xml-stream.

 move 1235              To xmls-Number.

 move"elementNumber"   To xmls-Alpha.

 write xmls-group.

 close xml-stream.

 stoprun.

Could you please say what I Did wrong ???

Many Thanks in Advanced.

PJM