IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

how to put the project tag for all lines in one go


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
mubashshirji

New User


Joined: 14 Nov 2006
Posts: 16

PostPosted: Wed Mar 28, 2007 5:14 pm
Reply with quote

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
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Wed Mar 28, 2007 5:21 pm
Reply with quote

If you use ISPF to edit your program you could issue the command

C ' ' 'WHATEVER' 73 ALL
Back to top
View user's profile Send private message
guptae

Moderator


Joined: 14 Oct 2005
Posts: 1208
Location: Bangalore,India

PostPosted: Wed Mar 28, 2007 5:21 pm
Reply with quote

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
View user's profile Send private message
earsha

New User


Joined: 16 Mar 2007
Posts: 17
Location: Pune

PostPosted: Wed Mar 28, 2007 5:21 pm
Reply with quote

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
View user's profile Send private message
mubashshirji

New User


Joined: 14 Nov 2006
Posts: 16

PostPosted: Wed Mar 28, 2007 6:37 pm
Reply with quote

Thanx a lot for such a quick reply to all..............
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts I need a 4 lines block where substrin... DFSORT/ICETOOL 12
No new posts Copy few lines from SYSOUT of 10 mill... All Other Mainframe Topics 5
No new posts Generate output lines (SYSIN card for... DFSORT/ICETOOL 4
No new posts Merge 2 lines based on Space from a S... DFSORT/ICETOOL 5
No new posts JCL - To repeat a string in same colu... JCL & VSAM 2
Search our Forums:

Back to Top