View previous topic :: View next topic
|
Author |
Message |
Bhuvanakp
New User
Joined: 29 Aug 2007 Posts: 19 Location: Chennai
|
|
|
|
As per requirement, I need to get the source PDS and destination PDS from the user through a panel.
After getting them, I need to replace the occurance of some defined titles to appropriate new titles.The replacement is done, but the thing is that after replacement I need to inform the user through the same panel telling that:
Status: Successfully replaced.
Kindly advise me how to design a panel for this.
Input panel:
Source PDS: -----------
Destination PDS: ----------
Quote: |
After execution only, this same panel needs to be display the status to the user. |
|
|
Back to top |
|
|
avaneendra_linga
New User
Joined: 13 Dec 2006 Posts: 73 Location: Hyderabad
|
|
|
|
Hi Bahavana,
1) In Panel you can write conditional statements (IF & ELSE) in INIT & PROC section.
so u can have initialization 's based on condition in input so that you can use those variables in BODY sesction.
2) Do the same for second requirement ie have some output variable in BODY section which will be initialised to 'SUCCESSFUL' based on return code from REXX. |
|
Back to top |
|
|
Bhuvanakp
New User
Joined: 29 Aug 2007 Posts: 19 Location: Chennai
|
|
|
|
Hi,
Thanks, tried with the following code:
Code: |
)ATTR
% TYPE(INPUT) INTENS(HIGH) COLOR(TURQ) HILITE(USCORE) PAD(' ')
+ TYPE(TEXT) INTENS(LOW) COLOR(GREEN)
# TYPE(TEXT) INTENS(LOW) COLOR(TURQ)
@ TYPE(TEXT) INTENS(LOW) COLOR(BLUE)
)BODY
#-----------REPORT TITLE CONVERSION TOOL-------------- #
+ +
@ @Please provide all the information required below@ @
+ +
+ SOURCE PDS: %P +
+ +
+ DESTINATION PDS: %D +
+ +
+ STATUS: %R +
+
+PF1#Help +PF3#Exit +
)INIT
&P=' '
&D=' '
&R=' '
.HELP=ITHELP
)REINIT
REFRESH(*)
)PROC
VPUT (P) SHARED
VPUT (D) SHARED
VPUT (ZPFKEYS) SHARED
VGET (R) SHARED
VER(&P,NB)
VER(&D,NB)
IF (&R=0) THEN
&R='SUCCESSFUL'
)END
|
But it's showing error in if statement part. Kindly correct me... |
|
Back to top |
|
|
ofer71
Global Moderator
Joined: 27 Dec 2005 Posts: 2358 Location: Israel
|
|
|
|
AFAIK, there is no THEN in panel's IF.
O. |
|
Back to top |
|
|
|