OpenVMS Source-Code Demos

mysql_import_helper_basic_template_107_part1

	!
	! start of template 1/3
	!11111111111111111111111111111111111111111111111111111111111111111111111
	!=======================================================================
	! file   : mysql_import_helper_basic_template_107_part1.bas
	! author : Neil Rieck
	! history:
	! 100 NSR 140708 1. original effort
	! 106 NSR 170314 1. adding true unicode support
	!	  170316 2. more work					ver_106.3
	! 107 NSR 200106 1. modified code to do better unicode data conversion to ISO (picking up new modules)
	!		 2. changed the default datatype from UTF-8 to CP1252
	!     NSR 200107 3. modified code to do better unicode data conversion to CP1252 (picking up new modules)
	!         200108 4. disabled "set character-set='latin1';" (now do something similar in "load data")
	!	  200109 5. a few more changes after a good night's sleep (I'm now dreaming in code again)		bf_107.5
	!=======================================================================
	option type=explicit							! no kid's stuff
	external string function cleanup(string, long)				! ver_106.3
	declare  string constant htab = '9'C					! <tab>
	declare  string delim$, my_file$, fs_i$, fs_o$				!
	declare  long   handler_error%, count_i%, count_o%, requested_datatype%	!
	declare  long   limit_i%						!
	!
	delim$ = htab								!
	fs_i$ = "csmis$dat:whatever.dat"					! change as required
	!11111111111111111111111111111111111111111111111111111111111111111111111
	! end of template 1/3
	!