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
 
Panel code is getting displayed when invoked through REXX

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

New User


Joined: 31 Oct 2014
Posts: 3
Location: India

PostPosted: Sun Nov 02, 2014 12:20 am    Post subject: Panel code is getting displayed when invoked through REXX
Reply with quote

Hi..

When I invoke a Panel through REXX, It is displaying all actual code from member.

My Panel code is as shown in screenshot..

I tried to UNNUM and then submit still it was giving error as

"Panel line where error was detected:
# |$PGMNAME :- -PGMNAME% "

I did try other options such as changing PDS attributes..Still it did not work.

Could you please provide me any point where I can pay attention in this case ?
Back to top
View user's profile Send private message

vijayk123

New User


Joined: 31 Oct 2014
Posts: 3
Location: India

PostPosted: Sun Nov 02, 2014 12:25 am    Post subject: Panel code is getting displayed when invoked through REXX
Reply with quote

Sorry .. COuld not attache screenshots... Here is code I am trying with...

Panel Code:-
)ATTR
- TYPE(INPUT) INTENS(HIGH)
% TYPE(TEXT) INTENS(LOW) SKIP(ON)
+ TYPE(TEXT) INTENS(HIGH) COLOR(RED) SKIP(ON)
! TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) SKIP(ON)
# TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON)
$ TYPE(TEXT) INTENS(HIGH) COLOR(TURQUOISE) SKIP(ON)
^ TYPE(TEXT) INTENS(HIGH) COLOR(BLUE) SKIP(ON)
~ TYPE(TEXT) INTENS(HIGH) COLOR(PINK) SKIP(ON)
` TYPE(TEXT) INTENS(HIGH) COLOR(YELLOW) SKIP(ON)
)BODY
# *********************************
# *+ BATCH AUTOMATION TOOL *
# *********************************
_ABC %
# |$PGMNAME :- -PGMNAME% #|
# | |
# |$CHOOSE1:- -Q% ~(A/B/C/1) #|
# | |
# |$CHOOSE:- -SYSTEM% ~(aaaa/bbbbb) #|
_ABC1 %
% %
)INIT
.CURSOR = PGMNAME
)END

Rexx code to Invoke:-

/* REXX */
MYLIB = "'MATE03.PROJECT.REXX.BKUP.D011114'"

"ISPEXEC LIBDEF ISPPLIB DATASET ID("MYLIB")"
"ISPEXEC ADDPOP"
"ISPEXEC DISPLAY PANEL(PAN2)"
"ISPEXEC REMPOP"
"ISPEXEC LIBDEF ISPPLIB"
EXIT
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1243
Location: Israel

PostPosted: Sun Nov 02, 2014 3:37 am    Post subject: Re: Panel code is getting displayed when invoked through REX
Reply with quote

Usually I start with "Welcome to the Forum", but in your case I really don't know where to start...

vijayk123 wrote:
I tried to UNNUM and then submit still it was giving error
UNNUM ? really ? Please explain what it has to do with the error you received. And what do you submit ? the panel ? the rexx program ?

vijayk123 wrote:
Panel line where error was detected:
# |$PGMNAME :- -PGMNAME%
Is this what you mean by "Panel code is getting displayed when invoked through REXX" ?

vijayk123 wrote:
I did try other options such as changing PDS attributes..
Please explain what it has to do with the error you received...

Finally, because I'm in a good mood: If '-' is the INPUT attribute, then it must be followed by a variable name.
Back to top
View user's profile Send private message
vijayk123

New User


Joined: 31 Oct 2014
Posts: 3
Location: India

PostPosted: Sun Nov 02, 2014 9:48 am    Post subject: Reply to: Panel code is getting displayed when invoked throu
Reply with quote

Thanks for your reply..

I tried UNNUM as it was showing line numbers also when I invoke it through REXX...


PDS attributes were changed as it was showing line numbers after 72...

I read these suggestions on some other forums.. I do understand that these are direction less options which I tried..
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1243
Location: Israel

PostPosted: Sun Nov 02, 2014 2:17 pm    Post subject:
Reply with quote

When you post a question, you have to be as accurate as possible.
There is a huge difference between:
Quote:
Panel code is getting displayed
(that means 25 lines of the panel) and
Quote:
Panel line where error was detected:
# |$PGMNAME :- -PGMNAME%
(which is only a small part of the error message you've received).

And the error you have received certainly starts with something like:
Code:
******************************************************************************
* ISPP127                                                                    *
*                                                                            *
* Panel 'PAN2' error                                                         *
* Field or area name missing following identifying attribute character.      *
which is the important part!
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 ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm
This topic is locked: you cannot edit posts or make replies. Extract all "IF" Statements... Adarsh Damodaran CLIST & REXX 1 Wed Sep 06, 2017 9:28 am
No new posts Creating ISPF Screens with Scrname vi... Albireo20 TSO/ISPF 9 Tue Sep 05, 2017 4:24 pm
No new posts How to Run Rexx Macro? Kalaivignesh CLIST & REXX 5 Fri Sep 01, 2017 9:08 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm

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