Editing Archive (section)

==Sample COM Files==

===HowTo: Example ipl_scanco_v64.com pre-processing===
 $!<br>
 $! _/_/_/ _/_/_/ _/
 <br>$! _/ _/ _/ _/ Image Processing Language 
 <br>$! _/ _/_/_/ _/
 <br>$! _/ _/ _/ (c) Andres Laib, IBT/ETH Z¸rich
 <br>$! _/_/_/ _/ _/_/_/_/
 <br>$!
 <br>$!
 <br>$!
 <br>$! IPL Batch Scanco
 <br>$!
 <br>$! Segmentation with gauss filter and thresholding.
 <br>$! The segmented volume is saved compressed to file.
 <br>$!
 <br>$!
 <br>$ define log_file 'p1'
 <br>$ define org_file 'p2'
 <br>$ define gobj_file 'p3'.GOBJ
 <br>$ define gau_file 'p3'_GFILT.AIM
 <br>$ define seg_file 'p3'_THRES.AIM
 <br>$!
 <br>$ show log log_file
 <br>$ show log org_file
 <br>$ show log gobj_file
 <br>$ show log gau_file
 <br>$ show log seg_file
 <br>$!
 <br>$!
 <br>$ ipl_scanco_prog := $um:ipl_scanco_m64.exe
 <br>$!
 <br>$ ON ERROR THEN EXIT
 <br>$!
 <br>$ ipl_scanco_prog
 <br>/db_scanco_activate true
 <br>! read, threshold and vox gfilt aim file
 <br>/read org org_file
 <br>/sup_divide org
 <br>-supdim_numbers 4 4 4
 <br>-testoff_pixels 1 1 1
 <br>/gauss_lp org gau
 <br> -sigma 1.2
 <br>-support 1
 <br>/del org
 <br>/write gau gau_file
 <br>/vox_scanco_param
 <br>-input gau
 <br>..
 <br>$ ON ERROR THEN CONTINUE
 <br>$! ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$ ENDCOM:
 <br>$ IF F$SEARCH("gau_file") .NES. ""
 <br>$ THEN
 <br>$ org = F$SEARCH("org_file")
 <br>$! IF org .NES. "" THEN DELETE/NOCONFIRM 'org'
 <br>$ ENDIF
 <br>$ EXIT


