Hello

I have a Month field in I2 and I converted it to A2.
I have a Year field which is in YYMDy format. I am trying to convert it to A4 with no luck.

Can anyone suggest how to convert it to A4?

Thanks

This message has been edited. Last edited by: WebFOCUS_Dev,

Do you mean YYMD? If so, are you just trying to extract the YY out of this field?

https://webfocusinfocenter.inf...ng/source/dtpart.htm

quote:

Originally posted by BabakNYC:
Do you mean YYMD? If so, are you just trying to extract the YY out of this field?

https://webfocusinfocenter.inf...ng/source/dtpart.htm

I have another year field which is in I4. I need to convert it to A4. EDIT is not working. FTOA is giving comma.

To convert a number to character use DIGITS. https://webfocusinfocenter.inf...er/source/digits.htm

 

DEFINE FILE WF_RETAIL_LITE
MEAS1/I8=-123.45;
DIG1/A6=DIGITS(MEAS1,6) ;
DIG2/A6=DIGITS(ID_PRODUCT,6) ;
END
TABLE FILE WF_RETAIL_LITE
PRINT MEAS1 DIG1 
ID_PRODUCT DIG2  
BY PRODUCT_SUBCATEG
WHERE PRODUCT_SUBCATEG EQ 'Flat Panel TV'
ON TABLE SET PAGE NOPAGE
END 

Or you can also do something similar to this

DEFINE FILE abc
YRX /A4 = LJUST(4, FPRINT(MyYr, 'I4', 'A6'), 'A4');
END

Direct conversions to get A4 should work, as in the example below. There is no need to call any subroutine.

DEFINE FILE CAR
MYYR/YYMDy WITH COUNTRY = &YYMD ;
MYYMD/YYMD WITH COUNTRY = &YYMD ;
MYYY/YY = MYYR ;
MYIYY/I4 = MYYY ;
MYAI/A4 = EDIT(MYIYY) ;
MYYA/A4YY = MYYR ;
END
-RUN
TABLE FILE CAR
PRINT MYYMD MYYR MYYY MYIYY MYAI MYYA
IF RECORDLIMIT EQ 1
END
-RUN

 PAGE     1
 
 
 MYYMD       MYYR  MYYY  MYIYY  MYAI  MYYA                                     
 -----       ----  ----  -----  ----  ----                                     
 2018/11/05  2018  2018   2018  2018  2018

quote:

Originally posted by WebFOCUS_Dev:

quote:

Originally posted by BabakNYC:
Do you mean YYMD? If so, are you just trying to extract the YY out of this field?

https://webfocusinfocenter.inf...ng/source/dtpart.htm

I have another year field which is in I4. I need to convert it to A4. EDIT is not working. FTOA is giving comma.

Try using PTOA instead of FTOA. Since this function is Packed To Alpha you need to say that the format is a P4 not an I4 in the second parameter.

  
DEFINE FILE CAR
YEAR_I4/I4 WITH COUNTRY = DTPART('&YYMD', YEAR) ;
YEAR_A4/A4=PTOA(YEAR_I4, '(P4)', 'A4')
END
TABLE FILE CAR
PRINT YEAR_I4 YEAR_A4
WHERE RECORDLIMIT EQ 1;
END