It's been a long time since I've used EDIT3K, but I think you're using .1 to
renumber, but your file has some other DELTA value for the increment
(probably 1). You can see the DELTA value by using VERIFY DELTA.
So, determine the DELTA value of the file and then G ALL BY that value, or
SET DELTA=.1 and then G ALL BY .1
Ray Shahan
> -----Original Message-----
> From: Raghavendra Rao [SMTP:[log in to unmask]]
> Sent: Wednesday, July 25, 2001 10:27 AM
> To: [log in to unmask]
> Subject: EDITOR Abort : *14*INVALID LINE NUMBER
>
> 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
