Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Problem in Setting up to Execute REXX Programs on TSO/ISPF

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
sri_mf

Active User


Joined: 31 Aug 2006
Posts: 215
Location: India

PostPosted: Sat Dec 27, 2008 2:37 pm    Post subject: Problem in Setting up to Execute REXX Programs on TSO/ISPF
Reply with quote

I have tried to set up a PF key (PF13) to execute REXX programs on ISPF.
I have written the code in "'SRINI.REXX.EXEC(SETUP)'.

Code is
Code:

=COLS> ---1----+----2----+----3----+----4----+----5----+----6----+----7--     
****** ***************************** Top of Data ******************************
000100 /* REXX SETUP */                                                       
000200  TRACE C                                                               
000300  "ALTLIB DEACTIVATE APPL(EXEC)"                                         
000400  "ALTLIB ACTIVATE APPL(EXEC) DSN('SRINI.REXX.EXEC')"                 
****** **************************** Bottom of Data ****************************


When i try to activate this using shift + F1 i ma getting the following Error.

Code:

INVALID COMMAND NAME SYNTAX         
     1 *-* 000100/* REXX SETUP */   
       +++ RC(-3) +++               
***                                 
INVALID COMMAND NAME SYNTAX                                               
     2 *-* 000200 TRACE C                                                 
       +++ RC(-3) +++                                                     
INVALID COMMAND NAME SYNTAX                                               
     3 *-* 000300 "ALTLIB DEACTIVATE APPL(EXEC)"                         
       +++ RC(-3) +++                                                     
INVALID COMMAND NAME SYNTAX                                               
     4 *-* 000400 "ALTLIB ACTIVATE APPL(EXEC) DSN('SRINI.REXX.EXEC')"   
       


Can anyone help me out on this.
Back to top
View user's profile Send private message

expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8614
Location: Back in jolly old England

PostPosted: Sat Dec 27, 2008 2:56 pm    Post subject:
Reply with quote

Should the PFkey not contain "TSO EXEC ................................."
Back to top
View user's profile Send private message
sri_mf

Active User


Joined: 31 Aug 2006
Posts: 215
Location: India

PostPosted: Sat Dec 27, 2008 4:17 pm    Post subject:
Reply with quote

expat wrote:
Should the PFkey not contain "TSO EXEC ................................."


Thanks Exzpect for your reply.
Yes i have set up that also.

Code:

Key       Definition                                 Format  Label     
F11  . .                                                               
F12  . .  CANCEL                                     SHORT   Cancel   
F13  . .  TSO EXEC  'SRINI.REXX.EXEC(SETUP)' EXEC    SHORT   Help     
F14  . .  SPLIT                                      LONG    Split     
F15  . .  END                                        SHORT   End       
F16  . .  RETURN                                     SHORT   Return   
F17  . .  RFIND                                      SHORT   Rfind     
F18  . .  RCHANGE                                    SHORT   Rchange   
F19  . .  UP                                         LONG    Up       
F20  . .  DOWN                                       LONG    Down         
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 10373
Location: italy

PostPosted: Sat Dec 27, 2008 4:41 pm    Post subject: Reply to: Problem in Setting up to Execute REXX Programs on
Reply with quote

Quote:
000100/* REXX SETUP */

looks like You have ...
"NUMBER ON" for a VB dataset
or
"NUMBER COB" for a FB dataset
Back to top
View user's profile Send private message
sri_mf

Active User


Joined: 31 Aug 2006
Posts: 215
Location: India

PostPosted: Tue Dec 30, 2008 9:54 am    Post subject: Re: Reply to: Problem in Setting up to Execute REXX Programs
Reply with quote

enrico-sorichetti wrote:
Quote:
000100/* REXX SETUP */

looks like You have ...
"NUMBER ON" for a VB dataset
or
"NUMBER COB" for a FB dataset


Enrico,

Sorry for the delay.
This is the Profile i have for my PDS member.

Code:

....EXEC (FIXED - 80)....RECOVERY ON....NUMBER ON STD COB..............
....CAPS ON....HEX OFF....NULLS OFF....TABS OFF........................
....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON.............
....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON...............
....HILITE REXX CURSOR FIND............................................
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2088
Location: Silicon Valley

PostPosted: Tue Dec 30, 2008 11:08 am    Post subject: Reply to: Problem in Setting up to Execute REXX Programs on
Reply with quote

Did you copy your exec from a VB dataset to a FB? Your post clearly shows line numbers to the left of the rexx statements. Those numbers should not be there for a FB dataset.
Back to top
View user's profile Send private message
sri_mf

Active User


Joined: 31 Aug 2006
Posts: 215
Location: India

PostPosted: Tue Dec 30, 2008 2:17 pm    Post subject: Re: Reply to: Problem in Setting up to Execute REXX Programs
Reply with quote

