Writing variabe to Data Area

[Support_Julie]

The project below passes variables to a program that writes to a Data Area.



<project name="test parameter passing" mainModule="Main" version="1.0">

<module name="Main" logLevel="debug">

<exec400 label="run filldtaara" resourceId="Dev61" version="1.0" executeOnlyIf="${submit} ne ${True}">
<command>
<![CDATA[ADDLIBLE MYLIB]]>
</command>
<command>
<![CDATA[CALL PGM(FILLDTAARA) PARM(${a} ${b} ${c})]]>
</command>
</exec400>

<exec400 label="Submit filldtaara" resourceId="Dev61" version="1.0" executeOnlyIf="${submit} eq ${True}">
<command>
<![CDATA[ADDLIBLE MYLIB]]>
</command>
<command>
<![CDATA[SBMJOB CMD(CALL PGM(FILLDTAARA) PARM('${a}' ${b} '${c}'))]]>
</command>
</exec400>

</module>

<variable name="submit" value="1" />
<variable name="True" value="1" />
<variable name="a" value="A" />
<variable name="b" value="&apos;B&apos;" />
<variable name="c" value="C" />
</project>



*************** Beginning of data ******************************************************************************
0001.00 090519
0002.00 PGM PARM(&CHAR01 &CHAR50 &CHAR30) 090519
0003.00 090519
0004.00 DCL VAR(&CHAR01) TYPE(*CHAR) LEN(1) 090519
0005.00 DCL VAR(&CHAR50) TYPE(*CHAR) LEN(50) 090519
0006.00 DCL VAR(&CHAR30) TYPE(*CHAR) LEN(30) 090519
0007.00 DCL VAR(&ALLINPUT) TYPE(*CHAR) LEN(82) 090519
0008.00 DCL VAR(&THEEND) TYPE(*CHAR) LEN(1) VALUE('z') 090519
0009.00 090519
0010.00 SNDMSG MSG(&CHAR01) TOUSR(MyUserID) 090601
0011.00 SNDMSG MSG(&CHAR50) TOUSR(MyUserID) 090601
0012.00 SNDMSG MSG(&CHAR30) TOUSR(MyUserID) 090601
0013.00 CHGVAR VAR(&ALLINPUT) VALUE(&CHAR01 *CAT &CHAR50 + 090519
0014.00 *CAT &CHAR30 *CAT &THEEND) 090519
0015.00 CHGDTAARA DTAARA(MYLIB/TESTFILLDA) VALUE(&ALLINPUT) 090519
0016.00 090519
0017.00 /* we're done now */ 090519
0018.00 @ENDPGM: 090519
0019.00 ENDPGM 090519
****************** End of data ******************************************************************************