一个生成COBOL测试数据的小程序——解释数据中的数据类型

上篇说到Explanation，其实这是分析部分的重点，现在就开始说明一下

COBOL的数据格式常用的就那么几种，9、X、BIT、S9COMP3、9COMP，在用上篇的Analysis处理后，数据声明语句就被分割成了下面这种字符串数组的形式

"05","ＸＸＸ号","PIC","S9 COMP-3","3",OCCURS","2","TIMES"

"05","ＸＸＸＸ種別","PIC","X","1","OCCURS","4","TIMES"

"05","あああ","OCCURS","5","TIMES"

"05","いいい","REDEFINES","ＸＸＸ種別"

上面列举了几种比较难分析的数据类型，在COBOL中由于OCCURS关键字的使用，所以分析时还要考虑后面数据的层数。

于是就有了下面的函数

Function FindOccurs() Function FindOccurs(tmpArr) As Long‘查找OCCURS所在的下标
Dim pos As Long
pos = 0
For i = 0 To UBound(tmpArr)
    If tmpArr(i) = "OCCURS" Then pos = i
Next i
FindOccurs = pos
End Function

Function FindDiffLevel() Function FindDiffLevel(startIndex, occLevel)’查找从STARTINDEX开始，层数与STARTINDEX中不一样的层的下标
Dim flag As Boolean
flag = False
i = startIndex
Do While flag = False
    tmpArr = varData(i)
    If tmpArr(0) = occLevel Then
        flag = True
        i = i - 2
    End If
    If i = varData.Count Then
        flag = True
        i