0

5700 Cal Shift / Calibration Report

Unfortunately I have been experiencing some stability issues with our old 5700 calibrator and in order to try and isolate its  cause i would like to run a regular series of the inbuild " Cal shift reports". When the 5700's originally entered service , you could trigger a Cal Shift report via its front panel controls and the results could be  dumped to a local printer. 

I assume that today this could be replicated within Metcal , whereby the resulting data could be passed straight to EXCEL and tracked.  Baiscally my question is can anybody steer me toward a reliable Metcal procedure that can achieve this goal.

Many Thanks

6 comments

Date Votes
0
Avatar
Albert de Neeling

We use a simple program that reads the report from the 5700 and writes it to a text file.

The report files are stored for future reference.

1.005  IEEE         CAL_RPT? CHECK [I>check_report.txt]
1.006  IEEE         CAL_SLST? CHECK [I>check_shifts.txt]
 

 

0
Avatar
Ron Chaussee

We do the same thing, but the file is much easier to read if you save it as a .doc file and then open it in Word. (More of the formatting is preserved.)

0
Avatar
James Steeds

Here is the code we use - it imports the output into the database, so you can just print it as a normal certificate.

It also dumps all the numbers to a csv file which you can open in excel to plot control charts...

 

Airbus Uk                                                   MET/CAL Procedure
=============================================================================
INSTRUMENT:            Download 5700A Cal Check Report (v1.4)
DATE:                  2014-08-04 08:05:03
AUTHOR:                James Steeds
REVISION:              1.4
ADJUSTMENT THRESHOLD:  70%
NUMBER OF TESTS:       1
NUMBER OF LINES:       130
CONFIGURATION:         Fluke 5700A
=============================================================================
;v1.0 initial issue
;     2008-11-06
;v1.1 automatic archiving of downloaded reports to a specified directory
;     2008-11-10
;v1.2 automatic archiving of downloaded reports to database.
;     2009-05-28
;v1.3 added code to prevent blank lines (and " lines) from being written to
;     results.
;     2009-05-29
; Download 5700A Cal Check Report (v1.4)
; - Extracts % shift spec data and exports it to a csv file for control chart
 STEP    FSC    RANGE NOMINAL        TOLERANCE     MOD1        MOD2  3  4 CON
  1.001  MATH         @SUPRESS_CROSSCHECKS_CHECKS = 1
  1.002  CALL         checks


  1.003  MATH         data_file_header = ""; data_file_data = ""

##############################################################################
  1.004  HEAD         {'Before Zero' Calibration Check}
  1.005  IEEE         [@5700]CAL_TEMP 20
  1.006  IEEE         [@5700]CAL_CHK;*OPC
  1.007  DO
  1.008  IEEE         [@5700]*ESR?[D1000][I]
  1.009  UNTIL        mem == 1
  1.010  IEEE         [@5700]CAL_RPT? CHECK [I > c:\5700.rtf]

  1.011  HEAD         Import results into database...
  1.012  MATH         filename = "c:\\5700.rtf"
  1.013  MATH         linecount = linecount(filename) ; linenum = 1
  1.014  DO
  1.015  MATH         line = read(filename, linenum)
  1.016  IF           len(strip(line)) > 1
  1.017  RSLT         =[v line]
  1.018  ENDIF
  1.019  MATH         linenum = linenum + 1
  1.020  UNTIL        linenum >= linecount
  1.021  MATH         close(filename)


  1.022  RSLT         =[v @pagebreak]
##############################################################################
  1.023  HEAD         {Internal Zeros Calibration}
  1.024  IEEE         [@5700]CAL_ZERO;*OPC
  1.025  DO
  1.026  IEEE         [@5700]*ESR?[D1000][I]
  1.027  UNTIL        mem == 1
  1.028  RSLT         =Performed
  1.029  RSLT         =[v @pagebreak]
##############################################################################
  1.030  HEAD         {'After Zero' Calibration Check}
  1.031  IEEE         [@5700]CAL_TEMP 20
  1.032  IEEE         [@5700]CAL_CHK;*OPC
  1.033  DO
  1.034  IEEE         [@5700]*ESR?[D1000][I]
  1.035  UNTIL        mem == 1
  1.036  IEEE         [@5700]CAL_RPT? CHECK [I > c:\5700.rtf]

  1.037  HEAD         Import results into database...
  1.038  MATH         filename = "c:\\5700.rtf"
  1.039  MATH         linecount = linecount(filename) ; linenum = 1
  1.040  DO
  1.041  MATH         line = read(filename, linenum)
  1.042  IF           len(strip(line)) > 1
  1.043  RSLT         =[v line]

 

  1.044  HEAD         Create data to put in csv datafile for control charts
  1.045  MATH         spec_shift = strip(sub(line, len(line)-7, 8))
  1.046  IF           zcmp("", strip(sub(line, 1, 11))) == 0
  1.047  MATH         range = strip(sub(line, 1, 11))
  1.048  ENDIF
  1.049  MATH         point = strip(sub(line, 11, 15))
  1.050  IF           findi(point, "FS", 0)
  1.051  MATH         point = sub(point, 1, 3)
  1.052  ENDIF
# Dont act on first 50 lines as these are headers
  1.053  IF           linenum > 50 && is_num(spec_shift)
# Over line 400 is resistance, which doesnt have range info, just points
  1.054  IF           linenum > 400
  1.055  MATH         range = "" ; point = strip(sub(line, 1, 21))
  1.056  ENDIF
#  1.020  RSLT         =[v range], [v point], [v spec_shift]
  1.057  MATH         data_file_header = data_file_header & range & " "
  1.058  MATH         data_file_header = data_file_header & point & ","
  1.059  MATH         data_file_data = data_file_data & spec_shift & ","
  1.060  ENDIF

 


  1.061  ENDIF
  1.062  MATH         linenum = linenum + 1
  1.063  UNTIL        linenum >= linecount
  1.064  MATH         close(filename)

 

 # Actually write the % spec shifts to the datafile.
  1.065  MATH         datafile = "c:\\5700data.csv"
  1.066  IF           not(exists(datafile))
  1.067  MATH         append(datafile, "Date," & data_file_header)
  1.068  ENDIF
  1.069  MATH         append(datafile, date("DD/MM/YY") &"," & data_file_data)
  1.070  MATH         close(datafile)


 # Actually write the % spec shifts to the datafile.
  1.071  MATH         datafile = "z:\\acc\\certified_values\\5700data.csv"
  1.072  IF           not(exists(datafile))
  1.073  MATH         append(datafile, "Date," & data_file_header)
  1.074  ENDIF
  1.075  MATH         append(datafile, date("DD/MM/YY") &"," & data_file_data)
  1.076  MATH         close(datafile)


  1.077  END

 

 

0
Avatar
James Smith

What is in the call routine "checks"?

0
Avatar
James Steeds

The subprocedure "CHECKS" is called at the start of all our procedures.  I guess you can call it our housekeeping procedure.

It stops calibration if any cross checks are due(workstation dependant), generates certificate numbers, ensures the users mobile phone number is known so the procedure can send SMS messages. It also checks to see if temperature and humidity are within tolerance at the start of the procedure.

0
Avatar
CHRIS BURROW

Does anyone have experience in using an ANRITSU VNA model MS46522B in conjunction with fluke Metcal, is it viable to controle and collect data from this VNA using Metcal ?

Does Anyone have a brief procedure they would be willing to share , that would demonstrat its capabilities

Please sign in to leave a comment.