*=====================================================================
      * Object Procedures
      *
      * Copyright (C) Julian Monypenny 1997
      *=====================================================================
     H NoMain
 
      *---------------------------------------------------------------------
      * Global definitions
      *---------------------------------------------------------------------
      /Copy ToolkitCpy,ApiErrH
      /Copy ToolkitCpy,ObjH
      /Copy ToolkitCpy,StdTypH
 
      *=====================================================================
     P ObjExists       B                   Export
      *=====================================================================
     D                 Pi                  Like( LglTyp )
     D  ObjNam                             Like( NamTyp )  Value
     D  ObjLib                             Like( NamTyp )  Value
      *   Name, *CURLIB, or *LIBL
     D  ObjTyp                             Like( NamTyp )  Value
 
     C                   Return    GetObjDsc( ObjNam:  ObjLib:
     C                                        ObjTyp:  BrfObjDscFmt:
     C                                        ObjDscDs )
 
     P                 E
 
      *=====================================================================
     P GetObjDsc       B                   Export
      *=====================================================================
     D                 Pi                  Like( LglTyp )
     D  ObjNam                             Like( NamTyp )  Value
     D  ObjLib                             Like( NamTyp )  Value
      *   Name, *CURLIB, or *LIBL
     D  ObjTyp                             Like( NamTyp )  Value
     D  DscFmt                             Like( ApiFmtTyp )  Value
     D  ObjDsc                             Like( ObjDscDs )
 
     D QObjNam         S                   Like( QNamTyp )
     D BrfObjDscSiz    C                   90
     D DtlObjDscSiz    C                   %Size( ObjDscDs )
 

     C                   Reset                   ObjDscDs
 
     C                   Eval      QObjNam   = ObjNam + ObjLib
 
     C                   If        DscFmt    = BrfObjDscFmt
     C                   Eval      ObjDscSiz = BrfObjDscSiz
     C                   Else
     C                   Eval      ObjDscSiz = DtlObjDscSiz
     C                   EndIf
 
     C                   Eval      ObjDsc    = ObjDscDs
 
     C                   Call      'QUSROBJD'
     C                   Parm                    ObjDsc
     C                   Parm                    ObjDscSiz
     C                   Parm                    DscFmt
     C                   Parm                    QObjNam
     C                   Parm                    ObjTyp
     C                   Parm                    ApiErrDs
 
     C                   Return    ( ApiErrLen = 0 )
 
     P                 E