Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BSDXERR

BSDXERR.m

Go to the documentation of this file.
  1. BSDXERR ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING COMMON ERROR ;
  1. ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010
  1. ;
  1. ; ERROR = General error catch routine used by @^%ZOSF("TRAP")
  1. ; ERR = Error logging routine
  1. ;
  1. ERROR ;
  1. D ERR("RPMS Error")
  1. Q
  1. ;
  1. ERR(BSDXERR) ;Error processing
  1. ; BSDXERR = Error text OR error code
  1. ; BSDXI = pointer into return global array (might decide to pass this in for clarity)
  1. I +BSDXERR S BSDXERR=BSDXERR+134234112 ;vbObjectError
  1. S BSDXI=BSDXI+1
  1. S ^BSDXTMP($J,BSDXI)=BSDXERR_$C(30)
  1. S BSDXI=BSDXI+1
  1. S ^BSDXTMP($J,BSDXI)=$C(31)
  1. Q