|
View previous topic :: View next topic
|
| Author |
Message |
diwa_thilak
Active User
.jpg)
Joined: 13 Jul 2006
Posts: 205
Location: At my desk
|
|
|
|
Hi Friends,
I have designed a panel in the PDS (CN745.TEST.PANEL) - INDXSRI
| Code: |
)ATTR DEFAULT(%+_)
% TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW)
~ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(RED)
! TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(PINK)
@ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON)
# TYPE(CEF) JUST(LEFT)
)BODY WINDOW(72,20) EXPAND(\\)
%
% %CURRENT DB2SYS:!&JBS % %
% %
%*------------*~ CHECKING CARDS FOR SETTLEMENT %*--------------*%
%| FILE 1/FILE 2 |%
%* *%
%* *%
%| !OPTION ===> +G1% |%
%* *%
%| !1 % FILE 1 - CHECK FOR FILE1 SETTLEMENT STREAM1 |%
%* *%
%| !2 % FILE 2 - CHECK FOR FILE2 SETTLEMENT STREAM2 |%
%* *%
%| !3 % FUTURE WORK - ADDITIONAL OPTIONS FOR CHECKING SETTLE |%
%* MENT JOBS *%
%| |%
%* *%
%| |%
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)INIT
)REINIT
REFRESH(*)
)PROC
&PFK = .PFKEY
VER(&G1,LIST,1,2,3)
)END |
I have defined the dataset using the LIBDEF (option 7.6).
I could not able to view the panel using 7.2. I am getting panel not found error.
I haev even defined the path in my CLIST member too.
Also could you please let me know the above panel is error free.
Thanks,
Diwakar
-------
Nobody is Perfect. I am Nobody |
|
| Back to top |
|
 |
