Print Command using Variables

Good Morning users.

I have reviewed other posts but cannot seem to get this to work.
I want to take an input variable and use it to save as a filename to save as a file.
I seem to have assigned the variable to the file path ok. A file is created but with nothing in it.
I am writing to a .RTF file and I am using 2012mr2. Any indicators most appreciated.

Virgil

Attached Files

Print.txt

Parents

Milicron Mike over 7 years ago

C1         =COMMENT/INPUT,NO,FULL SCREEN=NO,
            Cavity Number
C2         =COMMENT/INPUT,NO,FULL SCREEN=NO,
            Operator
C3         =COMMENT/INPUT,NO,FULL SCREEN=NO,
            Machine Number
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; CAVITY : C1.INPUT
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; OPERATOR : C2.INPUT
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; DCM : C3.INPUT



Program goes here


ASSIGN/V1=ELAPSEDEXECUTIONTIME()
            COMMENT/REPT,
            "Elapsed Execution Time : " + V1
C15        =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            Do you want to output this data
            IF/C15.INPUT=="NO"
            GOTO/PGM_END
            END_IF/
            ASSIGN/ST_TM=SYSTEMTIME("HH-mm-ss")
            ASSIGN/SYS_DT=SYSTEMDATE("MM-dd-yyy'")
            ASSIGN/MTI1="S:\[B][COLOR=#FF0000]FULL PATH NAME GOES HERE[/COLOR][/B]\\"
            ASSIGN/MTI2="[B][COLOR=#FF0000]FILE NAME GOES HERE[/COLOR][/B]"
            ASSIGN/MTI3=CONCAT(MTI2," CAVITY-",C1.INPUT," ",ST_TM," ",SYS_DT)  [B][COLOR=#FF0000]<----<<< Forms System time, date, and Cavity number into a single string[/COLOR][/B]
            ASSIGN/MTI4=CONCAT(MTI1,MTI3) [B][COLOR=#FF0000]<----<<< Creates the path, file name, time, date, and cavity number as a single string [/COLOR][/B]
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,APPEND=MTI4,AUTO OPEN REPORT=OFF,$  [B][COLOR=#FF0000]<-----<<< Sends report to a PDF file and will Open the report after each run if AUTO OPEN REPORT is set to YES[/COLOR][/B]
              TO_PRINTER=OFF,COPIES=1,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=ALL,REPORT_FEATURE_WITH_DIMENSIONS=YES,$
              TO_EXCEL_OUTPUT=OFF,
              PREVIOUS_RUNS=DELETE_INSTANCES
PGM_END    =LABEL/

This prints to a PDF, but MIGHT be able to be used for an RTF with some tweaking. No Guarantees.

Reply

Milicron Mike over 7 years ago

C1         =COMMENT/INPUT,NO,FULL SCREEN=NO,
            Cavity Number
C2         =COMMENT/INPUT,NO,FULL SCREEN=NO,
            Operator
C3         =COMMENT/INPUT,NO,FULL SCREEN=NO,
            Machine Number
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; CAVITY : C1.INPUT
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; OPERATOR : C2.INPUT
            TRACEFIELD/NO_DISPLAY,LIMIT=15 ; DCM : C3.INPUT



Program goes here


ASSIGN/V1=ELAPSEDEXECUTIONTIME()
            COMMENT/REPT,
            "Elapsed Execution Time : " + V1
C15        =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
            Do you want to output this data
            IF/C15.INPUT=="NO"
            GOTO/PGM_END
            END_IF/
            ASSIGN/ST_TM=SYSTEMTIME("HH-mm-ss")
            ASSIGN/SYS_DT=SYSTEMDATE("MM-dd-yyy'")
            ASSIGN/MTI1="S:\[B][COLOR=#FF0000]FULL PATH NAME GOES HERE[/COLOR][/B]\\"
            ASSIGN/MTI2="[B][COLOR=#FF0000]FILE NAME GOES HERE[/COLOR][/B]"
            ASSIGN/MTI3=CONCAT(MTI2," CAVITY-",C1.INPUT," ",ST_TM," ",SYS_DT)  [B][COLOR=#FF0000]<----<<< Forms System time, date, and Cavity number into a single string[/COLOR][/B]
            ASSIGN/MTI4=CONCAT(MTI1,MTI3) [B][COLOR=#FF0000]<----<<< Creates the path, file name, time, date, and cavity number as a single string [/COLOR][/B]
            PRINT/REPORT,EXEC MODE=END,$
              TO_FILE=ON,APPEND=MTI4,AUTO OPEN REPORT=OFF,$  [B][COLOR=#FF0000]<-----<<< Sends report to a PDF file and will Open the report after each run if AUTO OPEN REPORT is set to YES[/COLOR][/B]
              TO_PRINTER=OFF,COPIES=1,$
              TO_DMIS_REPORT=OFF,FILE_OPTION=INDEX,FILENAME=,$
              REPORT_THEORETICALS=ALL,REPORT_FEATURE_WITH_DIMENSIONS=YES,$
              TO_EXCEL_OUTPUT=OFF,
              PREVIOUS_RUNS=DELETE_INSTANCES
PGM_END    =LABEL/

This prints to a PDF, but MIGHT be able to be used for an RTF with some tweaking. No Guarantees.

Children

No Data