I've seen it done before...it's ugly.
> -----Original Message-----
> From: Donna Garverick [SMTP:[log in to unmask]]
> Sent: Thursday, June 21, 2001 11:06 AM
> To: [log in to unmask]
> Subject: Re: Help Starting COBOL
>
> ...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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
