Error Handling › Status Definition Records › ADSO-STAT-DEF-REC

ADSO-STAT-DEF-REC

Record Definition

ADSO-STAT-DEF-REC.
02   ERROR-STATUS                        PIC 9(4).
     88   DB-STATUS-OK                   VALUE '0000'.
     88   DB-END-OF-SET                  VALUE '0307'.
     88   DB-REC-NOT-FOUND               VALUE '0326'.
     88   DB-END-OF-INDEX                VALUE '1707'.
     88   DB-INDEX-NOT-FOUND             VALUE '1726'.
     88   SCRATCH-AREA-NOT-FOUND         VALUE '4303'.
     88   SCRATCH-REC-NOT-FOUND          VALUE '4305'.
     88   SCRATCH-REC-REPLACED           VALUE '4317'.
     88   QUEUE-ID-NOT-FOUND             VALUE '4404'.
     88   QUEUE-REC-NOT-FOUND            VALUE '4405'.
     88   DB-ANY-ERROR                   VALUE '0001'
                                         THRU  '9999'.