===HowTo: Example ipl_scanco_v64.com post-processing===
 <br>$!
 <br>$! _/_/_/ _/_/_/ _/
 <br>$! _/ _/ _/ _/ Image Processing Language
 <br>$! _/ _/_/_/ _/
 <br>$! _/ _/ _/ (c) Andres Laib, IBT/ETH Zrich
 <br>$! _/_/_/ _/ _/_/_/_/
 <br>$!
 <br>$!
 <br>$!
 <br>$! IPL Batch Scanco
 <br>$!
 <br>$! Segmentation with gauss filter and thresholding.
 <br>$! The segmented volume is saved compressed to file.
 <br>$!
 <br>$!
 <br>$ define log_file ‘p1’
 <br>$ define org_file ‘p2’.AIM
 <br>$ define gobj_file ‘p2’.GOBJ
 <br>$ define gau_file ‘p2’_GFILT.AIM
 <br>$ define seg_file ‘p2’_THRES.AIM
 <br>$!
 <br>$ show log log_file
 <br>$ show log org_file
 <br>$ show log gobj_file
 <br>$ show log gau_file
 <br>$ show log seg_file
 <br>$!
 <br>$!
 <br>$ ipl_scanco_prog := $um:ipl_scanco_m64.exe
 <br>$!
 <br>$ ON ERROR THEN EXIT
 <br>$!
 <br>$!------------------------------------------------------------------------------
 <br>$!Gauss filter, cutout with GOBJ, and threshold
 <br>$!------------------------------------------------------------------------------
 <br>$ IF F$SEARCH(“seg_file�?) .EQS. ““
 <br>$ THEN
 <br>$ ipl_scanco_prog
 <br>/db_scanco_activate false
 <br>! read, then gauss filter aim
 <br>/read org org_file
 <br>/gauss_lp org gau
 <br>-sigma 1.2
 <br>-support 2
 <br>/del org
 <br>! cutout with gobj
 <br>/gobj_maskaimpeel_ow
 <br>-input_output gau
 <br>-gobj_filename gobj_file
 <br>-peel_iter 0
 <br>! threshold
 <br>/threshold
 <br>-input gau
 <br>-output seg
 <br>-lower_in_perm 250
 <br>-upper_in_perm 1000
 <br>-value_in_range 127
 <br>/write
 <br>-name gau
 <br>-filename gau_file
 <br>-compress false
 <br>/del gau
 <br>/write
 <br>-name seg
 <br>-filename seg_file
 <br>-compress bin
 <br>..
 <br>$ ON ERROR THEN CONTINUE
 <br>$ ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$!Morphological and anisotropic analysis
 <br>$!------------------------------------------------------------------------------
 <br>$ipl_scanco_prog
 <br>/db_scanco_activate false
 <br>/read seg seg_file
 <br>/tri
 <br>-input seg
 <br>-output tri
 <br>-gobj_filename gobj_file
 <br>-peel_iter -1
 <br>-ip_sigma 2.000000
 <br>-ip_support 0
 <br>-ip_threshold 64
 <br>-interpolate true
 <br>-nr_ave_iter 0
 <br>-t_dir_radius 2
 <br>-epsilon 1.200000
 <br>-size_image 512 512
 <br>-scale_image 0.700000
 <br>-edges false
 <br>-nr_views 0
 <br>..
 <br>$ ON ERROR THEN CONTINUE
 <br>$ipl_scanco_prog
 <br>/db_scanco_activate false
 <br>/read seg seg_file
 <br>/dt_object_param
 <br>-input seg
 <br>-output out
 <br>-gobj_filename gobj_file
 <br>-roi_radius_factor 10000.000000
 <br>-ridge_epsilon 0.900000 
 <br>-assign_epsilon 1.800000
 <br>-histofile_or_screen none
 <br>..
 <br>$ ON ERROR THEN CONTINUE
 <br>$ipl_scanco_prog
 <br>/db_scanco_activate false
 <br>/read seg seg_file
 <br>/dt_background_param
 <br>-input seg
 <br>-output out
 <br>-gobj_filename gobj_file
 <br>-roi_radius_factor 10000.000000
 <br>-ridge_epsilon 0.900000
 <br>-assign_epsilon 1.800000
 <br>-histofile_or_screen none
 <br>..
 <br>$ ON ERROR THEN CONTINUE
 <br>$ipl_scanco_prog
 <br>/db_scanco_activate false
 <br>/read seg seg_file
 <br>/dt_mat_param
 <br>-input seg
 <br>-output out
 <br>-gobj_filename gobj_file
 <br>-roi_radius_factor 10000.000000
 <br>-ridge_epsilon 0.900000
 <br>-assign_epsilon 1.800000
 <br>-histofile_or_screen none
 <br>..
 <br>$ ON ERROR THEN CONTINUE
 <br>$ipl_scanco_prog


