iSeries éçºã¬ã¤ã - Magic Software Enterprises
iSeries éçºã¬ã¤ã - Magic Software Enterprises
iSeries éçºã¬ã¤ã - Magic Software Enterprises
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
<strong>Magic</strong> for <strong>iSeries</strong> UDF/ PRC <br />
:SAMPLIB/SAMP1 <br />
• SAMPLIB/SAMP1 <br />
*************** ****************<br />
/* MAGIC ISERIES UDP SAMPLE */<br />
PGM PARM&MGP1 &MGP2 &MGP3 &MGP4 &MGP5 &MGP6<br />
DCL VAR&MGP1TYPE*CHARLEN10 /* IN */<br />
DCL VAR&MGP2TYPE*CHARLEN10 /* IN */<br />
DCL VAR&MGP3TYPE*CHARLEN20 /* IN+OUT */<br />
DCL VAR&MGP4TYPE*DECLEN12 /* IN */<br />
DCL VAR&MGP5TYPE*DECLEN15 3 /* IN */<br />
DCL VAR&MGP6TYPE*DECLEN16 3 /* IN+OUT */<br />
CHGVAR VAR&MGP3VALUE&MGP1 *CAT &MGP2<br />
CHGVAR VAR&MGP6VALUE&MGP4 + &MGP5<br />
ENDPGM<br />
*************** ****************<br />
<strong>Magic</strong> <br />
• PRC <br />
1. 'AA4AAAAAAAV'<br />
2. '10.1.4.201'<br />
3. 'SAMPLIB/SAMP1'<br />
4. 6<br />
5. 'A10, A10, O:A20, N12, N15.3, O:N16.3'<br />
6. P1<br />
7. P2<br />
8. P3<br />
9. P4<br />
10. P5<br />
11. P6<br />
• <br />
<br />
P1 A= 10<br />
P2 A= 10<br />
P3 A= 10<br />
P4 A= 13<br />
P5 A= 17<br />
P6 A= 19<br />
D4 N= N12<br />
D5 N= N23<br />
D6 N= N133<br />
D4, D5, D6 P4, P5, P6 <br />
<strong>iSeries</strong> 37<br />
<strong>Magic</strong> eBusiness Platform V9 Plus for <strong>iSeries</strong>