Date:         Thu, 20 Nov 1997 10:09:02 GMT
Reply-To:     REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
Sender:       REXX Programming discussion list <REXXLIST@UGA.CC.UGA.EDU>
From:         Rony.Flatscher@WU-WIEN.AC.AT
Organization: University of Economics and Business Administration
Subject:      Re: [OS/2] Is there a way to remove an EA from a file?

In <199711191633.QAA89506@out1.ibm.net>, Bob Rice <bobrice@IBM.NET> writes:
>Regarding <UtYc08D5wGDW092yn@erols.com> addressed as follows:
>
> Date- Tue, 18 Nov 1997 07:34:28 -0500
> From- Jerry McBride <mcbrides@EROLS.COM>
>   To- REXXLIST@UGA.CC.UGA.EDU
> Subj- Re: [OS/2] Is there a way to remove an EA from a file?
>
>> Here's what I've been using... but be VERY careful at what you strip!
>
>Also, take a look at the EAUTIL command in the OS/2 Command Reference
>Manual.
 
Using EAUTIL you could save the following code, e.g. under "RM_EAS.CMD"
(remove eas):
 
------------------------------ cut here -----------------------------------
/* "RM_EAS.CMD" remove EA's from files according to passed in pattern
   ---rgf, wuw 1997-04-17 */
PARSE ARG pattern .
 
IF pattern = "" THEN            /* no file pattern given        */
DO
  SAY "rm_eas (remove EA's): no file pattern given, aborting ..."
  EXIT -1
END
 
CALL SysFileTree pattern, "files.", "FO"        /* find files   */
 
DO i = 1 TO files.0             /* loop over found files        */
   tmp = "EAUTIL /S" files.i "NUL"
   SAY tmp                      /* show the built command       */
   ADDRESS CMD "@" tmp          /* let EAUTIL.EXE remove the EA */
END
------------------------------ cut here -----------------------------------
 
So, if you want to get rid of the EA's for CMD-files, then you could
write on a command line:
 
        rm_eas *cmd
 
Hope that helps,
 
---rony