SDECERR ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
;
Q
;
; ERROR = General error catch routine used by @^%ZOSF("TRAP")
; ERR = Error logging routine
;
ERROR ;
D ERR("Error")
Q
;
ERR(SDECERR) ;Error processing
; SDECERR = Error text OR error code
; SDECI = pointer into return global array (might decide to pass this in for clarity)
I +SDECERR S SDECERR=SDECERR+134234112 ;vbObjectError
S SDECI=SDECI+1
S ^TMP("SDEC",$J,SDECI)=SDECERR_$C(30)
S SDECI=SDECI+1
S ^TMP("SDEC",$J,SDECI)=$C(31)
Q
;
ERR1(ERRCODE,ERRTXT,SDECI,SDECY) ;Error processing
; ERRCODE = represents Return code in first ^ piece
; ERRTXT = represents Message text in 2nd ^ piece
; SDECI = pointer into return global array
S SDECI=SDECI+1
S @SDECY@(SDECI)=ERRCODE_"^"_ERRTXT_$C(30,31)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDECERR 869 printed Sep 15, 2024@22:16:03 Page 2
SDECERR ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
+1 ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
+2 ;
+3 QUIT
+4 ;
+5 ; ERROR = General error catch routine used by @^%ZOSF("TRAP")
+6 ; ERR = Error logging routine
+7 ;
ERROR ;
+1 DO ERR("Error")
+2 QUIT
+3 ;
ERR(SDECERR) ;Error processing
+1 ; SDECERR = Error text OR error code
+2 ; SDECI = pointer into return global array (might decide to pass this in for clarity)
+3 ;vbObjectError
IF +SDECERR
SET SDECERR=SDECERR+134234112
+4 SET SDECI=SDECI+1
+5 SET ^TMP("SDEC",$JOB,SDECI)=SDECERR_$CHAR(30)
+6 SET SDECI=SDECI+1
+7 SET ^TMP("SDEC",$JOB,SDECI)=$CHAR(31)
+8 QUIT
+9 ;
ERR1(ERRCODE,ERRTXT,SDECI,SDECY) ;Error processing
+1 ; ERRCODE = represents Return code in first ^ piece
+2 ; ERRTXT = represents Message text in 2nd ^ piece
+3 ; SDECI = pointer into return global array
+4 SET SDECI=SDECI+1
+5 SET @SDECY@(SDECI)=ERRCODE_"^"_ERRTXT_$CHAR(30,31)
+6 QUIT