HEX
*PIC x VALUE X'01'. =>Two hex digits required = 1 byte.
*PIC x(2) VALUE X'1234'.
Levels
*01 rec-a PIC X. => 8 bytes MIN needed
*05 fld-a s9(4) comp-3 value +5.
|00|00|5C => 3 bytes =>odd better; +1 needs to be added, +2 if even
COMP - COMP-4 = COMP = BINARY
*2,4,8 bytes
*s9(4) COMP => 1 to 4=> 2 bytes => 9999 and less
*s9(9) COMP => 5 to 9=> 4 bytes => 999,9999,999 and less
*=>10 to 18=> 8 bytes
Ref Mod
MOVE fld(start:len) to ws.
