...and i was going to suggest typing your cobol in all lower case :-) -
d 'hehehehe'
Patrick Santucci wrote:
> Gee, and I was going to suggest that he should change "THIS IS A TEST" to
> "HELLO WORLD!" ;-D
>
> Patrick "hehehe" (tm Art Bahrs)
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> Patrick Santucci
> HP e3000 Systems Administrator
> Cornerstone Brands, Inc.
>
> > -----Original Message-----
> > From: DASS,JOHN (Non-A-Singapore,ex1) [SMTP:[log in to unmask]]
> > Sent: Thursday, June 21, 2001 10:31 am
> > To: [log in to unmask]
> > Subject: Re: [HP3000-L] Help Starting COBOL
> > Importance: High
> >
> > 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 *
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
--
Donna Garverick Sr. System Programmer
925-210-6631 [log in to unmask]
>>>MY opinions, not Longs Drug Stores'<<<
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
