Difference between revisions of "QCAVFYNM"
From MidrangeWiki
m |
DaveLClarkI (talk | contribs) |
||
| Line 1: | Line 1: | ||
| + | [[Category:API]] | ||
| + | [[Category:RPG_Prototypes]] | ||
= Summary = | = Summary = | ||
The Verify Name (QCAVFYNM, QCAVERIFYNAME) API verifies an input value to determine if it is a valid system name. | The Verify Name (QCAVFYNM, QCAVERIFYNAME) API verifies an input value to determine if it is a valid system name. | ||
| Line 34: | Line 36: | ||
ibmQCAVFYNM(ibmVFYN0100:'VFYN0100':error); | ibmQCAVFYNM(ibmVFYN0100:'VFYN0100':error); | ||
</pre> | </pre> | ||
| − | |||
| − | |||
Latest revision as of 20:04, 4 December 2018
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);