superk
Global Moderator
Joined: 26 Apr 2004
Posts: 4652
Location: Raleigh, NC, USA
|
|
|
|
The only problem that I see with your panel is that you haven't left any way to get out of the display (unless you intend this to be a popup). I'd add a COMMAND line with the ZCMD variable:
| Code: |
)ATTR DEFAULT(%+_)
% TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW)
~ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(RED)
! TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(PINK)
@ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON)
# TYPE(CEF) JUST(LEFT)
)BODY WINDOW(72,20) EXPAND(\\)
%COMMAND ===>_ZCMD +
% %CURRENT DB2SYS:!&JBS % %
% %
%*------------*~ CHECKING CARDS FOR SETTLEMENT %*--------------*%
%| FILE 1/FILE 2 |%
%* *%
%* *%
%| !OPTION ===> +G1% |%
%* *%
%| !1 % FILE 1 - CHECK FOR FILE1 SETTLEMENT STREAM1 |%
%* *%
%| !2 % FILE 2 - CHECK FOR FILE2 SETTLEMENT STREAM2 |%
%* *%
%| !3 % FUTURE WORK - ADDITIONAL OPTIONS FOR CHECKING SETTLE |%
%* MENT JOBS *%
%| |%
%* *%
%| |%
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)INIT
)REINIT
REFRESH(*)
)PROC
&PFK = .PFKEY
VER(&G1,LIST,1,2,3)
)END
|
|
|
| Back to top |
|
|
diwa_thilak
Active User
Joined: 13 Jul 2006
Posts: 205
Location: At my desk
|
|
|
|
Superk,
Thanks for your reply.
1 : i have defined the PDS name in the ISP library using option 7.6
2: I could not able to view the panel using the option 7.2.
Err Msg: Panel not found.
3. I tried executing the panel using REXX program.
| Code: |
/*******************************REXX****************************/
call Initialize
Initialize:
UserId = sysvar(sysuid)
say UserId
Cursor = 'CURSOR()'
ADDRESS ISPEXEC
"ISPEXEC LIBDEF ISPPLIB DATASET ID('CN745.TEST.PANEL')"
MSG = " "
PF = " "
'ISPEXEC DISPLAY PANEL(INDXSCR)'
Select
when PFK = 'PF03' then
Call 'XEAMAIN'
when PFK = 'PF04' then
Call MainExit
otherwise
Call Mainexit
End
Return
MainExit:
Return |
I am getting the following error message
| Quote: |
**************************************************************
* ISPP121
*
* Panel 'INDXSCR' error
* Panel definition too large, greater than screen size.
*
******************************************************* |
I tried to decrease the body of the screen , But i receive the same error message.
Can you provide your thoughts regarding this issue.
1. Why i could not able to view the panel using the option 7.2 ?
2. I beleive 72,20 is the standard panel size ? What else can i include to make this panel work ?
Thanks,
Diwakar
----------------------------------------------
Nobody is Perfect. I am Nobody |
|
| Back to top |
|
|
Mickeydusaor
Active User
Joined: 24 May 2006
Posts: 258
Location: Salem, Oregon
|
|
|
|
To start with your G1 needs to be define with the _G1 to accept input.
the second thing is the !&JBS. if this is to a field that you display from
a variable that was set in a Rexx or C list it needs to be defined as
OUTPUT and you need to do a VGET to retrieve it. You can remove the EXPAND(\\) as you do not use it. |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
.jpg)
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
I tried the same panel definition with my rexx code.But its working fine for me  
Regds,
Prem |
|
| Back to top |
|
|
Pandora-Box
Global Moderator
Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
|
|
|
|
diwa_thilak,
Please check whether you did these things
1.Go to option 7.6
2.Check weather u gave this command
| Code: |
libdef ispplib dataset id('xxx')
|
where xxx is ur dataset where u have those panel definitions
3.Then press enter
4.Then place your cursor on that command hit enter again
5.Press F3
6.Now select option 2
7.Type your panel name and hit enter.
Hope this helps .
Thanks,
Prem |
|
| Back to top |
|
|
diwa_thilak
Active User
Joined: 13 Jul 2006
Posts: 205
Location: At my desk
|
|
|
|
Hi Friends,
Prem : I have added the definition you have mentioned in the REXX code and as well followed the same procedure to add the PDS in the library.
But i am getting the following error message..
| Code: |
ISPP133
Panel 'PANEL2' error
Invalid statement found within )INIT, )REINIT, or )PROC section.
Panel line where error was detected:
)END |
ISPP133 refers to
| Quote: |
ISPP133 Panel 'aaaaaaaa' error - Invalid statement found within )INIT,
)REINIT, or )PROC section. |
How to approach this issue
Got any suggestions
Thanks,
Diwakar
---------
Nobody is Perfect. I am Nobody |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
Can you post the entire panel?
O. |
|
| Back to top |
|
|
diwa_thilak
Active User
Joined: 13 Jul 2006
Posts: 205
Location: At my desk
|
|
|
|
Hi,
PANEL - Name - PANEL3
| Code: |
)PANEL
)ATTR DEFAULT(%+_)
% TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(YELLOW)
~ TYPE(TEXT) INTENS(LOW) SKIP(ON) COLOR(RED)
! TYPE(TEXT) INTENS(HIGH) SKIP(ON) COLOR(PINK)
@ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) SKIP(ON)
# TYPE(CEF) JUST(LEFT)
)BODY WINDOW(72,20) EXPAND(\\)
%COMMAND ===>_ZCMD +
% %CURRENT DB2SYS:!&JBS % %
% %
%*------------*~ CHECKING CARDS FOR SETTLEMENT %*--------------*%
%| FILE 1/FILE 2 |%
%* *%
%* *%
%| !OPTION ===> +G1% |%
%* *%
%| !1 % FILE 1 - CHECK FOR FILE1 SETTLEMENT STREAM1 |%
%* *%
%* *%
%| !2 % FILE 2 - CHECK FOR FILE2 SETTLEMENT STREAM2 |%
%* *%
%| !3 % FUTURE WORK - ADDITIONAL OPTIONS FOR CHECKING SETTLE |%
%* MENT JOBS *%
%| |%
%* *%
%| |%
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
)INIT
)REINIT
REFRESH(*)
)PROC
&PFK = .PFKEY
VER(&G1,LIST,1,2,3)
)END |
REXX Code
| Code: |
/*******************************REXX****************************/
CALL INITIALIZE
INITIALIZE:
USERID = SYSVAR(SYSUID)
SAY USERID
CURSOR = 'CURSOR()'
ADDRESS ISPEXEC
"ISPEXEC LIBDEF ISPPLIB DATASET ID('XXXXX.XXXX')"
MSG = " "
PF = " "
'ISPEXEC DISPLAY PANEL(PANEL3)'
SELECT
WHEN PFK = 'PF03' THEN
CALL 'XEAMAIN'
WHEN PFK = 'PF04' THEN
CALL MAINEXIT
OTHERWISE
CALL MAINEXIT
END
RETURN
MAINEXIT:
RETURN |
Then i tried the below rexx code to view the panel
| Code: |
/* REXX */
"ISPEXEC LIBDEF ISPPLIB DATASET ID('XXXX.XXX')"
"ISPEXEC ADDPOP"
"ISPEXEC DISPLAY PANEL(PANEL3)"
"ISPEXEC REMPOP"
"ISPEXEC LIBDEF ISPPLIB" |
Thanks,
Diwakar
---------
Nobody is Perfect. I am Nobody |
|
| Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005
Posts: 2358
Location: Israel
|
|
|
|
The )END statement should start at position 1.
O. |
|
| Back to top |
|
|
diwa_thilak
Active User
Joined: 13 Jul 2006
Posts: 205
Location: At my desk
|
|
|
|
Hi all,
Thanks for all..
Special thanks to Ofer,Prem and Mickey to get this done for me..
Thanks,
Diwakar
----------------
Nobody is Perfect. I am Nobody |
|
| Back to top |
|
|
|
|