Pedro wrote:
Did you copy your exec from a VB dataset to a FB? Your post clearly shows line numbers to the left of the rexx statements. Those numbers should not be there for a FB dataset.


I got the code from google and copied that in to my PDS member.
Pls let me knowt the mistake that i have commited.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2088
Location: Silicon Valley

PostPosted: Tue Dec 30, 2008 9:53 pm    Post subject: Reply to: Problem in Setting up to Execute REXX Programs on
Reply with quote

It is not necessarily a mistake. Some systems are setup to use FB datasets and others are setup to use VB datasets for rexx programs.

You should be aware that there are differences between VB and FB. And that there is an opportunity to copy from one type to another. In your case, probably the original was VB but you copied to FB. You need to manually remove all of the line numbers from cols 1 - 8.
Back to top
View user's profile Send private message
sri_mf

Active User


Joined: 31 Aug 2006
Posts: 215
Location: India

PostPosted: Wed Dec 31, 2008 2:23 pm    Post subject: Re: Reply to: Problem in Setting up to Execute REXX Programs
Reply with quote

Pedro wrote:
It is not necessarily a mistake. Some systems are setup to use FB datasets and others are setup to use VB datasets for rexx programs.

You should be aware that there are differences between VB and FB. And that there is an opportunity to copy from one type to another. In your case, probably the original was VB but you copied to FB. You need to manually remove all of the line numbers from cols 1 - 8.


I tried to blank them but i can not.. How to remove them
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1250
Location: Israel

PostPosted: Wed Dec 31, 2008 3:30 pm    Post subject: Reply to: Problem in Setting up to Execute REXX Programs on
Reply with quote

You can do: UNNUM then SAVE, that should be enough.

From the PROFILE result, I can see the file type is EXEC and it is F80.
The default should be without numbers, but it can happen.

I usualy set the PROFILE as I like (AUTOSAVE OFF PROMPT and RECOVERY ON for example) then I do a PROF LOCK to save it as my default profile.
Back to top
View user's profile Send private message
sri_mf

Active User


Joined: 31 Aug 2006
Posts: 215
Location: India

PostPosted: Wed Dec 31, 2008 5:05 pm    Post subject: Re: Reply to: Problem in Setting up to Execute REXX Programs
Reply with quote

Marso wrote:
You can do: UNNUM then SAVE, that should be enough.

From the PROFILE result, I can see the file type is EXEC and it is F80.
The default should be without numbers, but it can happen.

I usualy set the PROFILE as I like (AUTOSAVE OFF PROMPT and RECOVERY ON for example) then I do a PROF LOCK to save it as my default profile.


Marso,

I tried UNUM.I am getting this Message "Not in number mode".
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1250
Location: Israel

PostPosted: Wed Dec 31, 2008 6:03 pm    Post subject: Reply to: Problem in Setting up to Execute REXX Programs on
Reply with quote

It was before:
Code:
....EXEC (FIXED - 80)....RECOVERY ON....NUMBER ON STD COB..............
....CAPS ON....HEX OFF....NULLS OFF....TABS OFF........................
....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON.............
....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON...............
....HILITE REXX CURSOR FIND............................................

I guess this means the problem is solved?
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Wed Dec 31, 2008 8:30 pm    Post subject:
Reply with quote

If you did an UNNUMBER, your profile should have changed to NUMBER OFF and the numbering should have been removed from columns 1-6 and 73-80.
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2088
Location: Silicon Valley

PostPosted: Wed Dec 31, 2008 9:48 pm    Post subject: Reply to: Problem in Setting up to Execute REXX Programs on
Reply with quote

Quote:
should have been removed from columns 1-6

Are you sure it would remove columns 1-6 from a FB dataset? It seems unlikely to me.

Quote:
I tried to blank them but i can not.. How to remove them

What did you try?

Make sure there is no data in cols 1-6 and if none, shift all lines to the left using edit line commands.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1249
Location: Richfield, MN, USA

PostPosted: Wed Dec 31, 2008 11:37 pm    Post subject:
Reply with quote

Quote:
Are you sure it would remove columns 1-6 from a FB dataset?
It did when I tested it using a profile like the one shown.
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 -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Looping REXX - unable to interrupt RAVISANKAR07 CLIST & REXX 3 Wed Dec 06, 2017 1:08 pm
No new posts The same REXX program doesnt work for... jackzhang75 CLIST & REXX 5 Wed Dec 06, 2017 2:51 am
No new posts Rexx - File tailoring samzee71 CLIST & REXX 10 Thu Nov 30, 2017 10:47 pm
This topic is locked: you cannot edit posts or make replies. Rexx to Grab ISMF Information. upendrasri All Other Mainframe Topics 16 Sun Nov 26, 2017 12:35 am
No new posts Rexx to send an email without SMTP Se... upendrasri All Other Mainframe Topics 12 Sun Nov 19, 2017 7:59 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us