Hello WebFOCUS Community,

Anyone have any idea where I can find the VIDEOTR2.FOC and VIDEOTR2.MAS files?

They have been pretty well documented for use in examples especially with Date-Time functions.
However on my 8205 release, they are nowhere to be found.

I've run all the Tutorial generation scripts.
The legacy samples are all there (including VIDEOTRK.*), but no VIDEOTR2.*

Any assistance will be appreciated (especially if you have a copy on Windows 10 64bit and are willing to zip and email them to me).

Thanks in advance.

This message has been edited. Last edited by: Clinton Side-Kick,

You have 8.2.05 ?

Sorry,

I don't see it on 8.1.04

Guess I'm just a lucky fish hey?
Thanks for checking Waz

There is a fex to generate this stuf, can you check if you have a fex called dblvideotrk.fex in .../ibi/srv82/home/etc/app_templates/legacy/

If yes, then copy and execute this fex, it will create the data

To generate the legacy tables like Car, Video and Educ files, you can open Reporting Server console click Applications, New, Tutorials, Create Legacy Sample Tables and Files. This'll create ibisamp with all the sample files used in the doc.

My guess is he's using the IBI [storm/mushroom] Cloud variant of 8.2.05. haha Prob why he can't figure it out...

I don't think they exist anymore. Might have to use Retail instead?

T

Like I said, they're not there unless you create them.

It think VIDEOTR2 no longer exists, but VIDEOTRK is one that can be created.

quote:

Originally posted by Frans:
There is a fex to generate this stuf, can you check if you have a fex called dblvideotrk.fex in .../ibi/srv82/home/etc/app_templates/legacy/

If yes, then copy and execute this fex, it will create the data

Thanks Frans, I've got the dblvideotrk.fex, will use this as the basis to create the videotr2.foc file which should be populated with an HYYMDS formatted TRANSDATE field.

quote:

Originally posted by BabakNYC:
To generate the legacy tables like Car, Video and Educ files, you can open Reporting Server console click Applications, New, Tutorials, Create Legacy Sample Tables and Files. This'll create ibisamp with all the sample files used in the doc.

Hey Babak, I do believe I mentioned the following in my original post

quote:

I've run all the Tutorial generation scripts.
The legacy samples are all there (including VIDEOTRK.*), but no VIDEOTR2.*

quote:

Originally posted by Waz:
It think VIDEOTR2 no longer exists, but VIDEOTRK is one that can be created.

You are correct Waz, thanks to Frans pointing me in the direction of dblvideotrk.fex I have a template to use for a workaround.

quote:

Originally posted by Tony A:
I don't think they exist anymore. Might have to use Retail instead?

Will you believe that Retail Samples does not have a single Date-Time field?

Do you remember what the last version was that had the sample ?

I may have an old install

quote:

Originally posted by Waz:
Do you remember what the last version was that had the sample ?

I may have an old install

No idea Waz, just happened to search for some samples in our documentation for date-time functions (epoch related) and happened to notice videotr2 being referred to. Don't worry, I'm halfway adjusting dblvideotrk.fex as dblvideotr2.fex
Will share once done.

OK, good luck.

Right then, I believe in sharing is caring
So for all those nostalgic FOCUS legends out there and perhaps some of the new kids on the block too :
IF you would like to create the VIDEOTR2 sample file that is no more, here it is...

First create the Master File (which you will want to save to /ibi/srv82/home/etc/app_templates/legacy):

FILENAME=VIDEOTR2, SUFFIX=FOC
SEGNAME=CUST, SEGTYPE=S1
 FIELDNAME=CUSTID, ALIAS=CIN, FORMAT=A4, $
 FIELDNAME=LASTNAME, ALIAS=LN, FORMAT=A15, $
 FIELDNAME=FIRSTNAME, ALIAS=FN, FORMAT=A10, $
 FIELDNAME=EXPDATE, ALIAS=EXDAT, FORMAT=YMD, $
 FIELDNAME=PHONE, ALIAS=TEL, FORMAT=A10, $
 FIELDNAME=STREET, ALIAS=STR, FORMAT=A20, $
 FIELDNAME=CITY, ALIAS=CITY, FORMAT=A20, $
 FIELDNAME=STATE, ALIAS=PROV, FORMAT=A4, $
 FIELDNAME=ZIP, ALIAS=POSTAL_CODE, FORMAT=A9, $
 FIELDNAME=EMAIL, ALIAS=EMAIL, FORMAT=A18, $
SEGNAME=TRANSDAT, SEGTYPE=SH1, PARENT=CUST
 FIELDNAME=TRANSDATE, ALIAS=OUTDATE, FORMAT=HYYMDI, $
