File Management - IBM

Year 2000 support: date, time, and timestamp considerations
The CPYF and CPYFRMQRYF commands support the PACKED (P), ZONED (S),
and CHARACTER (A) datatypes that have a DATFMT keyword specified in a
logical file.
The copy converts data from or to a format implied by the length of a ZONED or
PACKED field and the current job’s DATFMT specification. Copy already supports
ZONED fields with length 5,0 or 6,0 (depending on the current job DATFMT)
from/to DATE fields.
FMTOPT(*MAP) allows copying between DATE field types and PACKED, ZONED,
and CHARACTER field types in a logical or physical file provided the lengths,
formats, and values can be converted. FMTOPT(*MAP) is required in these cases
for conversion to the to-field type (and format and separator if it applies). There
are rules as to what form and length these field types must be in (dependent on
the current job’s DATFMT) for successful conversions.
New conversion possibilities exist for when you are:
v “Copying FROM logical file ZONED, CHARACTER, or PACKED field (with a
DATFMT) TO a DATE field in a physical to-file”.
v “Copying FROM or TO a ZONED or PACKED field (that has no DATFMT) TO
or FROM a DATE type field” on page 132.
You also should know the system’s restrictions on the conversions for Year 2000
support. See “Restrictions for Year 2000 support” on page 134 for more information.
The conversions involving CHARACTER fields from/to DATE fields do not
change from existing support except that the logical file CHARACTER fields
having a DATFMT specified are copied to a DATE field in a physical to-file. The
system correctly converts the data.
Copying FROM logical file ZONED, CHARACTER, or PACKED
field (with a DATFMT) TO a DATE field in a physical to-file
130 File Management V4R5
For these mappings, the format of the from-field is specified and is explicitly
converted to the to-file DATE fields. These copies are single directional only:
FROM the logical file ZONED, PACKED, or CHARACTER field TO a physical file
DATE field.
The system allows century digit (C) in some of the forms. When the (C) value is 0,
the system assumes the year is in the 1900s. When the (C) value is 1, the system
assumes the year to be in the 2000s.
FLD TYPE DATFMT SPECIFIED
FIELD
LENGTH
COPY DATA TYPE FORMAT
ZONED (*MY) 4,0 —> DATE (any)
ZONED (*YM) 4,0 —> DATE (any)
ZONED (*MYY) 6,0 —> DATE (any)
ZONED (*YYM) 6,0 —> DATE (any)
(*JUL) 5,0 —> DATE (any)
ZONED 1