Getting RC =8 on a VGET ISPF service from REXX

Ask/Clarify the questions on TSO, CLIST & REXX

Moderators: Veera, Moderator Group

Post Reply
vasu.r.60@gmail.com
Member
Posts: 1
Joined: Mon Aug 01, 2011 10:16 am

Getting RC =8 on a VGET ISPF service from REXX

Post by vasu.r.60@gmail.com » Sun Apr 26, 2015 10:59 pm

I had created an ISPF panel source , CLEANUP using the GML . Compiled it to using ISPDTLC to create the panel. Coded a REXX to display the panel after setting the ISPLLIB/ISPMLIB. the panel comes up But when I retrieve the dialog variables using VGET in the REXX , I do not get the variable values from the panel . I get a RC =8 ( variable not found ) from the VGET ISPF service . Do not know what I am doing wrong. When I execute Dialog Test, from ISPF, I am able to see the variables from "2. Variables" menu option . But VGET from REXX is giving an error. VGET on system variables like ZPFKEY retrieves the correct information. But user defined variables using GML tag are not getting retrieved.. Any suggestions ?

My GML for panel creation :

<!DOCTYPE DM SYSTEM >
<!--DECLARE GML DIALOG VARIABLE CLASSES -->
<VARCLASS NAME=STR60 TYPE='CHAR 60'>
<VARCLASS NAME=STR37 TYPE='CHAR 37'>
<VARCLASS NAME=STR01 TYPE='NUMERIC 01'>
<VARCLASS NAME=DSETFILT TYPE='CHAR 44'>
<XLATL FORMAT=UPPER>
</XLATL>
</VARCLASS>
<VARCLASS NAME=DATE10 TYPE='CHAR 10'>
<XLATL FORMAT=UPPER>
</XLATL>
<CHECKL>
<CHECKI TYPE=STDDATE>
</CHECKI>
</CHECKL>
</VARCLASS>
<!--DECLARE GML DIALOG VARIABLES -->
<VARLIST>
<VARDCL NAME=INDATE VARCLASS=DATE10>
<VARDCL NAME=DSETSEL VARCLASS=STR01>
<VARDCL NAME=REPTSEL VARCLASS=STR01>
<VARDCL NAME=PATTERN VARCLASS=DSETFILT>
<VARDCL NAME=TAGPATRN VARCLASS=STR60>
<VARDCL NAME=TGDATE VARCLASS=STR37>
</VARLIST>
<!--GML TO CREATE PANEL CLEANUP -->
<PANEL NAME=CLEANUP
CURSOR=DSETSEL
DEPTH=24
WIDTH=75> AIW DATASET CLEANUP UTILITY
<!-- HELP=CLUPHLP> DATASET CLEANUP UTILITY -->
<cmdarea>
<TOPINST>
This tool is developed to clean up the tapes and migrated datasets.
Enter the required fields and press enter to generate JCL and report
</TOPINST>
<AREA>
<REGION DIR=HORIZ>
<selfld type=single name=DSETSEL selwidth=35 pmtwidth=35 entwidth=1
REQUIRED=YES
listtype=radio>Datasets to be Cleaned Up
<choice>Expired Tape Datasets <choice>Migrated Datasets
<choice>Non Expired Tape Datasets <choice>Non Migrated Datasets
</selfld>
</REGION>
<!--DATA-ENTRY FIELD FOR Entering Pattern -->
<DTAFLD NAME=tagpatrn DATAVAR=TAGPATRN
USAGE=OUT ENTWIDTH=1
REQUIRED=NO>Pattern (High Level Qualifier.Should not start with '*')
<DTAFLD NAME=PATTERN DATAVAR=PATTERN VARCLASS=DSETFILT
<DTAFLD NAME=PATTERN DATAVAR=PATTERN VARCLASS=DSETFILT
USAGE=BOTH
ENTWIDTH=44
REQUIRED=YES
PMTWIDTH=4>
<!--DATA-ENTRY FIELD FOR Entering date -->
<DTAFLD NAME=INDATE datavar=INDATE
USAGE=BOTH
REQUIRED=NO
ENTWIDTH=10
PMTWIDTH=38>Migrated/Expired before ( YYYY/MM/DD )
<REGION DIR=HORIZ>
<selfld type=single name=REPTSEL selwidth=35 pmtwidth=35 entwidth=1
REQUIRED=YES FCHOICE=1 INIT=1
listtype=radio>Delete/View Report
<choice>Create Report Only <choice>Delete and Create Report
</selfld>
</REGION>
</AREA>
<botinst>
NOTE: After hitting ENTER key , a JCL will be generated. Please SUBMIT
it to continue.
</botinst>
</PANEL>


My REXX Code : DISPLAY_PANEL

DISPLAY_PANEL:
ADDRESS ISPEXEC 'CONTROL DISPLAY REFRESH'
DO FOREVER
ADDRESS ISPEXEC 'DISPLAY PANEL('PANEL_NAME')'
'ISPEXEC VGET (ZPFKEY) ASIS'
IF ZPFKEY = "PF03" THEN DO
SAY 'ZPFKEY = ' ZPFKEY
LEAVE
END
/* ADDRESS ISPEXEC 'VGET (ZVERB) ASIS' */
'ISPEXEC VGET (PATTERN,DSETSEL,INDATE,REPTSEL) '
SAY 'RC 2 = ' RC
SAY 'VALUE = ' REPTSEL
IF ¬USER_INPUTS_OK(PATTERN,2) THEN DO
ITERATE
END */
CALL CALL_CSI
CALL TERM_ROUTINE
END
RETURN /* END DISPLAY_PANEL */

academyindia4

Topic deleted by Admin

Post by academyindia4 » Thu Jan 21, 2016 12:07 pm

<< Content deleted By Admin >>

Post Reply

FREE TUTORIALS

Tutorials
Free tutorials from mainframegurukul
  • JCL Tutorial
    Covers all important JCL concepts.
  • Cobol Tutorial
    This tutorials covers all Cobol Topics from STRING to COMP-3.
  • DB2 Tutorial
    DB2 Tutorial focuses on DB2 COBOL Programming.
  • SORT Tutorial
    This Tutorial covers all important aspects of DFSORT with examples
  • CICS Tutorial
    This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions



Other References
Mainframe Tools and others