Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

ISPF : Tip Of The Day

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
Gautam512

Active User


Joined: 05 Oct 2005
Posts: 309
Location: Vizag / US

PostPosted: Thu Dec 29, 2005 1:57 pm    Post subject: ISPF : Tip Of The Day
Reply with quote

Coments required for this TIP....

Try this one in View MODE first.......(Then u can use it )

1. View an element
2. Enter COLS in the line command area to have a ruler line appear.
3. Enter BNDS in the line command area. A blank line will appear.
4. On the blank line, position angle brackets < >in the columns to be affected. The affected portion will be that portion between the angle brackets, inclusive. I could find no way to affect a single column.
5. The following example shows how to comment out a portion of a paragraph.

1. EDIT XXXXX.XXXXX.XXXXX(PGM1)
2. Command ===>
3. =COLS> ----+----1----+----2----+----3----+----4----+----5----+--
4. =BNDS> <>
5. 000139
6. 000140 00133 A300-PROCESS-CEP-DST.
7. 000141 00134 READ IN-EXPLO INTO IN-HOLD
8. 000142 00135 AT END
9. 000143 00136 MOVE HIGH-VALUES TO IN-HOLD
10. 000144 00137 GO TO A300-PROCESS-CEP-DST-EXIT.
11. c00145 00138 *
12. oo0146 00139 IF IN-HOLD-REC-TYP = '60'
13. 000147 00140 MOVE IN-HOLD TO IN-RECD60
14. 000148 00141 MOVE 'Y' TO FLAG
15. 000149 00142 MOVE IN-HOLD-SHOP-ORD TO HOLD-SO
16. 000150 00143 PERFORM A400-PROCESS-RECD60 THRU
17. oo0001 00144 A400-PROCESS-RECD60-EXIT.
000152 00145
6. The following screen shows the results.
EDIT XXXXX.XXXXX.XXXXX(PGM1)
1. Command ===>
2. =COLS> ----+----1----+----2----+----3----+----4----+----5----+--
3. =BNDS> <>
4. 000139
5. 000140 00133 A300-PROCESS-CEP-DST.
6. 000141 00134 READ IN-EXPLO INTO IN-HOLD
7. 000142 00135 AT END
8. 000143 00136 MOVE HIGH-VALUES TO IN-HOLD
9. 000144 00137 GO TO A300-PROCESS-CEP-DST-EXIT.
10. 000145 00138 *
11. 000146 00139 * IF IN-HOLD-REC-TYP = '60'
12. 000147 00140 * MOVE IN-HOLD TO IN-RECD60
13. 000148 00141 * MOVE 'Y' TO FLAG
14. 000149 00142 * MOVE IN-HOLD-SHOP-ORD TO HOLD-SO
15. 000150 00143 * PERFORM A400-PROCESS-RECD60 THRU
16. 000151 00144 * A400-PROCESS-RECD60-EXIT.
000152 00145
Back to top
View user's profile Send private message

iknow

Active User


Joined: 22 Aug 2005
Posts: 413
Location: Colarado, US

PostPosted: Thu Dec 29, 2005 2:24 pm    Post subject: Re: ISPF : Tip Of The Day
Reply with quote

Hi Gautam,

Good one man...Come out with more stuff like this.
Back to top
View user's profile Send private message
Gautam512

Active User


Joined: 05 Oct 2005
Posts: 309
Location: Vizag / US

PostPosted: Thu Mar 02, 2006 8:21 pm    Post subject: Re: ISPF : Tip Of The Day
Reply with quote

Thanks .........
Back to top
View user's profile Send private message
bonniem

New User


Joined: 09 Aug 2005
Posts: 67

PostPosted: Fri Mar 03, 2006 10:47 am    Post subject: Re: ISPF : Tip Of The Day
Reply with quote

This can be done from command line also.

For example "BNDS 10 30" sets the bounds as between 10 and 30. This can be reset by issuing "BNDS" again on the command line.
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Sun Mar 05, 2006 12:28 pm    Post subject:
Reply with quote

Hi Gau,

As Bonniem suggested, bnds 1 7 is a better choice. I've never tried bnds 7 7, but that may work too.

You can also use M instead of C. You'll get the same result. And you won't even have to worry about the * line you created.
Back to top
View user's profile Send private message
sril.krishy

Active User


Joined: 30 Jul 2005
Posts: 183
Location: hyderabad

PostPosted: Mon Mar 06, 2006 12:18 pm    Post subject:
Reply with quote

Hi,
This seems to be a shop dependant.I tried it in my shp,but it's not working.

Thanks
Krishy
Back to top
View user's profile Send private message
bonniem

New User


Joined: 09 Aug 2005
Posts: 67

PostPosted: Mon Mar 06, 2006 12:30 pm    Post subject:
Reply with quote

Setting bounds is an ISPF primary command, so I dont think it is shop dependant.
Back to top
View user's profile Send private message
hikaps14

Active User


Joined: 02 Sep 2005
Posts: 189
Location: Noida

PostPosted: Tue Apr 25, 2006 5:28 pm    Post subject: Re: ISPF : Tip Of The Day
Reply with quote

Hi Gautam ,

i followed ur approach for commenting out a para.
but i was stuck .
i set the bounds on the first column .

but now i dont know how to insert an asterik and comment out
only someportion of lines .

can ne one give some detail regarding this .

Thanks in advance ,
-Kapil .
Back to top
View user's profile Send private message
mmwife

Super Moderator


Joined: 30 May 2003
Posts: 1592

PostPosted: Mon May 01, 2006 12:36 am    Post subject:
Reply with quote

Hi Kapil,

Try this instead of the bnds:

Enter .a at the 1st line of the pgraph.
Enter .b at the last line of the pgraph.
Enter c all ' ' '*' 7 .a .b on the cmd line.

Gives you the same result.
Back to top
View user's profile Send private message
hikaps14

Active User


Joined: 02 Sep 2005
Posts: 189
Location: Noida

PostPosted: Mon May 01, 2006 5:43 pm    Post subject: Re: ISPF : Tip Of The Day
Reply with quote

hi ,

Thanks a lot .

I think its a cool thechnique.
we require these type of things quite regularly
Back to top
View user's profile Send private message
Gautam512

Active User


Joined: 05 Oct 2005
Posts: 309
Location: Vizag / US

PostPosted: Fri May 05, 2006 3:43 am    Post subject: Re: ISPF : Tip Of The Day
Reply with quote

thanks a lot....
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts Design of ISPF panel prino TSO/ISPF 2 Wed Jan 25, 2017 10:31 pm
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
No new posts ISPF program to set SCRNAME prino TSO/ISPF 5 Fri Sep 30, 2016 2:18 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us