Advanced Tables One Dimension Table 01 Jeans Table

Advanced Tables.

One Dimension Table. 01 Jeans. Table.

One Dimension Table. 1 2 3 4 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 03 Sales. Value PIC 9(8)V 99. 03 Num. Sold PIC 9(7).

One Dimension Table. 1 2 3 4 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 03 Sales. Value PIC 9(8)V 99. 03 Num. Sold PIC 9(7). 12346. 99 309 Province Sales. Value Num. Sold

Two Dimension Table. 1 2 3 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 4

Two Dimension Table. 1 1 2 2 1 3 2 1 4 2 1 2 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 03 Gender OCCURS 2 TIMES. 04 Sales. Value PIC 9(8)V 99. 04 Num. Sold PIC 9(7).

Three Dimension Table. 1 2 3 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 4

Three Dimension Table. 1 1 2 2 1 3 2 1 4 2 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 03 Gender OCCURS 2 TIMES. 1 2

Three Dimension Table. 1 1 1 2 3 2 2 1 3 2 1 4 2 1 2 3 1 2 3 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 03 Gender OCCURS 2 TIMES. 04 Colour OCCURS 3 TIMES.

Three Dimension Table. 1 1 1 2 3 2 2 1 3 2 1 4 2 1 2 3 1 2 3 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 03 Gender OCCURS 2 TIMES. 04 Colour OCCURS 3 TIMES. 05 Sales. Value PIC 9(8)V 99. 05 Num. Sold PIC 9(7). 12346. 99 Sales. Value Colour 309 Num. Sold

Record Elements. 1 1 2 2 1 2 3 1 3 2 1 2 3 1 4 2 1 2 3 1 2 3 01 Jeans. Table. 02 Province OCCURS 4 TIMES. 03 Provice. Total PIC 9(8). 03 Gender OCCURS 2 TIMES. 04 Colour OCCURS 3 TIMES. 05 Sales. Value PIC 9(8)V 99. 05 Num. Sold PIC 9(7).

The Redefines Clause. Rates 1 2 . 3 4 5 01 Rates. 02 10 Rate PIC 99 V 999. 02 100 Rate REDEFINES 10 Rate PIC 999 V 99. 02 1000 Rate REDEFINES 10 Rate PIC 9999 V 9.

The Redefines Clause. Rates 1 2 3 . 4 5 01 Rates. 02 10 Rate PIC 99 V 999. 02 100 Rate REDEFINES 10 Rate PIC 999 V 99. 02 1000 Rate REDEFINES 10 Rate PIC 9999 V 9.

The Redefines Clause. Rates 1 2 3 4 . 5 01 Rates. 02 10 Rate PIC 99 V 999. 02 100 Rate REDEFINES 10 Rate PIC 999 V 99. 02 1000 Rate REDEFINES 10 Rate PIC 9999 V 9.

The Redefines Clause. Euro. Date Euro. Day Euro. Month Euro. Year Hold. Date 11 06 USDay USMonth USDate 1983 USYear 01 Hold. Date. 02 Euro. Date. 03 Euro. Day PIC 99. 03 Euro. Month PIC 99. 03 Euro. Year PIC 9(4). 02 USDate REDEFINES Euro. Date. 03 USMonth PIC 99. 03 USDay PIC 99. 03 USYear PIC 9(4).

Creating Pre-filled Tables 01 Letter. Table. 02 Table. Values.

Creating Pre-filled Tables A B C D E F G H I J 01 Letter. Table. 02 Table. Values. 03 FILLER PIC X(13) VALUE "ABCDEFGHIJKLM". 03 FILLER PIC X(13) VALUE "NOPQRSTUVWXYZ". K L

Creating Pre-filled Tables A B C D E F G H I J K L 01 Letter. Table. 02 Table. Values. 03 FILLER PIC X(13) VALUE "ABCDEFGHIJKLM". 03 FILLER PIC X(13) VALUE "NOPQRSTUVWXYZ". 02 FILLER REDEFINES Table. Values. 03 Letter PIC X OCCURS 26 TIMES.

Two Dimension Table of Values. 50 75 90 75 85 95 35 43 65 40 60 85 01 Bonus. Table. 02 Bonus. Values. 03 FILLER PIC X(24) VALUE "507590758595354365406085".

Two Dimension Table of Values. 1 50 75 2 90 75 85 95 3 4 35 43 65 40 60 85 01 Bonus. Table. 02 Bonus. Values. 03 FILLER PIC X(24) VALUE "507590758595354365406085". 02 FILLER REDEFINES Bonus. Values. 03 Province OCCURS 4 TIMES.

Two Dimension Table of Values. 1 1 2 50 75 2 3 90 1 2 3 3 75 85 95 1 2 4 3 1 2 3 35 43 65 40 60 85 01 Bonus. Table. 02 Bonus. Values. 03 FILLER PIC X(24) VALUE "507590758595354365406085". 02 FILLER REDEFINES Bonus. Values. 03 Province OCCURS 4 TIMES. 04 Bonus OCCURS 3 TIMES PIC 99.

COBOL 85 Table Changes. u Creating pre-filled tables without the REDEFINES clause. 01 Day. Table VALUE "Mon. Tue. Wed. Thr. Fri. Sat. Sun". 02 Day OCCURS 7 TIMES PIC X(3). u Initializing Tables with values. 01 Tax. Table. 02 County OCCURS 32 TIMES. 03 County. Tax PIC 9(5) VALUE ZEROS. 03 County. Name PIC X(12) VALUE SPACES.