ioLbl(n)(1:1) = c1Set1(j:j)
CHARACTER*10 c1Set1
c1Set1 = '0123456789'
c2Set1 = c1Set1
c1Set2 = c1Set1
c2Set3 = c1Set1//c2Set2
l1Set = LEN(c1Set1)