SEGNAME=SALES, SEGTYPE=S2, PARENT=TRANSDAT
 FIELDNAME=PRODCODE, ALIAS=PCOD, FORMAT=A6,            $
 FIELDNAME=TRANSCODE, ALIAS=TCOD, FORMAT=I3, $
 FIELDNAME=QUANTITY, ALIAS=NO, FORMAT=I3S, $
 FIELDNAME=TRANSTOT, ALIAS=TTOT, FORMAT=F7.2S, $
SEGNAME=RENTALS, SEGTYPE=S2, PARENT=TRANSDAT
 FIELDNAME=MOVIECODE, ALIAS=MCOD, FORMAT=A6, INDEX=I, $
 FIELDNAME=COPY, ALIAS=COPY, FORMAT=I2, $
 FIELDNAME=RETURNDATE, ALIAS=INDATE, FORMAT=YMD, $
 FIELDNAME=FEE, ALIAS=FEE, FORMAT=F5.2S, $ 

Followed by the amended DBLVIDEOTR2.FEX (which you could save to /ibi/apps/ibisamp):

  
-*--------------------------------------------------------------------------------------------*
-* Copyright (c) Information Builders, Inc. All rights reserved. @MFSM_NOPROLOG@
-*FEX_DESCRIPTION=Legacy Sample: Loader for videotr2 (video track v2, part of Video Track example)
-*--------------------------------------------------------------------------------------------*

-DEFAULT &CMAPP = ibisamp ;
-DEFAULT &TABLE = videotr2 ;
-DEFAULT &LEGACYLOCATION = '_edahome/etc/app_templates/legacy' ;
-DEFAULT &VERBOSE = N ;
-DEFAULT &VERBOSESTAT = N ;
-SET &VERBOSEWHENCE = IF &VERBOSE EQ N THEN '-* WHENCE' ELSE 'WHENCE' ;
-SET &VERBOSETYPE = IF &VERBOSESTAT EQ N THEN '-*' ELSE '-TYPE' ;
-SET &VERBOSESET = IF &VERBOSESTAT EQ N THEN '-*' ELSE '-SET' ;

APP COPYFILE &LEGACYLOCATION &TABLE MASTER &CMAPP &TABLE MASTER IFEXIST DROP
CREATE FILE &CMAPP/&TABLE DROP
&VERBOSEWHENCE.EVAL &CMAPP/&TABLE MASTER
&VERBOSEWHENCE.EVAL &CMAPP/&TABLE FOCUS

-* Use multi step load to be self contained in an 80 lrecl focexec.

-RUN
&VERBOSETYPE.EVAL
&VERBOSETYPE.EVAL ------------------------------------------------------------------------
-SET &MSG = EMGPUT(18627,2,&TABLE.LENGTH,&TABLE,&CMAPP.LENGTH,&CMAPP,0,'',256,A256) ;
-* Expect 36 Transactions and 36 Segments Input
&VERBOSESET.EVAL &MSG = EMGPUT(18628,2,2,36,2,36,0,'',256,A256) ;

