IBM Mainframe Forum

by **Quasar** » Sun Jun 02, 2013 3:29 pm

Hi all,

I am trying to generate a panel on-the-fly, allocate a panel library, write the member to the library and LIBDEF it to ISPPLIB. When I issue the call to DISPLAY PANEL() service, it sets a return-code of 20. I am unable to understand, why the DISPLAY is failing. I tried searching on the Internet, but couldn't get much help. Could you give me some pointers, about what's wrong?

Select all

/*__________________________________________________________________*/
Display_Dyn_Panel:
/* ----------------- */
/* This routine builds an ISPF Panel on the fly and displays it. */
/*__________________________________________________________________*/
ZPF07 = 'PREV'
ZPF08 = 'NEXT'
ZCMD = ''
ROW = 0
COL = 0

Call load_dynlib
Call put_object

Address ispexec "libdef ispplib library id("dynlib") stack"
SAY 'LIBDEF RC = ' RC

Address Ispexec "VPUT (ZPF07,ZPF08) PROFILE"
/* Say 'VPUT RC: ' RC */
Address Ispexec "ADDPOP ROW(05) COLUMN(01)"
IF RC > 0 THEN DO
Say 'ADDPOP RC = ' RC
EXIT
end
Address Ispexec "DISPLAY PANEL(DYNPANE)"
Display_rc = rc

IF DISPLAY_RC > 0 THEN DO
SAY 'DISPLAY PANEL RC = ' RC
EXIT
END
Address ISPEXEC "REMPOP"

/* SAY 'DISPLAY_RC : ' DISPLAY_RC */
RETURN
/*__________________________________________________________________*/
load_dynlib:
/* ----------------- */
/* This routine queues the panel body, and then stores it in a mem. */
/*__________________________________________________________________*/
dynlib = 'dyn'||random(99999)
tempds = USERID()|| '.ISPPLIB.TMP' ||random(9999)
alloc_fi = "ALLOC FI ("dynlib") da('"tempds"')" ||,
" lrecl(80) blksize(800)" ||,
" new reu" ||,
" space(5,5) dir(10) "

ADDRESS TSO ""alloc_fi""

if rc = 0 then do
ispdyn = tempds
end
else do
ispdyn = 'NOT FOUND'
Say 'Failed to allocated Dynamic Library'
Say '//' || dynlib || ' DD DSN=' || tempds
Say rc
exit
end

Address tso
"newstack"
member = 'DYNPANE'
queue ')ATTR'
queue '@ AREA(DYNAMIC) SCROLL(OFF)'
queue 'Y TYPE(CHAR) COLOR(TURQUOISE) HILITE(REVERSE)'
queue '~ TYPE(CHAR) COLOR(GREEN)'
queue '$ TYPE(DATAIN) COLOR(TURQUOISE) HILITE(REVERSE)'
queue '_ TYPE(NEF) PADC(_)'
queue '| TYPE(TEXT) COLOR(YELLOW)'
queue '¢ TYPE(DATAOUT) COLOR(BLUE)'
queue '? TYPE(NT)'
queue ')BODY WINDOW(76,12) CMD(ZCMD)'
queue '| MINE - Structure Chart Generator' ||,
' +'
queue '? ' ||,
' +'
queue '+@DYNVAR,SHADVAR ' ||,
' @'
queue '+@ ' ||,
' @'
queue '+@ ' ||,
' @'
queue '+@ ' ||,
' @'
queue '+@ ' ||,
' @'
queue '+@ ' ||,
' @'
queue '+@ ' ||,
' @'
queue '+@ ' ||,
' @'
queue '+@ ' ||,
' @'
queue ')PROC'
queue '&PFKEY=.PFKEY'
queue ')END'

RETURN
/*__________________________________________________________________*/
put_object:
/* ---------- */
/* This routine stores the member into the Temporary ISPF Library */
/* allocated previously. */
/*__________________________________________________________________*/
tfil = 'tfil' || random(9999)
Address tso
"alloc f("tfill") da('"ispdyn"("member")') shr reu"
if rc > 0 then do
say 'Failed to allocate member, RC = ' rc
end
Address tso
"execio" queued() "diskw "tfill" (finis"
"free f("tfill")"
"delstack"

RETURN

by **prino** » Sun Jun 02, 2013 7:20 pm

You missed two things:

1) The fact that you "borrowed" this code from me
2) That there is no ZCMD field on the panel

by **Quasar** » Sun Jun 02, 2013 9:03 pm

Prino -

1. I may have missed it here, but haven't forgotten it. I haven't still uploaded this on CBTTape, but I am surely going mention the source in the comments-section. I liked the code so much and the fact it works at any shop, that I encourage friends, fellow programmers to use it. All credits to Robert Prino.
2. Gosh, thank you so much for that. It works now. I should have done a trace rather.

Thank you very much!

by **enrico-sorichetti** » Sun Jun 02, 2013 9:54 pm

I haven't still uploaded this on CBTTape, but I am surely going mention the source in the comments-

pretty stupid intent ...
when somebody using Your upload will email about malfunctions, what are You going to do ?
ask on a forum how to fix it ? :mrgreen:

meditate, You were not even able to debug such a silly mistake.

and even if legally nothing might prevent You from doing it,
from an ethical point of view it will be still a pretty inconsiderate approach.

by **Quasar** » Mon Jun 03, 2013 12:16 am

Enrico,

Yeah, I should have. But, I have fixed a lot of issues with it upto now, even tried it at my shop. I get the point you are trying to make.

Thank you.

IBM Mainframe Forum

ISPF DISPLAY Service returns RC=20

ISPF DISPLAY Service returns RC=20

Re: ISPF DISPLAY Service returns RC=20

Re: ISPF DISPLAY Service returns RC=20

Re: ISPF DISPLAY Service returns RC=20

Re: ISPF DISPLAY Service returns RC=20