Data Definition Language (DDL) Reference Manual

Definition Attributes
Data Definition Language (DDL) Reference Manual—529431-004
6-27
PICTURE
Topics:
•
National Data Items on page 6-28
•
C on page 6-28
•
COBOL on page 6-29
•
FORTRAN on page 6-30
•
Pascal (D-series Systems Only) on page 6-30
•
pTAL and TAL on page 6-30
•
TACL on page 6-31
Example 6-21. PICTURE Clauses Describing ASCII Character Fields
DEF ascii-pictures
02 alpha-field PIC A(10). ! 10 alphabetic characters
02 alphanum-2 PIC X(10). ! 10 alphanumeric characters
02 alphanum-1 PIC AAX(4)9(4). ! 10 alphanumeric characters
02 nat-field PIC N(5). ! 5 2-byte national characters
02 unsigned PIC 9(5). ! 5 unsigned digits
02 signed-1 PIC S9(5). ! 5 digits plus leading sign
02 signed-1 PIC 9(5)S. ! 5 digits plus trailing sign
02 signed-2 PIC T9(5). ! 5 digits plus embedded leading sign
02 signed-3 PIC 9(5)T. ! 5 digits plus embedded trailing sign
02 imp-decimal PIC 9(3)V9(2). ! 5 digits with implied decimal point
END.
Example 6-22. PICTURE Clauses Describing Binary Fields
DEF binary-pictures
02 binary-int PIC 9(4) COMP. ! 2-byte unsigned integer
02 binary-int-s PIC 9S(4) COMP. ! 2-byte signed integer
02 binary-int2 PIC 9(5) COMP. ! 4-byte unsigned integer
02 binary-int2-s PIC S9(5) COMP. ! 4-byte signed integer
02 binary-int4 PIC 9(10) COMP. ! 8-byte unsigned integer
02 binary-int4-s PIC S9(10) COMP. ! 8-byte signed integer
END.