Select A.Sys_dname As Library,
           A.Sys_tname As Table,
           Sys_cname   As Column,
           Coltype     As Coltype,
           Labeltext   As Coltxt,
           A.Label     As Tabletxt,
           Length, Precision,
           Scale
      From Qsys2/Syscolumns A
Inner Join Qsys2/Systables  B On B.Sys_dname=A.Sys_dname
                             And B.Sys_tname=A.Sys_tname
     Where B.Type In ('P','T')     /* Physical File / SQL Table */
	 And Precision=2
	 And Scale=0
	 And Coltype='NUMERIC'		/* Zoned Decimal */
	 And UCase(labeltext) Like '%COMPANY%'
	 And A.Sys_dname='DATALIB' 	/* Library Name  */