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 */
Getting RC =8 on a VGET ISPF service from REXX
Moderators: Veera, Moderator Group
-
- Member
- Posts: 1
- Joined: Mon Aug 01, 2011 10:16 am
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
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page