/*
 *
 * Script für WRITE 3.368 © 1989 - 1993 by Tim Teulings
 * Dieses REXX-Script zeigt alle geladen Konfigurationen an
 *
 */

OPTIONS RESULTS

IF ~show('P',"WRITE")
THEN DO
 say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
 exit 10
END

ADDRESS "WRITE"

'VERSIONCHECK 3848 "ShowConfig.wrx"'
IF RC~=0 THEN DO
  exit 10
END

CLEARLIST 0

ID = 0
NEXTED ID

do while RC=0
 'GETVAR "_CurrentID"'
 ID = RESULT

 'GETVAR "_CurrentConfig"'
 Config = Result
 ADDLIST "(" || Config || ")" 0 "{@NODUP}"

 NEXTED ID
end

SHOWLIST 0 0