Difference between revisions of "QCAVFYNM"

From MidrangeWiki
Jump to: navigation, search
m
 
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>
[[Category:RPG_Prototypes]]
 
[[Category:API]]
 

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);