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
 

 

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: 1219
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: 1219
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 Is the 'prompt' data for the DSLIST p... Willy Jensen TSO/ISPF 2 Tue Dec 06, 2016 4:38 am
No new posts PL/I code tuning/Performance improvement Virendra Shambharkar PL/I & Assembler 4 Mon Dec 05, 2016 11:57 am
No new posts What is the code in CLIST to enable t... jackzhang75 CLIST & REXX 1 Fri Dec 02, 2016 3:02 am
No new posts IDEAL - Code Retrieval yugendran CA Products 0 Fri Nov 25, 2016 3:27 pm
No new posts What is the command to check MODE of ... rohanthengal CLIST & REXX 6 Fri Nov 18, 2016 1:48 pm


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