DFHJS2LS 中可变的元素数组

本示例说明了出现正好三次的元素：

"properties":
   {"component": 
        {
          "type": "array",
          "maxItems": 3,
          "minItems": 3,
          "items": 
              {
                "type": "string",
                "maxLength": 8
               }
          }
      },
"required": ["component"]

在本示例中，事先已知道元素的出现次数，因此可以在简单的 COBOL 声明中将其表示为固定长度的数组，或者表示为其他语言中的对等项。

05 component PIC X(8) OCCURS 3 TIMES

本示例说明了可出现 1 到 5 次的必需元素：

"properties":
   {"component": 
        {
          "type": "array",
          "maxItems": 5,
          "minItems": 1,
          "items": 
             {
               "type": "string",
               "maxLength": 8
              }
         }
    },
"required": ["component"]

主数据结构包含两个字段的声明。 当 CICS 将 JSON 数据转换为二进制数据时，第一个字段 component-num 包含元素在 JSON 数据中出现的次数，第二个字段 component-cont 包含容器的名称:

05 component-num PIC S9(9) COMP-5
05 component-cont PIC X(16)

第二个数据结构包含对此元素自身的声明：

01 DFHJS-component
02 component PIC X(8)

如果 minItems="0" 或缺少 maxItems="1" ，那么该元素是可选的。 要处理应用程序中的数据结构，必须检查 component-num 的值:

• 如果为零，那么消息没有组件元素，并且未定义 component-cont 的内容。
• 如果为 1，那么组件元素在 component-cont 中所指定的容器内。

在映射级别 2.1 及更高版本上，可以在 CICS 助手中使用 INLINE-MAXOCCURS-LIMIT 参数。 INLINE-MAXOCCURS-LIMIT 参数指定用来处理可变数量的元素的方式。 不同数量的元素的映射选项是基于容器的映射，如 示例 2 中所述。 映射级别 2 和更低 或内联映射的元素数量不同。 该参数的值可以是范围 0 - 32767 中的一个正整数：

• INLINE-MAXOCCURS-LIMIT 的缺省值为 1，该值确保可选元素进行内联映射。
• INLINE-MAXOCCURS-LIMIT 参数的值 0 会阻止内联映射。
• 如果 maxItems 小于或等于 INLINE-MAXOCCURS-LIMIT 的值，那么将使用内联映射。
• 如果 maxItems 大于 INLINE-MAXOCCURS-LIMIT 的值，那么将使用基于容器的映射。

映射不同数量的元素内联将生成一个数组 (如上面的固定实例示例) 和一个计数器。 component-num 字段指示存在多少个元素实例，并且数组指向这些实例。 对于 示例 2 中显示的示例。 映射级别 2 和更低级别的元素数量不同，当 INLINE-MAXOCCURS-LIMIT 小于或等于 5 时，生成的数据结构如下所示:

05 component-num PIC S9(9) COMP-5 SYNC.
05 component OCCURS 5 PIC X(8).

此示例说明了一个名为 "component2" 的可选元素，该元素嵌套在名为 "component1" 的必需元素中，其中该必需元素可以出现 1 到 5 次:

"properties":
   {"component1": 
        {
          "type": "array",
          "maxItems": 5,
          "minItems": 1,
          "items": 
             {
               "type": "object",
               "properties":
                  {"component2":
                       {
                         "type": "string",
                         "maxLength": 8
                        }
                    },
                 "required": ["component2"]
                }
           }
    },
"required": ["component1"]

顶级数据结构与先前这些示例中的完全相同：

05 component1-num PIC S9(9) COMP-5
05 component1-cont PIC X(16)

但是，第二个数据结构包含以下元素：

01 DFHJS-component1
02 component2-num PIC S9(9) COMP-5
02 component2-cont PIC X(16)

第三级结构包含以下元素：

01 DFHJS-component2
02 component2 PIC X(8)

为说明此结构，请考虑与以下示例匹配的 JSON 数据片段：

{"component1":
    [
      {"component2": "string1"},
      {"component2": "string2"},
     ]
}

在顶级数据结构中， component1-num 包含值 3。 component1-cont 中指定的容器具有三个 DFHJS-component1实例:

1. 在第一个中，component2-num 的值为 1，而 component2-cont 中指定的容器保存 string1。
2. 在第二个中，component2-num 的值为 1，而 component2-cont 中指定的容器保存 string2。
3. 在第三个中，component2-num 的值为 0，并且 component2-cont 的内容未定义。

在该实例中，完整的数据结构通过共计四个容器来表示：

• 容器 DFHJS-DATA 中的根数据结构。
• component1-cont 中指定的容器。
• component2-cont 的前两个实例中指定的两个容器。

此示例显示了两个字段，一个是必需的，称为 "required-structure" ，另一个是可选的，称为 "optional-structure":

{
  "type": "object",
  "properties": 
     {"required-structure": 
          {
            "type":"string",
            "maxLength": 8
           },
        "optional-structure": 
           {
             "type":"string",
             "maxLength": 8
            }
       },
   "required": 
      ["required-structure"]
}

生成的 COBOL 结构显示两个字段，第二个字段带有 "optional-structure-num" 前缀，此前缀是元素的整数计数，0 表示无，1 表示存在。 设置该值是为了指示 "optional-structure" 是否包含有效数据。

03 OutputData.
06 required-structure PIC X(8).
06 optional-structure-num PIC S9(9) COMP-5 SYNC.
06 optional-structure PIC X(8).