===HowTo: Example submit_all_ipl.com===
 <br>$ com := UT:IPL_SUBMIT_USER.COM
 <br>$ dir = F <br>$ENVIRONMENT(“DEFAULT�?) - “.COM]�?
 <br>$ proc_maskxy := ‘dir.COM]IPL_MASKXY_SUBMIT_ALL.COM
 <br>$ proc_maskxz := ‘dir.COM]IPL_MASKXZ_SUBMIT_ALL.COM
 <br>$ proc_trabtop := ‘dir.COM]IPL_TRABTOP_SUBMIT_ALL.COM
 <br>$!------------------------------------------------------------------------------
 <br>$ IF P1 .EQS ““
 <br>$ THEN
 <br>$ SAY “Usage: SAI [ALL,MASKXY,MASKXZ,TRABTOP]
 <br>$ EXIT
 <br>$ ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$ IF P1 .NES “ALL�? THEN GOTO ‘P1’
 <br>$!------------------------------------------------------------------------------
 <br>$ MASKXY:
 <br>$ FDA @’com’ ‘dir’.MODELS]*’p2’*_INNER_XY.GOBJ [] USER:MASKXY BLUND_EVAL ‘dir’.LOG]
 ‘proc_maskxy’
 <br>$ IF P1 .NES “ALL�? THEN GOTO ENDCOM
 <br>$!------------------------------------------------------------------------------
 <br>$ MASKXZ:
 <br>$ FDA @’com’ ‘dir’.MODELS]*’p2’*_UPPER_XZ.GOBJ [] USER:MASKXZ BLUND_EVAL ‘dir’.LOG]
 ‘proc_maskxz’
 <br>$ IF P1 .NES “ALL�? THEN GOTO ENDCOM
 <br>$!------------------------------------------------------------------------------
 <br>$ TRABTOP:
 <br>$ FDA @’com’ ‘dir’.MODELS]*’p2’*_MASK_XZ.AIM [] USER:TRABTOP BLUND_EVAL ‘dir’.LOG]
 ‘proc_trabtop’
 <br>$ IF P1 .NES “ALL�? THEN GOTO ENDCOM
 <br>$!------------------------------------------------------------------------------
 <br>$ ENDCOM:
 <br>$ EXIT
 <br>$!------------------------------------------------------------------------------


===HowTo: Example ipl_maskxy_submit_all.com===
 <br>$!
 <br>$! _/_/_/ _/_/_/ _/
 <br>$! _/ _/ _/ _/ Image Processing Language
 <br>$! _/ _/_/_/ _/
 <br>$! _/ _/ _/ (c) Andres Laib, IBT/ETH Zürich
 <br>$! _/_/_/ _/ _/_/_/_/
 <br>$!
 <br>$!
 <br>$!
 <br>$! IPL Batch Scanco
 <br>$!
 <br>$! Calculation of morphometric properties in the TRAB region.
 <br>$!
 <br>$!
 <br>$ p2 = p2 - “_INNER_XY�?
 <br>$!
 <br>$ define log_file ‘p1’
 <br>$ define sum_file ‘p2’_MASK_XZ.AIM
 <br>$ define seg_file ‘p2’_MSK_INNER.AIM
 <br>$ define xzaim_file ‘p2’_INNER_XZ.AIM
 <br>$ define gobj_1_file ‘p2’_INNER_XY.GOBJ
 <br>$ define gobj_2_file ‘p2’_TOPER_XZ.GOBJ
 <br>$!
 <br>$ show log log_file
 <br>$ show log sum_file
 <br>$ show log seg_file
 <br>$ show log xzaim_file
 <br>$ show log gobj_1_file
 <br>$ show log gobj_2_file
 <br>$!
 <br>$!
 <br>$ ipl_scanco_prog :=  <br>$um:ipl_scanco_m64.exe
 <br>$!
 <br>$ ON ERROR THEN CONTINUE
 <br>$!
 <br>$!------------------------------------------------------------------------------
 <br>$!Create an AIM with INNER_XY.GOBJ, write XZ version.
 <br>$! (Send pos info to log files)
 <br>$!------------------------------------------------------------------------------
 <br>$ IF F <br>$SEARCH(“xzaim_file�?) .EQS. ““
 <br>$ THEN
 <br>$ ipl_scanco_prog
 /db_scanco_activate false
 ! read xy inner gobj
 /gobj_to_aim
 -gobj_filename gobj_1_file
 -output gob
 -peel_iter 0
 /examine gob
 -item geometry
 /flip_aim gob flip
 -new_xydir xz
 /examine flip
 -item geometry
 /write flip xzaim_file
 ..
 <br>$ ON ERROR THEN CONTINUE
 <br>$ GOTO ENDCOM
 <br>$ ENDIF
 <br>$! Before proceeding to this next part, the “pos�? of the INNER_XZ.AIM files
 <br>$! created above must be reset from 0 to the proper values based on aims
 <br>$! before and after flipping. The change in the AIM is done with a
 <br>$! script that calls program “aimod�?.
 <br>$!
 <br>$!------------------------------------------------------------------------------
 <br>$!Create an AIM mask AIM with INNER_XZ.AIM and TOPER_XZ.GOBJ
 <br>$!------------------------------------------------------------------------------
 <br>$ IF F <br>$SEARCH(“sum_file�?) .EQS. ““
 <br>$ THEN
 <br>$ ipl_scanco_prog
 /db_scanco_activate false
 /read in xzaim_file
 /gauss_lp in gau
 -sigma 3.0
 -support 3
 /del in
 /threshold gau seg
 -lower_in_perm 450
 -upper_in_perm 1000
 -value_in_range 63
 /del gau
 /write seg seg_file
 -compress bin
 /del seg
 ! read xz toper gobj
 /read seg seg_file
 /gobj_mask seg
 -gobj_filename gobj_2_file
 -peel_iter 0
 /read bot seg_file
 /set_value bot
 -value_object 64
 -value_background 0
 /concat bot seg sum
 -common_region_only false
 -add_not_overlay true
 /del seg
 /del gob
 ! write the final aim
 /write sum sum_file
 -compress bin
 ..
 <br>$! <br>$ DELETE/LOG ‘’seg_file’;
 <br>$ GOTO ENDCOM
 <br>$ ENDIF
 <br>$ ON ERROR THEN CONTINUE
 <br>$!------------------------------------------------------------------------------
 <br>$ ENDCOM:
 <br>$ EXIT


