;**************************************************************************
;+
;*NAME:
;
;    	DELCRCC   Jul. 22, 1994
;  
;*CLASS:
;
;       VMS File utility
;  
;*CATEGORY:
;  
;*PURPOSE:
;
;       To create a new version of the specified input file with 
;       the "carriage return carriage control" record attribute
;       changed to "none" (for vms disk files only).
;  
;*CALLING SEQUENCE:
;
;	DELCRCC,FILE_NAME
;  
;*PARAMETERS:
;
;	FILE_NAME	(REQ) (I) (0) (S)
;       File name with extension (and version if needed).
;       Wild cards accepted.
;  
;*EXAMPLES:
;
;       delcrcc,'lwp12345llg.lab'   ; corrects a .lab file
;       delcrcc,'swp*.dat'          ; corrects all swp .dat files in directory
;
;*SYSTEM VARIABLES USED:
;
;*INTERACTIVE INPUT:
;
;*SUBROUTINES CALLED:
;
;  	
;*FILES USED:
;
;	DELCRCC.COM  
;
;*SIDE EFFECTS:
;
;  
;*RESTRICTIONS:
;
;	For VMS files only.
;  
;*NOTES:
;
;       A new version of the original file is generated.
;
;	tested with IDL Version 2.1.0 (sunos sparc)	18 Jun 91
;	tested with IDL Version 2.1.0 (vms vax)		N/A	
;	tested with IDL Version 2.1.0 (ultrix mipsel)	21 Jun 91
;
;*PROCEDURE:
;
;       DELCRCC.PRO simply calls DELCRCC.COM which uses analyze, edt,
;       and convert to change the record attribute from "CRCC" to
;       "none".
;
;*I_HELP nn:
;  
;*MODIFICATION HISTORY:
;
;       July 22, 1994 RWT version 1
;
;-
;*******************************************************************
 pro delcrcc,file_name
;
 npar = n_params(0)
 if npar eq 0 then begin
    print,'DELCRCC,FILE_NAME'
    retall
 endif  ; napr
 parcheck,npar,[1],'DELCRCC'
;
; check system is vms
;
if (!version.os ne 'vms') then begin
   print,' DELCRCC is only compatible with VMS operating systems'
   print,' action: returning'
   retall
endif
;
; use findfile to search for file(s)
;
flist = findfile(file_name)
nf = n_elements(flist)
print,' '
print,' Modifying record attributes for file: '
;
; call delcrcc.com to change crcc record attribute to none 
; for each file specified
; 
for i=0,nf-1 do begin
   fil = flist(i)
   print,'   ',fil
   runl = '@IUER_EXE:delcrcc ' + fil
;   runl = '@delcrcc ' + fil
   spawn,runl
endfor
;
 return
 end  ; delcrcc