View previous topic :: View next topic
|
Author |
Message |
mubashshirji
New User
Joined: 14 Nov 2006 Posts: 16
|
|
|
|
Can somebody tell me how to put the project tag from 73rd column by using a single command for all the lines in a COBOL program. |
|
Back to top |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
If you use ISPF to edit your program you could issue the command
C ' ' 'WHATEVER' 73 ALL |
|
Back to top |
|
|
guptae
Moderator
Joined: 14 Oct 2005 Posts: 1208 Location: Bangalore,India
|
|
|
|
Hi There,
U can do it through sort.
Give ur program pds as input file of sort & use following sort card where
replace ******** with ur program tag
Code: |
//SYSIN DD *
OPTION COPY
OUTFIL OUTREC=(1:1,72,C'********')
/* |
|
|
Back to top |
|
|
earsha
New User
Joined: 16 Mar 2007 Posts: 17 Location: Pune
|
|
|
|
hello mubashshirji,
use the following command:
C ALL 73 P'========' 'XXXXXXXX'
EX.TAGGING OF MY PROJECT IS AG999999
C ALL 73 P'========' 'AG999999'
Here, XXXXXXXX- MEANS THE TAGGING OF YOUR PROJECT.
AND '=' & 'X' VARIES ACCORING TO CONVENTION FOLLWED IN YOUR PROJECT.
IN MY PROJECT WE USE 8 DIGIT FOR TAGGING THATS WHY I HAVE GIVEN THE EXAMPLE USING 8 = & X. |
|
Back to top |
|
|
mubashshirji
New User
Joined: 14 Nov 2006 Posts: 16
|
|
|
|
Thanx a lot for such a quick reply to all.............. |
|
Back to top |
|
|
|