Chapter 5
5-50
01 NEW-DATA.
05 NEW-KEY-VALUE PIC X(8).
05 FILLER PIC X(20).
05 NEW-QTY PIC S9(9) COMP.
05 FILLER PIC X(100).
01 OUR-FILE.
05 OUR-FILE-NAME PIC X(8) VALUE "BIGDB".
05 OUR-GROUP PIC X(8) VALUE "DATA".
05 OUR-ACCOUNT PIC X(8) VALUE "ACCT".
