/*REXX*/
       'ISREDIT MACRO(PARMS)'
/*   TRACE  r  */
/*----------------------------------------------------------------------------------*/
/*  This REXX program will run in SPF as a .spf file or other REXX interpreter      */
/*  Use this program to display a directory returning results in an edit session    */
/*                                                                                  */
/*  FORMAT:  DIR                                                                    */
/*           DIR Y:\MUSIC /S /ON                                                    */
/*                                                                                  */
/*  Mark McDonald 20041213                                                          */
/*----------------------------------------------------------------------------------*/
/*--- Init Vars ---*/
   RESULT = " "
   TBAT   = " "
   TTXT   = " "
/*--- Build Semi-Unique Result File Name ---*/
   RESULT = 'C:\TEMP\DRET'
   TBAT = RESULT'.BAT'
   TTXT = RESULT'.TXT'
/*--- Execute Based on Extension ---*/
   T = LINEOUT(TBAT,'DIR 'PARMS'  >  'TTXT,1)
   T = LINEOUT(TBAT,'EXIT')
   T = LINEOUT(TBAT)
/*--- Execute Program ---*/
   ADDRESS DOS TBAT
   ADDRESS DOS 'DEL 'TBAT
   'ISREDIT EDIT 'RESULT'.TXT'
/*--- End Program ---*/
exit (0)