My favorites | Sign in
Project Logo
                
Search
for
Updated Jun 26, 2009 by fady.mou...@gmail.com
Labels: Phase-Requirements, Featured
PLIToCOBOLTypeConversion  
Type by type conversion table.

PLI COBOL
FIXED BINARY(15,0) PIC S9(4) COMP-5
FIXED BINARY(31,0) PIC S9(9) COMP-5
FIXED BINARY(63,0) PIC S9(18) COMP-5
FIXED BINARY(16,0) UNSIGNED PIC 9(4) COMP-5
FIXED BINARY(32,0) UNSIGNED PIC 9(9) COMP-5
FIXED BINARY(64,0) UNSIGNED PIC 9(18) COMP-5
FLOAT BINARY(21) COMP-1
FLOAT BINARY(53) COMP-2
FLOAT DECIMAL(6) COMP-1
FLOAT DECIMAL(16) COMP-2
FIXED DECIMAL(n,m) PIC S9(n-m)V9(m) PACKED-DECIMAL
CHARACTER(n) PIC X(n)
GRAPHIC(n) PIC G(n) DISPLAY-1
WIDECHAR(n) PIC N(n)
PLISTRING CHAR(n) VARYING 01 PLISTRING. 02 LEN PIC 9(4) BINARY. 02 CHAR PIC X OCCURS 1 TO n DEPENDING ON LEN.
PICTURE '(n)9' PIC 9(n)
PICTURE 'S9(n)V9(m)' PIC S9(n)V9(m) SIGN SEPARATE LEADING
PICTURE '9(n)V9(m)S' PIC S9(n)V9(m) SIGN SEPARATE
PICTURE 'T9(n)V9(m)' PIC S9(n+1)V9(m) LEADING
PICTURE '9(n)V9(m)T' PIC S9(n)V9(m+1)
DIMENSION (n) OCCURS n
DIMENSION (n:m) OCCURS m-n+1
DIMENSION (n REFER(X)) OCCURS n DEPENDING ON X
DIMENSION (n,m) OCCURS nxm


Sign in to add a comment
Hosted by Google Code