finish
/clear,start

/INQUIRE,ACT_PFAD,DIRECTORY    !aktuellen Pfad einlesen
/INQUIRE,NAME_JOB,JOBNAME      !aktuellen JOBNAMEN einlesen

*vwrite,ACT_PFAD(1)
aktueller Pfad=< %C >
*vwrite,NAME_JOB(1)
Jobname=< %C >

JOB_NAME='Willi'     !neuer Jobname als Variable
DIR_NAME='.\DATEN'   !Unterverzeichnis Daten

!zum umgehen der Variablen-Substitution ein kleines temporäres Makro
! schreiben.
*CFOPEN,TMP_MAC,MAC
*VWRITE,DIR_NAME
/SYS,md %C
*CFCLOSE

!Macro ausführen
tmp_mac

!/DELETE,TMP_MAC,MAC   ! eventuell Löschen der temporären MAKRODATEI

/cwd,DIR_Name  !wechseln in das Verzeichnis "Daten"

/filnam,Job_Name,on   !dieser Befehl kann nur in der obersten Ebene ausgeführt werden

!*********************************************************************
!z.B.
/Prep7
k,1,0,0,0
k,2,500,0,0
l,1,2
!.....
!berechnungen Durchführen
!/SOLU
!SOLVE
!.....


save        !daten sichern

finish                   ! kein prozessor aktiv
/CWD, Act_Pfad(1)        !in das ausgangsverzeichnis Zurück
/filname,Name_JOB(1),on  ! alten Jobnamen wiederherstellen