Cobol Conversion
COBOL PIC Size of n COBOL USAGE No. Bytes VMS Datatype Easysoft Field Easysoft Column
PIC X(n) n <= 65,535 USAGE IS DISPLAY n Ascii Text STRING CHAR
PIC S9(n) n <= 18 USAGE IS DISPLAY

SIGN IS TRAILING

 n Trailing Overpunched Numeric TRAILING-OVERPUNCHED-NUMERIC CHAR
PIC S9(n) n <= 18 USAGE IS DISPLAY

SIGN IS LEADING

 n Leading Overpunched Numeric LEADING-OVERPUNCHED-NUMERIC CHAR
PIC S9(n) n <= 18 USAGE IS DISPLAY

SIGN IS TRAILING SEPARATE

 n+1 Trailing Separate Numeric TRAILING-SIGN-NUMERIC CHAR
PIC S9(n) n <= 18 USAGE IS DISPLAY

SIGN IS LEADING SEPARATE

 n+1 Leading Separate Numeric LEADING-SIGN-NUMERIC CHAR
PIC 9(n) n <= 18 USAGE IS DISPLAY n Unsigned Numeric NUMERIC CHAR
PIC 9(n) n <= 4 USAGE IS COMP 2 Word Integer WORD SMALLINT
PIC 9(n) 5 <= n <= 9 USAGE IS COMP 4 Longword Integer LONGWORD INTEGER
PIC 9(n) 10 <= n <= 18 USAGE IS COMP 8 Quadword Integer QUADWORD DOUBLE
PIC S9(n) n <= 4 USAGE IS COMP 2 Word Integer WORD SMALLINT
PIC S9(n) 5 <= n <= 9 USAGE IS COMP 4 Longword Integer LONGWORD INTEGER
PIC S9(n) 10 <= n <= 18 USAGE IS COMP 8 Quadword Integer QUADWORD DOUBLE
    USAGE IS INDEX 4 Longword Integer LONGWORD INTEGER
    USAGE IS POINTER 4 Longword Integer LONGWORD INTEGER
    USAGE IS COMP-1 4 F_floating F-FLOATING DOUBLE
    USAGE IS COMP-2 8 D_floating D-FLOATING DOUBLE
PIC S9(n) n <= 8 USAGE IS COMP-3 (n+1)/2 rounded up Packed Decimal PACKED-S CHAR
PIC 9(n) n <= 18 USAGE IS COMP-3 (n+1)/2 rounded up Packed Decimal PACKED-U CHAR
PIC S9(n)V9(s) (n+s) <= 18 USAGE IS DISPLAY n+s Trailing Overpunched Numeric TRAILING-OVERPUNCHED-NUMERIC

SCALE=s

 CHAR
PIC S9(n)V9(s) (n+s) <= 18 USAGE IS DISPLAY

SIGN IS TRAILING

 n+s Trailing Overpunched Numeric TRAILING-OVERPUNCHED-NUMERIC

SCALE=s

 CHAR
PIC S9(n)V9(s) (n+s) <= 18 USAGE IS DISPLAY

SIGN IS LEADING

 n+s Leading Overpunch Numeric LEADING-OVERPUNCHED-NUMERIC

SCALE=s

 CHAR
PIC S9(n)V9(s) (n+s) <= 18 USAGE IS DISPLAY

SIGN IS TRAILING SEPARATE

 n+s+1 Trailing Separate Numeric TRAILING-SIGN-NUMERIC CHAR
PIC S9(n)V9(s) (n+s) <= 18 USAGE IS DISPLAY

SIGN IS LEADING SEPARATE

 n+s+1 Leading Separate Numeric LEADING-SIGN-NUMERIC CHAR
PIC 9(n)V9(s) (n+s) <= 18 USAGE IS DISPLAY n+s Unsigned Numeric NUMERIC

SCALE=s

 CHAR
PIC 9(n)V9(s) (n+s) <= 4 USAGE IS COMP 2 Word Integer WORD

SCALE=s

 SMALLINT
PIC 9(n)V9(s) 5 <= (n+s) <= 9 USAGE IS COMP 4 Longword Integer LONGWORD

SCALE=s

 INTEGER
PIC 9(n)V9(s) 10 <= (n+s) <= 18 USAGE IS COMP 8 Quadword Integer QUADWORD

SCALE=s

 DOUBLE
PIC S9(n)V9(s) (n+s) <= 4 USAGE IS COMP 2 Word Integer WORD

SCALE=s

 SMALLINT
PIC S9(n)V9(s) 5 <= (n+s) <= 9 USAGE IS COMP 4 Longword Integer LONGWORD

SCALE=s

 INTEGER
PIC S9(n)V9(s) 10 <= (n+s) <= 18 USAGE IS COMP 8 Quadword Integer QUADWORD

SCALE=s

 DOUBLE
PIC 9(n)V9(s) (n+s) <= 18 USAGE IS COMP-3 (n+s+1)/2 rounded up Packed Decimal PACKED-U

SCALE=s

 CHAR
PIC S9(n)V9(s) (n+s) <= 18 USAGE IS COMP-3 (n+s+1)/2 rounded up Packed Decimal PACKED-S

SCALE=s

 CHAR