|
View previous topic :: View next topic
|
| Author |
Message |
SVazifdar
New User
Joined: 21 Apr 2006
Posts: 14
|
|
|
|
I have compiled the sample program I found in Accessing UCB from a COBOL program and it has generated the following error. Could anyone please help.
Thanks.
| Code: |
000122 01 TIOT-SEG.
000123 05 TIO-LEN PIC X.
000124 05 FILLER PIC X(03).
000125 05 DD-NAME PIC X(08).
000126 05 SWA-V-ADDR PIC X(03).
000127 05 FILLER PIC X(02).
000128 05 UCB-ADDR PIC X(03).
000322 SET WS-UCB-POINTER TO UCB-ADDR. |
=000322==> IGYPS2060-S The sending operand "UCB-ADDR" in the "SET" statement was an invalid type. The statement was discarded. |
|
| Back to top |
|
 |
CICS Guy
Senior Member
Joined: 18 Jul 2007
Posts: 2146
Location: At my coffee table
|
|
| Back to top |
|
|
dick scherrer
Moderator Emeritus
Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix
|
|
|
|
Hello,
You have tried to move an x(3) field to a pointer - which is not allowed.
You need to resolve this by moving x(3) to x(3) or pointer to pointer. SET won't work for the x(3) fields. . . |
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
you need to contact qzphc5,
since he was the person offering this code.
even he said that he was having problems.
and you noticed, nobody provided assistance.
If you really want to do this, google and find something that works. |
|
| Back to top |
|
|
|
|
