dhansr Beginner
Joined: 26 May 2016 Posts: 14 Topics: 6
|
Posted: Wed Jun 29, 2016 2:48 pm Post subject: ISPF Panel not working |
|
|
Hi,
I have written the panel in a PDS like below.
Code: |
VIEW ,TEST.IP.PGM.REXXPGM4(JOBMAIN) - 01.01 ,Columns,00001,00072,
Command ===>, ,Scroll ===>,CSR ,
******,***************************** Top of Data ******************************
000001,)ATTR
000002,# TYPE(TEXT) INTENS(HIGH) COLOR(GREEN)
000003,$ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE) HILITE(REVERSE)
000004,@ TYPE(TEXT) INTENS(HIGH) COLOR(WHITE)
000005,{ TYPE(OUTPUT) INTENS(HIGH) COLOR(RED) JUST(RIGHT) CAPS(OFF)
000006,_ TYPE(NEF)
000007,)BODY
000008,+ $ TESTING MENU + +
000009,+ + +
000010,+ + +
000011,+ {OPMSG + +
000012,+ + +
000013,+ + +
000014,+@ ENTER THE OPTION TO LAUNCH : _OPTION + +
000015,+ + +
000016,+ + +
000017,+@ OPTIONS AVAILABLE: + +
000018,+@ 1. EXECUTE 1ST JOB + +
,*DSLIST ,
|
Executing this panel with REXX in a PDS
Code: |
VIEW ,TEST.IP.PGM.REXXPGM3(JOBOPT) - 01.04 ,Columns,00001,00072,
Command ===>, ,Scroll ===>,CSR ,
******,***************************** Top of Data ******************************
000100,/*REXX*/
000200,ADDRESS ISPEXEC
000300,"CONTROL ERRORS RETURN"
000400,"LIBDEF ISPPLIB DATASET ID('TEST.IP.PGM.REXXPGM4') UNCOND"
000500,"ADDPOP ROW(5) COLUMN(5)"
000600,"DISPLAY PANEL(JOBMAIN) CURSOR(OPTION)"
000700,OPMSG=''
000800,DO WHILE RC=0
000900,SELECT
001000,WHEN OPTION=1 THEN DO
001100,ADDRESS TSO
001200, CALL JOBEXEC
001300,END
001400,WHEN OPTION=2 THEN DO
|
When i execute REXX by providing EX before member name i am getting RC=0 but panel is not displaying, could you please suggest why?
Code: |
BROWSE ,TEST.IP.PGM.REXXPGM3 ,Row,0000002,of,0000002,
Command ===>, ,Scroll ===>,CSR ,
, Name ,,Prompt ,, Size,, Created ,, Changed ,, ID ,
EX_______,JOBOPT ,*RC=0 , 43 2016/06/29 2016/06/29 12:37:10 E000000
,**End** ,
|
|
|