Pivot - Revision history

Conversion script: link fix

2015-02-26T23:48:55Z

link fix

← Older revision		Revision as of 23:48, 26 February 2015
Line 35:		Line 35:

	IF FILE="" OR ATB = "" THEN		IF FILE="" OR ATB = "" THEN
	PRINT "Usage: PIVOT FileName AtbName [AtbName2] [(P]"		PRINT "Usage: PIVOT [[FileName]] [[AtbName]] [[[AtbName2]]] [(P]"
	PRINT "where [AtbName2] is optional. if there, it will be totaled"		PRINT "where [[[AtbName2]]] is optional. if there, it will be totaled"
	STOP		STOP
	END		END

IanMcGowan: *

2013-05-30T01:09:20Z

← Older revision		Revision as of 01:09, 30 May 2013
Line 15:		Line 15:
	</pre>		</pre>

	</pre>		<pre>
	***************************************************************************		***************************************************************************
	* Program: PIVOT		* Program: PIVOT

IanMcGowan: *

2013-05-30T01:09:05Z

← Older revision		Revision as of 01:09, 30 May 2013
Line 15:		Line 15:
	</pre>		</pre>

	~~</nowiki>~~</pre>		</pre>
	***************************************************************************		***************************************************************************
	* Program: PIVOT		* Program: PIVOT
Line 72:		Line 72:
	EXECUTE EX		EXECUTE EX
	IF LPTR # "OFF" THEN EXECUTE "SP.CLOSE"		IF LPTR # "OFF" THEN EXECUTE "SP.CLOSE"
	</pre~~></nowiki~~>		</pre>

IanMcGowan: *

2013-05-30T01:08:49Z

← Older revision		Revision as of 01:08, 30 May 2013
Line 15:		Line 15:
	</pre>		</pre>

	<~~pre~~></~~nowiki~~>		</nowiki></pre>
	***************************************************************************		***************************************************************************
	* Program: PIVOT		* Program: PIVOT
Line 72:		Line 72:
	EXECUTE EX		EXECUTE EX
	IF LPTR # "OFF" THEN EXECUTE "SP.CLOSE"		IF LPTR # "OFF" THEN EXECUTE "SP.CLOSE"
	</~~nowiki~~></~~pre~~>		</pre></nowiki>

IanMcGowan: *

2013-05-30T01:07:38Z

← Older revision		Revision as of 01:07, 30 May 2013
Line 1:		Line 1:
	A handy command when profiling or tracking down data issues. See the distribution of data		A handy command when profiling or tracking down data issues. See the distribution of data quickly when exploring new tables and fields. Sure you can do a bunch of detail suppress reports, but where's the fun in that :-)

	<pre>		<pre>

IanMcGowan: Create

2013-05-29T20:16:47Z

Create

New page

A handy command when profiling or tracking down data issues. See the distribution of data

<pre>
:PIVOT CLIENTS COUNTRY
Frequency of COUNTRY in CLIENTS 13:11:23 05-29-13
Country........ CNTR......

Australia 28
Canada 31
France 20
USA 51
==========
TOTAL 130
130 records listed
</pre>

<pre></nowiki>
***************************************************************************
* Program: PIVOT
* Author : mgc
* Date : 09/12/2002
* Edited : 11:02:58 Sep 12 2002 By MGC
* Comment:
***************************************************************************
* Date By Desc
* ---------- ---- ---------------------------------------------------------
IF INDEX(@SENTENCE,"(P",1) THEN LPTR="ON" ELSE LPTR="OFF"
SENT=@SENTENCE
SWAP "(P" WITH "" IN SENT
FILE=FIELD(SENT," ",2)
ATB =FIELD(SENT," ",3)
ATB2=FIELD(SENT," ",4)
ATB3=FIELD(SENT," ",5)
ATB4=FIELD(SENT," ",6)

IF FILE="" OR ATB = "" THEN
PRINT "Usage: PIVOT FileName AtbName [AtbName2] [(P]"
PRINT "where [AtbName2] is optional. if there, it will be totaled"
STOP
END

OPEN FILE TO F ELSE STOP 201,FILE
OPEN "DICT ":FILE TO DICT ELSE STOP 201,"DICT ":FILE
READ UATBREC FROM DICT,"UATB.COUNTER" ELSE
UREC=""
UREC<1>=\I\
UREC<2>=\"1"\
UREC<3>=\\
UREC<4>=\CNTR\
UREC<5>=\10R\
UREC<6>=\M\
UREC<7>=\\
WRITE UREC ON DICT,"UATB.COUNTER"
END

EX = \SORT \:FILE
EX:= \ BY \:ATB
EX:= \ BREAK-ON \:ATB
EX:= \ TOTAL UATB.COUNTER \
IF ATB2 # "" THEN EX:= \ TOTAL \:ATB2
IF ATB3 # "" THEN EX:= \ TOTAL \:ATB3
IF ATB4 # "" THEN EX:= \ TOTAL \:ATB4

EX:= \ HEADING "Frequency of \:ATB:\ in \:FILE:\ 'T'" \

IF LPTR="OFF" THEN
EX:= \ (IDH \
END ELSE
EX:= \ (PID \
END
IF LPTR="OFF" THEN PRINT EX
EXECUTE EX
IF LPTR # "OFF" THEN EXECUTE "SP.CLOSE"
</nowiki></pre>