Last active
August 29, 2015 14:12
-
-
Save chukShirley/462ee110edbba376e015 to your computer and use it in GitHub Desktop.
Toolkit calling RPG
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0" encoding="ISO-8859-1" ?> | |
<script> | |
<pgm name='RDSCF19' lib='CHIP'> | |
<parm comment=''> | |
<ds var='result' comment='Multi-occur container' array='on'> | |
<ds dim='100'> | |
<data var='adr' type='7s0'>0</data><data var='nam' type='30A' /><data var='drl' type='20A' /></ds> | |
</ds> | |
</parm> | |
</pgm> | |
</script> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?xml version="1.0" encoding="ISO-8859-1" ?> | |
<script> | |
<pgm name='RDSCF19' lib='CHIP'> | |
<parm comment=''> | |
<ds var='result' comment='Multi-occur container' array='on'> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
<ds dim='100'> | |
<data var='adr' type='7s0'><![CDATA[0]]></data> | |
<data var='nam' type='30A' ><![CDATA[]]></data> | |
<data var='drl' type='20A' ><![CDATA[]]></data> | |
</ds> | |
</ds> | |
</parm> | |
<success><![CDATA[+++ success CHIP RDSCF19 ]]></success> | |
</pgm> | |
</script> |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
FSCF019 IP E K DISK | |
D ary DS qualified based(Template) | |
D adr 7 0 | |
D nam 30 | |
D drl 20 | |
D x S 5i 0 inz(0) | |
D aryout DS likeds(ary) dim(100) | |
C *entry plist | |
C parm aryout | |
/free | |
If x<100; | |
x+=1; | |
aryout(x).adr=svadrno; | |
aryout(x).nam=svname; | |
aryout(x).drl=svdrlic; | |
Endif; | |
/end-free | |
CLR EVAL *IN01 = *ON |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
<?php | |
/** | |
* Fetch all or a subset of resources | |
* | |
* @param array $params | |
* @return array $peddlers | |
*/ | |
public function fetchAll($params = array()) | |
{ | |
// Build array | |
$ds[] = $this->toolkitService->AddParameterZoned('both', 7,0, 'adr', 'adr', 0); | |
$ds[] = $this->toolkitService->AddParameterChar('both', 30, 'nam', 'nam', ''); | |
$ds[] = $this->toolkitService->AddParameterChar('both', 20, 'drl', 'drl', ''); | |
// Pass parameter | |
$param[] = $this->toolkitService->AddDataStruct($ds,'result')->setParamDimension(100); | |
// Call program | |
$result = $this->toolkitService->PgmCall('RDSCF19', 'CHIP', $param, null, null); | |
// Verify results | |
if (!$result){ | |
throw new \Exception('Programm call error'); | |
} | |
$peddlers = $result['io_param']['result']; | |
return $peddlers; | |
} | |
?> |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment