|
View previous topic :: View next topic
|
| Author |
Message |
Amsar
New User
.jpg)
Joined: 26 Sep 2008
Posts: 84
Location: Chennai
|
|
|
|
Hi,
I have copied then cobol program from program library to my personal PDS. After copying i am seeing the control charecter from 72 column, i need to put the comments at this loaction, How to remove the control charecter.
tso profile is
| Code: |
....SOURCE (FIXED - 80)....RECOVERY ON....NUMBER ON STD COB.............
....CAPS OFF....HEX OFF....NULLS OFF....TABS OFF....SETUNDO STG.........
....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
....HILITE COBOL PAREN CURSOR........................................... |
Thanks,
Amsar |
|
| Back to top |
|
 |
gcicchet
Senior Member
Joined: 28 Jul 2006
Posts: 1702
Location: Australia
|
|
|
|
Hi,
num off and blank out 73 to 80
Gerry |
|
| Back to top |
|
|
PeD
Active User
Joined: 26 Nov 2005
Posts: 459
Location: Belgium
|
|
|
|
| Code: |
| c p'^' ' ' 73 80 ALL |
|
|
| Back to top |
|
|
Amsar
New User
Joined: 26 Sep 2008
Posts: 84
Location: Chennai
|
|
|
|
| Thanks Gerry !!! |
|
| Back to top |
|
|
Amsar
New User
Joined: 26 Sep 2008
Posts: 84
Location: Chennai
|
|
|
|
PeD,
Below command works.
| Code: |
| c p'¬' ' ' 73 80 ALL |
|
|
| Back to top |
|
|
dbzTHEdinosauer
Global Moderator
Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne
|
|
|
|
I perfer this:
| Code: |
C ALL P'=' ' ' 73 80
|
|
|
| Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA
|
|
|
|
| ren;unnum should also work. If it doesn't, ren std;unnum;ren cob;unnum should get rid of both 1-6 and 73-80. |
|
| Back to top |
|
|
Amsar
New User
Joined: 26 Sep 2008
Posts: 84
Location: Chennai
|
|
|
|
Terry,
Your solution is perfect for this problem.
Thanks,
Amsar |
|
| Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA
|
|
|
|
The thing to be careful of is destroying the audit comments of previous developers if they used 1-6 or 73-80 for that purpose.  |
|
| Back to top |
|
|
Amsar
New User
Joined: 26 Sep 2008
Posts: 84
Location: Chennai
|
|
|
|
Thanks,
I will take care!!! |
|
| Back to top |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA
|
|
|
|
As a tip that I used recently, let's say initially the 1st deveoper placed the program name in 73-80 of all lines of the source, for instance PGM00001. Then other developers used a problem ID like PB0001 on changed or added lines. I would use a
| Code: |
| c pgm00001 ' ' 73 all |
command to remove everything but the audits, then flag my own changes with PB0002 or whatever for consistency. |
|
| Back to top |
|
|
|
|
