Sayın yöneticim bunu da deneyin. Bunda da program bittikten sonra pencereler çıkıyor du. Rapor olarak almak istiyormusun diye soruyor.
ASSIGN/NM=GETPROGRAMINFO("NUMMEAS")
ASSIGN/OT=GETPROGRAMINFO("NUMOOT")
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
"Total Measured = "+NM
"Out of Tolarance = "+OT
"OK" to continue.
IF/OT<>0
C1 =COMMENT/YESNO,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
"Number Out of Tolerance = "+OT
Print Report?
MOVE/POINT,NORMAL,<0.194,-12.125,-315.094>
IF/C1.INPUT=="YES"
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=1,AUTO OPEN REPORT=ON,$
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=DELETE_INSTANCES
END_IF/
END_IF/
ELSE/
PRINT/REPORT,EXEC MODE=END,$
TO_FILE=ON,AUTO=1,AUTO OPEN REPORT=ON,$
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=DELETE_INSTANCES
END_ELSE/