01 a PIC 9.
01 b PIC 99.
01 c PIC 999.
01 s PIC X(4).
01 record-group.
05 field-a PIC 9.
05 field-b PIC 99.
05 field-c PIC 999.
01 display-record.
05 field-a PIC Z.
05 field-b PIC ZZ.
05 field-c PIC $Z9.
*> numeric fields are moved left to right
*> a set to...
