Example of a report for the number of interviewers that were working on a job for each hour of the day

Change inputname to the name of the file you want to run on.

Change inputopt to be fone_format if reading a .fon file or ASCII=3000 if reading an ASCII copy of the .fon file.

Change printname to the name you want your printfile (output) to be called.

Change month to be the month you want to run on.

Change Study to the study name so the report will be labelled properly.

>Define @InputName Test^Fon>Define @InputOpt Fone_Format ''ASCII=3000  '' To run off ASCII copy of file>Define @PrintName Test^Cnt>Define @Month   7>Define @Study   Test'>Define @SmallFoneFiles>PurgeSame~In @InputName @InputOpt  Length=4000,Dot=100>Prtfile $@PrintName~Out Temp1,Ascii,Trimblanks,Len=80~DefProc=WritHist:Blank [21-80]>IfDefine @SmallFoneFilesWhile MaxTimes=51 [1227.27^NB] Copy [20.27] = [1227.27] Copy [1227.1200] = [1254.1200] If [31.2#@Month] then   WriteCase EndifEndWhile>ElseWhile MaxTimes=99 [6100.34^NB] Copy [20.34] = [6100.34] Copy [6100.9800] = [6200.9800] If [34.2#@Month] then   WriteCase EndifEndWhile>Endif}~Exc Proc=WritHist~In Temp1,Ascii=80,Dot=100~Out Temp2,AScii,Trimblanks>IfDefine @SmallFoneFiles~Sort [29.6$] [35.2$] [25.4$] Bv=[51.4]>Else~Sort [30.8$] [38.2$] [26.4$] Bv=[61.4]>Endif~In Temp2,ASCII=56,Dot=100~DefTabset= Rept_One:Title=: Number of Interviewers By Time of Day for Study: @Study}Edit=: -ColTna -Vper MinFreq=1 Swid=12 Cwid=5 CallTab="" -T4Base -RowTna }>IfDefine @SmallFoneFilesBase=: [51.2#0-3] And [31.2#@Month]Col=: [35.2#0/1-5/6//23]>ElseBase=: [61.2#0-3] And [34.2#@Month]Col=: [38.2#0/1-5/6//23]>EndifBanner=: