[SOLVED] DECODE AND TRIM trailing Space

January 02, 2018, 02:10 PM

v_ani

Please see the below code.I am trying to "Trim" extra Trailing space for Example For Month "May" OR "June" or "March" or "April" or "July". I searched on the forum Decode and trim fn, I could n't find solution yet. I appreciate any one have thought on this issue....

TABLE FILE PM
PRINT 
COMPUTE SDATE2/A10 = DECODE SDATE1( 01 'January' 02 'February' 03 'March' 04 'April' 05 'May' 06 'June' 07 'July' 08 'August' 09 'September' 10 'October' 11 'November' 12 'December' ELSE 'UNKNOWN' ); 
HEADING
"SDATE2"
END

Thank you

This message has been edited. Last edited by: FP Mod Chuck,

January 02, 2018, 02:29 PM

Cimmerian

Couldn't you just create a second compute and use the TRIM function?

TABLE FILE PM
PRINT
COMPUTE SDATE2/A10 = DECODE SDATE1( 01 'January' 02 'February' 03 'March' 04 'April' 05 'May' 06 'June' 07 'July' 08 'August' 09 'September' 10 'October' 11 'November' 12 'December' ELSE 'UNKNOWN' );
COMPUTE SDATE3/A10V = TRIM('T', SDATE2, 10, ' ', 1, 'A10V');
HEADING
"SDATE2"
END

Documentation for TRIM: https://webfocusinfocenter.inf...tm#dcharacter1046848

January 03, 2018, 08:04 AM

v_ani

Cimmerian,
Thank you for your Reply, It works now I included SQUEEZ inside the TRIMV it works now...

 
     COMPUTE SDATE2T/A17V = TRIMV('T', SQUEEZ(10, SDATE2, 'A10V'), 10, ' ', 1, SDATE2T) ;

January 03, 2018, 08:25 AM

MartinY

And the following doesn't work for you ? (change SDATE2 from /A10 to /A10V)

TABLE FILE PM
PRINT COMPUTE SDATE2/A10 = DECODE SDATE1( 01 'January' 02 'February' 03 'March' 04 'April' 05 'May' 06 'June' 07 'July' 08 'August' 09 'September' 10 'October' 11 'November' 12 'December' ELSE 'UNKNOWN' ); 
      COMPUTE LENGTH/I2   = LENV(SDATE2, 'I2');
HEADING
"SDATE2"
END

Sample

DEFINE FILE GGSALES
DATEM/MONTH = DATE;
END
TABLE FILE GGSALES
SUM DATEM
    COMPUTE SDATE2/A10V = DECODE DATEM ( 01 'January' 02 'February' 03 'March' 04 'April' 05 'May' 06 'June' 07 'July' 08 'August' 09 'September' 10 'October' 11 'November' 12 'December' ELSE 'UNKNOWN' );
    COMPUTE LENGTH/I2   = LENV(SDATE2, 'I2');
BY DATE
END