Object exists was ->RE: Costly PSDS

["albartell" <albartell@xxxxxxxxx>]

> Checking for a data queue, creating it if needed, and granting object
authority seem to fly.

On the note of checking for an objects existence. Here is how I have
traditionally done it, but am open to faster ways. Comments anyone?

 
//--------------------------------------------------------------------------
------------------
      // @Author: Aaron Bartell
      // @Desc: Check to see if an OS400 object exists at the specified
location.
 
//--------------------------------------------------------------------------
------------------
     P Object_exists   B                   EXPORT
     D Object_exists   PI              N
     D   pObjLib                     10A   Value
     D   pObj                        10A   Value
     D   pObjType                    10A   Value
     D   pError                      50a

     D rtvObjDesc      Pr                  ExtPgm('QUSROBJD')
     D  pObjData                           LikeDS(objData)
     D  pObjDataLen                   9B 0
     D  pFormat                       8A
     D  pQualObj                     20A
     D  pObjType                     10A
     D  pError                             LikeDS(error)

     D objDataLen      S              9B 0 Inz(%size(objData))

     D qualObj         S             20A
     D useFormat       S              8A

     D error           DS                  based(template) qualified
     D  bytesProvided          1      4B 0
     D  bytesAvail             5      8B 0
     D  msgId                  9     15
     D  reserved              16     16
     D  data                  17     56

     D objData         DS                  qualified Inz
      * ODJD0100
     D    BRet                        9B 0
     D    BAvail                      9B 0
     D    ObjName                    10
     D    ObjLib                     10
     D    ObjType                    10
     D    RtnLib                     10
     D    AuxStgPl                    9B 0
     D    ObjOwn                     10
     D    ObjDom                      2
     D    CrtDate                    13
     D    ChgDate                    13
      * ODJD0200
     D    XObjAtt                    10
     D    Text                       50
     D    SrcF                       10
     D    SrcL                       10
     D    SrcM                       10
      * ODJD0300
     D    SrcUpd                     13
     D    ObjSavD                    13
     D    ObjRstD                    13
     D    CrtPrf                     10
     D    SysCrt                      8
     D    ResetD                      7
     D    SaveS                       9B 0
     D    SaveSeq                     9B 0
     D    Storage                    10
     D    SaveCmd                    10
     D    SaveVol                    71
     D    SaveDev                    10
     D    SaveFNm                    10
     D    SaveFLb                    10
     D    SaveLbl                    17
     D    SysLvl                      9
     D    Complr                     16
     D    ObjLev                      8
     D    UsrChg                      1
     D    LicPgm                     16
     D    PTF                        10
     D    APARpt                     10
      * ODJD0400
     D    LUDate                      7
     D    UImfUpd                     1
     D    DaysUsed                    9B 0
     D    ObjSize                     9B 0
     D    ObjSzM                      9B 0
     D    CmpSts                      1
     D    APgmChg                     1
     D    ChgByPgm                    1
     D    UsrDefA                    10
     D    ObjOFA                      1
     D    SvADate                    13
     D    ObjAudV                    10
     D    PrmGrp                     10
      /Free

       Monitor;
         useFormat = 'OBJD0100';
         qualObj = pObj + pObjLib;
         rtvObjDesc(objData: objDataLen: useFormat: qualObj: pObjType:
error);

         If error.msgId <> ' ';
           pError = error.msgId + error.data;
         EndIf;
         If objData.objName = ' ';
           Return *Off;
         Else;
           Return *On;
         EndIf;
       On-Error;
           pError = 'Unknown error occured. Check job log.';
       EndMon;

       return *off;

      /End-Free
     P Object_exists   E      

Aaron Bartell
http://mowyourlawn.com