Desculpas pela tradução automática. Congratulo-me com a ajuda dos editores (tem sido algum tempo desde a última vez).
COBOL não tem "strings", no sentido de que não há campo com um terminal (como um nulo ou uma nova linha) que COBOL iria interpretar como sendo o fim de pedaço de dados.
COBOL tem campos de comprimento fixo.
Como o Oacle sabe quanto tempo tem sua senha de usuário e senha? Não.
Você precisa descobrir como a Oracle pode entender o comprimento de seus dados.
A primeira abordagem é consultar a documentação Pro * COBOL (Oracle COBOL). Lá você verá uma definição de dados incluindo VARYING para o userid e senha.
VARYING (nesse contexto particular) pertence a Pro * COBOL. Seria considerado uma Extensão de Idioma para COBOL.
Não é claro qual COBOL compilador você está usando.
O GnuCOBOL tem ANYLENGTH, mas não está (ainda) disponível para definições WORKING-STORAGE. Micro Focus COBOL (se você estiver usando um deles) pode ter ANYLENGTH ou algo equivalente: se você consultar a documentação / knowledgebase, eu esperaria que você pode encontrar algo.
No entanto, ele pode ser feito em qualquer COBOL simples, embora você precise calcular o comprimento dos dados você mesmo (ele não será automático, ao contrário do VARYING e o ANYLENGTH).
Primeiro, você precisa entender como a Oracle espera que os dados cheguem a ele a partir do Pro * COBOL.
O que o VARYING realmente faz, pode ser definido como este:
01 Senha do usuário.
05 UP-Length COMP-5 PIC 9 (4).
05 UP-Username PIC X (30).
A Oracle espera um tipo "varchar". Um binário de dois bytes (inteiros) de comprimento, immediatelt antes dos dados.
Você MOVE seu userid exigido para UP-Username, então você iria trabalhar para fora quantos traiing espaços em branco há no campo, subtrair que a partir de 30, e colocar o resultado em UP-Length. Dependendo do compilador COBOL que você tem, existem maneiras mais ou menos fáceis de fazer isso.
Você precisa fazer isso para todos os campos de tipo "varchar".
Sem o comprimento antes dos dados, a Oracle teria usado os dois primeiros caracteres de dados como um inteiro binário.
English original:
COBOL does not have "strings", in the sense that there is no field with a terminal (like a null or a newline) which COBOL would interpret as being the end of piece of data.
COBOL has fixed-length fields.
How does Oacle know how long your userid and password are? It doesn't.
You need to find out how Oracle can understand the length of your data.
First approach is to consult the Pro*COBOL (Oracle's COBOL) documentation. There you will see a data-definition including VARYING for the userid and password.
VARYING (in that particular context) belongs to Pro*COBOL. It would be considered a Language Extension for COBOL.
It is not clear which COBOL compiler you are using.
GnuCOBOL does have ANYLENGTH, but it is not (yet) available for WORKING-STORAGE definitions. Micro Focus COBOL (if you happen to be using one of theirs) may have ANYLENGTH or something equivalent: if you consult their documentation/knowledgebase, I'd expect you may find something.
However, it can be done in any plain COBOL, although you need to work out the length of the data yourself (it will not be automatic, unlike the VARYING and the ANYLENGTH).
First, you need to understand how Oracle expects the data to arrive to it from Pro*COBOL.
What the VARYING actually does, can be defined like this:
01 User-Password.
05 UP-Length COMP-5 PIC 9(4).
05 UP-Username PIC X(30).
Oracle expects a "varchar"-type. A two-byte binary (integer) length, immediatelt before the data.
You would MOVE your required userid to UP-Username, then you would work out how many traiing blanks there are in the field, subtract that from 30, and put the result into UP-Length. Depending on which COBOL compiler you have, there are more or less easy ways to do that.
You need to do that for all "varchar"-type fields.
Without the length before the data, Oracle would have used the first two characters of data as a binary integer.