@REM@*****************************************************************
@REM@ Beschr.: Makro zum konvertieren von CAD400 Dateien nach DXF Dateien.
@REM@ Ersteller.: WF, JD          
@REM@ Datum: 21.04.99
@REM@ Dateiname:                                   
@REM@*****************************************************************
@REM@ Bemerk.: Vor dem Makrostart im Ïbergeordnetem Konvertierungspfad
@REM@ Bemerk.: das Script prepare.sh ausfÏhren. syntax: prepare.sh /y/sm Konvverz1 Konvverz2
@REM@ Bemerk.: ÏberprÏfen von /tmp/cadliste ob korrekter eintrag vorliegt.
@REM@*****************************************************************

@REM@Variablen anpassen

@A16@ $Quellverz="/z/sm/"\x
@A16@ $Zielverz="/pps1/sm/"\x
@A16@ $liste="/tmp/cadliste"\x

@REM@*****************************************************************

@A16@ &typ=0\006\x
@REPEAT@
@R23@&Rc=WAIT(5)\006\x
  @A16@ $A=FREAD$($liste,&typ)\006\x
  @A16@ $A=TRIM$($A)\006\x
  @IF@ $A<>CHR$(4)
    @R23@ $zielpfad=SYSTEM$("dirname " && $A) \006\x
    @A16@ $zielpfad = SUBSTR$($zielpfad,1,LEN($zielpfad)-1) \006\x
    @A16@ $DXDestDir=$Zielverz && $zielpfad \006\x
    @A16@ &Rc=PRINT("zielverzeichniss :" && $DXDestDir && ":")\x
    @A16@ $DXFile= $Quellverz && $A \006\x
    @M21@ /u/0510/int/dxf/mac/DX_cad2dxf.m\r
    @P23@
  @ENDIF@
  @A16@ &typ=1\006\x
@UNTIL@ $A==CHR$(4)
&Rc=FCLOSE($liste)\006\x
@P23@