.input gl6200, 7, 58
.placement 1, 1
.title ' Journal Report ', highlight
.paint _

.field journal, a2, pos(1,1), prompt("Journal"), fpos(1,22), -
 help(GLSJOURN), default("*")

.field acct, a6, pos(2,1), prompt("Account"), fpos(2,22), -
 help(GLACCTNO), default("*"), user("#Drill/All#"), -
 change_method("GLACCT_CHANGE"), drill_method("GLACCT_FIND")
.field acct_descr, a25, fpos(2,31)

.field div, a4, pos(3,1), prompt("Division"), fpos(3,22), -
 help(GLDIVSNORPT), default("*"), user("#Drill/All#"), -
 change_method("GLDIVS_CHANGE"), drill_method("GLDIVS_FIND")
.field div_descr, a25, fpos(3,29)

.field dept, a4, pos(4,1), prompt("Department"), fpos(4,22), -
 help(GLDEPTNORPT), default("*"), user("#Drill/All#"), -
 change_method("GLDEPT_CHANGE"), drill_method("GLDEPT_FIND")
.field dept_descr, a25, fpos(4,29)

.field strper, d6, pos(5,1), prompt("Starting period"), fpos(5,22), -
 help(GLSTRPER), date(period), required

.field endper, d6, pos(6,1), prompt("Ending period"), fpos(6,22), -
 help(GLENDPER), date(period), required

.field rptseq, a1, pos(7,1), prompt("Report sequence"), fpos(7,22), -
 help(GL), select(0,3,,"Date","Reference")

.structure rec1, journal,acct,div,dept,strper,endper,rptseq
.set set1, rec1, journal,acct,div,dept,strper,endper,rptseq
.end
;