QCAVFYNM
From MidrangeWiki
Revision as of 20:04, 4 December 2018 by DaveLClarkI (talk | contribs)
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);