Tamanho do campo - validação

Galera, gostaria de tirar uma dúvida e em qual parte deveria melhorar, poi estou tentando validar o tamanho do campo de loja em que na tabela ZP5_Loja seja tamanho 3 e na SC5 C5_LOJA seja tamanho 4, seria possível realizar essa validação para vir com o tamanho 4, e grava na SC5 o tamanho 4? Pesei em deixar o id da loja pelo cliente ser o CNPJ:

else
        xNum := getNumSC5()
        // cabeçalho
        aSC5 := {}
        aAdd(aSC5, {"C5_NUM"    , xNum ,Nil})
        aAdd(aSC5, {"C5_TIPO"     , "N" ,Nil})
        aAdd(aSC5, {"C5_CLIENTE"  , ZP5->ZP5_CLIENT, Nil})
        if((pesqPict('ZP5', 'ZP5_LOJA') == &(__nTamPLoja)) .AND. ZP5->ZP5_CGC == SA1->A1_CGC )
            AAdd(aSC5,{"C5_LOJACLI", SA1->A1_LOJA, Nil})
        else
            aAdd(aSC5, {"C5_LOJACLI"  , ZP5->ZP5_LOJA  , Nil})
        ENDIF