Editing Archive (section)

===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>$!------------------------------------------------------------------------------