QCAVFYNM

From MidrangeWiki
Revision as of 20:04, 4 December 2018 by DaveLClarkI (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search

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