-* Load in the customer segment
MODIFY FILE &CMAPP/&TABLE
FREEFORM CUSTID LASTNAME FIRSTNAME EXPDATE PHONE STREET CITY STATE ZIP
MATCH CUSTID
ON MATCH REJECT
ON NOMATCH INCLUDE
CHECK OFF
DATA
0925,CRUZ,IVY,920627,3095550925,86 ELLIOTT AVE.,PEORIA,IL,61601,$
0944,HANDLER,EVAN,920620,3095550944,7 DAVENPORT LA.,PEORIA,IL,61601,$
1118,WILSON,KELLY,920626,3095551118,8 MAGNOLIA LA.,PEORIA,IL,61601,$
1133,KRAMER,CHERYL,920619,3095551133,35 POWELL ST.,PEORIA,IL,61601,$
1237,GOODMAN,JOHN,920624,3095551237,10 COW LA.,PEORIA,IL,61601,$
1297,WILLIAMS,KENNETH,920624,3095551297,100 MAIN ST.,PEORIA,IL,61601,$
1423,MONROE,CATHERINE,920625,3095551423,15 BROADLAWN AVE.,PEORIA,IL,61601,$
2165,RIESLER,LESLIE,920621,3095552165,9 DUNBURY LA.,PEORIA,IL,61601,$
2187,JOSEPH,JAMES,920618,3095552187,32 WILLIAM ST.,PEORIA,IL,61601,$
2280,HARRIS,JESSICA,920622,3095552280,23 FLETCHER ST.,PEORIA,IL,61601,$
2282,MONROE,PATRICK,920625,3095552282,39 STEWART AVE.,PEORIA,IL,61601,$
2884,ANDREWS,NATALIA,920617,3095552884,40 MAIN ST. APT2,PEORIA,IL,61601,$
3452,RATHER,MICHAEL,920617,3095553452,1 WEST AVE.,PEORIA,IL,61601,$
4077,STANDLER,MICHAEL,920620,3095554077,55 SUNSET RD.,PEORIA,IL,61601,$
4476,PARKER,GLENDA,920622,3095554476,45 SUNSET RD.,PEORIA,IL,61601,$
4513,MCMAHON,JOHN,920620,3095554513,8 OAK DR.,PEORIA,IL,61601,$
4556,HEALD,MICHAEL,920624,3095554556,33 CYPRESS RD.,PEORIA,IL,61601,$
4862,SPIVEY,TOM,920625,3095554862,21 THURSTON RD.,PEORIA,IL,61601,$
5025,LEVINE,JOSHUA,920619,3095555025,33 POWELL STREET,PEORIA,IL,61601,$
5564,O BRIEN,DONALD,920624,3095555564,14 MAPLE DR.,PEORIA,IL,61601,$
5603,WHITE,PATRICIA,920623,3095555603,15 HIGH ST.,PEORIA,IL,61601,$
5671,BERTAL,MARCIA,920618,3095555671,35 W. CHAPEL RD.,PEORIA,IL,61601,$
5736,PARKER,RICHARD,920621,3095555736,20 MAPLE DR.,PEORIA,IL,61601,$
5868,GREEVEN,GEORGIA,920622,3095555868,755 BUFFALO ST.,PEORIA,IL,61601,$
6219,KURTZ,DAVID,920620,3095556219,8 HICKS LA.,PEORIA,IL,61601,$
7132,WU,MARTHA,920622,3095557632,24 FIR DR.,PEORIA,IL,61601,$
7173,GRANT,WESTON,920618,3095557173,10 WIMBLETON LANE,PEORIA,IL,61601,$
7656,DIZON,JANET,920617,3095557656,33 BROAD ST.,PEORIA,IL,61601,$
8204,DAVIS,JASON,920624,3095558204,17 REMSEN RD.,PEORIA,IL,61601,$
8771,GARCIA,JOANN,920626,3095558771,1 MURTLE DR.,PEORIA,IL,61601,$
8783,GREEN,KRISTEN,920626,3095558783,143 MITCHEL BLVD.,PEORIA,IL,61601,$
8906,STEWART,MAUDE,920617,3095558906,43 WYCKOFF AVE.,PEORIA,IL,61601,$
9001,COLE,ALLISON,920623,3095559001,16 LAKEVIEW DR.,PEORIA,IL,61601,$
9022,CHANG,ROBERT,920625,3095559022,10 MAPLE DR.,PEORIA,IL,61601,$
9766,BAKER,MARIE,920617,3095559766,22 BURTON RD.,PEORIA,IL,61601,$
9999,NON-MEMBER,,,,,,,,$
END

-RUN
-* Fix up the one with the single quote since freeform doesn't do quotes
-* Expect 1 Transactions and 1 Segments Input
&VERBOSESET.EVAL &MSG = EMGPUT(18628,2,1,1,1,1,0,'',256,A256) ;

MODIFY FILE &CMAPP/&TABLE
FIXFORM CUSTID/C4 LASTNAME/C15
MATCH CUSTID
ON MATCH UPDATE LASTNAME
ON NOMATCH INCLUDE
CHECK OFF
DATA
5564O'BRIEN
END
-* ' Force editors that look for end quotes to find a quote


-RUN
-* Load in the sales segment
-* Expect 53 Transactions and 84 Segments Input
&VERBOSESET.EVAL &MSG = EMGPUT(18628,2,2,53,2,84,0,'',256,A256) ;

