BSDXERR.m

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