===HowTo: Example flip_xz.com===
 <br>$!-----------------------------------------------------------------------------
 <br>$! RENAME SAMPLES
 <br>$!-----------------------------------------------------------------------------
 <br>$ project = “HERZOG�?
 <br>$ dir = “DISK40:[DATA.UCT.PROJECTS�?
 <br>$ IF F <br>$SEARCH(“‘’dir’.’’project’]*.*�?) .NES. ““
 <br>$ THEN
 <br>$ dir = “‘’dir’.’’project’�?
 <br>$ ELSE
 <br>$ SAY ““
 <br>$ SAY “Directory ‘’dir’.’’project’] is empty.�?
 <br>$ SAY ““
 <br>$ EXIT
 <br>$ ENDIF
 <br>$!-----------------------------------------------------------------------------
 <br>$! <br>$ @UT:IPL_FLIP.COM ‘dir’.MODELS]HERZOG_CAT_00WK-01-NORMAL_GFILT.AIM -
 <br>$! ‘dir’.MODELS]HERZOG_CAT_00WK-01-NORMAL_GFILT_XZ.AIM XZ
 <br>$!
 <br>$ @UT:IPL_FLIP.COM ‘dir’.MODELS]HERZOG_CAT_70MO-1B-CLAT-R_GFILT.AIM -
 ‘dir’.MODELS]HERZOG_CAT_70MO-1B-CLAT-R_GFILT_XZ.AIM XZ
 <br>$ @UT:IPL_FLIP.COM ‘dir’.MODELS]HERZOG_CAT_74MO-1D-ACLT-L_GFILT.AIM -
 ‘dir’.MODELS]HERZOG_CAT_74MO-1D-ACLT-L_GFILT_XZ.AIM XZ
 <br>$ @UT:IPL_FLIP.COM ‘dir’.MODELS]HERZOG_CAT_74MO-1D-CLAT-R_GFILT.AIM -
 ‘dir’.MODELS]HERZOG_CAT_74MO-1D-CLAT-R_GFILT_XZ.AIM XZ
 <br>$!-----------------------------------------------------------------------------
 <br>$ EXIT
 <br>$!-----------------------------------------------------------------------------


