MVSFORUMS.com

Kamur · Beginner Joined: 19 Dec 2002 Posts: 4 Topics: 3

We received a vendor flat file and its associated copybook and noticed that all the date fields in the copybook are in X(03) format. When viewed in fileaid it has values showing in hex proper dates. Ex: X'070416' in YY/MM/DD indicates 2007/04/16.

How do I unpack or move it to a proper 9(10) field for display

I need COBOL solution

Thanks

papadi · Supermod Joined: 20 Oct 2009 Posts: 594 Topics: 1

I'm not sure why you want a 9(10) field - you want either a 9(8 ) field or and x(10) field. You also need a rule for which century to use for which year ranges.

One easy way to get what you want is to reference each byte of the x(3) field and convert the value to an "over-under" hex value - so x'07' becomes 2 bytes containing x'F0F7'. There are arithmetic ways to do this, but i've used an array for many, many years.

jsharon1248 · Posted: Mon Aug 09, 2010 10:42 am Post subject:

You could also try using a REDEFINEd field with a couple MOVEs and a DIVIDE. I attached the code, a sample of the input file and the results of the DISPLAYs in the SYSOUT. The end result is that you'll have the date sitting in a COMP-3 field.

[code:1:f82f960f00]
01 DATE-CONV-AREA.
05 DATE-PARTS.
10 DATE-PART-1 PIC X(03).
10 DATE-PART-2 PIC S9(01) COMP-3.
05 CONVERTED-DATE REDEFINES DATE-PARTS
PIC S9(07) COMP-3.

01 INFLE-WORK-REC.
03 INFLE-DATE PIC X(10).
03 FILLER PIC X(01).
03 INFLE-DATE-2 PIC X(03).

0300-CONVERT-DATE.
DISPLAY '0300- START'
IF INFLE-DATE-2 > LOW-VALUES AND INFLE-DATE-2 NOT = SPACES
MOVE INFLE-DATE-2 TO DATE-PART-1
MOVE +0 TO DATE-PART-2
IF CONVERTED-DATE NUMERIC
DISPLAY 'DATE BEFORE DIVIDE: ' CONVERTED-DATE
COMPUTE CONVERTED-DATE = CONVERTED-DATE / +10
DISPLAY ' DATE AFTER DIVIDE: ' CONVERTED-DATE
ELSE
DISPLAY 'NON-NUMERIC DATE'
END-IF
ELSE
DISPLAY 'NO DATE VALUE TO CONVERT'
END-IF
DISPLAY '0300- END'
.
0300-EXIT. EXIT.

2007-04-16
FFFF6FF6FF4001444444444444
20070040160746000000000000
--------------------------

0300- START
DATE BEFORE DIVIDE: 0704160
DATE AFTER DIVIDE: 0070416
0300- END

1998-01-01 q
FFFF6FF6FF4900444444444444
19980010010811000000000000
--------------------------

0300- START
DATE BEFORE DIVIDE: 9801010
DATE AFTER DIVIDE: 0980101
0300- END

2010-08-27
FFFF6FF6FF4444444444444444
20100080270000000000000000
--------------------------

0300- START
NO DATE VALUE TO CONVERT
0300- END

2010-08-09
FFFF6FF6FF4000444444444444
20100080090000000000000000
--------------------------

0300- START
NO DATE VALUE TO CONVERT
0300- END

2009-12-31
FFFF6FF6FF4013444444444444
20090120310921000000000000
--------------------------

0300- START
DATE BEFORE DIVIDE: 0912310
DATE AFTER DIVIDE: 0091231
0300- END

2008-10-26

kolusu · Posted: Mon Aug 09, 2010 12:25 pm Post subject:

Kamur,

I am late to the party but isn't it a simple tasking of padding binary zeroes infront and a sign at the end?.

Take the 3 digit input date and make it a 5 byte PD field with sign at the end. Now convert the pd field to numeric field of 10 bytes. Now use the function DATE-TO-YYYYMMDD on the numeric field of 6 bytes.

Untested code