View previous topic :: View next topic
|
Author |
Message |
asr1983
New User
Joined: 31 May 2005 Posts: 11
|
|
|
|
hi all ,
this is what i have code in my rexx code ....
/******** REXX ***********/
SAY 'STARTING TO RUN A JOB'
"ISPEXEC LIBDEF ISPPLIB DATASET ID('TAXI@.OFFSHORE.JCL.MAY05'"
"ISPEXEC DISPLAY PANEL (PANEL1)"
SAY 'JOB RUN'
RETURN
and in my panel definition , i have coded
) ATTR DEFAULT(%+)
% TYPE(TEXT) INTENS(HIGH)
+ TYPE(TEXT) INTENS(LOW)
) BODY
+ A Sample panel - REXX Training
+ -------------------------------------
+
+ Enter your name please ==>
+
+ Name cannot exceed more than 15 chars +
+
+ Press ENTER to continue,PF3 to exit +
+
+
+
)end
and this is the output i am getting....
) ATTR DEFAULT( )
TYPE(TEXT) INTENS(HIGH)
TYPE(TEXT) INTENS(LOW)
) BODY
A Sample panel - REXX Training
-------------------------------------
Enter your name please ==>
Name cannot exceed more than 15 chars
Press ENTER to continue,PF3 to exit
can u tell me the reason why i am getting the output as such with all the lines given in PANEL and not as required whihc is only in the body |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
First, are you missing a closing parenthese here:
Code: |
"ISPEXEC LIBDEF ISPPLIB DATASET ID('TAXI@.OFFSHORE.JCL.MAY05'"
|
Should't this be:
Code: |
"ISPEXEC LIBDEF ISPPLIB DATASET ID('TAXI@.OFFSHORE.JCL.MAY05')"
|
Second, are there spaces on your panel section definions?
Code: |
) ATTR DEFAULT(%+)
% TYPE(TEXT) INTENS(HIGH)
+ TYPE(TEXT) INTENS(LOW)
) BODY
+ A Sample panel - REXX Training
+ -------------------------------------
+
+ Enter your name please ==>
+
+ Name cannot exceed more than 15 chars +
+
+ Press ENTER to continue,PF3 to exit +
+
+
+
)end
|
instead of this:
Code: |
)ATTR DEFAULT(%+)
% TYPE(TEXT) INTENS(HIGH)
+ TYPE(TEXT) INTENS(LOW)
)BODY
+ A Sample panel - REXX Training
+ -------------------------------------
+
+ Enter your name please ==>
+
+ Name cannot exceed more than 15 chars +
+
+ Press ENTER to continue,PF3 to exit +
+
+
+
)end
|
By the way, I would say:
Press ENTER to continue, END to exit
as there is no guarantee that the user has END assigned to the PF3 key. |
|
Back to top |
|
|
bluebird
Active User
Joined: 03 Feb 2004 Posts: 127
|
|
|
|
there goes :
)ATTR (yours has a space)
)body (yours has a space
and the )ATTR field needs three default attribute characters (not 2 as specified in your example) |
|
Back to top |
|
|
asr1983
New User
Joined: 31 May 2005 Posts: 11
|
|
|
|
hi all ,
i tried giving the )attr and )body without giving a space at the front ...
but following is the error message
ISPP111
Panel 'PANEL1' error
Illegal characters or statement type found in )ATTR section.
Panel line where error was detected:
)ATTR
|
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
Why don't you start over and copy in a new panel model.
Open a new member (PANEL1A maybe) in your ISPPLIB dataset. Make sure that you have NUMS OFF in your PROFILE.
Enter MODEL.
Select Option 6 PANELS - Panel formats and statements.
Scroll down to:
Panel Formats:
F0 PANFORM
and enter F0.
Use the model for F1 ENTRY - Data entry
by entering F1.
SAVE the panel definition. Now, you can use this as a template for your panel. |
|
Back to top |
|
|
asr1983
New User
Joined: 31 May 2005 Posts: 11
|
|
|
|
Thanks for the reply
I am still facing problem
i have copied the panel defintion in new member
but i am unable to use MODEL command
i tried using MODEL command but it gives me message saying "MODEL PENDING"
and there is no options from where i can select option 6
Please let me know more in details
Thanks once again |
|
Back to top |
|
|
superk
Global Moderator
Joined: 26 Apr 2004 Posts: 4652 Location: Raleigh, NC, USA
|
|
|
|
I'm at a loss as to how to proceed.
The ISPPLIB (panel) PDS should be allocated as FB, LRECL=80, DSORG=PO. If it isn't, then that could be the problem. From what you have described, it's almost as if your panel definition is somehow corrupted. MODEL is a standard ISPF EDIT command, so, if it is not working, you need to get in touch with your systems programmers. |
|
Back to top |
|
|
|