- 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 Jan 18, 2025@03:53:12 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