Dictionary/3000 Reference Manual (32244-90001)

272 Chapter7
The Dictionary DICTCDE Utility
Examples of Generated Code
In the next table, the parent element PART-MASTER has the child elements PART1,
PART2, PART3, PART4, PART5, and PART6 related to it. Table 7-2 shows the edit masks
and the correct byte offsets as defined in the Dictionary for the child elements and the
COBOL PICTURE clause generated for those elements.
Code Generated for Standard Parameters
DICTCDE also generates source code for the IMAGE, VPLUS and KSAM standard
parameters. (To generate these standard parameters, see the Parameter response to the
main prompt issued by DICTCDE.)
The IMAGE standard parameters include the DB STATUS array declaration, the eight
MODE declarations, and the utility LIST declarations. The IMAGE parameters are
generated in the WORKING-STORAGE record as follows:
000100
000200 01 STATUS.
000300 05 C-WORD PIC S9(4) COMP.
000400 05 STAT2 PIC S9(4) COMP.
000500 05 STAT3-4 PIC S9(9) COMP.
000600 05 STAT5-6 PIC S9(9) COMP.
000700 05 STAT7-8 PIC S9(9) COMP.
000800 05 STAT9-10 PIC S9(9) COMP.
000900 01 DUMMY-LIST PIC X(2) VALUE "; ".
001000 01 ALL-ITEMS PIC X(2) VALUE "@;".
001100 01 PREVIOUS-LIST PIC X(2) VALUE "*;".
001200 01 MODE1 PIC 9999 COMP VALUE 1.
001300 01 MODE2 PIC 9999 COMP VALUE 2.
001400 01 MODE3 PIC 9999 COMP VALUE 3.
001500 01 MODE4 PIC 9999 COMP VALUE 4.
001600 01 MODE5 PIC 9999 COMP VALUE 5.
Table 7-2. Generating COBOL PICTURE Clauses
ELEMENT EDIT MASK BYTE/
POSITION
COBOL PICTURE Clause
Part1 ^^^^^^/^^^^^^/^^ 1 05 PART1 PIC XXXXXX/XXXXXX/XX.
Part2 ^^^ ^^^ ^^^^ 17 05 PART2 PIC XXXBXXXBXXXX.
Part3 $$$,$$$,$$$.^^ 29 05 PART3 PIC $$$,$$$,$$$.99.
Part4 ZZZ,ZZZ.^^ 43 05 PART4 PIC ZZZ,ZZZ.99.
Part5 ^^,^^^.^^CR 53 05 PART5 PIC 99,999.99CR.
Part6 ^^,^^^.^^DR 64 05 PART6 PIC 99,999.99DB