Subject: | |
From: | |
Reply To: | |
Date: | Mon, 6 Aug 2001 15:41:49 -0600 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
I am using COBOL macro to perform call to IMAGE database in my COBOL
program. All these macros are in a copybook and all needed macros are
included in program. But when I compile my program it gives following
error
01757
659000**********************************************************
01758 660000* DATABASE ACCESS MACROS
*
01759
661000**********************************************************
01760 662000 %BASE DISTR
01760 DEFINES 662000 REPLACE ==`== BY =='==
01761 001800 ==(DB)== BY DISTR
01761 663000 %DBOPEN.
01761 663000 COPY DBOPEN OF CL .
01761 664000
01761 665000 %DBFIND DISTRIBUTOR.
01761 665000 COPY DBFIND OF CL REPLACING ==(DB-DSN)== BY
DISTRIBUTO
R.
01761 666000 %DBGET5 DISTRIBUTOR.
01761 666000 COPY DBGET5 OF CL REPLACING ==(DB-DSN)== BY
DISTRIBUTO
R.
01761 667000 %DBFIND MISC-DATES.
01761 667000 COPY DBFIND OF CL REPLACING ==(DB-DSN)== BY
MISC-DATES
.
01761 668000 %DBGET5 MISC-DATES.
01761 668000 COPY DBGET5 OF CL REPLACING ==(DB-DSN)== BY
MISC-DATES
.
01761 669000 %DBLOCK MISC-DATES.
01761 DEFINES 669000 COPY DBLOCK OF CL
01761 006300 REPLACING ==(DB-DSN)== BY
MISC-DATES
.
01761 670000 %DBUPD MISC-DATES.
01761 DEFINES 670000 COPY DBUPD OF CL
01761 007100 REPLACING ==(DB-DSN)== BY
MISC-DATES
.
01761 671000 %DBUNLOCK.
01761 671000 COPY DBUNLOCK OF CL .
01761 672000
01761 673000 %DBCLOSE.
01761 673000 COPY DBCLOSE OF CL .
01761 COPY CSICALLS.
01761 COPY DBABORT OF CL.
01761
674000**********************************************************
**
PAGE 0002/COBTEXT HBDSMNRS COBOL ERRORS and WARNINGS
COBOL ERRORS:
LINE # SEQ # COL ERROR SEV TEXT OF MESSAGE
------ ------ --- ----- --- ---------------
01761 08 496 D EARLY END OF FILE ON FILE COBTEXT , END
OF
FILE (FSERR 0).
01761 001800 38 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 001800 40 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 665000 40 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 666000 40 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 667000 40 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 668000 40 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 006300 40 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 007100 40 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 001800 41 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 001800 43 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 665000 46 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 666000 46 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 667000 46 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 668000 46 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 006300 46 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 007100 46 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 665000 47 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 666000 47 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 667000 47 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 668000 47 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 006300 47 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 007100 47 289 Q INVALID TOKEN IN COPY...REPLACING OR
REPLACE
CLAUSE.
01761 665000 49 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 666000 49 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 667000 49 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 668000 49 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 006300 49 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
01761 007100 49 048 W MISSING "BY" IN COPY or REPLACE
STATEMENT.
1 ERROR(s), 14 QUESTIONABLE, 14 WARNING(s)
*** DISASTROUS ERROR NEAR LINE 01761 ***
*** COMPILATION TERMINATED ***
procedure STACK_TRACE
DEBUG/iX C.16.01
HPDEBUG Intrinsic at: 8d8.00172488 stack_trace+$9c
PC=8d8.00172488 stack_trace+$9c
NM* 0) SP=41859ad8 RP=8d8.001732e0 abnormal_termination+$16c
NM 1) SP=41859978 RP=8d8.00173940 error+$3ec
NM 2) SP=41859898 RP=8d8.001744bc err_with_insert+$60
NM 3) SP=418595d8 RP=8d8.0012dec8 file_error_norm_term+$104
NM 4) SP=41859488 RP=8d8.00135b78 replace_prcssr+$770
NM 5) SP=41859300 RP=8d8.00136438 process_replace_stmt+$c4
NM 6) SP=41859248 RP=8d8.00132854 get_exp_source+$88c
NM 7) SP=41859098 RP=8d8.00132e98 do_pass_0+$c0
NM 8) SP=41858f60 RP=8d8.00133590 ANSI74+$18c
NM 9) SP=41852258 RP=8d8.00000000
(end of NM stack)
CHECKED SYNTAX ONLY.
CPU TIME = 0:00:02. WALL TIME = 0:00:13.
run COBOL.PUB.SYS,ANSI85;parm=1;info=""
Program terminated in an error state. (CIERR 976)
ERRORS IN COMPILE
setjcw jcw=fatal
Unless a CONTINUE is in effect, the remainder of the
current UDC will be flushed. (CIWARN 1723)
If I comment macros & related database para compilation goes thru. Any
pointer/suggestion/solution will be great help.
Thanks,
Pravin.
**********
Posted from www.3kworld.com
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|