View previous topic :: View next topic
|
Author |
Message |
srini63
New User
Joined: 02 Nov 2006 Posts: 10
|
|
|
|
IDENTIFICATION DIVISION. 00000100
PROGRAM-ID. TEST. 00020000
AUTHOR. SRINI. 00021000
I am getting line no's at the end of my cobol program, and even if I do nums off it doesnt go. Can some one tell me what is the command to remove that.
Here is the dump of the profile for the member:
=PROF>,....SRCELIB (FIXED - 80)....RECOVERY ON....NUMBER OFF...................
,=PROF>,....CAPS ON....HEX OFF....NULLS OFF....TABS OFF.........................
,=PROF>,....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
,=PROF>,....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
,=PROF>,....HILITE COBOL CURSOR FIND........................................... |
|
Back to top |
|
|
MFRASHEED
Active User
Joined: 14 Jun 2005 Posts: 186 Location: USA
|
|
|
|
As you currently have NUMBER OFF, then it is matter clearing the numbers,
you can use following commad to clear numbers:
Code: |
c all p'?' ' ' 72 80 ;
|
That is to change any char between column 72 to 80 to space. |
|
Back to top |
|
|
srini63
New User
Joined: 02 Nov 2006 Posts: 10
|
|
|
|
MFRASHEED wrote: |
As you currently have NUMBER OFF, then it is matter clearing the numbers,
you can use following commad to clear numbers:
Code: |
c all p'?' ' ' 72 80 ;
|
That is to change any char between column 72 to 80 to space. |
when i give that command it says that "invalid right boundary". when i remove the 80 alone and give it works but it doesnt remove the line #'s at the last. |
|
Back to top |
|
|
MFRASHEED
Active User
Joined: 14 Jun 2005 Posts: 186 Location: USA
|
|
|
|
Well, Source PDS are 80 bytes in length, can you type COLS on command line and cut/paste display, like this one:
Code: |
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
****** ********************************* Top of Data **********************************
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. TESTPGMR.
|
|
|
Back to top |
|
|
srini63
New User
Joined: 02 Nov 2006 Posts: 10
|
|
|
|
MFRASHEED wrote: |
Well, Source PDS are 80 bytes in length, can you type COLS on command line and cut/paste display, like this one:
Code: |
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
****** ********************************* Top of Data **********************************
000001 IDENTIFICATION DIVISION.
000002 PROGRAM-ID. TESTPGMR.
|
|
its 80 bytes only, even then getting an error saving that invalid length |
|
Back to top |
|
|
MFRASHEED
Active User
Joined: 14 Jun 2005 Posts: 186 Location: USA
|
|
|
|
Yes, your profile also says FIXED(80) so i should worked. Did you make sure there is SPACE between 72 and 80? |
|
Back to top |
|
|
srini63
New User
Joined: 02 Nov 2006 Posts: 10
|
|
|
|
MFRASHEED wrote: |
Yes, your profile also says FIXED(80) so i should worked. Did you make sure there is SPACE between 72 and 80? |
there are no's like this between 73 to 80
00000101
00020000
00021000
00030000 |
|
Back to top |
|
|
MFRASHEED
Active User
Joined: 14 Jun 2005 Posts: 186 Location: USA
|
|
|
|
Problem you said was with ending boundary that is 80, so command should work, i don't know why it wouldn't work. Can you cut/paste what you entered, and what is displayed along with few source lines and COLS turned on. |
|
Back to top |
|
|
srini63
New User
Joined: 02 Nov 2006 Posts: 10
|
|
|
|
MFRASHEED wrote: |
Problem you said was with ending boundary that is 80, so command should work, i don't know why it wouldn't work. Can you cut/paste what you entered, and what is displayed along with few source lines and COLS turned on. |
hey thanks for all your help. the command is UNNUM, it worked and now the no's are gone!! |
|
Back to top |
|
|
PERUMALA
New User
Joined: 01 Nov 2006 Posts: 9
|
|
|
|
Hi,
First type NUM ON command
then type UNNUM command
Thanks
Venkata |
|
Back to top |
|
|
PERUMALA
New User
Joined: 01 Nov 2006 Posts: 9
|
|
|
|
Sorry....I could not check that it is already solved in the above message
Venkata Perumala |
|
Back to top |
|
|
|