.input i_lglyear, 1, 75
.placement 8, 4
.title " Year Transactions "
.field l_head, a1, -
 user("Reference   Date      Jnl  Description                  Typ       Amount")
.field l_ref, a8, pos(1,1)
.field l_date, d8, pos(1,9), date, bzro
.field l_jrnl, a2, pos(1,23)
.field l_descr, a25, pos(1,28)
.field l_type, a1, pos(1,58)
.field l_amnt, d10.2, pos(1,61), format('ZZ,ZZZ,ZZZ.XX-'), bzro
.structure rec1, l_ref,l_date,l_jrnl,l_descr,l_type,l_amnt
.set set1, rec1, l_ref,l_date,l_jrnl,l_descr,l_type,l_amnt
.end