MODIFY FILE &CMAPP/&TABLE
FREEFORM CUSTID TRANSDATE PRODCODE TRANSCODE QUANTITY TRANSTOT
MATCH CUSTID
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH TRANSDATE
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH PRODCODE TRANSCODE
ON MATCH REJECT
ON NOMATCH INCLUDE
CHECK OFF
DATA
0925,910627 11:03,044513,1,2,16.00,$
0944,910621 12:10,011976,1,1,1.25,$	
0944,910621 12:10,678ORI,1,1,19.99,$
1133,910621 08:35,011322,1,1,1.00,$	
1237,910625 09:45,011322,1,1,1.00,$	
1237,910625 09:45,033004,1,1,20.00,$
1297,910624 10:16,020TUR,1,1,39.99,$
1297,910624 10:16,044512,1,2,16.00,$
1423,910625 11:25,011976,1,2,2.50,$ 
2165,910625 12:25,033600,1,1,6.99,$ 
2165,910621 11:25,033600,1,1,6.99,$ 
2187,910619 10:25,033200,1,1,9.99,$ 
2187,910619 10:25,044530,1,1,15.00,$
2280,910627 12:25,011321,1,2,5.18,$ 
2280,910627 12:25,650WAR,1,1,29.98,$
2282,910627 12:25,011976,1,1,1.25,$ 
2282,910627 12:25,022811,1,1,4.59,$ 
3452,910617 13:30,011321,1,1,2.59,$ 
3452,910617 13:30,033101,1,1,1.99,$ 
3452,910617 13:30,305PAR,1,1,14.95,$
4077,910620 14:10,011976,1,1,1.25,$ 
4077,910620 14:10,033101,1,1,1.99,$ 
4077,910620 14:10,033261,1,1,10.99,$
4556,910625 15:10,011322,1,1,1.00,$ 
4862,910626 15:10,033261,1,1,10.99,$
5025,910619 15:30,011321,1,2,5.18,$ 
5025,910619 15:30,044513,1,1,8.00,$ 
5564,910624 15:30,650WAR,1,1,29.98,$
5603,910624 15:30,044512,1,1,8.00,$ 
5736,910625 15:30,011976,1,1,1.25,$ 
6219,910621 13:20,011976,1,2,2.50,$ 
7173,910618 13:20,011976,1,1,1.25,$ 
7173,910618 14:45,033004,1,1,20.00,$
7656,910617 14:45,011322,1,1,1.00,$ 
7656,910617 14:45,011976,1,2,2.50,$ 
7656,910617 14:45,022812,1,1,12.99,$
8204,910624 15:25,011321,1,1,2.59,$ 
8204,910624 15:25,011976,1,3,3.75,$ 
8204,910624 15:25,033600,1,1,6.99,$ 
8771,910627 15:25,011976,1,1,1.25,$ 
8771,910627 15:25,033101,1,1,1.99,$ 
8783,910626 16:15,128VES,1,1,29.98,$
8906,910617 16:15,011321,1,2,5.18,$ 
8906,910617 16:15,033122,1,1,11.99,$
9001,910624 16:15,033122,1,1,11.99,$
9001,910624 16:15,033600,1,1,6.99,$ 
9022,910628 16:15,044512,1,1,8.00,$ 
9022,910628 17:15,044513,1,1,8.00,$ 
9022,910628 17:15,044530,1,1,15.00,$
9999,910625 17:45,044530,1,1,15.00,$
9999,910621 17:55,022812,1,1,12.99,$
9999,910617 17:25,011321,1,1,2.59,$ 
9999,910617 17:35,011976,1,1,1.25,$ 
END

-RUN
-* Load in the rental segment
-* Expect 67 Transactions and 102 Segments Input
&VERBOSESET.EVAL &MSG = EMGPUT(18628,2,2,67,3,102,0,'',256,A256) ;

