Cobol подключиться к оракулу не удалось, когда поле пароля определено дольше, чем реальное значение пароля

Если вы используете Pro * COBOL, то эта ссылка для вас: http://docs.oracle.com/cd/A57673_01/DOC/api/doc/PCO18/ch1.htm#toc024

Он показывает, как определить поля вашего имени пользователя и пароля как РАЗЛИЧНЫЕ.

 WORKING STORAGE SECTION. 

     ... 

     EXEC SQL BEGIN DECLARE SECTION END-EXEC. 

         01  USERNAME  PIC X(10) VARYING. 

         01  PASSWD    PIC X(10) VARYING. 

         ... 

     EXEC SQL END DECLARE SECTION END-EXEC. 

     ... 

 PROCEDURE DIVISION. 

 LOGON. 

     MOVE "SCOTT" TO USERNAME-ARR. 

     MOVE 5 TO USERNAME-LEN. 

     MOVE "TIGER" TO PASSWD-ARR. 

     MOVE 5 TO PASSWD-LEN. 

     EXEC SQL WHENEVER SQLERROR GOTO LOGON-ERROR END-EXEC. 

     EXEC SQL 

         CONNECT :USERNAME IDENTIFIED BY :PASSWD 

     END-EXEC. 

Как оказалось, приведенный пример не может быть полезен для вас напрямую (из комментариев), потому что ваши пароли не могут быть пятью длиной.

Это действительно не проблема. Вы можете рассчитать длину пароля для данного пользователя, а затем вместо буквального значения 5 использовать вычисленное вами значение.

@NealB показал в своем ответе простой способ сделать это (если у вас не может быть начальных или встроенных пробелов в пароле).

INSPECT PASSWD TALLYING PSSWDLEN FOR ALL SPACE
COMPUTE PSSWDLEN = LENGTH OF PASSWD - PSSWDLEN 

Если вы не можете использовать этот метод, выберите простую конструкцию цикла по вашему выбору, начиная с последнего байта поля пароля и продолжая, пока встречается пробел. Не упустите возможность полностью космического пространства.

В любом случае вы можете захотеть использовать тот же метод для имени пользователя, так как он будет более переносимым между различными вариантами Oracle / OS (в зависимости от того, что именно позволяет ему работать на вас). Я бы сделал это, если только это не станет абсолютно невозможным.

Вы упомянули о переходе на новую версию Oracle. Это поведение должно быть задокументировано в разделе «Сводка изменений» или аналогичном разделе документации. Если вы не можете найти ссылку на него, свяжитесь с Oracle и узнайте, что происходит.

Если вы не используете Pro * COBOL, вы можете имитировать эффект VARYING.

     EXEC SQL BEGIN DECLARE SECTION END-EXEC. 

         01  USERNAME.
             05  USERNAME-LEN BINARY PIC 9(4).
             05  USERNAME-VALUE      PIC X(10). 

         01  PASSWD.
             05  PASSWD-LEN BINARY PIC 9(4).
             05  PASSWD-VALUE      PIC X(10). 

     END-EXEC. 

Потом:

 LOGON. 

     MOVE "SCOTT" TO USERNAME-VALUE. 

     MOVE 5 TO USERNAME-LEN. 

     MOVE "TIGER" TO PASSWD-VALUE. 

     MOVE 5 TO PASSWD-LEN. 

     EXEC SQL WHENEVER SQLERROR GOTO LOGON-ERROR END-EXEC. 

     EXEC SQL 

         CONNECT :USERNAME IDENTIFIED BY :PASSWD 

     END-EXEC. 

Возможно, вам придется попробовать:

         01  USERNAME.
             05  USERNAME-LEN BINARY PIC 9(4).
             05  USERNAME-VALUE.
                 10  FILLER OCCURS 1 TO 10 TIMES
                     DEPENDING ON USERNAME-LEN.
                     15  FILLER      PIC X. 

         01  PASSWD.
             05  PASSWD-LEN BINARY PIC 9(4).
             05  PASSWD-VALUE.
                 10  FILLER OCCURS 1 TO 10 TIMES
                     DEPENDING ON PASSWD-LEN.
                     15  FILLER      PIC X. 

     END-EXEC. 

Если вы ничего не добьетесь с предложением, вам необходимо предоставить дополнительную информацию, например об ОС, версии COBOL, версии Oracle, а также о том, что вы пробовали и какие результаты вы получили от этих попыток.

Вы пробовали использовать модификацию ссылки, чтобы настроить длину имени пользователя / пароля в запросе на соединение?

Я не из рода Oracle, но что-то вроде этого может сработать:

22             EXEC SQL
23              CONNECT :USERNAME(1:UNAMELEN) IDENTIFIED BY :PASSWD(1:PSSWDLEN) USING :DBSTRING
24             END-EXEC.

где UNAMELEN и PSSWDLEN - числовые переменные (например, PIC S9 (4) BINARY), содержащие фактическую длину имени пользователя и пароля.

Определить значения для UNAMELEN и PSSWDLEN можно с помощью команды INSPECT примерно так:

INSPECT PASSWD TALLYING PSSWDLEN FOR ALL SPACE
COMPUTE PSSWDLEN = LENGTH OF PASSWD - PSSWDLEN 

Это будет работать при условии, что пароли и имена пользователей не содержат внутренних пробелов. Если они это сделают, вам придется вычислять фактическую длину по-другому.