===HowTo: Example eval.com===
 <br>$!------------------------------------------------------------------------------
 <br>$!EVAL.COM
 <br>$!------------------------------------------------------------------------------
 <br>$IF P1 .EQS. ““
 <br>$THEN
 <br>$ SAY ““
 <br>$ SAY “Usage:�?
 <br>$ SAY “ <br>$ @EVAL.COM RESDIR [ADPGSE] SAMPLE_ID [MEAS_ID] [PAR5-8]�?
 <br>$ SAY ““
 <br>$ SAY “ A: All�?
 <br>$ SAY “ D: Set Measurement Directory�?
 <br>$ SAY “ G: Generate AIM interactively�?
 <br>$ SAY “ S: Startup SAP�?
 <br>$ SAY “ E: Evaluating AIM�?
 <br>$ SAY ““
 <br>$ EXIT
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$ON CONTROL_C THEN GOTO ENDCOM
 <br>$ON CONTROL_Y THEN GOTO ENDCOM
 <br>$IF P2 .EQS. ““ THEN P2 = “D�?
 <br>$IF F <br>$INTEGER(P2) .NES. 0
 <br>$THEN
 <br>$ P4 = P3
 <br>$ P3 = P2
 <br>$ P2 = “A�?
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$!CHECK DIRECTORY SYNTAX
 <br>$!------------------------------------------------------------------------------
 <br>$olddir = F <br>$PARSE(F <br>$DIRECTORY()) - “.;�?
 <br>$IF P3 .NES. ““
 <br>$THEN
 <br>$ IF P4 .NES. ““
 <br>$ THEN
 <br>$ CDN UD *’P3’ *’P4’
 <br>$ ELSE
 <br>$ CDN UD *’P3’ 0 <br>$!------------------------------------------------------------------------------
 <br>$!EVAL.COM
 <br>$!------------------------------------------------------------------------------
 <br>$IF P1 .EQS. ““
 <br>$THEN
 <br>$ SAY ““
 <br>$ SAY “Usage:�?
 <br>$ SAY “ <br>$ @EVAL.COM RESDIR [ADPGSE] SAMPLE_ID [MEAS_ID] [PAR5-8]�?
 <br>$ SAY ““
 <br>$ SAY “ A: All�?
 <br>$ SAY “ D: Set Measurement Directory�?
 <br>$ SAY “ G: Generate AIM interactively�?
 <br>$ SAY “ S: Startup SAP�?
 <br>$ SAY “ E: Evaluating AIM�?
 <br>$ SAY ““
 <br>$ EXIT
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$ON CONTROL_C THEN GOTO ENDCOM
 <br>$ON CONTROL_Y THEN GOTO ENDCOM
 <br>$IF P2 .EQS. ““ THEN P2 = “D�?
 <br>$IF F <br>$INTEGER(P2) .NES. 0
 <br>$THEN
 <br>$ P4 = P3
 <br>$ P3 = P2
 <br>$ P2 = “A�?
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$!CHECK DIRECTORY SYNTAX
 <br>$!------------------------------------------------------------------------------
 <br>$olddir = F <br>$PARSE(F <br>$DIREC
 <br>$ ENDIF
 <br>$ENDIF
 <br>$dir = F <br>$PARSE(F <br>$DIRECTORY()) - “.;�?
 <br>$length = F <br>$LENGTH(dir)
 <br>$id = F <br>$EXTRACT(length-18,18,dir)
 <br>$IF (F <br>$EXTRACT(0,2,id) .NES. “00�?) .OR. (F <br>$EXTRACT(9,2,id) .NES. “00�?)
 <br>$THEN
 <br>$ SAY “ “
 <br>$ SAY “ THIS IS NOT A MEAUSUREMENT DIRECTORY:�?
 <br>$ SAY “ ‘’dir’�?
 <br>$ SAY “ “
 <br>$ EXIT
 <br>$ENDIF
 <br>$SET DEF UCT-DATA-M:[‘id’
 <br>$isqdata = F <br>$SEARCH(“*.ISQ�?)
 <br>$isqdata = isqdata - F <br>$PARSE(isqdata,,,�?VERSION�?)
 <br>$aimdata = F <br>$SEARCH(“*.AIM�?) - “_TRAB�? - “_CORT�?
 <br>$aimdata = F <br>$SEARCH(“‘’aimdata’�?)
 <br>$aimdata = aimdata - F <br>$PARSE(aimdata,,,�?VERSION�?)
 <br>$IF (P2 .NES. “D�?) .AND. (isqdata .EQS. ““) .AND. (aimdata .EQS. ““)
 <br>$THEN
 <br>$ SAY “ “
 <br>$ SAY “ NO IMAGE DATA IN THIS DIRECTORY:�?
 <br>$ SAY “ ‘’dir’�?
 <br>$ SAY “ “
 <br>$ EXIT
 <br>$ENDIF
 <br>$IF F <br>$SEARCH(“*.COM�?) .NES. ““
 <br>$THEN
 <br>$ SAY ““
 <br>$ SAY “THERE SEEM TO BE STILL UNRECONSTRUCTED SLICES IN THIS DIRECTORY:�?
 <br>$ DIRECTORY *.COM
 <br>$ EXIT
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$!PROCESSING
 <br>$!------------------------------------------------------------------------------
 <br>$IF P2 .EQS. “D�? THEN GOTO ENDCOM
 <br>$!------------------------------------------------------------------------------
 <br>$IF F <br>$LOCATE(“A�?,P2) .NE. F <br>$LENGTH(P2)
 <br>$THEN
 <br>$! SAP IS INVOKED
 <br>$ IF isqdata .NES. ““ THEN P2 = “GSE�?
 <br>$ IF isqdata .EQS. ““ THEN P2 = “SE�?
 <br>$! SAP IS NOT INVOKED
 <br>$! IF isqdata .NES. ““ THEN P2 = “GE�?
 <br>$! IF isqdata .EQS. ““ THEN P2 = “E�?
 <br>$ENDIF
 <br>$SAY ““
 <br>$!------------------------------------------------------------------------------
 <br>$IF F <br>$LOCATE(“G�?,P2) .NE. F <br>$LENGTH(P2)
 <br>$THEN
 <br>$ IF (isqdata .NES. ““) .AND. ((aimdata .EQS. ““) .OR. (P2 .EQS. “G�?))
 <br>$ THEN
 <br>$ SAY “- Evaluate ‘’isqdata’�?
 <br>$ DEFINL UCT_DEFAULT_ISQ ‘isqdata’
 <br>$ DEFINL UCT_EVALUATION UCT-DATA-R:[‘P1’.COM]UCT_EVALUATION.COM
 <br>$ UCT_EVALUATION
 <br>$ DEASSIGN UCT_DEFAULT_ISQ
 <br>$ DEASSIGN UCT_EVALUATION
 <br>$ IF P2 .NES. “G�?
 <br>$ THEN
 <br>$ SAY “- Waiting for evaluation job to complete ...�?
 <br>$ counter = 1
 <br>$ loop:
 <br>$ WAIT 00:00:10
 <br>$ elapsed_time = counter * 10
 <br>$ IF counter .eq. 1
 <br>$ THEN
 <br>$ SAY “ - job has been runing for ‘’F <br>$STRING(elapsed_time)’ seconds�?
 <br>$ ELSE
 <br>$ SAY “[2K[1A - job has been runing for ‘’F <br>$STRING(elapsed_time)’ seconds�?
 <br>$ ENDIF
 <br>$ ctx = ““
 <br>$ temp = F <br>$CONTEXT (“PROCESS�?,ctx,�?JOBTYPE�?,�?BATCH�?,�?EQL�?)
 <br>$ loop_pid:
 <br>$ pid = F <br>$PID(ctx)
 <br>$ IF pid .NES. ““
 <br>$ THEN
 <br>$ image = F <br>$GETJPI(pid,�?IMAGNAME�?)
 <br>$ aimdata = F <br>$SEARCH(“*.AIM�?)
 <br>$ IF (F <br>$LOCATE(“ISQ_TO_AIM�?,image) .NES. F <br>$LENGTH(image)) - .OR. (aimdata .EQS. ““)
 <br>$ THEN
 <br>$ counter = counter + 1
 <br>$ GOTO loop
 <br>$ ELSE
 <br>$ GOTO loop_pid
 <br>$ ENDIF
 <br>$ ENDIF
 <br>$ aimdata = F <br>$SEARCH(“*.AIM�?)
 <br>$ aimdata = aimdata - F <br>$PARSE(aimdata,,,�?VERSION�?)
 <br>$ ENDIF
 <br>$ ENDIF
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$IF F <br>$LOCATE(“S�?,P2) .NE. F <br>$LENGTH(P2)
 <br>$THEN
 <br>$ IF F <br>$SEARCH(aimdata) .NES. ““
 <br>$ THEN
 <br>$ show sym aimdata
 <br>$ SAY “- Startup SAP ‘’aimdata’...�?
 <br>$ SAPXZ -s ‘aimdata’
 <br>$ ELSE
 <br>$ SAY ““
 <br>$ SAY “No aimdata found in directory.�?
 <br>$ SAY “Program exits right now.�?
 <br>$ GOTO ENDCOM
 <br>$ ENDIF
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$IF F <br>$LOCATE(“E�?,P2) .NE. F <br>$LENGTH(P2)
 <br>$THEN
 <br>$ id_dir = F <br>$EXTRACT(0,8,id) + “]�? + F <br>$EXTRACT(9,8,id) + “.DIR�?
 <br>$ IF F <br>$SEARCH(“UCT-DATA-R:[‘’P1’.’’id_dir’�?) .EQS. ““
 <br>$ THEN
 <br>$ SAY “- Create Result Directory ...�?
 <br>$ CREATE/DIR/LOG UCT-DATA-R:[‘P1’.’id’
 <br>$ ENDIF
 <br>$ IF aimdata .NES. ““
 <br>$ THEN
 <br>$ aimname = F <br>$PARSE(aimdata,,,�?NAME�?)
 <br>$ aimnum = F <br>$EXTRACT(0,8,id)
 <br>$ aimfull = “UCT-DATA-R:[‘’P1’.’’id’’’aimname’�?
 <br>$ comfile = “UCT-DATA-R:[‘’P1’.COM]IPL_SCANCO_V64.COM�?
 <br>$ logfile = “UCT-DATA-R:[‘’P1’.LOG]IPL_PRE_’’aimnum’_’’aimname’.LOG�?
 <br>$! SHOW SYMBOL aimname
 <br>$! SHOW SYMBOL aimnum
 <br>$! SHOW SYMBOL aimfull
 <br>$! SHOW SYMBOL comfile
 <br>$! SHOW SYMBOL logfile
 <br>$ !-------------------------------------------------------------------
 <br>$ IF F <br>$SEARCH(“‘’aimfull’_GFILT.AIM�?) .EQS. ““
 <br>$ THEN
 <br>$! CP ‘aimdata’ ‘aimfull’.AIM
 <br>$ IF F <br>$SEARCH(aimdata) .NES. ““ THEN 
 IF F <br>$SEARCH(isqdata) .NES. ““ THEN DELETE/NOCONFIRM ‘isqdata’;*
 <br>$ SUBDATA ‘comfile’ ‘logfile’ -
 ‘aimdata’ ‘aimfull’!/QUEUE=BLUND_EVAL
 <br>$ ENDIF
 <br>$ ENDIF
 <br>$ENDIF
 <br>$!------------------------------------------------------------------------------
 <br>$ ENDCOM:
 <br>$IF F <br>$SEARCH(“UCT-DATA-M:[‘’id’*.*�?) .NES. ““
 <br>$THEN
 <br>$ DIRECTORY/NOTRAILER UCT-DATA-M:[‘id’
 <br>$ELSE
 <br>$ dir1 = F <br>$EXTRACT(0,8,id)
 <br>$ dir2 = F <br>$EXTRACT(9,8,id)
 <br>$ DELETE UCT-DATA-M:[‘dir1’]’dir2’.DIR;,UCT-DATA-M:[000000]’dir1’.DIR;
 <br>$ENDIF
 <br>$IF F <br>$SEARCH(“UCT-DATA-R:[‘’P1’.’’id’*.*�?) .NES. ““ THEN -
 DIRECTORY/NOTRAILER UCT-DATA-R:[‘P1’.’id’
 <br>$SAY ““
 <br>$SET DEF ‘olddir’
 <br>$EXIT
 <br>$!------------------------------------------------------------------------------


===HowTo: Example eval_all.com===
 <br>$ eval_herzog e 245
 <br>$ eval_herzog e 246
 <br>$ eval_herzog e 247
 <br>$ eval_herzog e 248
 <br>$ eval_herzog e 249
 <br>$ eval_herzog e 250