Error Handling

[B.Hauser]

Hallo Mark,

aus der Programm-Status Datenstruktur kannst Du sowohl die Error-Message-Id als auch den kompletten Error-Message-Text entnehmen:

D PGMSTA         SDS             
D  MsgId                  40     46             
D  MsgText               91   170 

Wenn du über QCMDEXC einen CL-Befehl absetzt, erhälst Du in der Message-Id die CPF-Message:

Beispiel:

C                   eval      P$Cmd = 'CHKOBJ OBJ('+ %Trim(P$LIB) + ') ' 
C                                               + 'OBJTYPE(*LIB)'                  

C                   callp (E) Qcmdexc(P$Cmd: %Len(P$Cmd))         
                                                                  
C                   if        %Error  
C                   Select
C                   when      MsgId = 'CPF9801'
  *****                        Nicht vorhanden
C                    endSl
C                    endif 

Birgitta