/*============================================================================================= /* Notes /*============================================================================================= /* Compile with ACTGRP(*CALLER) /*============================================================================================= /* Control Specifications /*============================================================================================= H NoMain H BndDir('MCSERV') H Option(*NODEBUGIO : *NOUNREF) H ExtBinInt /*============================================================================================= /* File Specifications /*============================================================================================= /*============================================================================================= /* Prototype Specifications /*============================================================================================= /Include QRpgCbSrc,SVS9998 /*============================================================================================= /* Data Specifications /*============================================================================================= /*--------------------------------------------------------------------------------------------- /* Data Structure Specifications /*--------------------------------------------------------------------------------------------- /*--------------------------------------------------------------------------------------------- /* Array Specifications /*--------------------------------------------------------------------------------------------- /*--------------------------------------------------------------------------------------------- /* Indicator Specifications /*--------------------------------------------------------------------------------------------- /*--------------------------------------------------------------------------------------------- /* Standalone Data Specifications /*--------------------------------------------------------------------------------------------- /*--------------------------------------------------------------------------------------------- /* Constant Specifications /*--------------------------------------------------------------------------------------------- /*############################################################################################# /* errNo - errNo C Function interface for RPGLE /*############################################################################################# P errNo... P B Export /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /* Procedure Interface /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ D errNo PI 10I 0 D setErrNoValue 10I 0 Const Options(*NOPASS) /*============================================================================================= /* Procedure Prototype Specifications /*============================================================================================= D errNo_Builtin PR * ExtProc('__errno') /*============================================================================================= /* Procedure Data Specifications /*============================================================================================= /*--------------------------------------------------------------------------------------------- /* Procedure Data Structure Specifications /*--------------------------------------------------------------------------------------------- /*--------------------------------------------------------------------------------------------- /* Procedure Array Specifications /*--------------------------------------------------------------------------------------------- /*--------------------------------------------------------------------------------------------- /* Procedure Indicator Specifications /*--------------------------------------------------------------------------------------------- /*--------------------------------------------------------------------------------------------- /* Procedure Standalone Data Specifications /*--------------------------------------------------------------------------------------------- D errNoBase S * D errNoValue S 10I 0 Based(errNoBase) /*--------------------------------------------------------------------------------------------- /* Procedure Constant Specifications /*--------------------------------------------------------------------------------------------- /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /* Procedure Code /*+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ /Free If %Parms = 1; errNoBase = errNo_BuiltIn(); errNoValue = setErrNoValue; EndIf; errNoBase = errNo_BuiltIn(); Return errNoValue; /End-Free P errNo... P E //===========================================================================================