View previous topic :: View next topic
|
Author |
Message |
sri_mf
Active User
Joined: 31 Aug 2006 Posts: 218 Location: India
|
|
|
|
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 |
|
|
expat
Global Moderator
Joined: 14 Mar 2007 Posts: 8797 Location: Welsh Wales
|
|
|
|
Should the PFkey not contain "TSO EXEC ................................." |
|
Back to top |
|
|
sri_mf
Active User
Joined: 31 Aug 2006 Posts: 218 Location: India
|
|
|
|
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 |
|
|
enrico-sorichetti
Superior Member
Joined: 14 Mar 2007 Posts: 10873 Location: italy
|
|
|
|
Quote: |
000100/* REXX SETUP */ |
looks like You have ...
"NUMBER ON" for a VB dataset
or
"NUMBER COB" for a FB dataset |
|
Back to top |
|
|
sri_mf
Active User
Joined: 31 Aug 2006 Posts: 218 Location: India
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
sri_mf
Active User
Joined: 31 Aug 2006 Posts: 218 Location: India
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
sri_mf
Active User
Joined: 31 Aug 2006 Posts: 218 Location: India
|
|
|
|
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 |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
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 |
|
|
sri_mf
Active User
Joined: 31 Aug 2006 Posts: 218 Location: India
|
|
|
|
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 |
|
|
Marso
REXX Moderator
Joined: 13 Mar 2006 Posts: 1353 Location: Israel
|
|
|
|
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 |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
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 |
|
|
Pedro
Global Moderator
Joined: 01 Sep 2006 Posts: 2547 Location: Silicon Valley
|
|
|
|
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 |
|
|
Terry Heinze
JCL Moderator
Joined: 14 Jul 2008 Posts: 1249 Location: Richfield, MN, USA
|
|
|
|
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 |
|
|
|