IBM MAINFRAME HELP & SUPPORT FORUMS

gowtham_srgp · Joined: 09 Jun 2005 Posts: 38

hai. i've these two queries...

1. how to make a bookmark? i.e; i need to go to a particular line of my member. from there i should return to the original line from where the control was given. Note. I need not perform a particular para. i just want to view that line and return.

2. how to look for a particular word in a specific lines of a member. if there are some 50 lines in my member, i want to look only between 25 and 40. how can this be accomplished?

gowtham

radhakrishnan82 · Joined: 31 Mar 2005 Posts: 386 Location: chennai, India

For your first query,
set the tags for your identification like .a,.b and some known names which you can easily remember.

Go to the command line, Issue L .a---goes to the line where .a had been set up as a tag (line number 024549) .
similarly L .b goes to line number 24621.

Code: 024530 * *****************************
.A ACCEPT ACCEPT-DATE FROM DATE
024550 MOVE ' START DATE = ' TO XX-DISPLAY.
024560 PERFORM X1-DISPLAY.
024570 MOVE -ACCEPT-DATE TO XX-DISPLAY.
024580 PERFORM X1-DISPLAY.
024590 ACCEPT TIME-CURR FROM TIME
024600 MOVE 'START TIME = ' TO XX-DISPLAY.
024610 PERFORM X1-DISPLAY.
024620 MOVE TIME-CURR TO XX-DISPLAY.
.B PERFORM X1-DISPLAY.

hoep this helps.

gowtham_srgp · Joined: 09 Jun 2005 Posts: 38

radhakrishnan82 wrote: For your first query,
set the tags for your identification like .a,.b and some known names which you can easily remember.

Go to the command line, Issue L .a---goes to the line where .a had been set up as a tag (line number 024549) .
similarly L .b goes to line number 24621.

Code: 024530 * *****************************
.A ACCEPT ACCEPT-DATE FROM DATE
024550 MOVE ' START DATE = ' TO XX-DISPLAY.
024560 PERFORM X1-DISPLAY.
024570 MOVE -ACCEPT-DATE TO XX-DISPLAY.
024580 PERFORM X1-DISPLAY.
024590 ACCEPT TIME-CURR FROM TIME
024600 MOVE 'START TIME = ' TO XX-DISPLAY.
024610 PERFORM X1-DISPLAY.
024620 MOVE TIME-CURR TO XX-DISPLAY.
.B PERFORM X1-DISPLAY.

hoep this helps.

hai radhakrishnan. your's is a logical method to accomplish. i suspect there is a command to perform my need. can any one help me?

I think you can recognise me? can you? sorry for this out of topic post..... :lol:

MGIndaco · Joined: 10 Mar 2005 Posts: 478 Location: Milan, Italy

I think that radhakrishnan's method is the mainly used.
For your second question you can use vary utility both in foreground and background mode(JCL).
These are two samples:
Foreground:
if you are in a member of a PDS you can do this command:
Code: VIEW xxxxxx;COPY mymemb 25 40;
Where xxxxxx is a name of a temporary member, and mymemb is the member you want to view from 25th to 40th line.(the ";" is my separator that in many case can be, as personal setting, "," o ".")
Background:
Code: //STEP010I EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//INPUT DD DISP=SHR,DSN=....
//OUTPUT DD SYSOUT=*
//SYSIN DD *
REPRO INFILE(INPUT) OUTFILE(OUTPUT) SKIP(24) COUNT(16)

I hope in this help.

gowtham_srgp · Joined: 09 Jun 2005 Posts: 38

hai MGIndago. thanks for the reply. that is wonderful.......

gowtham