Changeset 773 for Scheduling/trunk/m/BSDX27.m

Timestamp:

May 21, 2010, 9:50:19 PM (14 years ago)

Author:

Sam Habiel

Message:

Tiny bug fixes to fix compile errors

File:

• Scheduling/trunk/m/BSDX27.m (modified) (2 diffs)

Scheduling/trunk/m/BSDX27.m

@@ -1 @@
-BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 4/29/10 9:43pm
+BSDX27  ; IHS/OIT/HMW - WINDOWS SCHEDULING RPCS ; 5/21/10 9:52pm
         ;;2.0;IHS WINDOWS SCHEDULING;;NOV 01, 2007
         ;
@@ -126 +126 @@
         ;
 ERROR   ;
-        D ERR("RPMS Error")
-        Q
-        ;
-ERR(ERRNO)      ;Error processing
+        D ERR(BSDXI,"RPMS Error")
+        Q
+        ;
+ERR(BSDXI,ERRNO,MSG)    ;Error processing
         S:'$D(BSDXI) BSDXI=999
         I +ERRNO S BSDXERR=ERRNO+134234112 ;vbObjectError
         E  S BSDXERR=ERRNO
         S BSDXI=BSDXI+1
-        S ^BSDXTMP($J,BSDXI)="^^^^^^^^^^^^^^^"_$C(30)
+        S ^BSDXTMP($J,BSDXI)=MSG_"^^^^^^^^^^^^^^^"_$C(30)
         S BSDXI=BSDXI+1
         S ^BSDXTMP($J,BSDXI)=$C(31)