INHVZTFE.m

%ZTFE ;SLT; 6 Oct 94 15:13;%ZTFE for DSM - error handler utility

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;All implementation-specific code must be flagged with ';***'.

 ;This version is for VAX DSM.

 N %,N,R,L,T

 W !,"Available functions in library ^"_$T(+0)

 S N=0 F %=2:1 S R=$T(+%) Q:R=""  D

 .S L=$P(R," "),T=$E(R,$F(R," "),999)

 .I L]"",$E(T)=";" W !!,$P(L,"("),?10,"(",$P(L,"(",2,99) S N=1

 .I N,$E(T)=";" W !?5,T Q

 .S N=0

 Q

 ;the end

ETYPE(IPS) ;check certain error conditions

 ;input:

 ;  IPS --> (req,pbv) input parameter string

 ;    valid codes:

 ;      C: CTRAP

 ;      A: ALLOC

 ;      N: NOSYS

 ;      D: DSTDB

 ;      O: DSM-E-READERR or DSM-E-DEVALLOC

 ;      V:

 ;output:

 ;  1: error found

 ;  0: error not found

 I IPS["C",$ZE["CTRAP" Q 1  ; cks for CTRAP & CTRAPERR in DSM 6.3

 I IPS["A",$ZE["ALLOC" Q 1

 I IPS["N",$ZE["NOSYS" Q 1  ; NOSYS err may not exist in DSM 6.3

 I IPS["D",$ZE["DSTDB" Q 1  ; DSTDB err may not exist in DSM 6.3

 I IPS["O",(($ZE["DSM-E-READERR")!($ZE["DSM-E-DEVALLOC")) Q 1

 ;I IPS["V" Q 1

 Q 0

 ;

%ZTFE     ;SLT; 6 Oct 94 15:13;%ZTFE for DSM - error handler utility

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;All implementation-specific code must be flagged with ';***'.

 +4       ;This version is for VAX DSM.

 +5        NEW %,N,R,L,T

 +6        WRITE !,"Available functions in library ^"_$TEXT(+0)

 +7        SET N=0

           FOR %=2:1

               SET R=$TEXT(+%)

               IF R=""

                   QUIT 

               Begin DoDot:1

 +8                SET L=$PIECE(R," ")

                   SET T=$EXTRACT(R,$FIND(R," "),999)

 +9                IF L]""

                       IF $EXTRACT(T)=";"

                           WRITE !!,$PIECE(L,"("),?10,"(",$PIECE(L,"(",2,99)

                           SET N=1

 +10               IF N

                       IF $EXTRACT(T)=";"

                           WRITE !?5,T

                           QUIT 

 +11               SET N=0

               End DoDot:1

 +12       QUIT 

 +13      ;the end

ETYPE(IPS) ;check certain error conditions

 +1       ;input:

 +2       ;  IPS --> (req,pbv) input parameter string

 +3       ;    valid codes:

 +4       ;      C: CTRAP

 +5       ;      A: ALLOC

 +6       ;      N: NOSYS

 +7       ;      D: DSTDB

 +8       ;      O: DSM-E-READERR or DSM-E-DEVALLOC

 +9       ;      V:

 +10      ;output:

 +11      ;  1: error found

 +12      ;  0: error not found

 +13      ; cks for CTRAP & CTRAPERR in DSM 6.3

           IF IPS["C"

               IF $ZE["CTRAP"

                   QUIT 1

 +14       IF IPS["A"

               IF $ZE["ALLOC"

                   QUIT 1

 +15      ; NOSYS err may not exist in DSM 6.3

           IF IPS["N"

               IF $ZE["NOSYS"

                   QUIT 1

 +16      ; DSTDB err may not exist in DSM 6.3

           IF IPS["D"

               IF $ZE["DSTDB"

                   QUIT 1

 +17       IF IPS["O"

               IF (($ZE["DSM-E-READERR")!($ZE["DSM-E-DEVALLOC"))

                   QUIT 1

 +18      ;I IPS["V" Q 1

 +19       QUIT 0

 +20      ;