home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 14 Text / 14-Text.zip / RB3774.ZIP / RECORD.ZIP / TEST.CMD < prev   
OS/2 REXX Batch file  |  1992-04-08  |  624b  |  23 lines
  1. /*  */
  2. Call RxFuncadd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  3. Call SysLoadFuncs
  4.  
  5. '@echo off'
  6.  
  7. RetCode = SysCreateObject( "RecordFolder", "People Folder", "<WP_DESKTOP>", " ")
  8.  
  9. if RetCode then
  10.    say 'Folder Object created'
  11. else do
  12.    say 'Error creating object'
  13.    exit(1)
  14.    end
  15.  
  16. /* Required for GA problem */
  17. RetCode = SysCreateObject( "Record", "DUMMY", "<WP_NOWHERE>", "OBJECTID=<RECORD_0>")
  18. RetCode = SysCreateObject( "RecordFolder", "DUMMY", "<WP_NOWHERE>", "OBJECTID=<RECFLDER_0>")
  19.  
  20. say 'A Record Folder has been created, select the context menu'
  21. say '<Telephone List - Find> and test it.'
  22.  
  23.