-SET &ECHO=ON; -*-- Create the master for TEST1 ------------------------------------- FILEDEF DATAMAST DISK TEST1.MAS -RUN -*-- -WRITE DATAMAST FILE=TEST1, SUFFIX=FIX, $ -WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0, $ -WRITE DATAMAST FIELD=COUNTRY, ALIAS=COUNTRY, USAGE=A10, ACTUAL=A10, $ -WRITE DATAMAST FIELD=, ALIAS=FILL1, USAGE=A01, ACTUAL=A01, $ -WRITE DATAMAST FIELD=WDATE, ALIAS=WDATE, USAGE=A08, ACTUAL=A08, $ -WRITE DATAMAST FIELD=, ALIAS=FILL2, USAGE=A01, ACTUAL=A01, $ -WRITE DATAMAST FIELD=WTIME, ALIAS=WTIME, USAGE=A06, ACTUAL=A06, $ -WRITE DATAMAST DEFINE DTTMX/A25 = WDATE | ' ' | EDIT(WTIME,'99:99:99') | '.000'; -WRITE DATAMAST DEFINE DATETIME/HYYMDS = HINPUT(25, DTTMX, 8, 'HYYMDS'); -*-- Create the data file for TEST1 ---------------------------------- FILEDEF TEST1 DISK TEST1.FTM -RUN -WRITE TEST1 ENGLAND 20081112 175305 -WRITE TEST1 CANADA 20081112 083001 -WRITE TEST1 CANADA 20081113 083001 -WRITE TEST1 CANADA 20081113 084213 -WRITE TEST1 CANADA 20081113 101010 -WRITE TEST1 CANADA 20081113 172222 -WRITE TEST1 CANADA 20081113 120934 -WRITE TEST1 CANADA 20081114 140030 -WRITE TEST1 S KOREA 20081114 101030 -WRITE TEST1 S KOREA 20081116 110956 -WRITE TEST1 USA 20081114 171030 -WRITE TEST1 USA 20081116 190956 -*-- Create the report ----------------------------------------------- DEFINE FILE TEST1 STARTDATE/YYMD = HDATE(DATETIME, 'YYMD'); STARTDATE1/wMtDYY = STARTDATE; STARTTIME/HHI = DATETIME; END -RUN TABLE FILE TEST1 PRINT COUNTRY DATETIME BY STARTDATE NOPRINT ON STARTDATE SUBHEAD " " "<STARTDATE1" BY STARTTIME END -RUN
STARTTIME COUNTRY DATETIME Wed, Nov 12 2008 08:30 CANADA 2008/11/12 08:30:01 ENGLAND 2008/11/12 17:53:05 Thu, Nov 13 2008 08:30 CANADA 2008/11/13 08:30:01 CANADA 2008/11/13 08:42:13 CANADA 2008/11/13 10:10:10 CANADA 2008/11/13 12:09:34 CANADA 2008/11/13 17:22:22 Fri, Nov 14 2008 10:10 S KOREA 2008/11/14 10:10:30 CANADA 2008/11/14 14:00:30 USA 2008/11/14 17:10:30 Sun, Nov 16 2008 11:09 S KOREA 2008/11/16 11:09:56 USA 2008/11/16 19:09:56
STARTTIME COUNTRY DATETIME Wed, Nov 12 2008 08:30 CANADA 2008/11/12 08:30:01 17:53 ENGLAND 2008/11/12 17:53:05 Thu, Nov 13 2008 08:30 CANADA 2008/11/13 08:30:01 08:42 CANADA 2008/11/13 08:42:13 10:10 CANADA 2008/11/13 10:10:10 12:09 CANADA 2008/11/13 12:09:34 17:22 CANADA 2008/11/13 17:22:22 Fri, Nov 14 2008 10:10 S KOREA 2008/11/14 10:10:30 14:00 CANADA 2008/11/14 14:00:30 17:10 USA 2008/11/14 17:10:30 Sun, Nov 16 2008 11:09 S KOREA 2008/11/16 11:09:56 19:09 USA 2008/11/16 19:09:56
TABLE FILE TEST1 PRINT COMPUTE XSTARTTIME/HHI= STARTTIME; COUNTRY DATETIME BY STARTDATE NOPRINT ON STARTDATE SUBHEAD " " "<STARTDATE1" BY STARTTIME NOPRINT END -RUN
- Using AS 8.2.01 on Windows 10 - IE11. | |||
in Focus since 1988 |
quote:DEFINE STARTTIME/HHI = DATETIME;
SORT BY STARTTIME
-SET &ECHO=ON; -*-- Create the master for TEST1 ------------------------------------- FILEDEF DATAMAST DISK /usr/ibi/apps/wfmast/test1.mas -RUN -*-- -WRITE DATAMAST FILE=TEST1, SUFFIX=FIX, $ -WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0, $ -WRITE DATAMAST FIELD=COUNTRY, ALIAS=COUNTRY, USAGE=A10, ACTUAL=A10, $ -WRITE DATAMAST FIELD=, ALIAS=FILL1, USAGE=A01, ACTUAL=A01, $ -WRITE DATAMAST FIELD=WDATE, ALIAS=WDATE, USAGE=A08, ACTUAL=A08, $ -WRITE DATAMAST FIELD=, ALIAS=FILL2, USAGE=A01, ACTUAL=A01, $ -WRITE DATAMAST FIELD=WTIME, ALIAS=WTIME, USAGE=A06, ACTUAL=A06, $ -WRITE DATAMAST DEFINE DTTMX/A25 = WDATE | ' ' | EDIT(WTIME,'99:99:99') | '.000'; -WRITE DATAMAST DEFINE DATETIME/HYYMDS = HINPUT(25, DTTMX, 8, 'HYYMDS'); -*-- Create the data file for TEST1 ---------------------------------- FILEDEF TEST1 DISK /cisfocrpt/data/test.dat -RUN -WRITE TEST1 ENGLAND 20081112 175305 -WRITE TEST1 CANADA 20081112 083001 -WRITE TEST1 CANADA 20081113 083001 -WRITE TEST1 CANADA 20081113 084213 -WRITE TEST1 CANADA 20081113 101010 -WRITE TEST1 CANADA 20081113 172222 -WRITE TEST1 CANADA 20081113 120934 -WRITE TEST1 CANADA 20081114 140030 -WRITE TEST1 S KOREA 20081114 101030 -WRITE TEST1 S KOREA 20081116 110956 -WRITE TEST1 USA 20081114 171030 -WRITE TEST1 USA 20081116 190956 -RUN -*-- Create the report ----------------------------------------------- DEFINE FILE TEST1 STARTDATE/YYMD = HDATE(DATETIME, 'YYMD'); STARTDATE2/A8YYMD=STARTDATE; STARTDATE1/wMtDYY = STARTDATE; STARTTIME/HHI = DATETIME; STARTTIME2/A5=EDIT(WTIME,'99:99'); END -RUN TABLE FILE TEST1 PRINT COUNTRY DATETIME BY STARTDATE2 NOPRINT BY DATETIME NOPRINT BY STARTTIME2 ON STARTDATE2 SUBHEAD " " "<STARTDATE1" END -RUN
is the field that has the time component.quote:BY STARTTIME
DEFINE FILE TEST1 STARTDAG/YYMD = HDATE(DATETIME, 'YYMD'); STARTDATE1/wMtDYY = STARTDAG; STARTTIME/HHI = DATETIME; DUMMY/A1=''; END -RUN TABLE FILE TEST1 SUM COUNTRY DATETIME BY STARTDAG NOPRINT BY DUMMY AS '' BY STARTTIME ON STARTDAG SUBHEAD " " "<STARTDATE1" END
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
-SET &ECHO=ON; -*-- Create the master for TEST1 ------------------------------------- FILEDEF DATAMAST DISK TEST1.MAS -RUN -*-- -WRITE DATAMAST FILE=TEST1, SUFFIX=FIX, $ -WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0, $ -WRITE DATAMAST FIELD=COUNTRY, ALIAS=COUNTRY, USAGE=A10, ACTUAL=A10, $ -WRITE DATAMAST FIELD=, ALIAS=FILL1, USAGE=A01, ACTUAL=A01, $ -WRITE DATAMAST FIELD=DATETIME, ALIAS=DATETIME, USAGE=HYYMDS, ACTUAL=A17, $ -*-- Create the data file for TEST1 ---------------------------------- FILEDEF TEST1 DISK TEST1.FTM -RUN -WRITE TEST1 ENGLAND 20081112175305000 -WRITE TEST1 CANADA 20081112175305000 -WRITE TEST1 CANADA 20081112083001000 -WRITE TEST1 CANADA 20081113083001000 -WRITE TEST1 CANADA 20081113172222000 -WRITE TEST1 USA 20081113172222000 -WRITE TEST1 CANADA 20081113120934000 -WRITE TEST1 CANADA 20081114140030000 -WRITE TEST1 S KOREA 20081114101030000 -WRITE TEST1 W GERMANY 20081114101030000 -WRITE TEST1 S KOREA 20081116110956000 -WRITE TEST1 USA 20081114171030000 -WRITE TEST1 USA 20081116190956000 -*-- Create the report ----------------------------------------------- DEFINE FILE TEST1 STARTDATE/YYMD = HDATE(DATETIME, 'YYMD'); STARTDATE1/wMtDYY = STARTDATE; STARTTIME/HHIA = DATETIME; END -RUN TABLE FILE TEST1 PRINT COUNTRY DATETIME STARTTIME BY STARTDATE NOPRINT ON STARTDATE SUBHEAD " " "<STARTDATE1" BY STARTTIME END -RUN
-SET &ECHO=ON; -*-- Create the master for TEST1 ------------------------------------- FILEDEF DATAMAST DISK TEST1.MAS -RUN -*-- -WRITE DATAMAST FILE=TEST1, SUFFIX=FIX, $ -WRITE DATAMAST SEGNAME=SEG1, SEGTYPE=S0, $ -WRITE DATAMAST FIELD=COUNTRY, ALIAS=COUNTRY, USAGE=A10, ACTUAL=A10, $ -WRITE DATAMAST FIELD=, ALIAS=FILL1, USAGE=A01, ACTUAL=A01, $ -WRITE DATAMAST FIELD=DATETIME, ALIAS=DATETIME, USAGE=HYYMDS, ACTUAL=A17, $ -*-- Create the data file for TEST1 ---------------------------------- FILEDEF TEST1 DISK TEST1.FTM -RUN -WRITE TEST1 ENGLAND 20081112175305000 -WRITE TEST1 CANADA 20081112175305000 -WRITE TEST1 CANADA 20081112083001000 -WRITE TEST1 CANADA 20081113083001000 -WRITE TEST1 CANADA 20081113172222000 -WRITE TEST1 USA 20081113172222000 -WRITE TEST1 CANADA 20081113120934000 -WRITE TEST1 CANADA 20081114140030000 -WRITE TEST1 S KOREA 20081114101030000 -WRITE TEST1 W GERMANY 20081114101030000 -WRITE TEST1 S KOREA 20081116110956000 -WRITE TEST1 USA 20081114171030000 -WRITE TEST1 USA 20081116190956000 -*-- Create the report ----------------------------------------------- DEFINE FILE TEST1 STARTDATE/YYMD = HDATE(DATETIME, 'YYMD'); STARTDATE1/wMtDYY = STARTDATE; STARTTIME/HHIA = DATETIME; DUMMY1/A1 = ''; END -RUN TABLE FILE TEST1 PRINT COUNTRY DATETIME STARTTIME BY STARTDATE NOPRINT ON STARTDATE SUBHEAD " " "<STARTDATE1" BY DUMMY1 AS '' BY STARTTIME END -RUN
TABLE FILE TEST1 PRINT STARTTIME/HYYMDS BY STARTTIME END
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |