A sample command list (CLIST) that you can use to start
the CICS® VR ISPF dialog interface. This sample CLIST
is member DWWCLIST of the SDWWCNTL data set.
If you used CICS VR JCL customization, run DWWCLIST from customized
data set SDWWCNTL.OUT. For more information, see Running CICS VR JCL customization.
If you want to capture tracing and diagnostic information while
running the CICS VR dialog, add allocations for the DWWDUMP
ddnames to the CLIST. The DCB for this data set is (RECFM=VBA,LRECL=84,BLKSIZE=3120). Figure 1. Sample DWWCLIST
PROC 0
CONTROL FLUSH NOPROMPT MSG
/* --------------------------------------------------------------- */
/* */
/* @BANNER_START 01 */
/* Licensed Materials - Property of IBM */
/* */
/* 5655-GY1 DWWCLIST */
/* */
/* (C) Copyright IBM Corp. 1991, 2014 */
/* (C) Copyright HCL Technologies Ltd. 2025 */
/* */
/* */
/* @BANNER_END */
/* PN= REASON REL YYMMDD ID: REMARKS */
/* $L0= ....... 000 910101 ......... Creation */
/* $L1= CVR410 410 050909 ......... SDWWLENU Added */
/* $L2= CVR420 420 060909 ......... Hlq variables Added */
/* $L3= CVR430 430 080520 ......... Hlq and Suff for RCDS */
/* D55179 510 120711 ......... default hlq changed */
/* R63746 520 130420 ......... default hlq changed */
/* R71977 520 130920 ......... customization */
/* --------------------------------------------------------------- */
/* */
/* FUNCTION: SAMPLE CLIST TO INVOKE THE CICSVR ISPF DIALOG. */
/* (ENGLISH) */
/* --------------------------------------------------------------- */
ISPEXEC CONTROL ERRORS RETURN /* RETURN IPF ERRORS TO CLIST */
ISPEXEC VGET ZUSER SHARED /* GET USERID */
/* --------------------------------------------------------------- */
/* Replace the value of the HLQ variable with what you have */
/* specified for @hlq@ in the DWWALLOC job. */
/* --------------------------------------------------------------- */
SET HLQ = DWW.V610 /* HIGH LEVEL QUALIFIER FOR */
/* CICSVR LIBRARIES */
/* --------------------------------------------------------------- */
/* Replace the value of the UHLQ variable with the high level */
/* qualifier that you have used for allocation the following */
/* data sets: */
/* &uhlq..DWWMSG */
/* &uhlq..DWWPRINT */
/* &uhlq..DWWDMSG */
/* &uhlq..ISPFILE */
/* --------------------------------------------------------------- */
SET UHLQ = DWW.&ZUSER /* HIGH LEVEL QUALIFIER FOR */
/* USER DATA SETS */
/* --------------------------------------------------------------- */
/* Replace the values for the PREF and the SUFF variables */
/* to what you have specified in DWWRCDEF sample job to allocate */
/* the RCDS data sets: */
/* &pref.DWWCON1.GRP&suff */
/* &pref.DWWCON2.GRP&suff */
/* &pref.DWWCON3.GRP&suff */
/* --------------------------------------------------------------- */
SET PREF = DWW.V610 /* RCDS PREFIX */
SET SUFF = PROD /* RCDS SUFFIX */
/* --------------------------------------------------------------- */
ISPEXEC VGET ZPFSHOW PROFILE /* CHANGE PFSHOW SO THAT */
SET PFSAVE = &ZPFSHOW /* PF-KEY ARE DISPLAYED DURING*/
SET PFCMD = &STR(PFSHOW ON) /* CICSVR DIALOG INTERFACE */
ISPEXEC DISPLAY COMMAND(PFCMD)
ISPEXEC LIBDEF ISPFILE
ISPEXEC LIBDEF ISPPLIB
ISPEXEC LIBDEF ISPMLIB
ISPEXEC LIBDEF ISPTLIB
FREE FI(DWWCON1,DWWCON2,DWWCON3,DWWMSG,DWWPRINT,MYFILE,ISPFILE)
FREE FI(DWWSLIB,DWWLLIB,DWWDMSG)
FREE FI(DWWLOAD)
/* ---------------------------------------------------- DWWCON1 */
ALLOC FI(DWWCON1) DA('&PREF..DWWCON1.GRP&SUFF') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWCON1
GOTO SETMSG3
END
/* ---------------------------------------------------- DWWCON2 */
ALLOC FI(DWWCON2) DA('&PREF..DWWCON2.GRP&SUFF') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWCON2
GOTO SETMSG3
END
/* ---------------------------------------------------- DWWCON3 */
ALLOC FI(DWWCON3) DA('&PREF..DWWCON3.GRP&SUFF') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWCON3
GOTO SETMSG3
END /
* ---------------------------------------------------- DWWMSG */
/** ALLOC FI(DWWMSG) SYSOUT(X) DEST(XXXX) ***/
ALLOC FI(DWWMSG) DA('&UHLQ..DWWMSG') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWMSG
GOTO SETMSG3
END
/* ---------------------------------------------------- DWWPRINT */
/** ALLOC FI(DWWPRINT) SYSOUT(X) DEST(XXXX) ***/
ALLOC FI(DWWPRINT) DA('&UHLQ..DWWPRINT') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWPRINT
GOTO SETMSG3
END
/* ---------------------------------------------------- DWWDMSG */
/** ALLOC FI(DWWDMSG) SYSOUT(X) DEST(XXXX) ***/
ALLOC FI(DWWDMSG) DA('&UHLQ..DWWDMSG') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWDMSG
GOTO SETMSG3
END
/* ---------------------------------------------------- ISPLLIB */
/* The following line (LIBDEF for ISPLLIB) is added only if */
/* the CICSVR LOADLIB'S are not allocated to ISPLLIB in the */
/* TSO LOGON PROC. */
/* ------------------------------------------------------------- */
ISPEXEC LIBDEF ISPLLIB DATASET ID('&HLQ..SDWWLOAD', +
'&HLQ..SDWWLENU')
/* ---------------------------------------------------- DWWLOAD */
/* The following allocation is required only if the CICSVR */
/* LOADLIB'S are not allocated to ISPLLIB in the TSO LOGON */
/* PROC. */
/* ------------------------------------------------------------- */
SET &LIBS = &STR('&HLQ..SDWWLOAD')
SET &DSN = &STR('&HLQ..SDWWLENU')
SET &LIBS = &STR(&LIBS , &DSN)
ALLOC FI(DWWLOAD) DA(&LIBS) SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWLOAD
GOTO SETMSG3
END
/* ---------------------------------------------------- DWWLLIB */
SET &LIBS = &STR('&HLQ..SDWWLOAD')
SET &DSN1 = &STR('&HLQ..SDWWLENU')
SET &LIBS = &STR(&LIBS , &DSN1 )
ALLOC FI(DWWLLIB) DA(&LIBS) SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWLLIB
GOTO SETMSG3
END
/* ---------------------------------------------------- ISPPLIB */
ISPEXEC LIBDEF ISPPLIB DATASET ID('&HLQ..SDWWPENU')
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = ISPPLIB
GOTO SETMSG3
END
/* ---------------------------------------------------- ISPMLIB */
ISPEXEC LIBDEF ISPMLIB DATASET ID('&HLQ..SDWWMENU')
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = ISPMLIB
GOTO SETMSG3
END
/* ---------------------------------------------------- ISPTLIB */
ISPEXEC LIBDEF ISPTLIB DATASET ID('&HLQ..SDWWTENU')
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = ISPTLIB
GOTO SETMSG3
END
/* --------------------------------------------------- DWWSLIB */
SET &LIBS = &STR('&UHLQ..ISPFILE')
SET &DSNO= &STR('&HLQ..SDWWSENU')
SET &LIBS = &STR(&LIBS , &DSNO)
ALLOC FI(DWWSLIB) DA(&LIBS) SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = DWWSLIB
GOTO SETMSG3
END /
* ---------------------------------------------------- ISPFILE */
ALLOC FI(MYFILE) DA('&UHLQ..ISPFILE') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = MYFILE
GOTO SETMSG3
END
ALLOC FI(ISPFILE) DA('&UHLQ..ISPFILE') SHR
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN DO
SET DDNAME = ISPFILE
GOTO SETMSG3
END
/**************************************************************/
/* INVOKE CICSVR DIALOG PROGRAM. */
/**************************************************************/
ISPEXEC SELECT PGM(DWWPM) NEWAPPL(DWW) PASSLIB
SET RCSAVE = &LASTCC
IF &RCSAVE NE 0 THEN +
SET ZERRLM = &STR(CICSVR DIALOGS COMPLETED, RC = &RCSAVE)
GOTO FINISH
/**************************************************************/
/* SET ERROR MESSAGE IF ANY, TO BE DISPLAYED ON ISPF PANEL. */
/**************************************************************/
SETMSG3: +
SET ZERRLM = &STR(ALLOCATE OF DDNAME &DDNAME FAILED WITH RC= &RCSAVE)
FINISH: +
ISPEXEC LIBDEF ISPFILE
ISPEXEC LIBDEF ISPPLIB
ISPEXEC LIBDEF ISPMLIB
ISPEXEC LIBDEF ISPTLIB
ISPEXEC LIBDEF ISPLLIB /** ONLY IF NOT IN LOGON PROC **/
FREE FI(DWWCON1,DWWCON2,DWWCON3,DWWMSG,DWWPRINT,MYFILE,ISPFILE)
FREE FI(DWWSLIB,DWWLLIB,DWWDMSG)
FREE FI(DWWLOAD)
IF &RCSAVE = 0 THEN +
SET ZERRHM = &STR(ISR00003) /* SET TO TOP ISPF TUTOR PANEL */
IF &RCSAVE = 0 THEN +
GOTO EXIT1 /* NORMAL EXIT */
SETERROR: +
SET ZERRMSG = &STR(ISRZ002) /* USE THIS ISPF MESSAGE NUMBER.*/
SET ZERRALRM = &STR(YES) /* BEEP AT USER */
SET ZERRNM = &STR(ISR00003) /* SET TO TOP ISPF TUTOR PANEL */
EXIT1: +
SET PFCMD = &STR(PFSHOW &PFSAVE) /* RESTORE PFKEY DISPLAY TO */
ISPEXEC DISPLAY COMMAND(PFCMD) /* PREVIOUS STATUS */
EXIT CODE(&RCSAVE)