MODIFY FILE &CMAPP/&TABLE
FREEFORM CUSTID TRANSDATE MOVIECODE COPY RETURNDATE FEE
MATCH CUSTID
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH TRANSDATE
ON MATCH CONTINUE
ON NOMATCH INCLUDE
MATCH MOVIECODE COPY
ON MATCH REJECT
ON NOMATCH INCLUDE
CHECK OFF
DATA
0925,910627 11:03,001MCA,1,910629,2.00,$
0925,910627 11:03,692PAR,2,910629,2.00,$
0944,910621 12:10,505MGM,1,910622,2.00,$
0944,910620 13:10,040ORI,1,910621,2.00,$
1118,910626 16:05,710VES,1,910627,2.00,$
1118,910626 16:05,803WAR,1,910627,2.00,$
1133,910619 08:35,243MGM,1,910620,2.00,$
1133,910619 09:35,259MGM,1,910621,2.00,$
1237,910624 14:48,518MGM,2,910625,2.00,$
1297,910624 16:48,305PAR,1,910627,2.00,$
1297,910624 16:48,518MGM,1,910627,2.00,$
0925,910627 13:55,001MCA,1,910629,2.00,$
0925,910627 13:55,692PAR,2,910629,2.00,$
0944,910621 08:55,505MGM,1,910622,2.00,$
0944,910620 08:35,040ORI,1,910621,2.00,$
1118,910626 08:45,710VES,1,910627,2.00,$
1118,910626 08:45,803WAR,1,910627,2.00,$
1133,910619 09:15,243MGM,1,910620,2.00,$
1133,910619 09:15,259MGM,1,910621,2.00,$
1237,910624 09:46,518MGM,2,910625,2.00,$
1297,910624 10:25,305PAR,1,910627,2.00,$
1297,910624 10:25,518MGM,1,910627,2.00,$
1423,910625 11:25,035CBS,1,910627,2.00,$
1423,910625 11:25,658CBS,1,910628,2.00,$
2165,910625 12:25,095CBS,1,910627,2.00,$
2165,910621 11:25,035CBS,1,910622,2.00,$
2187,910619 10:25,196MCA,1,910621,2.00,$
2187,910618 10:25,658CBS,1,910620,2.00,$
2280,910622 13:25,031KKV,1,910627,2.00,$
2280,910622 13:25,732DIS,1,910625,2.00,$
2282,910625 12:25,476CBS,1,910627,2.00,$
2884,910619 13:40,883MCA,1,910624,2.00,$
2884,910618 13:40,688MGM,2,910619,2.00,$
3452,910625 14:30,043DIS,1,910627,2.00,$
3452,910617 13:30,053WAR,1,910619,2.00,$
4077,910620 14:10,005WAR,1,910625,2.00,$
4077,910620 14:10,231VES,1,910625,2.00,$
4476,910622 14:40,020TUR,1,910630,2.00,$
4513,910621 15:10,145MGM,1,910624,2.00,$
4513,910620 15:10,147LOR,1,910625,2.00,$
4556,910624 13:20,354RCA,1,910625,2.00,$
4862,910626 13:20,922IVE,1,910627,2.00,$
4862,910625 13:20,076WAR,1,910626,2.00,$
5025,910622 13:20,688MGM,2,910623,2.00,$
5025,910619 14:30,678ORI,1,910622,2.00,$
5564,910627 14:30,688MGM,1,910629,2.00,$
5564,910624 14:30,284MGM,1,910626,2.00,$
5603,910623 14:30,024WAR,2,910626,2.00,$
5603,910623 14:30,550MCA,1,910626,2.00,$
5671,910623 14:30,212NEL,1,910624,2.00,$
5671,910618 15:30,090CBS,1,910620,2.00,$
5671,910618 15:30,128VES,1,910620,2.00,$
5736,910621 15:30,922IVE,1,910622,2.00,$
5868,910624 17:25,476DIS,1,910626,2.00,$
5868,910622 17:35,306DIS,1,910626,2.00,$
5868,910622 14:45,309RAN,1,910626,2.00,$
6219,910625 14:45,147LOR,1,910626,2.00,$
6219,910620 14:45,963CBS,1,910621,2.00,$
7132,910622 15:25,024WAR,1,910624,2.00,$
7132,910622 15:25,658CBS,1,910624,2.00,$
7173,910630 15:25,651PAR,1,,2.00,$      
7173,910618 15:25,305PAR,1,910621,2.00,$
7656,910627 15:25,082MCA,1,910628,2.00,$
7656,910617 16:15,081MCA,1,910618,2.00,$
7656,910617 16:15,530MCA,1,910618,2.00,$
8204,910624 16:15,139RCA,1,910626,2.00,$
8204,910624 16:15,688MGM,2,910626,2.00,$
8771,910630 15:25,690WAR,1,,2.00,$      
8771,910626 16:15,692PAR,1,910627,2.00,$
8783,910626 16:15,183NEL,1,910629,2.00,$
8906,910617 16:15,306DIS,1,910620,2.00,$
8906,910617 16:15,732DIS,1,910620,2.00,$
9001,910623 16:15,518MGM,1,910624,2.00,$
9001,910623 16:15,688MGM,1,910624,2.00,$
9022,910627 17:15,147LOR,1,,2.00,$      
9022,910626 17:15,103LOR,1,910627,2.00,$
9766,910619 17:45,168MED,1,910621,2.00,$
9766,910617 17:55,733CBS,1,910619,2.00,$
END
-RUN
&VERBOSETYPE.EVAL ------------------------------------------------------------------------

Cheers

LOL, I haven't done this in ages,
How do I change the Topic to [SOLVED}?

Edit your first post

quote:

Originally posted by Clinton Side-Kick:
LOL, I haven't done this in ages,
How do I change the Topic to [SOLVED}?

Go figure, I just needed to review this thread:
Forum Guidelines and FAQs

quote:

Originally posted by Waz:
Edit your first post

Thank you Waz, I'm clocking out now.

Knock it up to a Senior Moment

For some strange reason, I have a desire to go out to a Blockbuster tonight. :-)