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 body

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> TSO/ISPF
View previous topic :: :: View next topic  
Author Message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 31
Location: USA

PostPosted: Tue Dec 08, 2009 8:21 pm    Post subject: Panel body
Reply with quote

In the body of my PLIB (Panel) I have the following:

>_PRJM1 >_PRJM2

this is working - I need to pass this to a report which is located in a dataset member- Question PRJM1 and PRJM2 need to on the same line in the report - I am getting an error that I am exceding the 80 Char limit.

ISPF105

Output overflow
Line to be written greater than data set LRECL (80), CHKLTR record-14






File tailoring input line:
&PRJM1_____________________________&PRJM2_____________________________
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: Tue Dec 08, 2009 8:36 pm    Post subject:
Reply with quote

1) the correct term is an ISPF panel, not a REXX or CLIST panel - no such animals

2) HAve you performed a length check on the two variables to see how long they are.

3) The problem is possibly in the skeleton - you need to post that
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2086
Location: Silicon Valley

PostPosted: Tue Dec 08, 2009 8:39 pm    Post subject: Reply to: REXX/Clist panel body
Reply with quote

How long are PRJM1 and PRJM2?

Do you really have underscores in your file tailoring skeleton? Do you expect for the underscores to fit on the same line as PRJM1 and PRJM2?
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 31
Location: USA

PostPosted: Tue Dec 08, 2009 8:54 pm    Post subject: Here is the Plib
Reply with quote

I allow a 15 position to enter on the Panel

>>>>>>>>>>>>>>>>> clist <<<<<<<<<<<<<<<<<<,
Code:

CONTROL   MSG NOPROMPT NOLIST  NOLIST NOSYMLIST   FLUSH             
/*NTROL   MSG   PROMPT   LIST   CONLIST   SYMLIST   FLUSH           
/******************************************************             
/**BATCH PROGRAM RELEASE FUNCTION APPLICATION WB     **             
/******************************************************             
ISPEXEC  VGET (MOVBSRC UTLDICT MOVESRCO MORE CLS) PROFILE           
ISPEXEC  VGET (MOVBLOD MOVELODN MOVELODO MOVESRCN) PROFILE         
ISPEXEC  VGET (MOVEJCL MOVEJCLO MOVESRCB MOVELODB) PROFILE         
ISPEXEC  VGET (PGMRV SUBS JCLS PRJM1 LDEST ) PROFILE               
ISPEXEC  VGET (PRJM2  PRJM3 PRJM4 QAYN ) PROFILE                   
ISPEXEC  VGET (RELMBR) PROFILE                                     
SET &MORE  EQ  &STR(N)                                             
DISPLAY:  +                                                         
   ISPEXEC  DISPLAY  PANEL(MOVEBAT2)                               


Panel
Code:

 )ATTR                                                                   
   ¦ TYPE(OUTPUT) INTENS(LOW) SKIP(ON)                                   
   @ TYPE(OUTPUT) INTENS(LOW)                                           
   + TYPE(TEXT)  INTENS(LOW) SKIP(ON)                                   
   \ TYPE(TEXT)  INTENS(HIGH) COLOR(YELLOW)                             
   # TYPE(TEXT)  INTENS(LOW)  COLOR(PINK)                               
   < TYPE(TEXT)  INTENS(HIGH) COLOR(YELLOW)                             
   ! TYPE(TEXT)  INTENS(LOW)  COLOR(YELLOW)                             
   ¢ TYPE(TEXT)  INTENS(LOW)  COLOR(YELLOW) HILITE(REVERSE)             
   } TYPE(INPUT) INTENS(HIGH) COLOR(TURQ)                               
   { TYPE(TEXT)  INTENS(LOW)  COLOR(TURQ)   HILITE(BLINK)               
   ¬ TYPE(TEXT)  INTENS(HIGH) COLOR(GREEN)                               
   $ TYPE(TEXT)  INTENS(LOW)  COLOR(GREEN)                               
 )BODY                                                                   
 %-------------------MISIL BATCH RELEASE SCREEN--------------------------
 %COMMAND =========> %_ZCMD                                     +USER:  &
 +  Enter %SUB+TO SUBMIT, %END+ to cancel this function         +TIME:  &
 +  Use PF1 for HELP                                            +DATE:  &
                                                                +CLID:  M
 +Workbench final compile must be complete before executing this function
 +Release member:---------> _RELMBR +         Override IDD edits (y or n)
 +Proj/PTR 1:>_PRJM1         + C/P/N?_Z+ Proj/PTR 2:>_PRJM2         + C/P
 +Proj/PTR 3:>_PRJM3         + C/P/N?_Z+ Proj/PTR 4:>_PRJM4         + C/P
 +Source name:-> _MOVBSRC + PROD name:_MOVESRCN+ Dict name: _UTLDICT    +
 +Orig src lib-> _MOVESRCO               +bkup src lib-> _MOVESRCB       
 +                                                                       
 +Load module:->  _MOVBLOD +  Orig load lib->_MOVELODO                   
 +BKUP name:----> _MOVELODN+  Bkup load lib->_MOVELODB                   
 \Create QA Sheet:-> _Z\ Source Lines Changed->_SRCLNSCG+               
 +Rel. version:->_PGMRV+\N(New), R(Rev) or S(PTR)   \Printer Number:_Z   
 +Subschema N(New),R(Rev) or -(unchanged) _Z+                           
 +JCL member name:--------> _MOVEJCL + JCL N(New), R(Rev) or -(unchanged)
 +Original JCL library:---> _MOVEJCLO                +                   
 +Release library is:-----> ¦RELLIB                  +                   
 +Execution jobclass will be:------------>+ @Z+                         
 +  Return to this screen? (y or n) :------->+ _Z+
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 31
Location: USA

PostPosted: Tue Dec 08, 2009 9:01 pm    Post subject: ISPF panel
Reply with quote

How do I do a lenght check ?[/u]
Back to top
View user's profile Send private message
Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2086
Location: Silicon Valley

PostPosted: Tue Dec 08, 2009 10:22 pm    Post subject: Reply to: Panel body
Reply with quote

Show us your file tailoring skeleton.

repeating:
Do you really have underscores in your file tailoring skeleton? Do you expect for the underscores to fit on the same line as PRJM1 and PRJM2?
Back to top
View user's profile Send private message
gpowell382

New User


Joined: 25 Aug 2005
Posts: 31
Location: USA

PostPosted: Wed Dec 09, 2009 10:58 pm    Post subject: Panel Body
Reply with quote

Yes - I have underscores in my file tailoring skeleton, I took out the underscore and it worked. Thanks that I what wanted to do.
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 -> TSO/ISPF All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Trace in CLIST PANEL cvnlynn CLIST & REXX 1 Thu Jun 22, 2017 11:06 pm
No new posts SCLM -- not installed -- panel ISRNOSLM dmitchell1105 IBM Tools 3 Fri Jun 09, 2017 10:41 pm
No new posts ISPF - How to come out of ISPF Panel parasmalik20 TSO/ISPF 5 Tue Feb 21, 2017 7:44 pm
No new posts the use of 'B3'x character in a panel Pedro TSO/ISPF 1 Thu Feb 16, 2017 3:09 am
No new posts Design of ISPF panel prino TSO/ISPF 2 Wed Jan 25, 2017 10:31 pm

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