Difference between revisions of "Test for Omitted Argument (CEETSTA)"

From MidrangeWiki
Jump to: navigation, search
(Created page with "Category:API Category:RPG_Prototypes == Summary == The following is an RPG/LE fully free-form prototype for the IBM CEETSTA API to test a parameter for a valid addres...")
 
(Prototype for the CEETSTA API)
Line 9: Line 9:
 
//******************************************************************************
 
//******************************************************************************
 
// IBM API to Test a Parameter for a Valid Address
 
// 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
 
// https://www.ibm.com/support/knowledgecenter/en/ssw_ibm_i_72/apis/CEETSTA.htm
 
//******************************************************************************
 
//******************************************************************************

Revision as of 19:36, 6 December 2018

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;