Difference between revisions of "QCAVFYNM"
From MidrangeWiki
m |
m |
||
| Line 3: | Line 3: | ||
= Prototype for the QCAVFYNM API = | = Prototype for the QCAVFYNM API = | ||
<pre> | <pre> | ||
| + | /copy qsysinc/qrpglesrc,QUSEC | ||
| + | |||
dcl-pr ibmQCAVFYNM extpgm('QCAVFYNM'); | dcl-pr ibmQCAVFYNM extpgm('QCAVFYNM'); | ||
pNameInfo char(10) const; | pNameInfo char(10) const; | ||
pFormat char (8) const; | pFormat char (8) const; | ||
| − | pError | + | pError likeds(QUSEC); |
end-pr; | end-pr; | ||
| Line 21: | Line 23: | ||
</pre> | </pre> | ||
| + | =Example= | ||
| + | <pre> | ||
| + | dcl-ds error likeds(QUSEC); | ||
| + | ibmVFYN0100.nametype = '*SNAME'; | ||
| + | ibmVFYN0100.name = name; | ||
| + | ibmVFYN0100.namelength = %len(%trim(ibmVFYN0100.name)); | ||
| + | error.QUSBPRV = 128; | ||
| + | |||
| + | ibmQCAVFYNM(ibmVFYN0100:'VFYN0100':error); | ||
| + | </pre> | ||
[[Category:RPG_Prototypes]] | [[Category:RPG_Prototypes]] | ||
[[Category:API]] | [[Category:API]] | ||
Revision as of 15:42, 19 October 2016
Summary
The Verify Name (QCAVFYNM, QCAVERIFYNAME) API verifies an input value to determine if it is a valid system name.
Prototype for the QCAVFYNM API
/copy qsysinc/qrpglesrc,QUSEC
dcl-pr ibmQCAVFYNM extpgm('QCAVFYNM');
pNameInfo char(10) const;
pFormat char (8) const;
pError likeds(QUSEC);
end-pr;
dcl-ds ibmVFYN0100 qualified;
*n int (10) inz(28);
ccsid int (10) inz(*zero);
nametype char (10) inz('*NAME');
monocase char (1) inz('0');
*n char (1) inz(x'00');
nameoffset int (10) inz(28);
namelength int (10);
name char (256);
end-ds;
Example
dcl-ds error likeds(QUSEC); ibmVFYN0100.nametype = '*SNAME'; ibmVFYN0100.name = name; ibmVFYN0100.namelength = %len(%trim(ibmVFYN0100.name)); error.QUSBPRV = 128; ibmQCAVFYNM(ibmVFYN0100:'VFYN0100':error);
