The
XML GET FLAGS and
XML SET FLAGS statements have a restriction in managed code. The
Flags argument must be a PIC X(4) COMP-X data item or equivalent [for example, PIC 9(10) BINARY(4) is equivalent]. If you wish to use a different numeric type for
Flags in your COBOL program then you can use the
MOVE statement to or from the XML-Flags data item that is defined in the XML-data-group in
lixmldef.cpy, as shown in the following examples.
XML GET FLAGS XML-Flags.
MOVE XML-Flags TO Your-Flags.
MOVE Your-Flags TO XML-Flags.
XML SET FLAGS XML-Flags.