;=============================================================== 
.input gl2500, 17, 76
.placement 2, 2
.title ' Account Inquiry ', highlight
.line Line1, 76, pos(3,1), horizontal
.paint " "
 
.field year, d4, pos(1,1), prompt("Year"), fpos(1,9), -
 change_method("ANYFLD_CHANGE")
 
.field acct, a6, pos(2,1), prompt("Account"), fpos(2,9)
.field acct_descr, a25, fpos(2,16)
 
.field div, a4, pos(1,43), prompt("Division"), fpos(1,54)
.field div_descr, a15, fpos(1,60)
 
.field dept, a4, pos(2,43), prompt("Department"), fpos(2,54)
.field dept_descr, a15, fpos(2,60)

.text Text1, pos(4,11)
Beg Bal            Debits           Credits               Net
.text Text2, pos(5,2)
1
.text Text3, pos(6,2)
2
.text Text4, pos(7,2)
3
.text Text5, pos(8,2)
4
.text Text6, pos(9,2)
5
.text Text7, pos(10,2)
6
.text Text8, pos(11,2)
7
.text Text9, pos(12,2)
8
.text Text10, pos(13,2)
9
.text Text11, pos(14,1)
10
.text Text12, pos(15,1)
11
.text Text13, pos(16,1)
12
.text Text14, pos(17,1)
13
 
.field bbal1, d12.2, fpos(5,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal2, d12.2, fpos(6,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal3, d12.2, fpos(7,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal4, d12.2, fpos(8,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal5, d12.2, fpos(9,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal6, d12.2, fpos(10,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal7, d12.2, fpos(11,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal8, d12.2, fpos(12,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal9, d12.2, fpos(13,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal10, d12.2, fpos(14,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal11, d12.2, fpos(15,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal12, d12.2, fpos(16,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field bbal13, d12.2, fpos(17,5), format("Z,ZZZ,ZZZ,ZZZ.XX-")
 
.field ydeb1, d12.2, fpos(5,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb2, d12.2, fpos(6,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb3, d12.2, fpos(7,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb4, d12.2, fpos(8,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb5, d12.2, fpos(9,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb6, d12.2, fpos(10,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb7, d12.2, fpos(11,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb8, d12.2, fpos(12,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb9, d12.2, fpos(13,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb10, d12.2, fpos(14,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb11, d12.2, fpos(15,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb12, d12.2, fpos(16,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ydeb13, d12.2, fpos(17,23), format("Z,ZZZ,ZZZ,ZZZ.XX-")
 
.field ycrd1, d12.2, fpos(5,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd2, d12.2, fpos(6,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd3, d12.2, fpos(7,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd4, d12.2, fpos(8,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd5, d12.2, fpos(9,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd6, d12.2, fpos(10,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd7, d12.2, fpos(11,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd8, d12.2, fpos(12,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd9, d12.2, fpos(13,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd10, d12.2, fpos(14,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd11, d12.2, fpos(15,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd12, d12.2, fpos(16,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ycrd13, d12.2, fpos(17,41), format("Z,ZZZ,ZZZ,ZZZ.XX-")
 
.field ynet1, d12.2, fpos(5,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet2, d12.2, fpos(6,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet3, d12.2, fpos(7,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet4, d12.2, fpos(8,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet5, d12.2, fpos(9,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet6, d12.2, fpos(10,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet7, d12.2, fpos(11,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet8, d12.2, fpos(12,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet9, d12.2, fpos(13,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet10, d12.2, fpos(14,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet11, d12.2, fpos(15,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet12, d12.2, fpos(16,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
.field ynet13, d12.2, fpos(17,59), format("Z,ZZZ,ZZZ,ZZZ.XX-")
 
.structure rec1, <2>,year,acct,div,dept,<4>,acct_descr
.structure rec2, bbal1,bbal2,bbal3,bbal4,bbal5,bbal6,bbal7,bbal8,bbal9,-
	bbal10,bbal11,bbal12,bbal13,-
	ydeb1,ydeb2,ydeb3,ydeb4,ydeb5,ydeb6,ydeb7,ydeb8,ydeb9,-
	ydeb10,ydeb11,ydeb12,ydeb13,-
	ycrd1,ycrd2,ycrd3,ycrd4,ycrd5,ycrd6,ycrd7,ycrd8,ycrd9,-
	ycrd10,ycrd11,ycrd12,ycrd13,-
	ynet1,ynet2,ynet3,ynet4,ynet5,ynet6,ynet7,ynet8,ynet9,-
	ynet10,ynet11,ynet12,ynet13
.set set_year, rec1, year
.set set_chg, rec1, year
.set set_show, rec1, year,acct,div,dept,acct_descr
.set set2, rec2, bbal1,bbal2,bbal3,bbal4,bbal5,bbal6,bbal7,bbal8,bbal9,-
	bbal10,bbal11,bbal12,bbal13,-
	ydeb1,ydeb2,ydeb3,ydeb4,ydeb5,ydeb6,ydeb7,ydeb8,ydeb9,-
	ydeb10,ydeb11,ydeb12,ydeb13,-
	ycrd1,ycrd2,ycrd3,ycrd4,ycrd5,ycrd6,ycrd7,ycrd8,ycrd9,-
	ycrd10,ycrd11,ycrd12,ycrd13,-
	ynet1,ynet2,ynet3,ynet4,ynet5,ynet6,ynet7,ynet8,ynet9,-
	ynet10,ynet11,ynet12,ynet13
.button DTL, text("Detail"), select("D")
.button DAT, text("Chg Year"), select("Y")
.button_set bottom, end
.end
; .button TOT, text("Totals"), select("T")
;
;=============================================================== 
