Strange embedded SQL problem (Pro*COBOL): ALTER USER does not work

From: Jan Kowalski <nospam-jan.kowalski_at_gmx.co.uk>
Date: Thu, 18 Apr 2002 21:19:54 +0200
Message-ID: <3cbf1c5c_2_at_news.arcor-ip.de>

Hi,

I encountered the following problem.

           MOVE 'SCOTT' TO USERNAME.            MOVE 'TIGER1234' TO PASSWD.            EXEC SQL                ALTER USER :USERNAME IDENTIFIED BY :PASSWD            END-EXEC. does not work (ORA-01935), while

           EXEC SQL                ALTER USER SCOTT IDENTIFIED BY TIGER1234            END-EXEC. works!

The host variables are declared as follows:

           EXEC SQL BEGIN DECLARE SECTION END-EXEC.

           01 USERNAME                 PIC X(10).

           01 DATABASE                 PIC X(10).

           01 PASSWD                   PIC X(10).

           EXEC SQL END DECLARE SECTION END-EXEC.

I use MicroFocus NetExpress 3.1 and Oracle 8.7.1 client (with the corresponding Pro*COBOL).

(The demo program is attached).

Any idea?

Best Regards

Markus Rakowski

begin 666 testlogin.CBL
M(" _at_(" @)%-%5"!0*$-/0E-13"D_at_0U-13%0]3U)!($-35"!#4U @14Y$+4,@ M0T]-4#4]6453($5.1% [#0H_at_(" @(" D4T54($-!4T4-"B @(" @("!%3E9) M4D].345.5"!$259)4TE/3BX-"B _at_(" @("!#3TY&24=54D%424].(%-%0U1)

M3TXN#0H_at_(" @(" @1$%402!$259)4TE/3BX-"B @(" @("!73U)+24Y'+5-4
M3U)!1T4_at_4T5#5$E/3BX-"@T*(" @(" @(" @("!%6$5#(%-13"!"14=)3B!$
M14-,05)%(%-%0U1)3TX_at_14Y$+45814,N#0H@(" @(" @(" @(# Q(%5315).
M04U%(" _at_(" @(" @(" @(" @("!024,_at_6"@Q,"DN#0H@(" @(" @(" @(# Q
M($1!5$%"05-%(" _at_(" @(" @(" @(" @("!024,_at_6"@Q,"DN#0H@(" @(" @
M(" _at_(# Q(%!!4U-71" @(" @(" @(" @(" @(" @("!024,_at_6"@Q,"DN#0H@
M(" _at_(" @(" @($5814,_at_4U%,($5.1"!$14-,05)%(%-%0U1)3TX_at_14Y$+458
M14,N#0H_at_(" @(" -"B @(" @(" @(" @15A%0R!344P_at_24Y#3%5$12!344Q#
M02!%3D0M15A%0RX-"_at_T*(" @(" @(" @(" P,2!005-35T0M0TA!3D=%1" @
M(" _at_(" @(" @4$E#(#DN#0H@(" @(" @(" @(" @(#_at_X(%!!4U-71"U#2$%.

M1T5$+512544_at_("!604Q512 Q+_at_T*#0H@(" @(" @4%)/0T5$55)%($1)5DE3

M24].+_at_T*#0H@(" @(" @(" @($E.251)04Q)6D4@(" @(" @(" @(" @("!0
M05-35T0M0TA!3D=%1"X-"_at_T*(" @(" @(" @("!-3U9%("=30T]45"<@(" @
M(" _at_(" @(" @5$\@55-%4DY!344N#0H@(" @(" @(" @($U/5D4@)U1)1T52
M)R _at_(" @(" @(" @("!43R!005-35T0N#0H@(" @(" @(" @($U/5D4@)TE.
M1D\G(" _at_(" @(" @(" @("!43R!$051!0D%312X-"@T*(" @(" @(" @("!%

M6$5#(%-13 T*(" _at_(" @(" @(" @(" @0T].3D5#5" Z55-%4DY!344_at_241%

M3E1)1DE%1"!"62 Z4$%34U=$(%5324Y'(#I$051!0D%310T*(" _at_(" @(" @
M("!%3D0M15A%0RX-"_at_T*(" @(" @(" @("!)1B!344Q#3T1%(#P^(# -"B @
M(" _at_(" @(" @(" @($1)4U!,05D@(B B#0H@(" @(" @(" @(" @("!$25-0
M3$%9(%-13$524DU##0H_at_(" @(" @(" @(" @("!'3R!43R!00BTY.3D-"B @
M(" _at_(" @(" @14Y$+4E&+_at_T*#0H@(" @(" @(" @($U/5D4@)U1)1T52,3(S
M-"<_at_(" @(" @("!43R!005-35T0N#0H-"B @(" @(" @(" @1$E34$Q!62 B
M04)/550_at_0TA!3D=)3D<@4$%34U=/4D0_at_5$\@(B!005-35T0@(B!54TE.1R!(

M3U-4(%9!4_at_T*(" @(" @+2 @(" B24%"3$53(@T*(" @(" @(" @("!%6$5#

M(%-13 T*(" _at_(" @(" @(" @(" @04Q415(@55-%4B Z55-%4DY!344_at_241%
M3E1)1DE%1"!"62 Z4$%34U=$#0H_at_(" @(" @(" @($5.1"U%6$5#+_at_T*#0H@
M(" _at_(" @(" @($E&(%-13$-/1$4@/2 P#0H@(" @(" @(" @(" @(%-%5"!0
M05-35T0M0TA!3D=%1"U44E5%(%1/(%12544-"B _at_(" @(" @(" @(" @1$E3

M4$Q!62 B0TA!3D=)3D<_at_4$%34U=/4D0_at_5$\@(B!005-35T0@(B!354-#15-& M54Q,(_at_T*(" @(" @(" @("!%3%-%#0H@(" @(" @(" @(" @("!$25-03$%9

M(")#2$%.1TE.1R!005-35T]21"!43R B(%!!4U-71" B($9!24Q54D4B#0H_at_
M(" _at_(" @(" @(" @("!$25-03$%9(%-13$524DU##0H-"B @(" @(" @(" @
M(" _at_($1)4U!,05D@(D%"3U54($-(04Y'24Y'(%!!4U-73U)$(%1/("(@4$%3
M4U=$("(_at_55-)3D<@4$Q!20T*(" @(" @+2 @(" @(" @(DX_at_5$585"(-"B @
M(" _at_(" @(" @(" @($5814,_at_4U%,#0H@(" @(" @(" @(" @(" @(" @04Q4
M15(_at_55-%4B!30T]45"!)1$5.5$E&245$($)9(%1)1T52,3(S- T*(" @(" @
M(" _at_(" @(" @14Y$+45814,-"@T*(" @(" @(" @(" @(" @248_at_4U%,0T]$
M12 ](# -"B _at_(" @(" @(" @(" @(" @("!3150_at_4$%34U=$+4-(04Y'140M
M5%)512!43R!44E5%#0H_at_(" @(" @(" @(" @(" @(" @1$E34$Q!62 B0TA!
M3D=)3D<_at_4$%34U=/4D0_at_5$\@5$E'15(Q,C,T(%-50T-%4T953$PB#0H@(" @

M(" _at_(" @(" @("!%3%-%#0H@(" @(" @(" @(" @(" @(" @1$E34$Q!62 B

M0TA!3D=)3D<_at_4$%34U=/4D0_at_5$\@5$E'15(Q,C,T($9!24Q54D4B#0H@(" @
M(" _at_(" @(" @(" @(" @1$E34$Q!62!344Q%4E)-0PT*(" @(" @(" @(" @
M(" _at_14Y$+4E&#0H@(" @(" @(" @($5.1"U)1BX-"@T*(" @(" @(" @("!)
M1B!005-35T0M0TA!3D=%1"U44E5%#0H_at_(" @(" @(" @(" @("!%6$5#(%-1
M3 T*(" _at_(" @(" @(" @(" @(" @($%,5$52(%5315(@4T-/5%0_at_241%3E1)
M1DE%1"!"62!424=%4_at_T*(" @(" @(" @(" @(" @14Y$+45814,-"B @(" @

M(" _at_(" @(" @($E&(%-13$-/1$4@/2 P#0H@(" @(" @(" @(" @(" @(" @ M1$E34$Q!62 B0TA!3D=)3D<_at_4$%34U=/4D0_at_0D%#2R!43R!424=%4B!354-#

M15-&54Q,(_at_T*(" @(" @(" @(" @(" @14Q310T*(" @(" @(" @(" @(" @
M(" _at_($1)4U!,05D@(D-(04Y'24Y'(%!!4U-73U)$($)!0TL_at_5$\@5$E'15(@
M1D%)3%5212(-"B _at_(" @(" @(" @(" @($5.1"U)1_at_T*(" @(" @(" @("!%
M3D0M248N#0H-"B _at_(" @("!00BTY.3DN#0H-"B @(" @(" @(" @4U1/4"!2

%54XN#0H`
`
end Received on Thu Apr 18 2002 - 21:19:54 CEST