PRO  pics_set_gratid, id

;++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
;
;*NAME:                 pics_set_gratid
;
;*CATEGORY:             instrument control (provisional utility)
;
;*PURPOSE:              set grating ID in EPICS database to desired value
;
;*CALLING SEQUENCE:     pics_set_gratid, id
;
;*PARAMETERS:           id   =  (0,...,10)
;
;                                0:    -empty-
;                                1:     B1200 
;                                2:     V1200
;                                3:     R1200
;                                4:     I1200
;                                5:     J1200
;                                6:      U600
;                                7:      V600
;                                8:      R600  
;                                9:      U300
;                                10:     V300
;
;
;*EXAMPLES:            pics_set_gratid, id
;
;*SYSTEM VARIABLES USED:
;
;*COMMON BLOCKS:
;
;*INTERACTIVE INPUT:
;
;*SUBROUTINES CALLED:
;
;*FILES USED:
;
;*SIDE EFFECTS:
;
;*RESTRICTIONS:
;
;*NOTES:
;
;*PROCEDURE:
;
;*MODIFICATION HISTORY:
;
;	29/05/02	MMR	initial programming
;          
;*AUTHORS:
;
;	MMR		Martin M. Roth	Astrophysikalisches Institut Potsdam
;					An der Sternwarte 16
;					D-14547 Potsdam  
;					Tel. +49 - 331 - 7499 313
;                                       email: mmroth@aip.de
;-