hexagon logo

Variables Dropping, Lighting flipping, and problems, Global Variables. suggestions?


All,

I've been working with a hexagon tech extensively building a program template to globally handle our structure for global editing as we are re-developing our quality systems and tracking capabilities.

Note: 2017 R2 (Service Pack 5) at both locations - Programming offline at desk - Exporting to server - Running at machine

Effectively a program looks like this. (Disclaimer: I'm very much a novice at programming.)
<Initilize>
<Callsub: FormSub; Initial Form> calls the initial form for the operator input
<Callsub: VarSub; Variables> calls the global variables for light, %tol and other misc settings
<Callsub: VarSub; Tracefields> generates tracefields and writes form data to a .txt file to later be read into the part program (Done for future-proofing; ie adding tracefields globally)
<generate header page for report>

<program specific information, file paths etc.>
<program features>
<append report with features>
<save into file structure, if no file structure - create file structure>
<datapage output>
<end>


This is mostly working great. But i have a feeling that my variables are being dropped.

PROBLEM #1:
I have one variable, for parallelism, checking the cut of the sample (aluminium extrusion). The lighting variable values are passing, as well as this one, but this one will not ... sorta. If i write this code in the program
Ex:

<From VarSub>
Assign/Light=80
Assign/Light2=60
Assign/Flat=.4

<From VarSub>

<comment(y/n): FLAT>

Dim(Parallelism) <Parallelism to stage check>

If/ Parallelism.meas>FLAT
<Comment: Re cut sample>
Goto/ENDPRG
End_IF/

Label=ENDPRG





At the end of the program if i hover over the variables all of the correct values are shown. However at my comment prompt, It will show a value of one. (Edit: Incorrectly stated it was returning a Zero value, bad memory, see additional posts.)


PROBLEM #2
(See Attachments, at bottom ) When I write at my desktop, the 'physical' position that PCDMIS writes the light settings --> gets imported differently at the machine.
Ex:
At Desktop reads:
<--,YES,-1,-1,-1,NO,Top Light=<OFF,0,OFF> ,Bottom Light=<OFF,LIGHT,ON>,Ring Light=<OFF,0,OFF>

At Machine reads:
<--,YES,-1,-1,-1,NO,Bottom Light=<OFF,0,OFF> ,Top Light=<OFF,LIGHT,ON>,Ring Light=<OFF,0,OFF>

Almost as if it's reading the string file in a different order. So every offline program requires an edit for this, or I'll have to get used to programming the wrong light settings.

PROBLEM #3
I have a variable for RPT_Path... I feel like maybe this one is something I can do more investigating into. Each program contains the original assignment for this report path. Then an executable file creates a folder for the Tool Copy Number, a sub folder for the year, then a subfolder for the month and saves the file in that location. Right now it is saving it in the original test templates location.






Any thoughts would be greatly appreciated!!!!!!!!!!

Thank you!



Attached Files
Parents


  • Form Sub:

    STARTUP    =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
                ALIGNMENT/END
                LOADPROBE/ZOOM
                TIP/TIP1, SHANKIJK=0, 0, 1, ANGLE=0
                MODE/DCC
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~` 
    
                                                           FORM SUBROUTINE CALL
    
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~` 
                SUBROUTINE/FORMSUB,
                    MANUAL_ = 0 : ,
                    DATETIME = "" : ,
                    TRACEFIELD_PATH = "" : ,
                    PREFIX = "" : ,
                    DIE_ = "" : ,
                    RPT_PREFIX = "" : ,
                    PRG_NAME = "" : ,
                    CANCELLED = 0 : ,
                    RPT_PATH = "" : ,
                    PRESS_ = 0 : ,
                    SAMPLETYPE_ = 0 : ,
                     = 
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                       CHECK IF FORM EXISTS, IF NOT ALERT OPERATOR
                            CREATE FORM AND BASIC SCRIPT PATHS
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                       PATH CREATION
                       RPT PATH BELOW
                  PREFIX USED FOR TRACEFIELDS
                          ******
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                ASSIGN/PREFIX="C:\USERS\PUBLIC\DOCUMENTS\HEXAGON\DATAPAGE+\FORSTATSFILES"
                ASSIGN/TRACEFIELD_PATH=PREFIX+"\TRACES_"+DATETIME+".TXT"
                ASSIGN/FORM_PATH="C:\users\cmm\Desktop\EXTRUSION\Quality Content Files - KRWB\SUB-ROUTINES\KYLE_EXAMPLE_UACJ.FORM"
                ASSIGN/BAS_PATH="C:\Users\CMM\Desktop\EXTRUSION\QUALITY CONTENT FILES - KRWB\SUB-ROUTINES\CREATEDIRECTORY.BAS"
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~
                   CHECK FOR FORM
                ~~~~~~~~~~~~~~~~~~~~
    FORM_EXISTS=FILE/EXISTS,FORM_PATH
                IF/FORM_EXISTS==0
                  COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                  OPERATOR INPUT WINDOW MISSING, CONTACT SUPERVISOR
                GOTO/ENDFORM
                END_IF/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                             INITIATE VARIABLE AND RUN FORM
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    FORMD      =LABEL/
                ASSIGN/MANUAL_=0
                ASSIGN/DIECOPY_=""
                ASSIGN/SHIFT_=""
                ASSIGN/OPERATOR_=""
                ASSIGN/SAMPLETYPE_=""
                ASSIGN/WEB_=""
                ASSIGN/RUNTYPE_=""
                ASSIGN/SAMPLETYPENAME=""
                ASSIGN/PRESS_=""
                ASSIGN/PRESSNAME=""
                ASSIGN/BILLET_=""
                ASSIGN/CUT_=""
                ASSIGN/REFIRE_=""
                ASSIGN/ACK_=1
                ASSIGN/OPERATORNAME=""
                ASSIGN/OPERATOR_=""
                ASSIGN/FORM_COMPLETE=0
                ASSIGN/CANCELLED=0
                ASSIGN/FILLIN_NAME=""
                ASSIGN/GRR=""
                ASSIGN/GRRUN=""
                ASSIGN/HOLE=""
    CS2        =FORM/FILENAME= FORM_PATH
                PARAM/SHIFT.VALUE=SHIFT_
                PARAM/OPERATOR.VALUE=OPERATOR_
                PARAM/SAMPLETYPE.VALUE=SAMPLETYPE_
                PARAM/WEB.VALUE=WEB_
                PARAM/RUNTYPE.VALUE=RUNTYPE_
                PARAM/PRESS.VALUE=PRESS_
                PARAM/REFIRE.VALUE=REFIRE_
                PARAM/ACK.VALUE=ACK_
                PARAM/MANUAL.VALUE=MANUAL_
                PARAM/OPERATOR.TEXTVALUE=OPERATORNAME
                PARAM/SAMPLETYPE.TEXTVALUE=SAMPLETYPENAME
                PARAM/PRESS.TEXTVALUE=PRESSNAME
                PARAM/FORM_COMPLETE.VALUE=FORM_COMPLETE
                PARAM/CANCELLED.VALUE=CANCELLED
                PARAM/PERSONBOX.TEXT=FILLIN_NAME
                PARAM/BILLET.TEXT=BILLET_
                PARAM/DIECOPY.TEXT=DIECOPY_
                PARAM/DIE.TEXT=DIE_
                PARAM/CUT.TEXT=CUT_
                PARAM/GRR.TEXT=GRR
                PARAM/GRRUN.TEXT=GRRUN
                PARAM/HOLE.TEXT=HOLE
                PARAM/=
                ENDFORM/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                           HANDLE ENDING CONDITIONS FROM FORM
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                IF/OPERATORNAME=="***Fill-in***"
                  ASSIGN/OPERATORNAME=FILLIN_NAME
                END_IF/
                IF/CANCELLED==1
                GOTO/ENDFORM
                END_IF/
                IF/FORM_COMPLETE==0
                  COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                  FORM NOT COMPLETELY FILLED OUT
                GOTO/FORMD
                END_IF/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                    CREATE REPORT FILE STRUCTURE AND GENERATE REPORT PATH
                CHANGE PREFIX PATH TO WHERE REPORTS LOCATE PRIOR TO DIE NUMBER
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                ASSIGN/DATE=SYSTEMDATE("M/d/yyyy")
                ASSIGN/TIME=SYSTEMTIME("h:mm tt")
                ASSIGN/DATE_RPT=SYSTEMDATE("MM_dd_yy")
                ASSIGN/RUN_YEAR=SYSTEMDATE("yyyy")
                ASSIGN/RUN_MONTH=SYSTEMDATE("MMM")
                ASSIGN/FOLDER_STEP1=RPT_PREFIX+"\\"+DIE_+"_"+DIECOPY_
                ASSIGN/FOLDER_STEP2=FOLDER_STEP1+"\\"+RUN_YEAR
                ASSIGN/FOLDER_STEP3=FOLDER_STEP2+"\\"+RUN_MONTH
    CR_A       =SCRIPT/FILENAME= BAS_PATH
                FUNCTION/Main,SHOW=YES,ARG1=FOLDER_STEP1,,
                STARTSCRIPT/
    CR_B       =SCRIPT/FILENAME= BAS_PATH
                FUNCTION/Main,SHOW=YES,ARG1=FOLDER_STEP2,,
                STARTSCRIPT/
    CR_C       =SCRIPT/FILENAME= BAS_PATH
                FUNCTION/Main,SHOW=YES,ARG1=FOLDER_STEP3,,
                STARTSCRIPT/
                ASSIGN/SAMP_TRIM=LEFT(SAMPLETYPENAME,5)
                ASSIGN/RPT_PATH=FOLDER_STEP3+"\\"+DIE_+"_"+DIECOPY_+"   "+DATE_RPT+"_B"+BILLET_+"_C"+CUT_+"_"+SAMP_TRIM+".PDF"
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                                 FORMAT REPORT COVER PAGE
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                COMMENT/REPT,
    
                COMMENT/REPT,
                "DATE: "+DATE+"   TIME: "+TIME+"   OPERATOR: "+OPERATOR_
                COMMENT/REPT,
    
                COMMENT/REPT,
                "DIE: "+DIE_+"-"+DIECOPY_+"   PROGRAM: "+PRG_NAME
                COMMENT/REPT,
    
                COMMENT/REPT,
                "BILLET: "+BILLET_+"   CUT: "+CUT_+"   WEBSTER: "+WEB_+"   SAMPLE TYPE: "+SAMPLETYPE_
                IF/REFIRE_==1
                  COMMENT/REPT,
    
                  COMMENT/REPT,
                  "PRESS: "+PRESS_+" REFIRE"
                END_IF/
                IF/REFIRE_==0
                  COMMENT/REPT,
    
                  COMMENT/REPT,
                  "PRESS: "+PRESS_
                END_IF/
                IF/MANUAL_==1
                  COMMENT/REPT,
    
                  COMMENT/REPT,
                  "MANUAL ALIGNMENT"
                END_IF/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
    
                                                       TRACEFIELD TEMPORARY .TXT OUTPUT
    
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
    TRACES     =FILE/OPEN,TRACEFIELD_PATH,WRITE
                FILE/WRITELINE,TRACES,BILLET_
                FILE/WRITELINE,TRACES,OPERATORNAME
                FILE/WRITELINE,TRACES,REFIRE_
                FILE/WRITELINE,TRACES,SHIFT_
                FILE/WRITELINE,TRACES,WEB_
                FILE/WRITELINE,TRACES,DIECOPY_
                FILE/WRITELINE,TRACES,DIE_
                FILE/WRITELINE,TRACES,PRESSNAME
                FILE/WRITELINE,TRACES,SAMPLETYPENAME
                FILE/WRITELINE,TRACES,MANUAL_
                FILE/WRITELINE,TRACES,CUT_
                FILE/WRITELINE,TRACES,ACK_
                FILE/WRITELINE,TRACES,TIME
                FILE/WRITELINE,TRACES,DATE
                FILE/WRITELINE,TRACES,RUNTYPE_
                FILE/WRITELINE,TRACES,GRR
                FILE/WRITELINE,TRACES,GRRUN
                FILE/WRITELINE,TRACES,HOLE
                FILE/CLOSE,TRACES,KEEP
    $$ NO,
                PRINT OUT
    
                IF/SAMPLETYPE_<>7
                  PRINT/REPORT,EXEC MODE=END,$
                    TO_FILE=ON,OVERWRITE=RPT_PATH,AUTO OPEN REPORT=OFF,$
                    TO_PRINTER=OFF,COPIES=1,$
                    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                    TO_EXCEL_OUTPUT=OFF,
                    PREVIOUS_RUNS=KEEP_INSTANCES
                END_IF/
    ENDFORM    =LABEL/
                ENDSUB/
    


Reply


  • Form Sub:

    STARTUP    =ALIGNMENT/START,RECALL:USE_PART_SETUP,LIST=YES
                ALIGNMENT/END
                LOADPROBE/ZOOM
                TIP/TIP1, SHANKIJK=0, 0, 1, ANGLE=0
                MODE/DCC
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~` 
    
                                                           FORM SUBROUTINE CALL
    
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~` 
                SUBROUTINE/FORMSUB,
                    MANUAL_ = 0 : ,
                    DATETIME = "" : ,
                    TRACEFIELD_PATH = "" : ,
                    PREFIX = "" : ,
                    DIE_ = "" : ,
                    RPT_PREFIX = "" : ,
                    PRG_NAME = "" : ,
                    CANCELLED = 0 : ,
                    RPT_PATH = "" : ,
                    PRESS_ = 0 : ,
                    SAMPLETYPE_ = 0 : ,
                     = 
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                       CHECK IF FORM EXISTS, IF NOT ALERT OPERATOR
                            CREATE FORM AND BASIC SCRIPT PATHS
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                       PATH CREATION
                       RPT PATH BELOW
                  PREFIX USED FOR TRACEFIELDS
                          ******
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                ASSIGN/PREFIX="C:\USERS\PUBLIC\DOCUMENTS\HEXAGON\DATAPAGE+\FORSTATSFILES"
                ASSIGN/TRACEFIELD_PATH=PREFIX+"\TRACES_"+DATETIME+".TXT"
                ASSIGN/FORM_PATH="C:\users\cmm\Desktop\EXTRUSION\Quality Content Files - KRWB\SUB-ROUTINES\KYLE_EXAMPLE_UACJ.FORM"
                ASSIGN/BAS_PATH="C:\Users\CMM\Desktop\EXTRUSION\QUALITY CONTENT FILES - KRWB\SUB-ROUTINES\CREATEDIRECTORY.BAS"
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~
                   CHECK FOR FORM
                ~~~~~~~~~~~~~~~~~~~~
    FORM_EXISTS=FILE/EXISTS,FORM_PATH
                IF/FORM_EXISTS==0
                  COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                  OPERATOR INPUT WINDOW MISSING, CONTACT SUPERVISOR
                GOTO/ENDFORM
                END_IF/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                             INITIATE VARIABLE AND RUN FORM
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    FORMD      =LABEL/
                ASSIGN/MANUAL_=0
                ASSIGN/DIECOPY_=""
                ASSIGN/SHIFT_=""
                ASSIGN/OPERATOR_=""
                ASSIGN/SAMPLETYPE_=""
                ASSIGN/WEB_=""
                ASSIGN/RUNTYPE_=""
                ASSIGN/SAMPLETYPENAME=""
                ASSIGN/PRESS_=""
                ASSIGN/PRESSNAME=""
                ASSIGN/BILLET_=""
                ASSIGN/CUT_=""
                ASSIGN/REFIRE_=""
                ASSIGN/ACK_=1
                ASSIGN/OPERATORNAME=""
                ASSIGN/OPERATOR_=""
                ASSIGN/FORM_COMPLETE=0
                ASSIGN/CANCELLED=0
                ASSIGN/FILLIN_NAME=""
                ASSIGN/GRR=""
                ASSIGN/GRRUN=""
                ASSIGN/HOLE=""
    CS2        =FORM/FILENAME= FORM_PATH
                PARAM/SHIFT.VALUE=SHIFT_
                PARAM/OPERATOR.VALUE=OPERATOR_
                PARAM/SAMPLETYPE.VALUE=SAMPLETYPE_
                PARAM/WEB.VALUE=WEB_
                PARAM/RUNTYPE.VALUE=RUNTYPE_
                PARAM/PRESS.VALUE=PRESS_
                PARAM/REFIRE.VALUE=REFIRE_
                PARAM/ACK.VALUE=ACK_
                PARAM/MANUAL.VALUE=MANUAL_
                PARAM/OPERATOR.TEXTVALUE=OPERATORNAME
                PARAM/SAMPLETYPE.TEXTVALUE=SAMPLETYPENAME
                PARAM/PRESS.TEXTVALUE=PRESSNAME
                PARAM/FORM_COMPLETE.VALUE=FORM_COMPLETE
                PARAM/CANCELLED.VALUE=CANCELLED
                PARAM/PERSONBOX.TEXT=FILLIN_NAME
                PARAM/BILLET.TEXT=BILLET_
                PARAM/DIECOPY.TEXT=DIECOPY_
                PARAM/DIE.TEXT=DIE_
                PARAM/CUT.TEXT=CUT_
                PARAM/GRR.TEXT=GRR
                PARAM/GRRUN.TEXT=GRRUN
                PARAM/HOLE.TEXT=HOLE
                PARAM/=
                ENDFORM/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                           HANDLE ENDING CONDITIONS FROM FORM
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                IF/OPERATORNAME=="***Fill-in***"
                  ASSIGN/OPERATORNAME=FILLIN_NAME
                END_IF/
                IF/CANCELLED==1
                GOTO/ENDFORM
                END_IF/
                IF/FORM_COMPLETE==0
                  COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
                  FORM NOT COMPLETELY FILLED OUT
                GOTO/FORMD
                END_IF/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                    CREATE REPORT FILE STRUCTURE AND GENERATE REPORT PATH
                CHANGE PREFIX PATH TO WHERE REPORTS LOCATE PRIOR TO DIE NUMBER
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                ASSIGN/DATE=SYSTEMDATE("M/d/yyyy")
                ASSIGN/TIME=SYSTEMTIME("h:mm tt")
                ASSIGN/DATE_RPT=SYSTEMDATE("MM_dd_yy")
                ASSIGN/RUN_YEAR=SYSTEMDATE("yyyy")
                ASSIGN/RUN_MONTH=SYSTEMDATE("MMM")
                ASSIGN/FOLDER_STEP1=RPT_PREFIX+"\\"+DIE_+"_"+DIECOPY_
                ASSIGN/FOLDER_STEP2=FOLDER_STEP1+"\\"+RUN_YEAR
                ASSIGN/FOLDER_STEP3=FOLDER_STEP2+"\\"+RUN_MONTH
    CR_A       =SCRIPT/FILENAME= BAS_PATH
                FUNCTION/Main,SHOW=YES,ARG1=FOLDER_STEP1,,
                STARTSCRIPT/
    CR_B       =SCRIPT/FILENAME= BAS_PATH
                FUNCTION/Main,SHOW=YES,ARG1=FOLDER_STEP2,,
                STARTSCRIPT/
    CR_C       =SCRIPT/FILENAME= BAS_PATH
                FUNCTION/Main,SHOW=YES,ARG1=FOLDER_STEP3,,
                STARTSCRIPT/
                ASSIGN/SAMP_TRIM=LEFT(SAMPLETYPENAME,5)
                ASSIGN/RPT_PATH=FOLDER_STEP3+"\\"+DIE_+"_"+DIECOPY_+"   "+DATE_RPT+"_B"+BILLET_+"_C"+CUT_+"_"+SAMP_TRIM+".PDF"
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                                 FORMAT REPORT COVER PAGE
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
                COMMENT/REPT,
    
                COMMENT/REPT,
                "DATE: "+DATE+"   TIME: "+TIME+"   OPERATOR: "+OPERATOR_
                COMMENT/REPT,
    
                COMMENT/REPT,
                "DIE: "+DIE_+"-"+DIECOPY_+"   PROGRAM: "+PRG_NAME
                COMMENT/REPT,
    
                COMMENT/REPT,
                "BILLET: "+BILLET_+"   CUT: "+CUT_+"   WEBSTER: "+WEB_+"   SAMPLE TYPE: "+SAMPLETYPE_
                IF/REFIRE_==1
                  COMMENT/REPT,
    
                  COMMENT/REPT,
                  "PRESS: "+PRESS_+" REFIRE"
                END_IF/
                IF/REFIRE_==0
                  COMMENT/REPT,
    
                  COMMENT/REPT,
                  "PRESS: "+PRESS_
                END_IF/
                IF/MANUAL_==1
                  COMMENT/REPT,
    
                  COMMENT/REPT,
                  "MANUAL ALIGNMENT"
                END_IF/
    $$ NO,
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
    
                                                       TRACEFIELD TEMPORARY .TXT OUTPUT
    
                ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
    TRACES     =FILE/OPEN,TRACEFIELD_PATH,WRITE
                FILE/WRITELINE,TRACES,BILLET_
                FILE/WRITELINE,TRACES,OPERATORNAME
                FILE/WRITELINE,TRACES,REFIRE_
                FILE/WRITELINE,TRACES,SHIFT_
                FILE/WRITELINE,TRACES,WEB_
                FILE/WRITELINE,TRACES,DIECOPY_
                FILE/WRITELINE,TRACES,DIE_
                FILE/WRITELINE,TRACES,PRESSNAME
                FILE/WRITELINE,TRACES,SAMPLETYPENAME
                FILE/WRITELINE,TRACES,MANUAL_
                FILE/WRITELINE,TRACES,CUT_
                FILE/WRITELINE,TRACES,ACK_
                FILE/WRITELINE,TRACES,TIME
                FILE/WRITELINE,TRACES,DATE
                FILE/WRITELINE,TRACES,RUNTYPE_
                FILE/WRITELINE,TRACES,GRR
                FILE/WRITELINE,TRACES,GRRUN
                FILE/WRITELINE,TRACES,HOLE
                FILE/CLOSE,TRACES,KEEP
    $$ NO,
                PRINT OUT
    
                IF/SAMPLETYPE_<>7
                  PRINT/REPORT,EXEC MODE=END,$
                    TO_FILE=ON,OVERWRITE=RPT_PATH,AUTO OPEN REPORT=OFF,$
                    TO_PRINTER=OFF,COPIES=1,$
                    TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
                    REPORT_THEORETICALS=NONE,REPORT_FEATURE_WITH_DIMENSIONS=NO,$
                    TO_EXCEL_OUTPUT=OFF,
                    PREVIOUS_RUNS=KEEP_INSTANCES
                END_IF/
    ENDFORM    =LABEL/
                ENDSUB/
    


Children
No Data