Year 2000 Conversion with Builtin Functions in ADS
The following is a problem faced by a client in Finland in recent days:
We are using substring and concatenate built-in-functions in ads to
manipulate date fields. When changing 9(6) date fields using builtin function
substring and concat, leading zeroes are converted to blanks producing erraneous results. For example,
yymmdd to ddmmyy change from '000909' gives '09 9 ', when result fields is x(6).
When result field is 9(6) then result is '000009'. This happens even
with cobol moves=yes option.
ads statement :
move
con(sub(w-date,5,2),
sub(w-date,3,2),sub(w-date,1,2))
to w-date2
where w-date Pic 9(6).
We found that ads performs leading zero suppression before giving the field
to substring function, because it moves w-date to another location
without following cobol moves=yes rules
Basic need is to convert date handling in ads dialogs to year 2000
compatible with minimum effort, without changing date field formats,
only changing cobol moves option in ADSC to yes.
[Continued on the next column on the right]
|
case 1:
MOVE '000909' TO W-DATE.
MOVE
CON(SUBS(W-DATE,5,2),
SUBS(W-DATE,3,2),
SUBS(W-DATE,1,2))
TO W-DATE2.
On gets '09 9 '
--------------------------------
Case 2:
MOVE '000909' TO W-DATE1.
MOVE
CON(SUBS(W-DATE1,5,2),
SUBS(W-DATE1,3,2),
SUBS(W-DATE1,1,2))
TO W-DATE.
One gets '000009'
The fields used are
02 W-DATE
PICTURE IS 9(6)
02 W-DATE1
PICTURE IS X(6)
02 W-DATE2
PICTURE IS X(6)
One Technician proposed the following solutions:
1. Use translate function
MOVE '000909' TO W-DATE. <----the field is 9(6)
MOVE
TRANS(CON(SUBS(W-DATE,5,2),
SUBS(W-DATE,3,2),SUBS(W-DATE,1,2)),'0',' ')
TO W-DATE2. MOVE W-DATE2 TO WS-X6.
The above works allright and will give the result as '090900'.
2.
another might be to use the input x(6),
after moving the date in 9(6) field to x(6) field.
Again you might want to do the things with least possible coding and
errors.
3. Third option which is not yet investigated is the usage of DATECHG bifs.
Has anyone any other solution?
20/Oct/97 Update A senior technician informs us that DATECHG bif also can be used. We' ll have the details in a few days.
|
