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
 

 

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: 216
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: 8593
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: 216
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: 10201
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: 216
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: 2019
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: 216
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: 2019
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: 216
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: 1218
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: 216
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: 1218
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: 1238
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: 2019
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: 1238
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 What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm
No new posts Problem in writing Output file vickey_dw COBOL Programming 5 Mon Nov 14, 2016 11:14 pm
No new posts Cobol list of programs being called biswajit.dattagupta COBOL Programming 5 Tue Nov 01, 2016 2:10 am
This topic is locked: you cannot edit posts or make replies. Rexx to create GDG by scanning JJ result krish.deepu CLIST & REXX 5 Tue Oct 25, 2016 5:32 pm
No new posts Problem in Running Query via JCL vickey_dw DB2 3 Tue Oct 18, 2016 11:11 pm


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