Hello,
Thank you very much for all your help from
the list members. You are overwheming - I got
stuck with this for 2 days and now I just send
an email to the list and within minutes, I got
my first COBOL program running on MPE. WOW!
Thanks all of you, thanks very very much. Peter,
Leonard, Jeff, Dave, Gergory and Curt - thanks for
your sample programs and all the info.
With your kind help, I did a SET LANG=COBX and
then REN within QEDIT. Changed my code to the
following then saved the file using K(eep) command.
Then I compiled the source using command
COBOLIIGO TEST1. Then SAVE $OLDPASS,TESTP1 and
ran the NMPRG TESTP1 and it worked.
I also left 2 blank spaces on each line and left the
first line blank (in the source file) as follows :
000100
001000 IDENTIFICATION DIVISION.
001100 PROGRAM-ID. A.
001110 ENVIRONMENT DIVISION.
001120 DATA DIVISION.
001200 PROCEDURE DIVISION.
001300 BEGIN.
001400 DISPLAY "THIS IS A TEST".
001410 STOP RUN.
I love you guys! ... Thanks again! :)
Cheers!
John
-----Original Message-----
From: DASS,JOHN (Non-A-Singapore,ex1)
Sent: Thursday, June 21, 2001 9:42 PM
To: [log in to unmask]
Subject: Help Starting COBOL
Importance: High
Hello,
I am pretty new to HP3K and just starting to write
some programs in C and now I would like to try COBOL.
I have downloaded the COBOL II reference manual from
docs.hp but just can't seem to get running.
I write a simple program as follows to display a
text and the compiler does not compile it. Here is
the sample code :
IDENTIFICATION DIVISION.
PROGRAM-ID. A.
PROCEDURE DIVISION.
BEGIN.
DISPLAY "THIS IS A TEST".
END PROGRAM A.
I compiled it using the command COBOLIIGO like this :
:COBOLIIGO TEST1
but it throw me error like this :
==========================
<snip>
00009 COBCNTL 000900*CONTROL NOVALIDATE,OPTIMIZE=0
00010 COBCNTL 001000*
00011 COBCNTL 001100* For any other options, redirect COBCNTL.PUB.SYS by usi
ng
00012 COBCNTL 001200* a file equation.
00013 COBCNTL 001300*
00014 IDENTIFICATION DIVISION.
PAGE 0002/COBTEXT COBOL
COBOL ERRORS:
LINE # SEQ # COL ERROR SVRTY TEXT OF MESSAGE
------ ----- --- ----- ----- ---------------
00014 IDENTI 07 001 W ILLEGAL CHARACTER IN COLUMN 7.
00014 IDENTI 15 043 W ILLEGAL IDENTIFICATION DIVISION PARAGRAPH.
00015 IDENTI 15 460 D MISSING IDENTIFICATION DIVISION, COMPILATION
TERMINATED.
1 ERROR(s), 0 QUESTIONABLE, 2 WARNING(s)
*** DISASTROUS ERROR NEAR LINE 00015 ***
*** COMPILATION TERMINATED ***
Symbolic stack marker trace
35.102 = ERROR.ABNORMAL'TERMIN+102
35.1546 = ERROR.ERROR+1305
46.3045 = MAIN'SUB.OB'ERROR+117
47.4234 = MAIN.ID'DIV'PRCSSR+1334
47.11616 = MAIN.DO'PASS'0+31
47.13657 = MAIN.COBOLII+111
CHECKED SYNTAX ONLY.
CPU TIME = 0:00:00. WALL TIME = 0:00:00.
Program terminated in an error state. (CIERR 976)
=======================
Can someone please kindly help me to get started
on this Cobol. I have done Cobol on other machines
before (long before) and now I am like a novice.
Thank you so much in advance,
John
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
