Test for Omitted Argument (CEETSTA)

From MidrangeWiki
Revision as of 13:36, 6 December 2018 by DaveLClarkI (talk | contribs) (Prototype for the CEETSTA API)
Jump to: navigation, search

Summary

The following is an RPG/LE fully free-form prototype for the IBM CEETSTA API to test a parameter for a valid address.

Prototype for the CEETSTA API

//******************************************************************************
// IBM API to Test a Parameter for a Valid Address
//
// EXAMPLE:
// for RTSFA_CCnt = 3 by 1 to (%elem(RTSFA_Codes) - 1);       
//   ParmNumb = RTSFA_CCnt + 3;     // match to a parm number 
//   callp CEETSTA(ValidParm: ParmNumb: iFeedback); // test it
//   if %parms >= ParmNumb          // if parm passed         
//   and ValidParm > *zero;         // and not omitted        
//     ...do something...
//   endif;                                                   
// endfor;                                                    
//
// DOCUMENTATION:
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/CEETSTA.htm
//******************************************************************************
dcl-pr CEETSTA;
  ValParmAdr            int(10);
  ParmPosNbr            int(10)   const;
  Feedback              char(12)  options(*nopass);
end-pr;