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...")
(No difference)

Revision as of 19:27, 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
// 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;