IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Panel body


IBM Mainframe Forums -> TSO/ISPF
Post new topic   Reply to topic
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
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: 8797
Location: Welsh Wales

PostPosted: Tue Dec 08, 2009 8:36 pm
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

Global Moderator


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

PostPosted: Tue Dec 08, 2009 8:39 pm
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
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
Reply with quote

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

Global Moderator


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

PostPosted: Tue Dec 08, 2009 10:22 pm
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
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 View Bookmarks
All times are GMT + 6 Hours
Forum Index -> TSO/ISPF

 


Similar Topics
Topic Forum Replies
No new posts Execute secondary panel of sdsf with ... CLIST & REXX 1
No new posts Call program, directly from panel CLIST & REXX 9
No new posts panel creation question TSO/ISPF 12
No new posts Panel variable model line TSO/ISPF 3
No new posts REXX table content on panel will be r... CLIST & REXX 6
Search our Forums:

Back to Top