Difference between revisions of "QCAVFYNM"

From MidrangeWiki
Jump to: navigation, search
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 char (10);
+
   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);