[Search for users]
[Overall Top Noters]
[List of all Conferences]
[Download this site]
| Title: | VAX/DEC COBOL |
| Notice: | Kit,doc,performance talk info-->DIR/KEY=KIT or DOC or PERF_TALK |
| Moderator: | PACKED::BRAFFITT |
|
| Created: | Mon Feb 03 1986 |
| Last Modified: | Fri Jun 06 1997 |
| Last Successful Update: | Fri Jun 06 1997 |
| Number of topics: | 3250 |
| Total number of notes: | 13077 |
3203.0. "Vesting problem with VAX COBOL" by HANDVG::STEVELIU () Thu Feb 20 1997 22:21
Attached is the VAX COBOL source of a program I used to try out using
VEST to translate the VAX image, say P1.EXE and is running fine on
VAX. My VAX system is V6.1.
I run VEST on Alpha (V6.2), after that I got P1_TV.EXE;1 and P1_TV.LIS;1
I try to run P1_TV.EXE;1 on Alpha but I'm getting these run errors,
please explain why the translation fails to produce a runnable Alpha
image.
Behaviour of P1.EXE on VAX :
==========================
$ run P1.EXE;1
ENTER WORD
123
321
03 CHARACTERS
Behaviour of P1_TV.EXE;1 on Alpha :
=================================
$ run P1_TV.EXE;1
ENTER WORD
123
%COB-F-CANFAIL, CANCEL failed on routine (TESTB)
-SYSTEM-F-PAGOWNVIO, page owner violation
%TRACE-F-TRACEBACK, symbolic stack dump follows
Image Name Module Name Routine Name Line Number rel PC
abs PC
0 93FC5550
93FC5550
TIE$SHARE 0 000592B4
0008B2B4
----- Begin Translated VAX Frames
LIBRTL_D56_T 0 000E7C04
000E7C04
P1_TV 0 00010CC0
00010CC0
P1_TV 0 000103D0
000103D0
P1_TV 0 00010148
00010148
P1_TV 0 00011C08
00011C08
TIE$SHARE 0 00058F04
0008AF04
----- End Translated VAX Frames
0 93FC533C
93FC533C
TIE$SHARE 0 00058E30
0008AE30
0 93FC6170
93FC6170
I forgot to mention that I have tried VEST with
/float=d56_float
/optimize
and without these options and the same failure occurs.
please advise.
---------------------------VAX COBOL SOURCE-------------------------------------
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTA.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TESTA-DATA GLOBAL.
02 LET-CNT PIC 9(2)V9(2).
02 IN-WORD PIC X(20).
02 DISP-COUNT PIC 9(2).
PROCEDURE DIVISION.
GETIT SECTION.
BEGINIT.
DISPLAY "ENTER WORD".
MOVE SPACES TO IN-WORD.
ACCEPT IN-WORD.
CALL "TESTB" USING IN-WORD LET-CNT.
PERFORM DISPLAYIT.
STOP RUN.
DISPLAYIT SECTION.
SHOW-IT.
DISPLAY IN-WORD.
MOVE LET-CNT TO DISP-COUNT.
DISPLAY DISP-COUNT " CHARACTERS".
IDENTIFICATION DIVISION.
PROGRAM-ID. TESTB INITIAL.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 SUB-1 PIC 9(2) COMP.
01 SUB-2 PIC S9(2) COMP-3.
01 HOLD-WORD.
03 HOLD-CHAR PIC X OCCURS 20 TIMES.
LINKAGE SECTION.
01 TEMP-WORD.
03 TEMP-CHAR PIC X OCCURS 20 TIMES.
01 CHARCT PIC 99V99.
PROCEDURE DIVISION USING TEMP-WORD, CHARCT.
CONVERT-IT SECTION.
STARTUP.
IF TEMP-WORD=SPACES
MOVE 0 TO CHARCT
GO TO GET-OUT.
PERFORM LOOK-BACK
VARYING SUB-1 FROM 20 BY -1
UNTIL TEMP-CHAR (SUB-1) NOT = SPACE.
MOVE SUB-1 TO CHARCT.
MOVE SPACES TO HOLD-WORD.
PERFORM MOVE-IT
VARYING SUB-2 FROM 1 BY 1
UNTIL SUB-1 = 0.
MOVE HOLD-WORD TO TEMP-WORD.
GET-OUT.
EXIT PROGRAM.
MOVE-IT.
MOVE TEMP-CHAR (SUB-1)
TO HOLD-CHAR (SUB-2).
SUBTRACT 1 FROM SUB-1.
LOOK-BACK.
EXIT.
END PROGRAM TESTB.
END PROGRAM TESTA.
| T.R | Title | User | Personal
Name | Date | Lines |
|---|
| 3203.1 | FWIW | RTOAL2::MAHER | TIER3 simply a better RPC! | Fri Feb 21 1997 01:52 | 8 |
| Hi,
If you take the INITIAL out of the PROGRAM-ID. TESTB bit what happens?
Probably nothing to do with your problem, but I recall CANFAIL errors
running a cobol program over DECnet because it had INITIAL.
Regards Richard Maher.
|
| 3203.2 | removing INITIAL works | HANDVC::STEVELIU | | Fri Feb 21 1997 03:32 | 4 |
|
Yes, removing INITIAL works. Is this a documented bug for VEST ?
-steve
|
| 3203.3 | See note 2175 | PACKED::BRAFFITT | | Fri Feb 21 1997 06:28 | 1 |
| See note 2175 for some reasons why this restriction exists.
|