🚀 go-pugleaf

Hi jens !
On 05.04.1996 you wrote AREXX Problem but I`ll tell you:
> Ich habe mit einem ARexx Programm Probleme.
> Wahrscheinlich bin ich einfach zu dämlich und sehe den Wald vor lauter Bäumen
> nicht...
> Es könnte aber auch sein, daß ich etwas grundsätzlich falsch gemacht habe.
> Vielleicht habt ihr einen Tip!
> 
> /* Importieren von Superbase Dateien für DataBase Professional */
> 
> OPTIONS RESULTS
> 
> device ="CON:0/0/640/200//WAIT/CLOSE/SCREENDATABASE"
> 
> ADDRESS Command
> 'C:Requestfile TITLE="Superbase File" PATTERN="#?.sbf" NOICONS PUBSCREEN DataBase >T:input'
> 
> ADDRESS DATABASE
> Requesttext "Feldseperator (HEX)"
> feldsep = result
> Requesttext "Recordseperator (HEX)"
> recsep = result
> TRACE ?R
> /* Bis hierhin ist noch alles ok */
> /* In T:input steht die Datei */
> IF ~Open(sbfile,T:input,R) THEN DO
> /*              ^^^^^^^ */
> /* Hier nicht mehr, lt trace wird ausdruck nicht ausgewertet !!!*/
> /* WIE bekomme ich das hin ???*/

Einfach zwei Hochkommas setzen.
If ~open(sbfile,'T:input','R') then do....

dann klappts. Du darfst nur bei Variablen die Hochkommas weglassen,
da T:input ja keine Variable ist, meckert ARexx da, verstaendlich.


> 
> IF ~Open(out, device, W) THEN DO
> 
> DO WHILE ~EOF(sbfile)
>    DO while (data = READCH(sbfile,1)) == recsep
>       /* Hier zwischen kommt noch etwas */
>       WRITECH(out,data)
>    END
> END
> 
> Close(out)
> END
> 
> Close(sbfile)
> END
> 
> TRACE o
> 
> EXIT


--
Gruss,
        __
       :  |
   ____|  |  _______   _  ______
  /  / |  | /  / \  \ | |/  __  \Doringo@GURU.rhein-main.de
 /  (__! .|/  (___)  \| |  /  \  \->->- Marcel Doering -<-<-
 \______.:!\_________/!_l_j    l_j/\_ Tel.:069/64604851 _/\

Computer-Mythos #5:
Es gibt ein leicht verstaendliches Computerbuch, mit dem ich meine Probleme
in den Griff bekomme.