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 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: 29

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: 2025
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: 29

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: 29

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: 2025
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: 29

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
This topic is locked: you cannot edit posts or make replies. Calling REXX code from ISPF panel sanchita dey TSO/ISPF 4 Mon Jan 02, 2017 5:13 pm
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 Reading data from PS file and send it... rajatbagga All Other Mainframe Topics 18 Fri Sep 23, 2016 12:51 pm
No new posts Any body aware of CAP-COBOL language? Sachin Raghuwanshi COBOL Programming 4 Tue Aug 02, 2016 9:34 am
No new posts Rexx Panel Validation ajithajt CLIST & REXX 6 Sun Jul 17, 2016 10:50 pm


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