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

SDECERR.m

Go to the documentation of this file.
  1. SDECERR ;ALB/SAT - VISTA SCHEDULING RPCS ;JAN 15, 2016
  1. ;;5.3;Scheduling;**627**;Aug 13, 1993;Build 249
  1. ;
  1. Q
  1. ;
  1. ; ERROR = General error catch routine used by @^%ZOSF("TRAP")
  1. ; ERR = Error logging routine
  1. ;
  1. ERROR ;
  1. D ERR("Error")
  1. Q
  1. ;
  1. ERR(SDECERR) ;Error processing
  1. ; SDECERR = Error text OR error code
  1. ; SDECI = pointer into return global array (might decide to pass this in for clarity)
  1. I +SDECERR S SDECERR=SDECERR+134234112 ;vbObjectError
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=SDECERR_$C(30)
  1. S SDECI=SDECI+1
  1. S ^TMP("SDEC",$J,SDECI)=$C(31)
  1. Q
  1. ;
  1. ERR1(ERRCODE,ERRTXT,SDECI,SDECY) ;Error processing
  1. ; ERRCODE = represents Return code in first ^ piece
  1. ; ERRTXT = represents Message text in 2nd ^ piece
  1. ; SDECI = pointer into return global array
  1. S SDECI=SDECI+1
  1. S @SDECY@(SDECI)=ERRCODE_"^"_ERRTXT_$C(30,31)
  1. Q