HP3000-L Archives

July 2001, Week 4

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
EDITOR Abort : *14*INVALID LINE NUMBER
From:
Raghavendra Rao <[log in to unmask]>
Reply To:
Raghavendra Rao <[log in to unmask]>
Date:
Wed, 25 Jul 2001 10:27:16 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (91 lines) 
Hi to all,

I had a command file which used to dump in the line numbers in first 6 positions for a COBOL progam name that I pass in as a parameter. The command file code is as follows :

PARM P1= " "
SETVAR FILE_NAM1 "!P1"
SETVAR FILE_NAM2 "!FILE_NAM1" + "." + "!HPGROUP"
ECHO *I* !FILE_NAM1 file taken from !HPGROUP group

PURGE   RENUMU,TEMP > $NULL
BUILD   RENUMU;TEMP;REC=-80,,F,ASCII;DISC=100
FILE    OUTF=RENUMU,OLDTEMP;ACC=APPEND

ECHO /T !FILE_NAM2             > *OUTF
ECHO /SET FORMAT=COBOL        >> *OUTF
ECHO /GATHER ALL BY .1        >> *OUTF
ECHO /K !FILE_NAM2            >> *OUTF
RESET   OUTF
FILE    EDITIN=RENUMU,OLDTEMP
FILE    EDITOUT=$NULL
IF FINFO('EDITOR.PUB.VESOFT','EXISTS') THEN
  RUN EDITOR.PUB.VESOFT;LIB=P;NOCB
ELSE
  RUN EDITOR.PUB.SYS
ENDIF
RESET   EDITIN
RESET   EDITOUT
LISTF !FILE_NAM2 ,2
DELETEVAR FILE@

======================================================
During run time for a particular COBOL program named "SAMPLE", it gave me the following error. The "SAMPLE" COBOL program has 17725 lines in it.

RZR.PCARTP1: EDITOR
HP32201A.09.00 EDIT/3000 WED, JUL 25, 2001, 11:07 AM
(C) HEWLETT-PACKARD CO. 1993
/T SAMPLE
FILE UNNUMBERED
/SET FORMAT=COBOL
WARNING - 'LENGTH'  80 RESET TO 74
WARNING - 'RIGHT'  80 RESET TO 74
*** WARNING *** COBOL VALUES SET FOR LENGTH, RIGHT, FROM, DELTA, FRONT
/GATHER ALL BY .1
*14*INVALID LINE NUMBER
/

Could any of you please tell me where and what the problem is ? How can we rectify this ?

Thanks in advance
With Best Regards
Raghu.

======================================================
For simple clarification, this is what I am trying to achieve:

Input "SAMPLE" cobol before command file execution:
------------------------------------------------------
$TITLE "SAMPLE"
$CONTROL USLINIT, SOURCE, CROSSREF, MAP, POST85
 IDENTIFICATION DIVISION.
 PROGRAM-ID.     SAMPLE.
 AUTHOR.         RAGHU. RAO
 DATE-WRITTEN.   JUL 2001.
 DATE-COMPILED.
 REMARKS.


Output "SAMPLE" cobol after command file execution:
------------------------------------------------------
001000$TITLE "SAMPLE"
001050$CONTROL USLINIT, SOURCE, CROSSREF, MAP, POST85
001100 IDENTIFICATION DIVISION.
001150 PROGRAM-ID.     SAMPLE.
001200 AUTHOR.         RAGHU. RAO
001250 DATE-WRITTEN.   JUL 2001.
001300 DATE-COMPILED.
001350 REMARKS.
001400



--

_______________________________________________
Talk More, Pay Less with Net2Phone Direct(R), up to 1500 minutes free!
http://www.net2phone.com/cgi-bin/link.cgi?143


* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

ATOM RSS1 RSS2