- BSDXERR ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING COMMON ERROR ;
- ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010
- ;
- ; ERROR = General error catch routine used by @^%ZOSF("TRAP")
- ; ERR = Error logging routine
- ;
- ERROR ;
- D ERR("RPMS Error")
- Q
- ;
- ERR(BSDXERR) ;Error processing
- ; BSDXERR = Error text OR error code
- ; BSDXI = pointer into return global array (might decide to pass this in for clarity)
- I +BSDXERR S BSDXERR=BSDXERR+134234112 ;vbObjectError
- S BSDXI=BSDXI+1
- S ^BSDXTMP($J,BSDXI)=BSDXERR_$C(30)
- S BSDXI=BSDXI+1
- S ^BSDXTMP($J,BSDXI)=$C(31)
- Q
- BSDXERR ; IHS/OIT/HMW/MSC/SAT - WINDOWS SCHEDULING COMMON ERROR ;
- +1 ;;3.0;IHS WINDOWS SCHEDULING;;DEC 09, 2010
- +2 ;
- +3 ; ERROR = General error catch routine used by @^%ZOSF("TRAP")
- +4 ; ERR = Error logging routine
- +5 ;
- ERROR ;
- +1 DO ERR("RPMS Error")
- +2 QUIT
- +3 ;
- ERR(BSDXERR) ;Error processing
- +1 ; BSDXERR = Error text OR error code
- +2 ; BSDXI = pointer into return global array (might decide to pass this in for clarity)
- +3 ;vbObjectError
- IF +BSDXERR
- SET BSDXERR=BSDXERR+134234112
- +4 SET BSDXI=BSDXI+1
- +5 SET ^BSDXTMP($JOB,BSDXI)=BSDXERR_$CHAR(30)
- +6 SET BSDXI=BSDXI+1
- +7 SET ^BSDXTMP($JOB,BSDXI)=$CHAR(31)
- +8 QUIT