Example COBOL Declaration

The following shows the result of a COBOL declaration. In this example, level 2 was assigned to the record definition.

01 DCLEMPLOYEE. 
  2 E-NO PIC S9(4) COMP. 
  2 LNAME PIC X(10). 
  2 FNAME PIC X(10). 
  2 STREET PIC X(20). 
  2 CITY PIC X(15). 
  2 ST PIC X(2). 
  2 ZIP PIC X(5). 
  2 DEPT PIC X(4). 
  2 PAYRATE PIC S9(13)V9(2) COMP-3. 
  2 COM PIC SV9(2) COMP-3.