Example:
The following is an example COBOL source program and corresponding PCML generated for this program:
The following is an example of PCML that is generated when the
program is compiled with options PGMINFO(*PCML) and INFOSTMF('/dirname/mypgm4.pcml')
specified on the CRTBNDCBL command:
<pcml version="4.0">
<!-- COBOL program: MYPCML -->
<!-- created: 02/03/21 12:09:25 -->
<!-- source: TESTLIB/QCBLLESRC(MYPCML) -->
<programname="MYPCML" path="/QSYS.LIB/TESTLIB.LIB/MYPCML.PGM" returnvalue="integer">
<struct name="PARM-LIST" usage="inputoutput">
<struct name="EMPL" usage="inherit" count="5">
<data name="NAMES" type="char" length="20" usage="inherit">
<data name="ADDRESSES" type="char" length="60" usage="inherit">
<data name="PHN-NUM" type="zoned" length="11" precision="0" usage="inherit">
</struct>
<data name="NUM-1A" type="packed" length="8" precision="3" usage="inherit">
<data name="NUM-2A" type="packed" length="8" precision="3" usage="inherit">
<data name="TAB-NUM-3A" type="packed" length="8" precision="3" count="10"
usage="inherit">
<data name="NUM-4A" type="packed" length="8" precision="3" usage="inherit">
<data name="NUM-5A" type="packed" length="8" precision="3" usage="inherit">
<data name="NUM-6A" type="int" length="2" precision="16" usage="inherit">
<data name="NUM-7A" type="float" length="4" usage="inherit">
<data name="NUM-8A" type="float" length="8" usage="inherit">
<data name="INTLNAME" type="char" length="10" chartype="twobyte" ccsid="13488" usage="inherit">
</struct>
<data name="RETN-VAL" type="int" length="4" precision="32" passby="value"
usage="output">
</program></pcml>