Sub: pass fail no required

Hi guys

I need Ur support in this situation

In my program 100 results available in that how many pass how many fail I need number in my report is it possible to do that.

Parents

Dave Hocum over 4 years ago

Here is example of a PC-DMIS code for reporting Number Out of Tolerance and Measured.

$$ NO,
Routine Report Footer
ROUTINE_REPORT_FOOTER_GRP1=GROUP/SHOWALLPARAMS=YES
REPORT_FOOTER_L1 =LABEL/
ASSIGN/NUMMEAS_V1=GETPROGRAMINFO("NUMMEAS")
ASSIGN/NUMOOT_V1=GETPROGRAMINFO("NUMOOT")
ASSIGN/ELAPSEDTIME_V1=GETPROGRAMINFO("ELAPSEDTIME")
ASSIGN/ELAPSEDTIME_V2=ELAPSEDEXECUTIONTIME()
COMMENT/REPT,
"Estimated Number Measured: "+NUMMEAS_V1
IF/NUMOOT_V1 < 1
COMMENT/REPT,
"Estimated Number Out of Tolerance: "+NUMOOT_V1
END_IF/
ELSE_IF/NUMOOT_V1 > 0
COMMENT/REPT,
"~~4 Estimated Number Out of Tolerance: "+NUMOOT_V1
END_ELSEIF/
COMMENT/REPT,
"Routine Elapse Time: "+ELAPSEDTIME_V2
TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Estimated Number Out of Tolerance: " ; Estimated Number Out of Tolerance : NUMOOT_V1
TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Estimated Number Measured: " ; Estimated Number Measured : NUMMEAS_V1
TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Routine Elapse Time: " ; Routine Elapse Time : ELAPSEDTIME_V2
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
Routine Execution Complete.
.
REPORT_FOOTER_L2 =LABEL/
ENDGROUP/ID=ROUTINE_REPORT_FOOTER_GRP1

Reply

Dave Hocum over 4 years ago

Here is example of a PC-DMIS code for reporting Number Out of Tolerance and Measured.

$$ NO,
Routine Report Footer
ROUTINE_REPORT_FOOTER_GRP1=GROUP/SHOWALLPARAMS=YES
REPORT_FOOTER_L1 =LABEL/
ASSIGN/NUMMEAS_V1=GETPROGRAMINFO("NUMMEAS")
ASSIGN/NUMOOT_V1=GETPROGRAMINFO("NUMOOT")
ASSIGN/ELAPSEDTIME_V1=GETPROGRAMINFO("ELAPSEDTIME")
ASSIGN/ELAPSEDTIME_V2=ELAPSEDEXECUTIONTIME()
COMMENT/REPT,
"Estimated Number Measured: "+NUMMEAS_V1
IF/NUMOOT_V1 < 1
COMMENT/REPT,
"Estimated Number Out of Tolerance: "+NUMOOT_V1
END_IF/
ELSE_IF/NUMOOT_V1 > 0
COMMENT/REPT,
"~~4 Estimated Number Out of Tolerance: "+NUMOOT_V1
END_ELSEIF/
COMMENT/REPT,
"Routine Elapse Time: "+ELAPSEDTIME_V2
TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Estimated Number Out of Tolerance: " ; Estimated Number Out of Tolerance : NUMOOT_V1
TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Estimated Number Measured: " ; Estimated Number Measured : NUMMEAS_V1
TRACEFIELD/DISPLAY=YES,REPORT=NO,DISPLAY MESSAGE="Routine Elapse Time: " ; Routine Elapse Time : ELAPSEDTIME_V2
COMMENT/OPER,NO,FULL SCREEN=NO,AUTO-CONTINUE=NO,
Routine Execution Complete.
.
REPORT_FOOTER_L2 =LABEL/
ENDGROUP/ID=ROUTINE_REPORT_FOOTER_GRP1

Children

No Data