January 16, 2019, 09:12 PM
Clinton Side-KickRight 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