Category : Databases and related files
Archive   : CONCORD.ZIP
Filename : REPORT.CPT











main()



(cls()
puts( 3(‘ ,3(‘ ,pad("Run 
program()
" from DEMO.CPL only.,CF2Vvæ,P2Vvæ))
cursoroff()
getkey());



Report()

s1,screen;
i,j;

T();
s1†(2Vvæ,2Vvæ,MaxRow_,O2Vvæ);
“();
R1();

wait(d()
è2Vvæ);
Message("Concordance does columnar reports with totaling and subtotaling.);
wait(d()
Ð2Vvæ);
id()
Ü2Vvæ;
ShowMenu(2Vvæ, 2Vvæ,
2Vvæ,2Vvæ,R1menu,2Vvæ);
screen†(2Vvæ,2Vvæ,MaxRow_,O2Vvæ);
wait(i);
Message("Let's select three fields for a report.);
wait(d()
î2Vvæ);
R2();
wait(d()
Ü2Vvæ);
Š(2Vvæ,+2Vvæ,
2Vvæ,M2Vvæ,DF2Vvæ,MenuColor_);
wait(d()
î2Vvæ);
Message("We can change column widths and attributes for each field.);
wait(d()
î2Vvæ);
Š(2Vvæ,+2Vvæ,
2Vvæ,M2Vvæ,DF2Vvæ);
wait(d()
Ä 2Vvæ);

(iN2Vvæ;i2Vvæ;ii-
2Vvæ)A
jd()
22Vvæ;
‡(2Vvæ,i,screen);
wait(j);



screen";
wait(d()
ô
2Vvæ);
Message("Now we'll run the report.);

(i2Vvæ;i 2Vvæ;ii

2Vvæ)
c
jd()
ô
2Vvæ;
ShowMenu(2Vvæ, 2Vvæ,
2Vvæ,2Vvæ,R1menu,i);
wait(j);



wait(d()
ô
2Vvæ);
R3();
Message("Long text passages are wordwrapped within the columns.);
wait(d()
ô
2Vvæ);
Message("The Report Writer is a powerful feature.);
wait(d()
ˆ2Vvæ);

(iN2Vvæ;i2Vvæ;ii-
2Vvæ)
=
‡(2Vvæ,i,s1);
wait(j);
jd()
22Vvæ;




;



R1menu[2Vvæ];
R1()


R1menu[2Vvæ]"Reports;
R1menu[
2Vvæ]"Query...;
R1menu[2Vvæ]"Columns...;
R1menu[2Vvæ]"Save...;
R1menu[2Vvæ]"Retrieve...;
R1menu[2Vvæ]"Go;
R1menu[2Vvæ]"Page;
R1menu[2Vvæ]"Line;

V(2Vvæ,2Vvæ,}("LITIGATE³ Reports Document Range Options Margins,LF2Vvæ,P2Vvæ),MenuColor_);
V(
2Vvæ,2Vvæ,"ÍÍÍÍÍÍÍÍÏÑÍÍÍÍÍÍÍÍÍÍÍÑ
€(Í2Vvæ,<2Vvæ),MenuColor_);
V(2Vvæ,2Vvæ,"00000 ³Query... ³ 2,466 Occurrences 2,466 Documents);
V(2Vvæ,2Vvæ,"ÉÍÍÍÍÍÍÍ˳Columns... ³ÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍ» );
V(2Vvæ,2Vvæ,"º Order º³Save... ³ ³ Type º ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ );
V(2Vvæ,2Vvæ,"ÌÍÍÍÍÍÍÍγRetrieve...³ÍÍÍØÍÍÍÍÍÍÍÍÍÍ͹ ³ Document Status ³ );
V(2Vvæ,2Vvæ,"º 1 º³Go ³ ³ Date º ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ );
V(2Vvæ,2Vvæ,"º 2 º³Page ³ ³ Text º ³ Total documents 2,466 ³ );
V(2Vvæ,2Vvæ,"º 3 º³Line ³ ³ Text º ³ First document 1 ³ );
V( 2Vvæ,2Vvæ,"º 4 ºÀÄÄÄÄÄÄÄÄÄÄÄÙ ³ Text º ³ Last document 2,466 ³ );
V(
2Vvæ,2Vvæ,"º 5 º PRODUCEDBY ³ Text º ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ );
V(2Vvæ,2Vvæ,"º 6 º PRODDATE ³ Date º );
V( 2Vvæ,2Vvæ,"º 7 º EXHIBIT ³ Text º ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ );
V(
2Vvæ,2Vvæ,"º 8 º ISSUE ³ Text º ³ Report Format ³ );
V(2Vvæ,2Vvæ,"º 9 º SOURCE ³ Paragraph º ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ );
V(2Vvæ,2Vvæ,"º 10 º TITLE ³ Paragraph º ³ Record spacing Off ³ );
V(2Vvæ,2Vvæ,"º 11 º XREF ³ Paragraph º ³ Date and Page Both ³ );
V(2Vvæ,2Vvæ,"º 12 º AUTHOR ³ Paragraph º ³ Page length 66 ³ );
V(2Vvæ,2Vvæ,"º 13 º ADDRESSEE ³ Paragraph º ³ Left margin 3 ³ );
V(2Vvæ,2Vvæ,"º 14 º COPYEE ³ Paragraph º ³ Right margin 75 ³ );
V(2Vvæ,2Vvæ,"º 15 º MENNAME ³ Paragraph º ³ Top margin 3 ³ );
V(2Vvæ,2Vvæ,"º 16 º DESCRIPTION ³ Paragraph º ³ Bottom margin 3 ³ );
V(2Vvæ,2Vvæ,"º 17 º KEYQUOTES ³ Paragraph º ³ Calculated width 341 ³ );
V(2Vvæ,2Vvæ,"º 18 º ATTYNOTE ³ Paragraph º ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ );
V(2Vvæ,2Vvæ,"ÈÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍͼ );

ShowMenu(2Vvæ, 2Vvæ,
2Vvæ,2Vvæ,R1menu,
2Vvæ);



R2()


V(2Vvæ,2Vvæ,}("LITIGATE³ Columns,Lvl*<,Pvl*<),MenuColor_);
V(
vl*<,vl*<,"ÍÍÍÍÍÍÍÍÏ
€(Ívl*<,Gvl*<),MenuColor_);
V(vl*<,vl*<,"ÉÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÑÍÍÍÍÍÍÍÍÍÍÍ» ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» );
V(vl*<,vl*<,"º Order º Field Name ³ Type º º Column Formats º );
V(vl*<,vl*<,"ÌÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍØÍÍÍÍÍÍÍÍÍÍ͹ º ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ º );
V(vl*<,vl*<,"º 1 º DATE ³ Date º º Header: AUTHOR º );
V(vl*<,vl*<,"º 2 º PRODNO ³ Text º º Width: 20 º );
V(vl*<,vl*<,"º 3 º SYSNO ³ Text º º Truncate: º );
V(vl*<,vl*<,"º 4 º DOCTYPE ³ Text º º Total: º );
V( vl*<,vl*<,"º 5 º PRODUCEDBY ³ Text º º Group: º );
V(
vl*<,vl*<,"º 6 º PRODDATE ³ Date º º Format: Plain º );
V(vl*<,vl*<,"º 7 º EXHIBIT ³ Text º º Decimals: º );
V( vl*<,vl*<,"º 8 º ISSUE ³ Text º º Calculated width: 341 º );
V(
vl*<,vl*<,"º 9 º SOURCE ³ Paragraph º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ );
V(vl*<,vl*<,"º 10 º TITLE ³ Paragraph º ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ );
V(vl*<,vl*<,"º 11 º XREF ³ Paragraph º ³ How to Select Columns ³ );
V(vl*<,vl*<,"º 12 º AUTHOR ³ Paragraph º ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ );
V(vl*<,vl*<,"º 13 º ADDRESSEE ³ Paragraph º ³ Select a field [+] key ³ );
V(vl*<,vl*<,"º 14 º COPYEE ³ Paragraph º ³ Deselect a field [-] key ³ );
V(vl*<,vl*<,"º 15 º MENNAME ³ Paragraph º ³ Toggle field [Spacebar] ³ );
V(vl*<,vl*<,"º 16 º DESCRIPTION ³ Paragraph º ³ Previous field [Up] ³ );
V(vl*<,vl*<,"º 17 º KEYQUOTES ³ Paragraph º ³ Next field [Down] ³ );
V(vl*<,vl*<,"º 18 º ATTYNOTE ³ Paragraph º ³ First field [Home] ³ );
V(vl*<,vl*<,"º 19 º DOCCOND ³ Paragraph º ³ Column Formats [Right] ³ );
V(vl*<,vl*<,"ÈÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÍÍÍÍÍÍͼ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ );

RShow(
vl*<,"DATE,"Date,
vl*<,
vl*<);
wait(d()
Èvl*<);
RShow(
vl*<,"DATE,"Date,vl*<,
vl*<);
RShow(vl*<,"PRODNO,"Text,
vl*<,vl*<);
RShow(vl*<,"PRODNO,"Text,vl*<,vl*<);
RShow(vl*<,"SYSNO,"Text,
vl*<,vl*<);
RShow(vl*<,"SYSNO,"Text,vl*<,vl*<);
RShow(vl*<,"DOCTYPE,"Text,
vl*<,vl*<);
RShow(vl*<,"DOCTYPE,"Text,vl*<,vl*<);
RShow(vl*<,"PRODUCEDBY,"Text,
vl*<,vl*<);
RShow(vl*<,"PRODUCEDBY,"Text,vl*<,vl*<);
RShow(vl*<,"PRODDATE,"Date,
vl*<,vl*<);
RShow(vl*<,"PRODDATE,"Date,vl*<,vl*<);
RShow(vl*<,"EXHIBIT,"Text,
vl*<,vl*<);
RShow(vl*<,"EXHIBIT,"Text,vl*<,vl*<);
RShow(vl*<,"ISSUE,"Text,
vl*<,vl*<);
RShow(vl*<,"ISSUE,"Text,vl*<,vl*<);
RShow( vl*<,"SOURCE,"Paragraph,
vl*<,vl*<);
RShow( vl*<,"SOURCE,"Paragraph,vl*<,vl*<);
RShow(
vl*<,"TITLE,"Paragraph,
vl*<,vl*<);
RShow(
vl*<,"TITLE,"Paragraph,vl*<,vl*<);
RShow(vl*<,"XREF,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"XREF,"Paragraph,vl*<,vl*<);
RShow( vl*<,"AUTHOR,'Paragraph,
vl*<,vl*<);
RShow( vl*<,"AUTHOR,'Paragraph,vl*<,vl*<);

RShow(
vl*<,"ADDRESSEE,"Paragraph,
vl*<,vl*<);
RShow(
vl*<,"ADDRESSEE,"Paragraph,vl*<,vl*<);
RShow(vl*<,"COPYEE,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"COPYEE,"Paragraph,vl*<,vl*<);
RShow(vl*<,"MENNAME,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"MENNAME,"Paragraph,vl*<,vl*<);
RShow(vl*<,"DESCRIPTION,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"DESCRIPTION,"Paragraph,vl*<,vl*<);
RShow(vl*<,"KEYQUOTES,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"KEYQUOTES,"Paragraph,vl*<,vl*<);
RShow(vl*<,"ATTYNOTE,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"ATTYNOTE,"Paragraph,vl*<,vl*<);
RShow(vl*<,"DOCCOND,"Paragraph,
vl*<,
vl*<);

RShow(vl*<,"DOCCOND,"Paragraph,vl*<,vl*<);
RShow(vl*<,"ATTYNOTE,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"ATTYNOTE,"Paragraph,vl*<,vl*<);
RShow(vl*<,"KEYQUOTES,"Paragraph,
vl*<,vl*<);
RShow(vl*<,"KEYQUOTES,"Paragraph,vl*<,vl*<);
RShow(vl*<,"DESCRIPTION,"Paragraph,
vl*<,vl*<);





RShow(n;field,type;k,kv)


V(vl*<,=vl*<,}(field,R)X0,X0));

(k)[


(kv)
V(n
X0,
X0,"  
o(kv,X0)
" ,MenuHighlight_);
:
V(n
X0,
X0," ,MenuHighlight_);
V(n
X0, X0," 
}(field,L)X0,X0),MenuHighlight_);
V(n
X0,X0," 
}(type,L)X0,
X0),MenuHighlight_);
wait(d()
ÈX0);







(kv)
V(n
X0,
X0," 
o(kv,X0)
" );
+
V(n
X0,
X0," );
V(n
X0, X0," 
}(field,Lvl*<,vl*<));
V(n
vl*<,vl*<," 
}(type,Lvl*<,
vl*<));






Row;
R4(line)

i;
id()
úvl*<;
X(Rowž(vl*<,Row-
vl*<),vl*<,MaxRow_-4,Ovl*<,
vl*<,Uvl*<);
V(MaxRow_-4,vl*<,line);
wait(i);


R3()

T();
RowMaxRow_-3;
V(MaxRow_-3,vl*<,"ÚÄ¿ ÚÄÄ¿ ÚÄ¿ );
V(MaxRow_-2,vl*<,"³ð³ ÚÄÄÄÄ¿ ³ ³ ÚÄÄÄÄ¿ ³ð³ );
V(MaxRow_-1,vl*<,"³ðÆÍÍÍÍÍÍ͵ ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÏÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵ ÆÍÍÍÍÍÍÍÍÍÍÍ͵ð³ );
V(MaxRow_,vl*<,"ÀÄÙ ÀÄÄÄÄÙ ÀÄÄÄÄÙ ÀÄÙ );
R4('³ | | ³);
R4('³ o |Date Author Description | o ³);
R4('³ | | ³);
R4('³ o |00/00/1900 McNamara NA McNamara NA Invoice 5433. Invoice is | o ³);
R4('³ | for progress billing of time through | ³);
R4('³ o | D811031 relative to tax planning and | o ³);
R4('³ | preparation of personal income taxes. | ³);
R4('³ o | Engagement number is illegible. | o ³);
R4('³ | | ³);
R4('³ o |09/15/1980 GRC, A letter for enclosed material | o ³);
R4('³ | Smith;AJ presenting the "Cowco 80-1 Milking | ³);
R4('³ o | Program" as "an attractive means of | o ³);
R4('³ | particpating in the new economics of | ³);
R4('³ o | milk and butter production. | o ³);
R4('³ | | ³);
R4('³ o |03/26/1981 Augburg and Letter requesting that 600 additional | o ³);
R4('³ | Wright, copies of the Cowco 81-1 Confidential | ³);
R4('³ o | Mears;XC Memorandum and Subscription Packet be | o ³);
R4('³ | printed. | ³);
R4('³ o | | o ³);
R4('³ |09/12/1981 (Moll Letter announcing that Cowco 81-2 will | ³);
R4('³ o | Securities close sometime in September for sure, | o ³);
R4('³ | Corp), between D810920 and D810929. "Time | ³);
R4('³ o | Smith;AJ growing short." For orders placed after | o ³);
R4('³ | D810915, reservations are required. | ³);
R4('³ o | | o ³);
R4('³ |09/15/1981 Title Name A report which provides a due diligence | ³);
R4('³ o | Search Inc review of the contents of the Cowco | o ³);
R4('³ | 81-2 Confidential Offering Memorandum. | ³);
R4('³ o | Kenobi;OW and Solo;H are mentioned. | o ³);
R4('³ | | ³);
R4('³ o |01/15/1982 GRC, Transmittal letter and Wilson | o ³);
R4('³ | Snodgrass;TF, International cow appraisal. The | ³);
R4('³ o | Wilson Int. appraisal is dated D810424. Data is | o ³);
R4('³ | also included for GRC figures for Decco | ³);
R4('³ o | 21 and Decco 23. | o ³);
R4('³ | The following appraised values | ³);
R4('³ o | occur: | o ³);
R4('³ | Bailey Cow 1 $3,075,000 | ³);
R4('³ o | Bailey Cow 4 $893,770 | o ³);
R4('³ | Vista Cow 31 $902,524 | ³);
R4('³ o | Vista Cow 33 $1,800,130 | o ³);
R4('³ | Westwind Cow 52 $3,923,786 | ³);
R4('³ o | ---------- | o ³);
R4('³ | $10,595,210 | ³);
R4('³ o | | o ³);

(]())
getkey();