分类：
2009-10-11 11:15:10
因为Tandem系统只允许ftp 传Unstructured File，(Structure File使用ftp时大概
只能传4k而後就会乱掉了)，所以我们必需先将待转文件的File先转成Unstructured File
。而转文件的方式使用ST2US这个程序，它是一个Block Copy的程序，所以速度很快(对
Tandem而言)，40Mb的资料约半个小时可转完。该程序由黄南阳所完成，但有一个小Bug
，目前已由陈威文将之修正，但未Release出来。这个程序只能转固定Occurce的文件，对
於变动Occurce的文件，需在其他的程序做另外的修正。
执行方式：
ST2US /IN SOUR_FILE, OUT OUT_FILE/
该OUT_FILE是一个UNSTRUCTURED FILE要先造出来。
而後才将该文件以ftp传下来
而後进入VB的部份了，
1.填一固定的表格(为单纯的txt File)，格式如下：
field name u len dec tand int dec
==================== = ==== ==== ==== ==== ====
CHRG_CODE C 7 0 C 7 0
FILLER C 1 0 X 1 0
FILLER C 4 0 X 4 0
ITEM_NAME C 25 0 X 25 0
ALIAS_NAME C 5 0 X 5 0
REPORT_FLG C 1 0 X 1 0
SCHED_FLG C 1 0 X 1 0
REP_TP C 1 0 X 1 0
GPAY_RULE C 1 0 X 1 0
LPAY_RULE C 1 0 X 1 0
OPAY_RULE C 1 0 X 1 0
DEL_INV C 1 0 X 1 0
OPER_KIND C 2 0 X 2 0
WORK_UNIT C 4 0 X 4 0
COLL_UNIT C 4 0 X 4 0
FILLER C 1 0 X 1 0
N_PRICE d 10 2 S9C 6 2
L_PRICE d 10 2 S9C 6 2
G_PRICE d 10 2 S9C 6 2
field name 是access表格的Fieldname
u 是Field 的型态
len 是Field的长度，这只在Field是字串是才有用，其他者可不理
dec 不理
tand 是Tandem的资料型态
int 是Tandem的整数长度
dec 是Tandem小数长度
u的型态： tand的型态
c x --> String c x --> PIC X
i --> Integer 9 --> PIC 9
l --> Long s9 --> PIC S9
d --> Double s9c --> PIC S9 COMP
s --> Single 9c --> PIC 9 COMP
@ --> Date
b --> byte
o --> Boolean
$ --> Currency
field name为filler者代表不放入DataBase中
2.执行以下的程序，以产生自动转文件的程序
该程序会依1. 所建立的表格在指定的DataBase中建立一个Table
该Table各个栏位的位置是绝对的，不可乱更动，否则程序会读错
而後依Tandem 的格式与之对应，而自动产生一转文件式
注：DataBase要先建立
3.产生一个Form, 或主程序，将方才产生的程序放进来，方才产生的转文件程序中
有一Sub ProcessRtn()， 只要去呼叫它便自动作转文件。