DEFINE FILE F554852
ZZZ/A15 = EDIT(TLCRDJ,'99999999') | ' ' | EDIT(TLTDAY);
END
-RUN

TABLE FILE F554852
PRINT ZZZ
TLCRDJ 
TLTDAY  
BY TLCRDJ NOPRINT
BY TLTDAY  NOPRINT
WHERE  TLCRDJ EQ '10032013'
 ON TABLE PCHOLD FORMAT EXCEL
END

MDYYTLCRDJ/A8MDYY = TLCRDJ ;
ZZ/A15 = MDYYTLCRDJ | ' ' | EDIT(TLTDAY); 

Waz...

Prod:	WebFOCUS 7.6.10/8.1.04	Upgrade:	WebFOCUS 8.2.07	OS:	Linux	Outputs:	HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

DEFINE FILE CAR
-* YOUR FIELDS
TLCRDJ/MDYY = '10/03/2013';
TLTDAY/I6 = 004426;

-* CONVERT TO ALPHA
TLCRDJA/A8YYMD = TLCRDJ;
TLTDAYA/A8 = EDIT(TLTDAY,'99:99:99');
TLTDTTMX/A25 = TLCRDJA | ' ' | TLTDAYA;

-* CONVERT TO DATE-TIME
TLTDTTM/HMDYYS = HINPUT(25, TLTDTTMX, 8, 'HYYMDS');
END

TABLE FILE CAR
PRINT 
TLCRDJ
TLCRDJA
TLTDAY
TLTDAYA
TLTDTTM
COUNTRY NOPRINT
WHERE RECORDLIMIT EQ 1
ON TABLE PCHOLD FORMAT EXL2K
END

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

     (FOC239) FORMAT DEFINITION IN ERROR. INTERNAL FIELD: DTDP
    BYPASSING TO END OF COMMAND
  0 ERROR AT OR NEAR LINE     34  IN PROCEDURE _ADHOCRQFOCEXEC * 
   (FOC263) EXTERNAL FUNCTION OR LOAD MODULE NOT FOUND: ALPHADT
  0 ERROR AT OR NEAR LINE     40  IN PROCEDURE _ADHOCRQFOCEXEC * 
   (FOC003) THE FIELDNAME IS NOT RECOGNIZED: TLTDTTMX
    BYPASSING TO END OF COMMAND
   (FOC009) INCOMPLETE REQUEST STATEMENT

The code:

 

 DEFINE FUNCTION ALPHADT (DTDP/MDYY, TMPT/I6)
-* CONVERT TO ALPHA
TLCRDJA/A8YYMD = DTDP;
TLTDAYA/A8 = EDIT(TMPT,'99:99:99');
TLTDTTMX/A25 = TLCRDJA | ' ' | TLTDAYA;

-* CONVERT TO DATE-TIME
TLTDTTM/HMDYYS = HINPUT(25, TLTDTTMX, 8, 'HYYMDS');

ALPHADT/A25 = TLTDTTMX;
END


DEFINE FILE CAR
-* YOUR FIELDS
TLCRDJ/MDYY = '10/03/2013';
TLTDAY/I6 = 004426;

TLTDTTMX/A25 = ALPHADT( TLCRDJ, TLTDAY );

END

TABLE FILE CAR
PRINT
TLCRDJ
TLTDAY
TLTDTTMX
COUNTRY NOPRINT
WHERE RECORDLIMIT EQ 1
-*ON TABLE PCHOLD FORMAT EXL2K
 ON TABLE PCHOLD FORMAT EXCEL
END