Subj : batch file
To   : Phil Simpson
From : Dieter Ringhofer
Date : Fri Oct 11 2002 11:01 am

Hi Phil,

you might give this script a try:

==== Begin import sqchkfix.cmd ====
- OS2.REXX.GER (2:2476/14) ------------------------------------- OS2.REXX.GER -
 Msg  : 50 of 50
 Von  : Martin Binder                       2:246/1007.7    Do, 19 Dez 96 20:57
 An   : Andreas Weiss                                       Sa, 21 Dez 96 23:02
 Subj : S: Hilfe bei Script
-------------------------------------------------------------------------------
Antwort auf eine Message von Andreas Weiss an alle:

 AW> Die einzelnen Dateien (*.sqd) stehen alle im gleichen
 AW> Unterverzeichnis, der Aufruf des Pruefprogs ist "sqinfop.exe
 AW> pfad\dateiname -e". Wenn das File OK ist, gibt es einen Errorlevel 0,
 AW> sonst 1 zurueck. Bei EL 1 soll moeglichst gleich "sqfix32p.exe
 AW> pfad\dateiname" fuer das entsprechende File aufgerufen werden.

/* REXX */
"@echo off"

if RxFuncQuery( "SysDropFuncs" ) then do
    call RxFuncAdd "SysLoadFuncs", "RexxUtil", "SysLoadFuncs"
    call SysLoadFuncs
    end

arg pfad

call SysFileTree Pfad"\*.SQD", "SQFile.", "FO"
if SQFile.0 > 0 then do i = 1 to SQFile.0
    "SQINFOP" SQFile.i "-e"
    if RC = 1 then "SQFIX32P" SQFile.i
    end
return



Servus, Martin!

-$-
 * nigirO: Nicht was alles Gold glaenzt, ist auch (2:246/1007.7)
==== End imported file ====

hth, Dieter

---
 * Origin: Wndos s god fr cmnicaton (2:2476/14)

.