home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / objdir.zip / OBJDIR / OBJDIR.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-16  |  650b  |  1 lines

  1. /*REXX*/;Trace Off;Arg A1;Call RxFuncAdd SysLoadFuncs,RexxUtil,SysLoadFuncs;Call SysLoadFuncs;If (A1='') then;Call A5 '*** DIRPRMPZ Error - No Object name received as parameter ***';Call SysFileTree A1,'A2';Select;When (SUBSTR(WORD(A2.1,4),2,1)='D') then;A3='D';When (WORD(A2.1,4)<>'') then;A3='F';Otherwise;Call A5 '*** DIRPRMPZ Error - Unidentifed Object name received as parameter ***';End;A7='';If (SUBSTR(A1,2,1)=':') then;do;A7=SUBSTR(A1,1,1);A1=SUBSTR(A1,3);End;If (A3='F') then;Do;A8=LASTPOS('\',A1);A6=SUBSTR(A1,1,A8-1);End;Else;A6=A1;'@'A7':';'@cd 'A6;Exit;A5:;Arg A9;Call SysCls;Say A9;Say '*** Press any key to end..... ***';Pull A4;Exit;