# Coding a 3-diminsional array **URL:** \ **Category:** Forum\ **Tags:** Adabas-Natural, Natural, Natural-on-Mainframes\ **Created:** [January 25, 2007, 1:06am UTC](https://techcommunity.softwareag.com/t/coding-a-3-diminsional-array/61875 "2007-01-25T01:06:33Z")\ **Posts on this page:** 4\ **Page:** 1
**Author:** ![Sheryl](https://avatars.discourse-cdn.com/v4/letter/s/ce7236/32.png) [@Sheryl](https://techcommunity.softwareag.com/u/Sheryl)\ **Post date:** [January 25, 2007, 1:06am UTC](https://techcommunity.softwareag.com/t/coding-a-3-diminsional-array/61875/1 "2007-01-25T01:06:33Z")
What is the syntax of coding a 3-Diminsional array in Natrual 4.1? ---
**Author:** ![Daniel\_Wilson](https://avatars.discourse-cdn.com/v4/letter/d/94ad74/32.png) [@Daniel\_Wilson](https://techcommunity.softwareag.com/u/Daniel_Wilson)\ **Post date:** [January 25, 2007, 2:49am UTC](https://techcommunity.softwareag.com/t/coding-a-3-diminsional-array/61875/2 "2007-01-25T02:49:18Z")
To define a group with three dimensions of 5 x 20 x 20: ```auto 01 GROUP-ARRAY (1:5,1:20,1:20) 02 FIELD-ONE (A20) 02 FIELD-TWO (A20) ``` To define a single field: ```auto 01 FIELD-ARRAY (A20/1:5,1:20,1:20) ``` ---
**Author:** ![Matthias1](https://avatars.discourse-cdn.com/v4/letter/m/9fc348/32.png) [@Matthias1](https://techcommunity.softwareag.com/u/Matthias1)\ **Post date:** [January 25, 2007, 2:04pm UTC](https://techcommunity.softwareag.com/t/coding-a-3-diminsional-array/61875/3 "2007-01-25T14:04:16Z")
Nested structures are also possible: ```auto define data local 01 GROUP-ARRAY (1:5) 02 FIELD-ONE (A20) 02 GROUP-ARRAY2 (1:20) 03 FIELD-ARRAY (A20/1:20) init (5,20,20) <'test'> end-define write field-array(5,20,20) end ``` ---
**Author:** ![system](https://global.discourse-cdn.com/techcommunity/original/3X/c/d/cd19967bb605d28a72d77eb83a1cae22f3df2eb8.svg) [@system](https://techcommunity.softwareag.com/u/system)\ **Post date:** [April 2, 2021, 2:41pm UTC](https://techcommunity.softwareag.com/t/coding-a-3-diminsional-array/61875/4 "2021-04-02T14:41:01Z")