一个生成COBOL测试数据的小程序——分析COBOL中数据声明的语句

一般开发中，我们都使用COPY句导入记录的数据结构（以下简称COPY句），所以写这个小程序时肯定会涉及到COPY句的分析。

所以挽起袖子，来做最基础的

000100     03  レコード.
000200       05  レコード種別                  PIC  9(3).
000300       05  ＸＸ番号                      PIC  9(4)   COMP.
000400       05  ＸＸ番号           
000500           PIC  S9(3)  COMP-3.
000600       05  ＸＸＸ種別                    PIC  N(10).
000700       05  ＸＸＸ号                      PIC  S9(3)  COMP-3 OCCURS 2 TIMES.
000800       05  ＸＸＸＸ種別                  PIC  X(1)   OCCURS 4 TIMES..
000900       05  ＸＸＸ番号                    PIC  S9(3)  COMP-3.
001000       05  レコード識別情報              PIC  S9(1)  COMP-3.
001100       05  ＳＷＸＸＸ１                  PIC  1(1)   BIT.
001200       05  ＳＷＸＸＸ２                  PIC  1(1)   BIT.
001300       05  ＳＷＸＸＸ３                  PIC  1(1)   BIT.
001400       05  あき０４                      PIC  1(1)   BIT.
001500       05  あき０５                      PIC  1(1)   BIT.
001600       05  あき０６                      PIC  1(1)   BIT.
001700       05  あき０７                      PIC  1(1)   BIT.
001800       05  あき０８                      PIC  1(1)   BIT.
001900       05  あああ OCCURS 5 TIMES.
002000           07  はは                      PIC  X(1).
002100           07  わわ                      PIC  X(2).
002200       05  いいい REDEFINES ＸＸＸ種別.
002300           07  らら                      PIC  X(20).
002400       05  ＸＸＸＸＸＮＯ                PIC  S9(05) COMP-3.

以上是一个COPY句的例子，这个例子基本上包括了所有常用的数据类型和常见的情况，可以拿这个来测试分析的是否正确。

通过例子可以观察到，前7列都是无用的，所以可以先将前面7列切掉。而COBOL的语句是以句点为结尾，所以在COBOL中可以尽情的换行、折行，这样分析语句时也就应该是以句点作为结束。

至于怎么来分析数据类型，还是先把语句读出来并处理成一个好的格式再说吧……

基本思想是这样，读一行，先把多余的空格去掉，让每段描述符之间都只有一个空格。如果遇到句点，用SPLIT把语句按空格分块，保存到一个String数组里，然后把String数组塞到一个Collection中，OK，这样一条记录就处理完毕。

代码如下：

 

Public Sub Analysis(file As String)
Dim Data As String
Dim temp As String
Dim flag, flagEnd As Long
Set varData = New Collection
Open file For Input As #1
flagEnd = 0
temp = ""
flag = 0
Do Until EOF(1)
    Line Input #1, Data
    If Trim(Data) <> "" Then
        If Mid(Data, 7, 1) = "*" Then
                
        Else
            Data = Right(Data, Len(Data) - 7)
            For i = 1 To Len(Data)
                oneChar = Mid(Data, i, 1)
                If oneChar <> " " Then
                    If oneChar = "." Then
                        flagEnd = 1
                    Else
                        If temp <> Chr(13) Then
                            temp = temp & oneChar
                            flag = 0
                        End If
                    End If
                Else
                    If flag = 0 And temp <> "" Then
                        temp = temp & " "
                        flag = 1
                    End If
                End If
            Next i
        End If
        If temp <> "" And flagEnd = 1 Then
            tmpArr = Split(temp, " ")
            varData.Add tmpArr
            temp = ""
            flagEnd = 0
            flag = 0
        End If
    End If
Loop
Close #1
Explanation
End Sub

 

Explanation是啥？是分析数据格式的一个过程，改天写分析数据格式时再说明，呵呵。

つづく