dcl uuntal%,hulp% dcl zwart%,rood%,groen%,blauw%,bruin%,magenta%,cyan%,lgrijs% dcl dgrijs%,lrood%,lgroen%,geel%,lblauw%,lmagenta%,lcyan%,wit% dcl kt%,kt2%,kl%,kn%,kgra%,kh%,kh2%,kh3%,kh4%,kh5%,ka%,ka2%,ka3%,ka4%,ka5% dcl e#,i%,i1%,i2%,i3%,i4%,i5%,a%,b%,z% dcl phil%,lijntel%,l6%,tel%,zoek%,keuz%,fout% dcl tabkode$=12(24) dcl datum=6(12) dcl mnd$=9(24),testd$=8(12),testd2$=6(12),testd3$=10(12),testd4$=8(12) dcl nja$=4 dcl dat$=8 dcl test1=6 dcl test2=6 dcl ttest1=6 dcl ttest2=6 dcl ttest3=6 dcl ttest4=6 dcl tndat=6 dcl tbondat=6 dcl berb$=32,bere$=32,ret$=20,bla$=15,num$=10,ng$=17,esc$=15,vali$=35,annu$=35 dcl mtl$=1,mtr$=1,kruis$=1,vtb$=1,vte$=1,htb$=1,hto$=1,ltb$=1,rtb$=1,mtb$=1 dcl lto$=1,rto$=1,mto$=1,volg$=12,voor$=10,begin$=8,einde$=8,svnaam$=8 dcl sleutel$=8,inita$=3,firm$=12,passwoord$=4,toassi$=6 dcl fvoor$=4,fvolg$=4,j$=1,ii$=2 dcl jaar$=4,maand$=2,dag$=2 dcl inldat1$=8,inldat2$=8 dcl ndat$=8 field=m,ndat dcl ndag$=2,npun$=1,nmaa$=2,npun1$=1,njaa$=2 dcl artdown$=256(3) field=m,artdown(1) dcl artkey$=4,artmk#,artrec$=250(3) field=m,artrec(1) dcl artalfa$=10,artoms$=30,artoms2$=30,artbtw%,artreknr$=6,artbedr=5(14) dcl veraant,verbed field=m dcl brtdown$=15 field=m,brtdown dcl brtkode$=14 field=m,brtkode dcl brtoms$=10,brtkey$=4 field=m dcl specdown$=51 field=m,specdown dcl artkode%,specins#,specoms$=48 field=m dcl memdown$=256(2) field=m,memdown(1) dcl memkode$=11,memmk#,memrec$=244(2) field=m,memkode dcl memklant$=8,memfaknu%,memins# field=m,memrec(1) dcl memdeel$=30(15),memhelp$=30,memdatum$=8,memkode2$=11,filler=4 field=m,memhelp dcl memart$=4,memaant=4,memverk=4,memprijs=4,memkort=4,filler=10 field=m,memart dcl memnum%,memspec$=5,filler=23 field=m dcl bondown$=111 field=m,bondown dcl bonkode$=10 field=m,bonkode dcl bonklant$=8,bonnumer%,bonmk#,bonrec$=100 field=m,bonrec dcl bonnum=6,bonfak% dcl bongoed=6,bonbtw=6,bonbeta=6,bontot=6 dcl bondet$=24,bondruk$=1,bonverw$=1,bondatum$=8 field=m,bondatum dcl lb$=2,punt1$=1,mb$=2,punt2$=1,rb$=2 field=m dcl klardown$=123 field=m,klardown dcl klarkode$=12 field=m,klarkode dcl kla$=8,art$=4,klarmk#,klarrec$=110 field=m,klarrec dcl klar=6,klarkod2$=12 field=m dcl klarhis$=213 field=m,klarhis dcl klhkode$=12,klhmk#,klahrec$=200 field=m,klhkode dcl klhklant$=8,klhart$=4 field=m,klahrec dcl klhbed=6(12),klhaant=5(12),klhdat$=8,klhkode2$=12,filler=48 field=m dcl postdown$=37 field=m,postdown dcl postkode$=6,postmk#,postrec$=30 field=m,postkode dcl postnum$=4,posttel% field=m dcl gemdown$=37 field=m,gemdown dcl gemkode$=32,gemmk#,gemrec$=4 field=m,gemkode dcl gem$=30,gemtel% field=m dcl arhdown$=115 field=m,arhdown dcl arhkode$=4,arhmk#,arhrec$=110 field=m,arhkode dcl arhart$=4 field=m,arhrec dcl arhtot(12),arhmaand#,filler=13 field=m dcl sortdown$=29 field=m,sortdown dcl sortkode$=28 field=m,sortkode dcl sortnaam$=20,sortklant$=8 field=m dcl tekdown$=80 field=m,tekdown dcl tekkode$=9 field=m,tekkode dcl tektyp$=8,tektel#,tekmk#,tekrec$=70 field=m dcl findown$=189 field=m,findown dcl finkode$=8 field=m,finkode dcl finrek$=6,fintel%,finmk#,finrec$=180 field=m,finrec dcl finuitr$=5,findat$=8,finfaknr$=6,finklva$=1,finkllv$=8 dcl finsaldo=6,finbank=6,finkla=6,fintrek$=6(10),fintbed=5(10) dcl finoms$=14,finkode2$=6,filler=2 field=m dcl verkdown$=209 field=m,verkdown dcl verkkey$=8 field=m,verkkey dcl verkfok$=6,verktel%,verkmk#,verkrec$=200 field=m,verkrec dcl verkdat$=8,verkkla$=8,verkkod$=1(5),verkbed=5(5),verkfak$=6,verkcnf$=1 dcl verkdeb=6,verkoms$=20,verkbtw=6,verkteg$=6(10),verktbe=5(10) dcl verkboek$=1,filler=4 field=m dcl aankdown$=209 field=m,aankdown dcl aankkey$=8 field=m,aankkey dcl aankfok$=6,aanktel%,aankmk#,aankrec$=200 field=m,aankrec dcl aankdat$=8,aanklev$=8,aankkod$=1(5),aankbed=5(5),aankfak$=6,aankcnf$=1 dcl aankcre=6,aankoms$=20,aankbtw=6,aankteg$=6(10),aanktbe=5(10) dcl aankboek$=1,filler=4 field=m dcl hisdown$=77 field=m,hisdown dcl hiskode$=16,hismk#,kllvhis$=60 field=m,hiskode dcl hisnaam$=8,histdat$=6,histel% field=m,kllvhis dcl hisdat$=8,hiskod1$=1,hiskod2$=1,hisbed1=6,hisbed2=6,hiskllv$=8,filler=2 dcl hisfakt$=6,hisbetw$=6,hisbtw=6,hisoms$=10 field=m dcl fakdown$=96 field=m,fakdown dcl fakkode$=15,fakmk#,fakrec$=80 field=m,fakkode dcl fakkllv$=1,fakname$=8,fakfak$=6 field=m,fakrec dcl fakklv$=1,faknaam$=8,fakdat$=8,fakverv$=8,fakoms$=20,faktebe=6,fakont=6 dcl faknum$=6,faklink$=5,faktek$=1,fakvm=8,fakteba$=1,faktest$=1,filler=1 field=m dcl kldown$=256 field=m,kldown dcl klkode$=8,klmk#,klrec$=247 field=m,klrec dcl klnaam$=30,kltwnaam$=30,klstra$=24,klland$=1,klgem$=24 dcl kllbtw$=4,klbtwnr$=11,klbank$=14,kltelef$=20,klfax$=20,klgsm$=20 dcl klomz2j=6,klomzvj=6,kljomz=6 dcl kltego=6,klover=6,kltbtw=6,klcred=6 dcl klprijs$=1,klaant%,klfakty$=1,klniet$=1,klkode2$=8 field=m dcl levdown$=256 field=m,levdown dcl levkode$=8,levmk#,levrec$=247 field=m,levrec dcl levnaam$=24,levstraa$=24,levgem$=24,levland$=1,levbtw$=11,levtele$=15 dcl levbank$=14,levdial$=5,levvast$=6,levlbtw$=4,levjomz=6,levvj=6 dcl levtbtw=6,levmede=6,levtebe=6,levvoor=6,levklnum$=8,abet$=1,vd$=2 dcl levfax$=15,levkode2$=8,levkod2$=5,levbest=5,levokode$=8,levslui2$=8,levdag$=10,levkort=6,levniet$=1,levgoed$=1 field=m dcl rekdown$=87 field=m,rekdown dcl rekkode$=6,rekmk#,rekrec$=80 field=m,rekrec dcl reknum$=6,rekoms$=24,rekmeca%,rekdeb=6(3),rekcred=6(3),rekklas$=3 dcl rekhok$=1,rekvast$=1,rekmeko$=5,rekbtw$=1,rekdiver$=1,filler=10 field=m dcl rekarec$=50 field=m,rekarec dcl rekaan1(3),rekaan2(3),filler=10 field=m dcl centdown$=223 field=m,centdown dcl centkode$=6,centmk#,centrec$=216 field=m,centrec dcl centoms$=24,centdeb(12),centcred(12) field=m dcl madown$=95 field=m,madown dcl makod9$=14,mamk#,mahisre$=80 field=m,makod9 dcl mareknr$=6,madat$=6,matel% field=m,mahisre dcl madatum$=8,madbcr$=1,mabedrd=5,mabedrc=5,makode$=1,makllev$=1,maklv$=8 dcl matgfak$=6,maomsch$=15,makode2$=14,filler=16 field=m dcl pr$=255 field=m,pr dcl best$=7(10),namen$=7(10),firmas$=10(10),filler=15 field=m dcl param1$=255 field=m,param1 dcl naam$=24,adres$=24,gemeen$=24,btwnr$=11,handel$=20,banknr$=14(2),telf1$=14 dcl telf2$=14,fax$=14,rekbnbt$=6,rekbkos$=6,vfinrek$=6(10),filler=10 field=m dcl param2$=255 field=m,param2 dcl bestand$=10(25),pwtest$=4,filler=1 field=m dcl param3$=255 field=m,param3 dcl teller%(50),printtel%(25),kodes$=1(75),firmdat$=8,betrek$=6,fadat$=8,filler=8 field=m dcl param4$=255 field=m,param4 dcl verkod#(5),vervak$=4(5),vertek$=4(5),vastrek$=6(38) field=m dcl param5$=255 field=m,param5 dcl dianr#(31),oproep$=6(30),filler=44 field=m dcl param6$=255 field=m,param6 dcl oms$=12(20),filler=15 dcl param7$=255 field=m,param7 dcl omt$=12(20),filler=15 field=m dcl param8$=255 field=m,param8 dcl paraan$=25(10),filler=5 dcl param9$=255 field=m,param9 dcl parver$=25(10),filler=5 field=m dcl param10$=255 field=m,param10 dcl dianr2#(31),oproep2$=6(30),filler=44 field=m dcl param11$=255 field=m,param11 dcl oms2$=12(20),filler=15 field=m dcl param12$=255 field=m,param12 dcl omt2$=12(20),filler=15 field=m dcl param15$=255 field=m,param15 dcl teken$=1(50),kk%(50),filler=105 field=m dcl param16$=255 field=m,param16 dcl kleur%(15),filler=225 field=m dcl param18$=255 field=m,param18 dcl email$=30,web$=40,filler=185 field=m dcl param24$=255 field=m,param24 dcl verper=5(5),filler=230 field=m field=1 dcl par$=255(32) ==32) =3020 laaaaaaaaaaaa