*Data item to hold database name.
##   01 DBNAME       PIC X(9) VALUE IS "Personnel".

* Scaled data
##   01 SALARY       PIC S9(8)V9(2) USAGE COMP.
##   01 MONEY        PIC S999V99 USAGE COMP-3.
 
* Array of numerics
##   01 NUMS. 
##       02 NUM-ARR            PIC S99 OCCURS 10 TIMES.

* Record of a full name and a redefinition of its parts.
##   01 NAME-REC.
##       02 FULL-NAME          PIC X(20).
##       02 NAME-PARTS REDEFINES FULL-NAME.
##          03 FIRST-NAME     PIC X(8).
##          03 MIDDLE-INIT    PIC X(2).
##          03 LAST-NAME      PIC X(10).

* Record for fetching and displaying.
#  # 01 OUT-REC.
##       02 FILLER   PIC X(15) VALUE "Value fetched: ".
##       02 FROM-DB  PIC S9(4) USAGE DISPLAY.

* Miscellaneous attributes (some declaration clauses are 
* ignored by preprocessor)
##   01 SALES-TOT         PIC S9(6)V99 SIGN IS TRAILING.

##   01 SYNC-REC.
##       02 NUM1          PIC S99 USAGE COMP SYNCHRONIZED.
##       02 FILLER        PIC X VALUE SPACES.
##       02 NUM2          PIC S99 USAGE COMP SYNCHRONIZED.

##   01 RIGHT-ALIGN       PIC X(30) JUSTIFIED RIGHT.

##   01 NUM-OUT  PIC S99V99 USAGE DISPLAY BLANK WHEN ZERO.

##      DECLARE. 

* Data item to hold database name.
##   01 DBNAME       PIC X(9) VALUE IS "Personnel".

* Scaled data
##   01 SALARY       USAGE COMP-1.
##   01 MONEY        PIC S999V99 USAGE COMP-3.
 
* Array of numerics
##   01 NUMS. 
##       02 NUM-ARR         PIC S99 OCCURS 10 TIMES.

* Record of a full name and a redefinition of its parts.
##   01 NAME-REC.
##       02 FULL-NAME           PIC X(20).
##       02 NAME-PARTS REDEFINES FULL-NAME.
##           03 FIRST-NAME    PIC X(8).
##           03 MIDDLE-INIT   PIC X(2).
##           03 LAST-NAME     PIC X(10).

* Record for fetching and displaying.
##   01 OUT-REC.
##       02 FILLER    PIC X(15) VALUE "Value fetched: ".
##       02 FROM-DB   PIC S9(4) USAGE DISPLAY.

* Miscellaneous attributes (ignored by preprocessor)
##   01 SALES-TOT        PIC S9(6)V99 SIGN IS TRAILING.

##   01 SYNC-REC.
##       02 NUM1       PIC S99 USAGE COMP SYNCHRONIZED.
##       02 FILLER     PIC X VALUE SPACES.
##       02 NUM2       USAGE COMP-2 SYNCHRONIZED.

##   01 RIGHT-ALIGN    PIC X(30) JUSTIFIED RIGHT.

##   01 NUM-OUT  PIC S99V99 USAGE DISPLAY BLANK WHEN ZERO.
##      DECLARE.