DALCDS – Display TSO Allocations Utility for MVS38J / ISPF v 2.x / Hercules
(current version 1.2.02 2024-05-01)
Many file allocation listing type CPs can be found on the CBT website or various technical journals. DALCDS displays allocated datasets for the current TSO session on a ISPF panel display. DALCDS is written in assembler (IFOX00) using ISPF 2.1 (product from Wally Mclaughlin) table services to integrate seamlessly into an MVS 38J hobbyist ISPF suite.
Version 1.2.02 adds device unit number, multi-volume indicator (+ sign next to volume number) and EXCP count to DD DSN detail panel (PDALCDS1) including tutorial content updates. See Version History for more change information.
Version 1.2.01 corrects the resetting of number of DDs and DSNs reported on the status line including other REUSE functionality. Tutorial content updates included. See Version History for more change information.
Version 1.2.00 uses two panels to display allocations – PDALCDS0 for allocations summary and PDALCDS1 to display DD DSN detail information while adding DDname filter, COUNT and MEMBER= commands. Each panel includes a status line above the UserID line. The detail panel contains dataset attributes such as allocation type and open status. See Version History for more change information.
Version 1.1.00 adds selection options for a data set that results in a ISRDDN-like experience. In addition to Browsing or Editing a data set or Free-ing a DDname, you can Select the data set which results in a VTOC-like panel with device specifics and other selections offered by DVTOC. All actions from DALCDS are captured to a ISPF LOG-like data set using CLGLST. Review the README file below for software pre-requisites. See Version History for more change information.
DALCDS displays date and time on line 1, command parameters from last DALCDS request and status information on line 4, and User ID, Step name, and Logon Proc name on line 5. TSO allocations display on line 8. Below are sample displays and help panels:
dd/mm/yy.jjj hh:mm ----- TSO Allocations ------------------------------ COMMAND ===> SCROLL ===> CSR DALC002 User allocations listed Parms: DDs: 014 DSNs: 031 PDALCDS0 UserID- HERC01 Step- IKJACCNT Proc- TSOLOGON PF3-End PF7-Up PF8-Down PF10-Left PF11-Right Select: - B E F I S nnn DDNAME S DSNAME 001 STEPLIB _ ISP.V2R2M0.LLIB 002 SYS00002 _ SYS1.UCAT.MVS 003 SYSHELP _ SYS1.HELP _ SYS2.HELP 004 SYS00003 _ SYS1.UCAT.TSO 005 SYSPROC _ HERC01.CMDPROC _ SYS1.CMDPROC _ SYS2.CMDPROC 006 ISPCLIB _ HERC01.ISPCLIB _ ISP.SYSCOM.CLIB _ ISP.V2R2M0.CLIB _ REVIEW.R50M0.CLIST 007 ISPLLIB _ HERC01.ISPLLIB _ ISP.SYSCOM.LLIB _ ISP.V2R2M0.LLIB 008 ISPMLIB _ HERC01.ISPMLIB _ ISP.SYSCOM.MLIB
Use PF10/PF11 to toggle to the detail view which includes dataset attributes as depicted in the following panel.
Use the S (select) column to perform an action on the selected data set:
B - Browse data set per Editor software (i.e. RFE, RPF) E - Edit data set per Editor software (i.e. RFE, RPF) F - Free DDname I - Display additional dataset attributes via LISTDSJ <--new for v1r2m00 S - Display VTOC (DVTOC) for selected data set and VOLSER
dd/mm/yy.jjj hh:mm ----- TSO Allocations ----- ROW 1 OF 31 COMMAND ===> SCROLL ===> CSR HERC01 Parms: DDs: 014 DSNs: 031 PDALCDS1 UserID- HERC01 Step- IKJACCNT Proc- TSOLOGON PF3-End PF7-Up PF8-Down PF10-Left PF11-Right Select: - B E F I S nnn DDNAME S DSNAME EXCP VOLSER CUU ALOC DSO DISP CATALOG OPEN COUNT MEMBER 001 STEPLIB _ ISP.V2R2M0.LLIB 0 PUB013 195 PERM PO Shr Open 002 SYS00002 _ SYS1.UCAT.MVS 0 MVSCAT 191 PERM VS Shr Catalog Open 003 SYSHELP _ SYS1.HELP 0 MVSRES 148 DYN PO Shr _ SYS2.HELP 0 PUB000 240 DYN PO Shr 004 SYS00003 _ SYS1.UCAT.TSO 0 PUB000 240 DYN VS Shr Catalog Open 005 SYSPROC _ HERC01.CMDPROC 0 PUB003 281 DYN PO Shr Open _ SYS1.CMDPROC 0 PUB000 240 DYN PO Shr _ SYS2.CMDPROC 0 PUB001 240 DYN PO Shr
Help panels are shown below depending on current displayed TSO Allocations panel:
--HELP----------------------- TSO Allocations -------------------- V1.2.01 Command ===> HDALCDS0 DALCDS (PDALCDS0) displays current TSO DD allocation information: ¦ Column ¦ Description ¦ ¦ DD# ¦ DD Sequence Number for display purposes ¦ ¦ DDNAME ¦ DD Name, may include multiple dataset names ¦ ¦ S ¦ Selection Code for associated Data Set ¦ ¦ DSNAME ¦ Dataset Name, can include member name for PDS ¦ ¦ COUNT ¦ Number of members in PDS file (if requested) ¦ ¦ NBR ¦ Member Name Found in PDS file (if requested) ¦ --------------------------------------------------------------------------- Command parms can be combined separated by a blank and in any order: Use /ddname to list allocations containing ddname (full or partial ddname). Use / to list all DD allocations. Use /COUNT to include PDS member counts. Use /MEMBER=mbrname to find PDS member in allocated PDS(s) listed. Use command MYTUTOR to initiate tutorial session. SCROLL PF keys: PF7 Up PF8 Down PF10 Left PF11 Right Selection Code: B browse E edit F free DD I DSN Info S SelectVTOC
--HELP----------------------- TSO Allocations -------------------- V1.2.01 Command ===> HDALCDS1 DALCDS (PDALCDS1) displays current TSO DD allocation information: ¦ Column ¦ Description ¦ ¦ DD# ¦ DD Sequence Number for display purposes ¦ ¦ DDNAME ¦ DD Name, may include multiple dataset names ¦ ¦ S ¦ Selection Code for associated Data Set ¦ ¦ DSNAME ¦ Dataset Name, can include member name for PDS ¦ ¦ VOLSER ¦ Dataset Volser Number ¦ ¦ ALOC ¦ Dataset Allocation Type ¦ ¦ DSO ¦ Dataset Organization ¦ ¦ DISP ¦ Dataset Disposition ¦ ¦ CATALOG ¦ Dataset is Catalog indication ¦ ¦ OPEN ¦ Dataset is Open indication ¦ ¦ COUNT ¦ Number of members in PDS file (if requested) ¦ ¦ NBR ¦ Member Name Found in PDS file (if requested) ¦ --------------------------------------------------------------------------- Use command MYTUTOR to initiate tutorial session. SCROLL PF keys: PF7 Up PF8 Down PF10 Left PF11 Right Selection Code: B browse E edit F free DD I DSN Info S SelectVTOC
The method used to acquire TSO allocations is via the QDB and DSAB. In essence, for each DD, the DSAB, SIOT and JFCB are interrogated for DSN and other attributes. As last resort, the DSCB F1 entry is fetched for dataset attributes.
Date and time values are sourced from ISPF Z variables.
Some common macros are used by DALCDS and other ShareABitofIT software before assembly-link-edit which requires installation of SHRABIT.MACLIB.
For release v1r2m00 and above, new commands are submitted from the DALCDS command line. Below is a summary of new commands.
* The command line can be used to specify processing parameters
* for a subsequent TSO allocation list.
*
* Command Description
* ------------ -----------------------------------------------------
* /ddname include DDs with a ddname mask or fully qualified DD
* \ddname exclude DDs with a ddname mask or fully qualified DD
* count count members for listed allocated PDS files
* member=mbrnm indicate PDS that includes specific member name for
* listed allocated PDS file
*
* - Keywords can be in any order.
* - ddname can be 0-8 characters
* - mbrnm is a fully qualifed member name (1-8 characters)
*
* Sample DALCDS commands:
*
* 1. /LIB List allocated DDs that contain LIB in DD name
* 2. / List all allocated DDs
* 3. \LIB Exclude allocated DDs from list that contain
* LIB in DD name
* 4. /LIB COUNT List allocated DDs that contain LIB in DD name
* including member count for PDS files
* 5. / MEMBER=LISTALC List all allocated DDs and indicate which PDS
* include member LISTALC
*
For release v1r2m00 and above, the command MYTUTOR can be typed into the DALCDS COMMAND line to invoke a tutorial if LBTUTOR add-on is installed. Below is the tutorial menu.
--Tutorial ------------------ TSO Allocations ---------------------Tutorial-- SELECTION ===> DALCDS The following topics are presented in sequence or may be selected. 1 Overview 2 Column Descriptions 3 Selection Codes 4 Optional Parameters For more information, see URL: https://www.ShareABitofIT.net/DALCDS-in-MVS38J/
DALCDS can be invoked directly from an ISPF panel or menu using ‘CMD(DALCDS) NEWAPPL(DALC)’ as follows:
Assume an existing ISPF panel has the following )PROC section, the 'NEW ENTRY' line can be added to invoke DALCDS when option UA is entered. )PROC &ZSEL = TRANS( TRUNC (&ZCMD,'.') 1,'CMD(xxxxx) NEWAPPL(ISR)' 6,'PGM(xxxxxx)' UA,'CMD(DALCDS) NEWAPPL(DALC)' <-- NEW ENTRY ' ',' ' *,'?' ) )END
Alternatively, a command entry can be defined in the ISPF command table (ISPCMDS) as follows:
COMMAND TABLE - ISP ---------------------------- ROW 1 OF 6
COMMAND ===> SCROLL ===> PAGE
INSERT, DELETE, AND CHANGE COMMAND ENTRIES. UNDERSCORES NEED NOT BE BLANKED.
ENTER END COMMAND TO SAVE CHANGES OR CANCEL TO END WITHOUT SAVING.
VERB T ACTION
DESCRIPTION
____ DALCDS 6 SELECT CMD(DALCDS) NEWAPPL(DALC)
DISPLAY TSO ALLOCATIONS
Then, you can access from any screen by typing DALCDS on the ISPF command line.
DALCDS is based on Wally Mclaughlin’s ISPF product Ver 2.1 running under MVS38J TK3 on Hercules v3.07.
Prerequisites
ISPF v2.1+ (ISPF-like product from Wally Mclaughlin) is necessary to use this software.
Two user-mods, ZP60014 and ZP60038, are REQUIRED to process CLIST symbolic variables via the IKJCT441 API on MVS 3.8J and using this software installation. More information on user-mods ZP60014 and ZP60038 can be obtained from the following website:
http://www.prycroft6.com.au/vs2mods/
Check your system to determine if one or both user-mods are required. ZP60038 requires ZP60014.
Several other components are pre-requisites. See README file for a complete list of required and/or optional software including download sites.
Software Disclaimer
No guarantee; No warranty; Install / Use at your own risk.
This software is provided “AS IS” and without any expressed or implied warranties, including, without limitation, the implied warranties of merchantability and fitness for a particular purpose.
The author requests keeping authors name intact to any modified versions.
In addition, the author requests readers to submit any code modifications / enhancements and associated comments for consideration into a subsequent release (giving credit to contributors) thus, improving overall functionality benefiting the MVS 3.8J hobbyist public domain community.
Access DALCDS now for a demo!
Take DALCDS for a ‘test drive’ before downloading and installing onto your MVS38J system.
Point your TN3270 terminal emulator using TLS to
URL: mywhs.belmontes.net
PORT: 5000
TLS : Version 1.2
Once connected, log on using any of the TK4- default user ids and passcodes.
After successful logon, select option I (I for ISPF) from the TSO Applications Menu. Note, option I is not listed on the menu – this is intentional.
From the ISPF PRIMARY OPTION MENU, type L in the command field (OPTION ==>) and press ENTER to display the ShareABitOfIT Software Demo Menu.
Type DALCDS in the command field (OPTION ==>) and press ENTER.
Use PF1 to display help panel.
Use PF3 to end DALCDS.
Use PF3 to exit from ISPF and TSO Applications Menu returning to the TSO READY prompt.
Log off TSO.
Terminate 3270 session.
Installing Software
After downloading the ZIP file, the approach for this installation procedure is to transfer the distribution content file (HET or XMI) from your personal computing device to MVS.
When the transfer completes, associated load JCL (HET, RECV370 or TSO RECEIVE) can also be transferred to MVS to load the distribution software.
Alternatively, the load JCL may be submitted from your device if a TCP/IP socket reader is setup on you device hosting Hercules / MVS 3.8J.
Continue the installation procedure using supplied JCL from the MVS CNTL data set under TSO per the readme.txt instructions.
- Click here to download the DALCDS zip file to your PC local drive.
The below README file includes a ZIP file content list, pre-installation requirements and installation steps.
DALCDS for MVS 3.8J / Hercules . ============================== . . Date: 05/01/2024 Release V1R2M02 12/15/2023 Release V1R2M01 06/01/2023 Release V1R2M00 02/01/2022 Release V1R1M00 08/10/2020 Release V1R0M00 **INITIAL software distribution * Author: Larry Belmontes Jr. * https://ShareABitofIT.net/DALCDS-in-MVS38J * Copyright (C) 2020-2024 Larry Belmontes, Jr. ---------------------------------------------------------------------- | DALCDS I n s t a l l a t i o n R e f e r e n c e | ---------------------------------------------------------------------- The approach for this installation procedure is to transfer the distribution content from your personal computing device to MVS with minimal JCL and to continue the installation procedure using supplied JCL from the MVS CNTL data set under TSO. Below are descriptions of ZIP file content, pre-installation requirements (notes, credits) and installation steps. Good luck and enjoy this software as added value to MVS 3.8J! -Larry Belmontes ---------------------------------------------------------------------- | DALCDS C h a n g e H i s t o r y | ---------------------------------------------------------------------- * * MM/DD/CCYY Version Change Description * ---------- ------- ----------------------------------------------- * 05/01/2024 1.2.02 - Add device unit number and EXCP count * - Add multi-volume designation flag (plus sign) * - Correct count edit mask * - Update help and tutorial content * - Repeat last command using PF5 * - Enhance member find request to reflect * member not found in allocations message * - Remove use of GETDTE for date and time, * continue to use ISPF Z variables * - Updated message file DALC00 * * 12/15/2023 1.2.01 - Reset counters for DD and DSN on status line * - Use DCB from GETMAIN storage * - Update tutorial content * * 06/01/2023 1.2.00 - Redesign panels and upgrade DD data presented * - Add COUNT and MEMBER commands * - Replace panel PDVTOCFA with PDALCDFA * - Transition to DALC00 ISPF messages * * 02/10/2022 1.1.00 - Add SEL functionality * - Separate column for PDS Member name * - Scroll LEFT/RIGHT for different panel display * - Add BLDL macro to invoke GETDTE utility * - Add transaction logging * * 08/10/2020 1.0.00 - Initial version released to MVS 3.8J * hobbyist public domain * * ====================================================================== * I. C o n t e n t o f Z I P F i l e | ====================================================================== o $INST00.JCL Define Alias for HLQ in Master Catalog o $INST01.JCL Load CNTL data set from distribution tape o $RECVXMI.JCL RECV370 Receive XMI SEQ to MVS PDSs o $RECVTSO.JCL TSO Receive XMI SEQ to MVS PDSs o DALCDS.V1R2M02.HET Hercules Emulated Tape (HET) multi-file volume volser=VS1202 containing software distribution library. o DALCDS.V1R2M02.XMI XMIT file containing software distribution library. o DSCLAIMR.TXT Disclaimer o PREREQS.TXT Required user-mods o README.TXT This File Note: See application web page for any updates to readme.txt Note: ISPF v2.1+ (ISPF-like product from Wally Mclaughlin) must be ----- installed under MVS 3.8J TSO including associated user-mods per ISPF Installation Pre-reqs. Note: Two user-mods, ZP60014 and ZP60038, are REQUIRED to process ----- CLIST symbolic variables via the IKJCT441 API on MVS 3.8J before using this software. More information and download links at: http://www.prycroft6.com.au/vs2mods/ Note: SYS1.APVTMACS macro library is required to assemble this ----- software. The last version of TK4- contains this library. Jay Moseley's SYSCPK includes this macro library. More information at: https://www.jaymoseley.com/hercules/compilers/syscpk.htm Note: SHRABIT.MACLIB is macro library required to assemble/compile this ----- software. A version as-of this distribution is included for installation as a pre-requisite. More information including current version download link at:SHRABIT.MACLIB in MVS 3.8JNote: LISTDSJ, alias LISTDSI, is a LISTDSI-like utility that creates CLIST ----- variables containing data set attributes and must be installed as a pre-requisite. More information including current version download link at:LISTDSJ for MVS 3.8JNote: CUTIL00 is a TSO utility that performs various functions using ----- CLIST variables and must be installed as a pre-requisite. More information including current version download link at:CUTIL00 for MVS 3.8JNote: CLOGIT is an ISPF add-on that performs transaction logging ----- and must be installed as a pre-requisite. Current version can be downloaded and more information at:CLGLST in MVS38JNote: DVTOC is an ISPF add-on that display VTOC information ----- and is OPTIONAL for this install if DVTOC will not be used. Typically, DVTOC is invoked as a selection option. Current version can be downloaded and more information at:DVTOC in MVS38JNote: LBTUTOR is an ISPF add-on that performs tutorial dialogs ----- and is OPTIONAL for this install if LBTUTOR will not be used. Current version can be downloaded and more information at:LBTUTOR in MVS38J====================================================================== * II. P r e - i n s t a l l a t i o n R e q u i r e m e n t s | ====================================================================== o The Master Catalog name for HLQ aliases. o The Master Catalog password may be required for some installation steps. o If loading via tape files, device 480 is utilized. o DATASET List after distribution library load for reference purposes: DATA-SET-NAME------------------------------- VOLUME ALTRK USTRK ORG FRMT % XT SHRABIT.DALCDS.V1R2M02.ASM PUB006 20 5 PO FB 25 1 SHRABIT.DALCDS.V1R2M02.CLIST PUB006 2 1 PO FB 50 1 SHRABIT.DALCDS.V1R2M02.CNTL PUB006 20 5 PO FB 25 1 SHRABIT.DALCDS.V1R2M02.HELP PUB006 2 1 PO FB 50 1 SHRABIT.DALCDS.V1R2M02.ISPF PUB006 10 7 PO FB 70 1 SHRABIT.DALCDS.V1R2M02.MACLIB PUB006 8 3 PO FB 37 1 **END** TOTALS: 62 TRKS ALLOC 22 TRKS USED 6 EXTENTS Confirm the TOTAL track allocation is available on your device. Note: A different DASD device type (e.g. 3380) may yield different usage. o TSO user-id with sufficient access rights to update SYS2.CMDPROC, SYS2.CMDLIB, SYS2.HELP, SYS2.LINKLIB and/or ISPF libraries. o For installations with a security system (e.g. RAKF), you MAY need to insert additional JOB statement information. // USER=???????,PASSWORD=???????? o Names of ISPCLIB (Clist), ISPMLIB (Message), ISPLLIB (Load) and/or ISPPLIB (Panel) libraries. o Download ZIP file to your PC local drive. o Unzip the downloaded file into a temp directory on your PC device. o Install pre-requisite (if any) software and/or user modifications. o JCL from your local device (after unzip) may be edited using Notepad or nano (based on you host OS) and submitted via TCP/IP sockets reader if your system configuration supports this option. This option can replace some copy-paste tasks during installation. For more information on submitting JCL to MVS 3.8J, seeSubmitting JCL to MVS 3.8Jo For more information on SHRABIT software distribution library, seeSHRABIT Distributions for MVS38Jo For more information on SHRABIT software installation, seeSHRABIT Installations for MVS38J====================================================================== * III. I n s t a l l a t i o n S t e p s | ====================================================================== +--------------------------------------------------------------------+ | Step 1. Determine software installation source | +--------------------------------------------------------------------+ | HET or XMI ? | +--------------------------------------------------------------------+ a) Software can be installed from one of two sources, HET or XMI. - For tape installation (HET), proceed to STEP 3. **** or - For XMIT installation (XMI), proceed to next STEP. +--------------------------------------------------------------------+ | Step 2. Load distribution source from XMI file | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($RECVXMI) | | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($RECVTSO) | +--------------------------------------------------------------------+ ______________________________________________________________________ //RECV000A JOB (SYS),'Receive DALCDS XMI', <-- Review and Modify // CLASS=A,MSGCLASS=X,REGION=0M, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * JOB: $RECVXMI Receive Application XMI Files * //* * using RECV370 * //* -------------------------------------------------------* //RECV PROC HLQ='SHRABIT.DALCDS',VRM=V1R2M02,TYP=XXXXXXXX, // DSPACE='(TRK,(10,05,40))',DDISP='(,CATLG,DELETE)', // DUNIT=DISK,DVOLSER=PUB006 <-- Review and Modify //* //RECV370 EXEC PGM=RECV370 //RECVLOG DD SYSOUT=* //XMITIN DD DISP=SHR,DSN=&&XMIPDS(&TYP) //SYSPRINT DD SYSOUT=* //SYSUT1 DD DSN=&&SYSUT1, // UNIT=SYSALLDA,SPACE=(CYL,(10,05)),DISP=(,DELETE,DELETE) //SYSUT2 DD DSN=&HLQ..&VRM..&TYP,DISP=&DDISP, // UNIT=&DUNIT,SPACE=&DSPACE,VOL=SER=&DVOLSER //SYSIN DD DUMMY //SYSUDUMP DD SYSOUT=* // PEND //* //* -------------------------------------------------------* //* Ensure parent HLQ alias is declared //* -------------------------------------------------------* //DEFALIAS EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * PARM GRAPHICS(CHAIN(SN)) LISTCAT ALIAS ENT(SHRABIT) /* Review and modify catalog name below */ IF LASTCC NE 0 THEN - DEFINE ALIAS(NAME(SHRABIT) RELATE(SYS1.UCAT.MVS)) /* //* //* -------------------------------------------------------* //* RECV370 DALCDS Software Distribution //* -------------------------------------------------------* //XMIPDS EXEC RECV,TYP=XMIPDS,DSPACE='(CYL,(10,05,10),RLSE)' //RECV370.XMITIN DD DISP=SHR,DSN=your.transfer.xmi <-- XMI File //RECV370.SYSUT2 DD DSN=&&XMIPDS,DISP=(,PASS), // UNIT=SYSDA,SPACE=&DSPACE //* //CNTL EXEC RECV,TYP=CNTL //RECV370.SYSUT2 DD DDNAME=&TYP //CNTL DD DSN=&HLQ..&VRM..CNTL,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(20,10,10)), // DISP=&DDISP //* //HELP EXEC RECV,TYP=HELP //RECV370.SYSUT2 DD DDNAME=&TYP //HELP DD DSN=&HLQ..&VRM..HELP,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(02,02,02)), // DISP=&DDISP //* //CLIST EXEC RECV,TYP=CLIST //RECV370.SYSUT2 DD DDNAME=&TYP //CLIST DD DSN=&HLQ..&VRM..CLIST,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(02,02,02)), // DISP=&DDISP //* //ISPF EXEC RECV,TYP=ISPF //RECV370.SYSUT2 DD DDNAME=&TYP //ISPF DD DSN=&HLQ..&VRM..ISPF,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(10,05,10)), // DISP=&DDISP //* //ASM EXEC RECV,TYP=ASM //RECV370.SYSUT2 DD DDNAME=&TYP //ASM DD DSN=&HLQ..&VRM..ASM,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(20,10,10)), // DISP=&DDISP //* //MACLIB EXEC RECV,TYP=MACLIB //RECV370.SYSUT2 DD DDNAME=&TYP //MACLIB DD DSN=&HLQ..&VRM..MACLIB,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(08,02,02)), // DISP=&DDISP // ______________________________________________________________________ Figure 1a: $RECVXMI.JCL ______________________________________________________________________ //RECV000B JOB (SYS),'TSO RECEIVE XMI', <-- Review and Modify // CLASS=A,MSGCLASS=X,REGION=0M, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * JOB: $RECVTSO TSO RECEIVE APPLICATION XMI FILES * //* * for DALCDS software distribution * //* -------------------------------------------------------* //* //* This JOB executes two steps: //* //* 1) IDCAMS to ensure parent HLQ alias (SHRABIT) is //* defined on master catalog //* Note: Alias definition bypassed if alias already //* ----- defined. //* //* 2) Executes TSO in BATCH mode and issues //* TSO RECEIVE commands to load the XMI distribution //* library (an XMI SEQ dataset) to a temporary PDS. //* Each software PDS is loaded from before deleting //* temporary PDS. //* //* //* This JCL may be modified to suit your installation //* needs. //* //* The TSO RECEIVE commands use INdataset, DAtaset, VOL, //* and NOPRompt parms. //* //* //* -------------------------------------------------------* //* * * //* * PROC: PBTSO * //* * Batch TSO * //* * * //* -------------------------------------------------------* //PBTSO PROC //STEP01 EXEC PGM=IKJEFT01 //SYSPROC DD DISP=SHR,DSN=SYS2.CMDPROC //*STEPLIB DD DISP=SHR,DSN=SYS2.LINKLIB //SYSPRINT DD SYSOUT=* //SYSTSPRT DD SYSOUT=* //SYSTSIN DD DUMMY Command Line Input //* // PEND //* //* -------------------------------------------------------* //* Ensure parent HLQ alias is declared //* -------------------------------------------------------* //DEFALIAS EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * PARM GRAPHICS(CHAIN(SN)) LISTCAT ALIAS ENT(SHRABIT) /* Review and modify catalog name below */ IF LASTCC NE 0 THEN - DEFINE ALIAS(NAME(SHRABIT) RELATE(SYS1.UCAT.MVS)) /* //* //* -------------------------------------------------------* //* TSO RECEIVE DFSPC Software Distribution //* -------------------------------------------------------* //TSORCV EXEC PBTSO //* -------------------------------------------------------* //* Review and Modify the DSN of the transferred XMI <----- //* used in the TSO RECEIVE SYSTSIN DD. <----- //* -------------------------------------------------------* //STEP01.SYSTSIN DD * /* Modify 'SHRABIT.' with your parent HLQ, if different */ /* Modify 'your.transfer.xmi' with transferred XMI SEQ DSN */ /* Modify 'volser' with VOLSER on your system */ RECEIVE IN('your.transfer.xmi') - DA('SHRABIT.DALCDS.V1R2M02.XMIPDS') - VOL(volser) NOPROMPT /* Receive CNTL */ RECEIVE IN('SHRABIT.DALCDS.V1R2M02.XMIPDS(CNTL)') - DA('SHRABIT.DALCDS.V1R2M02.CNTL') - VOL(volser) NOPROMPT /* Receive HELP */ RECEIVE IN('SHRABIT.DALCDS.V1R2M02.XMIPDS(HELP)') - DA('SHRABIT.DALCDS.V1R2M02.HELP') - VOL(volser) NOPROMPT /* Receive CLIST */ RECEIVE IN('SHRABIT.DALCDS.V1R2M02.XMIPDS(CLIST)') - DA('SHRABIT.DALCDS.V1R2M02.CLIST') - VOL(volser) NOPROMPT /* Receive ISPF */ RECEIVE IN('SHRABIT.DALCDS.V1R2M02.XMIPDS(ISPF)') - DA('SHRABIT.DALCDS.V1R2M02.ISPF') - VOL(volser) NOPROMPT /* Receive ASM */ RECEIVE IN('SHRABIT.DALCDS.V1R2M02.XMIPDS(ASM)') - DA('SHRABIT.DALCDS.V1R2M02.ASM') - VOL(volser) NOPROMPT /* Receive MACLIB */ RECEIVE IN('SHRABIT.DALCDS.V1R2M02.XMIPDS(MACLIB)') - DA('SHRABIT.DALCDS.V1R2M02.MACLIB') - VOL(volser) NOPROMPT /* Delete XMIPDS */ DELETE 'SHRABIT.DALCDS.V1R2M02.XMIPDS' /* // ______________________________________________________________________ Figure 1b: $RECVTSO.JCL a) Transfer DALCDS.V1R2M02.XMI to MVS using your 3270 emulator. Make note of the DSN assigned on MVS transfer. Use transfer IND$FILE options: NEW BLKSIZE=3200 LRECL=80 RECFM=FB - or - NEW BLKSIZE(3200) LRECL(80) RECFM(FB) Ensure the DSN on MVS exists with the correct DCB information: ORG=PS BLKSIZE=3200 LRECL=80 RECFM=FB b) If using RECV370 to load XMI, Copy and paste the $RECVXMI JCL to a PDS member, update JOB statement to conform to your installation standard. - or - If using TSO RECEIVE to load XMI, Copy and paste the $RECVTSO JCL to a PDS member, update JOB statement to conform to your installation standard. c) The first step ensures the HLQ alias is defined and the subsequent steps perform the XMI load. Review JCL and apply any modifications per your installation including the DSN assigned during the transfer above for the XMI file. d) Submit the job. e) Review job output for successful load of the following PDSs: SHRABIT.DALCDS.V1R2M02.ASM SHRABIT.DALCDS.V1R2M02.CLIST SHRABIT.DALCDS.V1R2M02.CNTL SHRABIT.DALCDS.V1R2M02.HELP SHRABIT.DALCDS.V1R2M02.ISPF SHRABIT.DALCDS.V1R2M02.MACLIB f) Subsequent installation steps will be submitted from members contained in the CNTL data set. g) Proceed to STEP 6. **** +--------------------------------------------------------------------+ | Step 3. Define Alias for HLQ SHRABIT in MVS User Catalog | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($INST00) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS00 JOB (SYS),'Def SHRABIT Alias', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * JOB: $INST00 Define Alias for parent HLQ SHRABIT * //* * Note: The master catalog password may be required * //* -------------------------------------------------------* //DEFALIAS EXEC PGM=IDCAMS //SYSPRINT DD SYSOUT=* //SYSIN DD * PARM GRAPHICS(CHAIN(SN)) LISTCAT ALIAS ENT(SHRABIT) /* Review and Modify catalog name below */ IF LASTCC NE 0 THEN - DEFINE ALIAS(NAME(SHRABIT) RELATE(SYS1.UCAT.MVS)) /* // ______________________________________________________________________ Figure 2: $INST00 JCL Note: This distribution is installed under the HLQ alias SHRABIT. $INST00 bypasses the DEFINE ALIAS action when the alias is already defined. a) Copy and paste the above JCL to a PDS member, update JOB statement to conform to your installation standard. b) Submit the job. c) Review job output for successful DEFINE ALIAS. Note: When $INST00 runs for the first time, Job step DEFALIAS returns RC=0004 due to LISTCAT ALIAS function completing with condition code of 4 and DEFINE ALIAS function completing with condition code of 0. Note: When $INST00 runs after the ALIAS is defined, Job step DEFALIAS returns RC=0000 due to LISTCAT ALIAS function completing with condition code of 0 and DEFINE ALIAS function being bypassed. +--------------------------------------------------------------------+ | Step 4. Load CNTL data set from distribution tape | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($INST01) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS01 JOB (SYS),'Install CNTL PDS', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * JOB: $INST01 Load CNTL PDS from distribution tape * //* * Note: Uses tape drive 480 * //* -------------------------------------------------------* //LOADCNTL PROC THLQ=DALCDS,TVOLSER=VS1202, // HLQ='SHRABIT.DALCDS',VRM=V1R2M02, // DDISP='(,CATLG,DELETE)', // TUNIT=480,DVOLSER=PUB006,DUNIT=DISK <-- Review and Modify //LOAD001 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //INCNTL DD DSN=&THLQ..&VRM..CNTL.TAPE,UNIT=&TUNIT, // VOL=SER=&TVOLSER,DISP=OLD,LABEL=(1,SL) //CNTL DD DSN=&HLQ..&VRM..CNTL,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(20,10,10)), // DISP=&DDISP, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) // PEND //STEP001 EXEC LOADCNTL Load CNTL PDS //SYSIN DD * COPY INDD=INCNTL,OUTDD=CNTL // ______________________________________________________________________ Figure 3: $INST01 JCL a) Before submitting the above job, the distribution tape must be made available to MVS by issuing the following command from the Hercules console: DEVINIT 480 X:\dirname\DALCDS.V1R2M02.HET READONLY=1 where X:\dirname is the complete path to the location of the Hercules Emulated Tape file. b) Issue the following command from the MVS console to vary device 480 online: V 480,ONLINE c) Copy and paste the above JCL to a PDS member, update JOB statement to conform to your installation standard. Review JCL and apply any modifications per your installation. d) Submit the job. e) Review job output for successful load of the CNTL data set. f) Subsequent installation steps will be submitted from members contained in the CNTL data set. +--------------------------------------------------------------------+ | Step 5. Load Other data sets from distribution tape | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($INST02) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS02 JOB (SYS),'Install Other PDSs', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * JOB: $INST02 Load other PDS from distribution tape * //* * Tape Volume: File 1 - CNTL * //* * File 2 - CLIST * //* * File 3 - HELP * //* * File 4 - ISPF * //* * File 5 - ASM * //* * File 6 - MACLIB * //* * Note: Default TAPE=480, DASD=DISK on PUB006 * //* -------------------------------------------------------* //LOADOTHR PROC THLQ=DALCDS,TVOLSER=VS1202, // HLQ='SHRABIT.DALCDS',VRM=V1R2M02, // DDISP='(,CATLG,DELETE)', // TUNIT=480,DVOLSER=PUB006,DUNIT=DISK <-- Review and Modify //LOAD02 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //INCLIST DD DSN=&THLQ..&VRM..CLIST.TAPE,UNIT=&TUNIT, // VOL=SER=&TVOLSER,DISP=OLD,LABEL=(2,SL) //INHELP DD DSN=&THLQ..&VRM..HELP.TAPE,UNIT=&TUNIT, // VOL=SER=&TVOLSER,DISP=OLD,LABEL=(3,SL) //INISPF DD DSN=&THLQ..&VRM..ISPF.TAPE,UNIT=&TUNIT, // VOL=SER=&TVOLSER,DISP=OLD,LABEL=(4,SL) //INASM DD DSN=&THLQ..&VRM..ASM.TAPE,UNIT=&TUNIT, // VOL=SER=&TVOLSER,DISP=OLD,LABEL=(5,SL) //INMACLIB DD DSN=&THLQ..&VRM..MACLIB.TAPE,UNIT=&TUNIT, // VOL=SER=&TVOLSER,DISP=OLD,LABEL=(6,SL) //CLIST DD DSN=&HLQ..&VRM..CLIST,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(02,02,02)), // DISP=&DDISP, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) //HELP DD DSN=&HLQ..&VRM..HELP,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(02,02,02)), // DISP=&DDISP, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) //ISPF DD DSN=&HLQ..&VRM..ISPF,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(10,05,10)), // DISP=&DDISP, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) //ASM DD DSN=&HLQ..&VRM..ASM,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(20,10,10)), // DISP=&DDISP, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) //MACLIB DD DSN=&HLQ..&VRM..MACLIB,UNIT=&DUNIT,VOL=SER=&DVOLSER, // SPACE=(TRK,(08,02,02)), // DISP=&DDISP, // DCB=(RECFM=FB,LRECL=80,BLKSIZE=3600) // PEND //* //STEP001 EXEC LOADOTHR Load ALL other PDSs //SYSIN DD * COPY INDD=INCLIST,OUTDD=CLIST COPY INDD=INHELP,OUTDD=HELP COPY INDD=INISPF,OUTDD=ISPF COPY INDD=INASM,OUTDD=ASM COPY INDD=INMACLIB,OUTDD=MACLIB // ______________________________________________________________________ Figure 4: $INST02 JCL a) Member $INST02 installs remaining data sets from distribution tape. b) Review and update JOB statement and other JCL to conform to your installation standard. c) Before submitting the above job, the distribution tape must be made available to MVS by issuing the following command from the Hercules console: DEVINIT 480 X:\dirname\DALCDS.V1R2M02.HET READONLY=1 where X:\dirname is the complete path to the location of the Hercules Emulated Tape file. d) Issue the following command from the MVS console to vary device 480 online: V 480,ONLINE e) Submit the job. f) Review job output for successful loads. +--------------------------------------------------------------------+ | Step 6. FULL or UPGRADE Installation | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($UP1202) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS0U JOB (SYS),'Upgrade DALCDS', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * * //* * JOB: $UP1202 * //* * Upgrade DALCDS Software from release V1R2M01 * //* * * //* * Review JCL before submitting!! * //* -------------------------------------------------------* //* //* -------------------------------------------------------* //* * * //* * PROC: ASMLKED * //* * Assembler Link-Edit * //* * * //* -------------------------------------------------------* //ASML PROC HLQ=WHATHLQ,VRM=VXRXMXX,VIO=VIO, // SYSPRM='', // ASMPARM='NODECK,LOAD,RENT,TERM,XREF', // LNKPARM='MAP,LIST,LET,RENT,XREF', // MBR=WHOWHAT //* //ASM EXEC PGM=IFOX00, // PARM='&ASMPARM&SYSPRM' //SYSGO DD DSN=&&LOADSET,DISP=(MOD,PASS),SPACE=(CYL,(1,1)), // UNIT=&VIO,DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800) //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR // DD DSN=SYS1.AMODGEN,DISP=SHR // DD DSN=SYS2.MACLIB,DISP=SHR ** YREG ** // DD DDNAME=PVTMAC ** PVTMAC ** // DD DSN=&HLQ..&VRM..MACLIB,DISP=SHR * myMACLIB ** //PVTMAC DD DSN=SYS2.MACLIB,DISP=SHR * placeholder* //SYSTERM DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSPUNCH DD DSN=NULLFILE //SYSUT1 DD UNIT=&VIO,SPACE=(CYL,(6,1)) //SYSUT2 DD UNIT=&VIO,SPACE=(CYL,(6,1)) //SYSUT3 DD UNIT=&VIO,SPACE=(CYL,(6,1)) //SYSIN DD DSN=&HLQ..&VRM..ASM(&MBR),DISP=SHR <--INPUT //* //LKED EXEC PGM=IEWL, // PARM='&LNKPARM', // COND=(0,NE,ASM) //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSLMOD DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=&VIO,SPACE=(CYL,(5,2)) //SYSIN DD DUMMY //* // PEND //* //* -------------------------------------------------------* //* * * //* * PROC: PARTSISPF * //* * Copy ISPF Parts * //* * * //* -------------------------------------------------------* //PARTSI PROC HLQ=MYHLQ,VRM=VXRXMXX, // CLIB='XXXXXXXX.ISPCLIB', // MLIB='XXXXXXXX.ISPMLIB', // PLIB='XXXXXXXX.ISPPLIB', // SLIB='XXXXXXXX.ISPSLIB', // TLIB='XXXXXXXX.ISPTLIB' //* //* -------------------------------------------------------* //* * * //* * ISPF Library Member Installation * //* * * //* * Suggested Location: * //* * DSN defined or concatenated to ISPF Libraries * //* * - ISPCLIB, ISPMLIB, ISPPLIB, ISPSLIB, ISPTLIB * //* * * //* * Note: If you use a new PDS, it must be defined * //* * before executing this install job AND the * //* * ISPF start-up procedure should include the * //* * new PDS in the ISPxLIB allocation step. * //* * * //* -------------------------------------------------------* //ISPFLIBS EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //ISPFIN DD DSN=&HLQ..&VRM..ISPF,DISP=SHR //CLIBOUT DD DSN=&CLIB,DISP=SHR //MLIBOUT DD DSN=&MLIB,DISP=SHR //PLIBOUT DD DSN=&PLIB,DISP=SHR //SLIBOUT DD DSN=&SLIB,DISP=SHR //TLIBOUT DD DSN=&TLIB,DISP=SHR //SYSIN DD DUMMY //* // PEND //* //* -------------------------------------------------------* //* * Assemble Link-Edit DALCDS to ISPLLIB * //* * NOTE: SYS1.APVTMACS is required <----------- * //* -------------------------------------------------------* //DALCDS EXEC ASML,HLQ='SHRABIT.DALCDS',VRM=V1R2M02,MBR=DALCDS, // PARM.LKED='MAP,LIST,LET,RENT,XREF,REUS,REFR' //ASM.PVTMAC DD DSN=SYS1.APVTMACS,DISP=SHR <--Review //LKED.SYSLMOD DD DISP=SHR, // DSN=XXXXXXXX.ISPLLIB(&MBR) <--TARGET //* //* -------------------------------------------------------* //* * Update ISPF parts for this release distribution * //* -------------------------------------------------------* //* * Note: Duplicate members are over-written. * //* -------------------------------------------------------* //* //* * - Install libraries marked... * //* * - Search for '<--TARGET' * //* * - Update install libraries per your * //* * installation standard * //* //* -------------------------------------------------------* //ISPFPRTS EXEC PARTSI,HLQ='SHRABIT.DALCDS',VRM=V1R2M02, // CLIB='XXXXXXXX.ISPCLIB', <--TARGET // MLIB='XXXXXXXX.ISPMLIB', <--TARGET // PLIB='XXXXXXXX.ISPPLIB', <--TARGET // SLIB='XXXXXXXX.ISPSLIB', <--TARGET // TLIB='XXXXXXXX.ISPTLIB' <--TARGET //SYSIN DD * COPY INDD=((ISPFIN,R)),OUTDD=CLIBOUT SELECT MEMBER=C$DALCB COPY INDD=((ISPFIN,R)),OUTDD=MLIBOUT SELECT MEMBER=DALC00 COPY INDD=((ISPFIN,R)),OUTDD=PLIBOUT SELECT MEMBER=HDALCDS0 SELECT MEMBER=PDALCDS0 SELECT MEMBER=HDALCDS1 SELECT MEMBER=PDALCDS1 SELECT MEMBER=HDALCDFA SELECT MEMBER=PDALCDFA SELECT MEMBER=TDALC100 SELECT MEMBER=TDALC001 SELECT MEMBER=TDALC002 SELECT MEMBER=TDALC003 SELECT MEMBER=TDALC004 SELECT MEMBER=TDALC005 SELECT MEMBER=TDALC006 SELECT MEMBER=TDALC007 SELECT MEMBER=TDALCA01 SELECT MEMBER=TDALCA02 SELECT MEMBER=TDALCA05 SELECT MEMBER=TDALCA06 SELECT MEMBER=TDALCB01 SELECT MEMBER=TDALCC01 SELECT MEMBER=TDALCC02 SELECT MEMBER=TDALCC03 SELECT MEMBER=TDALCC04 SELECT MEMBER=TDALCC05 SELECT MEMBER=TDALCZ01 SELECT MEMBER=TDALCZ02 SELECT MEMBER=TDALCZ80 COPY INDD=((ISPFIN,R)),OUTDD=SLIBOUT SELECT MEMBER=NO#MBR# /*dummy entry no mbrs! */ COPY INDD=((ISPFIN,R)),OUTDD=TLIBOUT SELECT MEMBER=NO#MBR# /*dummy entry no mbrs! */ // ______________________________________________________________________ Figure 5: $UP1202.JCL Upgrade from previous version to V1R2M02 a) If this is the INITIAL software distribution, proceed to STEP 7. b) This software may be installed in FULL or UPGRADE from a prior version. Note: If the installed software version is NOT the most recent ----- PREVIOUS version, perform a FULL install. Note: If the installed software version is customized, a manual ----- review and evaluation is suggested to properly incorporate customizations into this software distribution before proceeding with the installation. Refer to the $UPvrmm.JCL members for upgraded software components being installed. Note: $UPvrmm.JCL members exist in each software version. ----- For example, V1R3M00 software contains $UP1300.JCL to upgrade from previous V1R2M00 distribution. For example, V1R2M00 software contains $UP1200.JCL to upgrade from previous V1R1M00 distribution. c) If a FULL install of this software distribution is elected regardless of previous version installed on your system, proceed to STEP 7. d) If this is an UPGRADE from the PREVIOUS version, execute the below JCL based on current installed version: - Upgrading from V1R2M01, use $UP1202.JCL - Upgrading from V1R2M00, use $UP1201.JCL - V1R0M00 is initial release, thus, no updates available! e) After upgrade is applied, proceed to validation, STEP 11. +--------------------------------------------------------------------+ | Step 7. Install TSO parts | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($INST03) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS03 JOB (SYS),'Install TSO Parts', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * * //* * JOB: $INST03 Install TSO parts * //* * * //* * Note: Duplicate members are over-written. * //* -------------------------------------------------------* //STEP001 EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //INCLIST DD DSN=SHRABIT.DALCDS.V1R2M02.CLIST,DISP=SHR //INHELP DD DSN=SHRABIT.DALCDS.V1R2M02.HELP,DISP=SHR //OUTCLIST DD DSN=SYS2.CMDPROC,DISP=SHR //OUTHELP DD DSN=SYS2.HELP,DISP=SHR //SYSIN DD * COPY INDD=((INCLIST,R)),OUTDD=OUTCLIST SELECT MEMBER=NO#MBR# /*dummy entry no mbrs! */ COPY INDD=((INHELP,R)),OUTDD=OUTHELP SELECT MEMBER=NO#MBR# /*dummy entry no mbrs! */ /* // ______________________________________________________________________ Figure 6: $INST03 JCL a) Member $INST03 installs TSO component(s). Note: If no TSO components are included for this distribution, ----- RC = 4 is returned by the corresponding IEBCOPY step. b) Review and update JOB statement and other JCL to conform to your installation standard. c) Submit the job. d) Review job output for successful load(s). +--------------------------------------------------------------------+ | Step 8. Install DALCDS Software | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($INST04) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS04 JOB (SYS),'Install DALCDS', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * * //* * JOB: $INST04 Install DALCDS Software * //* * * //* * - Install libraries marked... * //* * - Search for '<--TARGET' * //* * - Update install libraries per your * //* * installation standard * //* * * //* -------------------------------------------------------* //* //* -------------------------------------------------------* //* * * //* * PROC: ASMLKED * //* * Assembler Link-Edit * //* * * //* -------------------------------------------------------* //ASML PROC HLQ=WHATHLQ,VRM=VXRXMXX,VIO=VIO, // SYSPRM='', // ASMPARM='NODECK,LOAD,RENT,TERM,XREF', // LNKPARM='MAP,LIST,LET,RENT,XREF', // MBR=WHOWHAT //* //ASM EXEC PGM=IFOX00, // PARM='&ASMPARM&SYSPRM' //SYSGO DD DSN=&&LOADSET,DISP=(MOD,PASS),SPACE=(CYL,(1,1)), // UNIT=&VIO,DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800) //SYSLIB DD DSN=SYS1.MACLIB,DISP=SHR // DD DSN=SYS1.AMODGEN,DISP=SHR // DD DSN=SYS2.MACLIB,DISP=SHR ** YREG ** // DD DDNAME=PVTMAC ** PVTMAC ** // DD DSN=&HLQ..&VRM..MACLIB,DISP=SHR * myMACLIB ** //PVTMAC DD DSN=SYS2.MACLIB,DISP=SHR * placeholder* //SYSTERM DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSPUNCH DD DSN=NULLFILE //SYSUT1 DD UNIT=&VIO,SPACE=(CYL,(6,1)) //SYSUT2 DD UNIT=&VIO,SPACE=(CYL,(6,1)) //SYSUT3 DD UNIT=&VIO,SPACE=(CYL,(6,1)) //SYSIN DD DSN=&HLQ..&VRM..ASM(&MBR),DISP=SHR <--INPUT //* //LKED EXEC PGM=IEWL, // PARM='&LNKPARM', // COND=(0,NE,ASM) //SYSLIN DD DSN=&&LOADSET,DISP=(OLD,DELETE) // DD DDNAME=SYSIN //SYSLMOD DD DUMMY //SYSPRINT DD SYSOUT=* //SYSUT1 DD UNIT=&VIO,SPACE=(CYL,(5,2)) //SYSIN DD DUMMY //* // PEND //* //* -------------------------------------------------------* //* * Assemble Link-Edit DALCDS to ISPLLIB * //* * NOTE: SYS1.APVTMACS is required <----------- * //* -------------------------------------------------------* //DALCDS EXEC ASML,HLQ='SHRABIT.DALCDS',VRM=V1R2M02,MBR=DALCDS, // PARM.LKED='MAP,LIST,LET,RENT,XREF,REUS,REFR' //ASM.PVTMAC DD DSN=SYS1.APVTMACS,DISP=SHR <--Review //LKED.SYSLMOD DD DISP=SHR, // DSN=XXXXXXXX.ISPLLIB(&MBR) <--TARGET //* // ______________________________________________________________________ Figure 7: $INST04 JCL a) Member $INST04 installs program(s). Note: If no components are included for this distribution, ----- an IEFBR14 step is executed. b) Review and update JOB statement and other JCL to conform to your installation standard. c) Submit the job. d) Review job output for successful completion. +--------------------------------------------------------------------+ | Step 9. Install ISPF parts | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($INST05) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS05 JOB (SYS),'Install ISPF Parts', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * * //* * JOB: $INST05 Install ISPF parts * //* * * //* * Note: Duplicate members are over-written. * //* * * //* * * //* * - Uses ISPF 2.1 product from Wally Mclaughlin * //* * - Install libraries marked... * //* * - Search for '<--TARGET' * //* * - Update install libraries per your * //* * installation standard * //* * * //* -------------------------------------------------------* //* //* -------------------------------------------------------* //* * * //* * PROC: PARTSISPF * //* * Copy ISPF Parts * //* * * //* -------------------------------------------------------* //PARTSI PROC HLQ=MYHLQ,VRM=VXRXMXX, // CLIB='XXXXXXXX.ISPCLIB', // MLIB='XXXXXXXX.ISPMLIB', // PLIB='XXXXXXXX.ISPPLIB', // SLIB='XXXXXXXX.ISPSLIB', // TLIB='XXXXXXXX.ISPTLIB' //* //* -------------------------------------------------------* //* * * //* * CLIB Member Installation * //* * * //* * Suggested Location: * //* * DSN defined or concatenated to ISPCLIB DD * //* * * //* * Note: If you use a new PDS, it must be defined * //* * before executing this install job AND the * //* * ISPF start-up procedure should include the * //* * new PDS in the ISPCLIB allocation step. * //* * * //* -------------------------------------------------------* //ADDCLIB EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //CLIBIN DD DSN=&HLQ..&VRM..ISPF,DISP=SHR //CLIBOUT DD DSN=&CLIB,DISP=SHR //SYSIN DD DUMMY //* //* -------------------------------------------------------* //* * * //* * MLIB Member Installation * //* * * //* * Suggested Location: * //* * DSN defined or concatenated to ISPMLIB DD * //* * * //* * Note: If you use a new PDS, it must be defined * //* * before executing this install job AND the * //* * ISPF start-up procedure should include the * //* * new PDS in the ISPMLIB allocation step. * //* * * //* -------------------------------------------------------* //ADDMLIB EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //MLIBIN DD DSN=&HLQ..&VRM..ISPF,DISP=SHR //MLIBOUT DD DSN=&MLIB,DISP=SHR //SYSIN DD DUMMY //* //* -------------------------------------------------------* //* * * //* * PLIB Member Installation * //* * * //* * Suggested Location: * //* * DSN defined or concatenated to ISPPLIB DD * //* * * //* * Note: If you use a new PDS, it must be defined * //* * before executing this install job AND the * //* * ISPF start-up procedure should include the * //* * new PDS in the ISPPLIB allocation step. * //* * * //* -------------------------------------------------------* //ADDPLIB EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //PLIBIN DD DSN=&HLQ..&VRM..ISPF,DISP=SHR //PLIBOUT DD DSN=&PLIB,DISP=SHR //SYSIN DD DUMMY //* //* -------------------------------------------------------* //* * * //* * SLIB Member Installation * //* * * //* * Suggested Location: * //* * DSN defined or concatenated to ISPSLIB DD * //* * * //* * Note: If you use a new PDS, it must be defined * //* * before executing this install job AND the * //* * ISPF start-up procedure should include the * //* * new PDS in the ISPSLIB allocation step. * //* * * //* -------------------------------------------------------* //ADDSLIB EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //SLIBIN DD DSN=&HLQ..&VRM..ISPF,DISP=SHR //SLIBOUT DD DSN=&SLIB,DISP=SHR //SYSIN DD DUMMY //* //* //* -------------------------------------------------------* //* * * //* * TLIB Member Installation * //* * * //* * Suggested Location: * //* * DSN defined or concatenated to ISPTLIB DD * //* * * //* * Note: If you use a new PDS, it must be defined * //* * before executing this install job AND the * //* * ISPF start-up procedure should include the * //* * new PDS in the ISPTLIB allocation step. * //* * * //* -------------------------------------------------------* //ADDTLIB EXEC PGM=IEBCOPY //SYSPRINT DD SYSOUT=* //TLIBIN DD DSN=&HLQ..&VRM..ISPF,DISP=SHR //TLIBOUT DD DSN=&TLIB,DISP=SHR //SYSIN DD DUMMY //* // PEND //* //ISPF EXEC PARTSI,HLQ='SHRABIT.DALCDS',VRM=V1R2M02, // CLIB='XXXXXXXX.ISPCLIB', <--TARGET // MLIB='XXXXXXXX.ISPMLIB', <--TARGET // PLIB='XXXXXXXX.ISPPLIB', <--TARGET // SLIB='XXXXXXXX.ISPSLIB', <--TARGET // TLIB='XXXXXXXX.ISPTLIB' <--TARGET //ADDCLIB.SYSIN DD * CLIB COPY INDD=((CLIBIN,R)),OUTDD=CLIBOUT SELECT MEMBER=C$DALCDS SELECT MEMBER=C$DALCB //ADDMLIB.SYSIN DD * MLIB COPY INDD=((MLIBIN,R)),OUTDD=MLIBOUT SELECT MEMBER=DALC00 SELECT MEMBER=DALC01 //ADDPLIB.SYSIN DD * PLIB COPY INDD=((PLIBIN,R)),OUTDD=PLIBOUT SELECT MEMBER=HDALCDS0 SELECT MEMBER=HDALCDS1 SELECT MEMBER=PDALCDS0 SELECT MEMBER=PDALCDS1 SELECT MEMBER=PDALCDFA SELECT MEMBER=TDALC100 SELECT MEMBER=TDALC001 SELECT MEMBER=TDALC002 SELECT MEMBER=TDALC003 SELECT MEMBER=TDALC004 SELECT MEMBER=TDALC005 SELECT MEMBER=TDALCA01 SELECT MEMBER=TDALCA02 SELECT MEMBER=TDALCA03 SELECT MEMBER=TDALCA04 SELECT MEMBER=TDALCA05 SELECT MEMBER=TDALCB01 SELECT MEMBER=TDALCC01 SELECT MEMBER=TDALCC02 SELECT MEMBER=TDALCC03 //ADDSLIB.SYSIN DD * SLIB COPY INDD=((SLIBIN,R)),OUTDD=SLIBOUT SELECT MEMBER=NO#MBR# /*dummy entry no mbrs! */ //ADDTLIB.SYSIN DD * TLIB COPY INDD=((TLIBIN,R)),OUTDD=TLIBOUT SELECT MEMBER=NO#MBR# /*dummy entry no mbrs! */ // ______________________________________________________________________ Figure 8: $INST05 JCL a) Member $INST05 installs ISPF component(s). Note: If no ISPF components are included for this distribution, ----- RC = 4 is returned by the corresponding IEBCOPY step. b) Review and update JOB statement and other JCL to conform to your installation standard. c) Review and update DD statements for ISPCLIB (clist), ISPMLIB (messages), and/or ISPPLIB (panel) library names. The DD statements are tagged with '<--TARGET'. d) Submit the job. e) Review job output for successful load(s). +--------------------------------------------------------------------+ | Step 10. Install Other Software | +--------------------------------------------------------------------+ | JCL Member: SHRABIT.DALCDS.V1R2M02.CNTL($INST40) | +--------------------------------------------------------------------+ ______________________________________________________________________ //DALCDS40 JOB (SYS),'Install Other Pgms', <-- Review and Modify // CLASS=A,MSGCLASS=X, <-- Review and Modify // MSGLEVEL=(1,1),NOTIFY=&SYSUID <-- Review and Modify //* -------------------------------------------------------* //* * DALCDS for MVS3.8J TSO / Hercules * //* * * //* * JOB: $INST40 Install Other Software * //* * Install xxxxxx Programs * //* * * //* * * //* -------------------------------------------------------* //* //* -------------------------------------------------------* //* * IEFBR14 * //* -------------------------------------------------------* //DUMMY EXEC PGM=IEFBR14 //SYSPRINT DD SYSOUT=* //* // ______________________________________________________________________ Figure 9: $INST40 JCL a) Member $INST40 installs additional software. Note: If no other software is included for this distribution, ----- an IEFBR14 step is executed. b) Review and update JOB statement and other JCL to conform to your installation standard. c) Submit the job. d) Review job output for successful completion. +--------------------------------------------------------------------+ | Step 11. Validate DALCDS | +--------------------------------------------------------------------+ a) From the ISPF Main Menu, enter the following command: TSO C$DALCDS b) The panel PDALCDS0 is displayed w all session allocations. Display below is a representative snippet. ________________________________________________________________________________ 07/30/2020.212 09:51:55 ----- TSO Allocations ---- ROW 1 OF 53 COMMAND ===> SCROLL ===> CSR Parms: DDs: 026 DSNs: 055 UserID- LARRY01 Step- IKJACCNT Proc- ISPLGN0 LARRY01 PDALCDS0 PF3-End PF7-Up PF8-Down PF10-Left PF11-Right Select: - B E F I S DD# DDNAME S DSNAME 001 STEPLIB _ ISP.V2R2M0.LLIB 002 SYS00002 _ SYS1.UCAT.MVS 003 SYSUDUMP _ JES2.TSU01145.SO0101(SYSOUT=A) 004 SYSABEND _ JES2.TSU01145.SO0102(SYSOUT=A) 005 SYSDBOUT _ JES2.TSU01145.SO0103(SYSOUT=A) 006 SYSHELP _ SYS1.HELP _ SYS2.HELP _ REVIEW.R50M0.HELP 007 SYS00005 _ SYS1.UCAT.TSO 008 SYSPROC _ LARRY01.CMDPROC _ SYS1.CMDPROC _ SYS2.CMDPROC _ REVIEW.R50M0.CLIST 009 SYSOUT _ Terminal 010 DISPLAY _ Terminal 011 STDOUT _ Terminal 012 IMLOG _ JES2.TSU01145.SO0104(SYSOUT=A) ________________________________________________________________________________ Figure 10a: DALCDS TSO Allocations Panel 1 c) Use PF7/PF8 for Page Up and Page Down scrolling. d) Use PF10/PF11 to toggle between TSO Allocations Summary and Detail views. Below display is a representative snippet. ________________________________________________________________________________ 07/30/2020.212 09:51:55 ----- TSO Allocations ---- ROW 1 OF 53 COMMAND ===> SCROLL ===> CSR Parms: UserID- LARRY01 Step- IKJACCNT Proc- ISPLGN00 LARRY01 PDALCDS1 PF3-End PF7-Up PF8-Down PF10-Left PF11-Right Select: - B E F I S DD# DDNAME S DSNAME EXCP VOLSER CUU ALOC DSO DISP CATALOG OPEN COUNT MEMBER 001 STEPLIB _ ISP.V2R2M0.LLIB 0 PUB005 195 PERM PO Shr Open 002 SYS00002 _ SYS1.UCAT.MVS 0 MVSCAT 191 PERM VS Shr Catalog 003 SYSUDUMP _ JES2.TSU01145.SO0101(SYSOUT=A) 0 PERM ??? Tmp 004 SYSABEND _ JES2.TSU01145.SO0102(SYSOUT=A) 0 PERM ??? Tmp 005 SYSDBOUT _ JES2.TSU01145.SO0103(SYSOUT=A) 0 PERM ??? Tmp 006 SYSHELP _ SYS1.HELP 0 MVSRES 148 DYN PO Shr _ SYS2.HELP 0 PUB000 240 DYN PO Shr _ REVIEW.R50M0.HELP 0 PUB005 195 DYN PO Shr ________________________________________________________________________________ Figure 10b: DALCDS TSO Allocations Panel 2 e) Type the following into the PDALCDS0 or PDALCDS1 screen command line to list allocated DDNAMES containing 'LIB' showing PDS member counts and 'marking' which PDS(s) contain member DALCDS: COMMAND ===> /LIB COUNT MEMBER=DALCDS Press ENTER Screen PDSLCDS0 is displayed. (below is a representative snippet) ________________________________________________________________________________ 07/30/2020.212 09:51:55 ----- TSO Allocations ---- ROW 1 OF 53 COMMAND ===> SCROLL ===> CSR DALC002 User allocations listed Parms: /LIB COUNT MEMBER=DALCDS DDs: 008 DSNs: 032 UserID- LARRY01 Step- IKJACCNT Proc- ISPLGN00 LARRY01 PDALCDS0 PF3-End PF7-Up PF8-Down PF10-Left PF11-Right Select: - B E F I S nnn DDNAME S DSNAME COUNT MBR 001 STEPLIB _ ISP.V2R2M0.LLIB 22 002 ISPCLIB _ LARRY01.ISPCLIB 4 _ ISP.SYSCOM.ISPCLIB 466 _ ISP.V2R2M0.CLIB 3 _ REVIEW.R50M0.CLIST 9 _ LARRY01.SYSLOG.ISPCLIB 9 _ LARRY01.ISPCLIB.CBT143 17 003 ISPLLIB _ LARRY01.ISPLLIB 0 _ ISP.SYSCOM.ISPLLIB 96 * _ ISP.V2R2M0.LLIB 22 _ REVIEW.R50M0.LOAD 14 _ LARRY01.SYSLOG.LOADLIB 1 _ LARRY01.ISPLLIB.CBT143 1 004 ISPMLIB _ LARRY01.ISPMLIB 2 _ ISP.SYSCOM.ISPMLIB 82 _ ISP.V2R2M0.MLIB 34 _ XEF.V62.MLIB 1 ________________________________________________________________________________ Figure 10c: DALCDS TSO Allocations Panel 1 w command request Notice the COUNT and MBR columns. About center of the screen, PDS ISP.SYSCOM.ISPLLIB shows a member COUNT of 96 and MBR of '*' indicating DALCDS was found in this PDS! f) Use PF10/PF11 to toggle between TSO Allocations Summary and Detail views. g) Use PF1 to display HELP panel. h) Press ENTER to return to previous panel. i) Select one of the PDS data sets with a selection code of B to display a member list. At this point, a PDS member can be selected for browsing! j) Use PF3 until the ISPF Main Menu is displayed. k) Validation is complete. +--------------------------------------------------------------------+ | Step 12. Done | +--------------------------------------------------------------------+ a) Congratulations! You completed the installation for DALCDS. +--------------------------------------------------------------------+ | Step 13. Integrate DALCDS into UTILITY SELECTION Menu | +--------------------------------------------------------------------+ a) To integrate DALCDS into your ISPF system, refer to SHRABIT.DALCDS.V1R2M02.ASM(DALCDS) for suggested steps in the Overview section as a menu item or ISPF command. Enjoy DALCDS for ISPF 2.x on MVS 3.8J! ====================================================================== * IV. S o f t w a r e I n v e n t o r y L i s t | ====================================================================== - SHRABIT.DALCDS.V1R2M02.ASM $ . DALCDS TSO CP TSO Allocation Display - SHRABIT.DALCDS.V1R2M02.CLIST . README Dummy member, this is intentional - SHRABIT.DALCDS.V1R2M02.CNTL $ . $INST00 Define Alias for HLQ DALCDS $ . $INST01 Load CNTL data set from distribution tape (HET) $ . $INST02 Load other data sets from distribution tape (HET) $ . $INST03 Install TSO Parts $ . $INST04 Install DALCDS Software $ . $INST05 Install ISPF Parts $ . $INST40 Install Other Software $ . $RECVTSO Receive XMI SEQ to MVS PDSs via TSO RECEIVE $ . $RECVXMI Receive XMI SEQ to MVS PDSs via RECV370 # . $UP1202 Upgrade to V1R2M02 from V1R2M01 $ . DSCLAIMR Disclaimer $ . PREREQS Required User-mods $ . README Documentation and Installation instructions - SHRABIT.DALCDS.V1R2M02.HELP . README Dummy member, this is intentional - SHRABIT.DALCDS.V1R2M02.ISPF . C$DALCDS IVP CLIST for DALCDS $ . C$DALCB DALCDS Select Process CLIST $ . DALC00 DALCDS Messages . DALC01 DALCDS Messages $ . PDALCDS0 TSO Allocations List Panel 1 $ . HDALCDS0 TSO Allocations (HELP) 1 $ . PDALCDS1 TSO Allocations List Panel 2 $ . HDALCDS1 TSO Allocations (HELP) 2 $ . PDALCDFA Dataset Attributes Panel # . HDALCDFA Dataset Attributes HELP Panel DALCDS Tutorial Panels $ . TDALC100 Tutorial Panel Main Menu $ . TDALC001 Tutorial Panel Overview 1 $ . TDALC002 Tutorial Panel Overview 2 $ . TDALC003 Tutorial Panel Overview 3 $ . TDALC004 Tutorial Panel Overview 4 $ . TDALC005 Tutorial Panel Overview 5 # . TDALC006 Tutorial Panel Overview 6 # . TDALC007 Tutorial Panel Overview 7 $ . TDALCA01 Tutorial Panel Column Descriptions 1 $ . TDALCA02 Tutorial Panel Column Descriptions 2 . TDALCA03 Tutorial Panel Column Descriptions 3 . TDALCA04 Tutorial Panel Column Descriptions 4 $ . TDALCA05 Tutorial Panel Column Descriptions 5 # . TDALCA06 Tutorial Panel Column Descriptions 6 $ . TDALCB01 Tutorial Panel Selection Code $ . TDALCC01 Tutorial Panel Optional Parameters 1 $ . TDALCC02 Tutorial Panel Optional Parameters 2 $ . TDALCC03 Tutorial Panel Optional Parameters 3 # . TDALCC04 Tutorial Panel Optional Parameters 4 # . TDALCC05 Tutorial Panel Optional Parameters 5 # . TDALCZ01 Tutorial Panel Change Log 1 # . TDALCZ02 Tutorial Panel Change Log 2 # . TDALCZ80 Tutorial Panel Limitations - SHRABIT.DALCDS.V1R2M02.MACLIB . DVCTBL Device Table Entries . ISPFPL ISPF Parameter Address List (10) . ISPFSRV ISPF Service keywords . ISPFSRVC ISPF Service keywords (COBOL) . LA#ST Load Address and Store # . LL#ST Load Length and Store . LBISPL Call to ISPLINK (LarryB version) . MISCDC Miscellaneous Constants (i.e. QUOTES) . MOVEC Move VAR at R6, len reflected in R8 (requires MOVEI) $ . MOVEI Init R6 w/ addr of VAR, init R8 to 0 $ . MOVER Move VAR at R6 until BLANK is found $ . MOVEV Move VAR at R6 $ . RDTECOMA DateTime comm area $ . RDTECOMC DateTime comm area (COBOL) . RTRIM Remove trailing spaces . SVC78A SVC78 message area - After downloading any other required software, consult provided documentation including any configuration steps (if applicable) for software and HELP file installation. $ - Denotes modified software component for THIS DISTRIBUTION relative to prior DISTRIBUTION # - Denotes new software component for THIS DISTRIBUTION relative to prior DISTRIBUTION
Closing
Use DALCDS to conveniently view TSO dataset allocations from ISPF on your MVS3.8J system.
Please use the comment box below or the contact us link on the menu bar to communicate any suggestions, improvements, corrections or issues regarding DALCDS.
Thank You.
Version History
* * MM/DD/CCYY Version Change Description * ---------- ------- ----------------------------------------------- * 05/01/2024 1.2.02 - Add device unit number and EXCP count * - Add multi-volume designation flag (plus sign) * - Correct count edit mask * - Update help and tutorial content * - Repeat last command using PF5 * - Enhance member find request to reflect * member not found in allocations message * - Remove use of GETDTE for date and time, * continue to use ISPF Z variables * - Updated message file DALC00 * * 12/15/2023 1.2.01 - Reset counters for DD and DSN on status line * - Use DCB from GETMAIN storage * - Update tutorial content * * 06/01/2023 1.2.00 - Redesign panels and upgrade DD data presented * - Add COUNT and MEMBER commands * - Replace panel PDVTOCFA with PDALCDFA * - Transition to DALC00 ISPF messages * * 02/10/2022 1.1.00 - Add SEL functionality * - Separate column for PDS Member name * - Scroll LEFT/RIGHT for different panel display * - Add BLDL macro to invoke GETDTE utility * - Add transaction logging * * 08/10/2020 1.0.00 - Initial version released to MVS 3.8J * hobbyist public domain
Disable use of GETDTE Utility
In DALCDS V1R2M01 and earlier, date and time on line 1 are populated by GETDTE or Z-variables. The default is GETDTE. Note, GETDTE use is removed in V1R2M02.
GETDTE can be disabled by setting an assembler local symbol and re-installing DALCDS as depicted in the following steps:
1) In the add-on distribution PDS, SHRABIT.DALCDS.VnRnMnn.ASM, edit member DALCDS
2) Position to CSECT portion
EJECT
DALCDS CSECT
*****************************************************************/
* * Software Option Flags */
LCLB &USEDTE * Use GETDTE flag */
&USEDTE SETB 1 * 0=No, 1=Yes */
* * */
*****************************************************************/
USING DALCDS,R10,R11,R12 my BASE REGISTER(S)
PRINT NOGEN
*
3) Set local symbol &USEDTE flag from 1(Yes) to 0(No)
EJECT
DALCDS CSECT
*****************************************************************/
* * Software Option Flags */
LCLB &USEDTE * Use GETDTE flag */
&USEDTE SETB 0 * 0=No, 1=Yes */
* * */
*****************************************************************/
USING DALCDS,R10,R11,R12 my BASE REGISTER(S)
PRINT NOGEN
*
4) Save the member
5) Use member $INST04 in add-on distribution PDS, SHRABIT.DALCDS.VnRnMnn.CNTL to assemble and link-edit revised member.
5) Review output for normal completion
6) Verify DALCDS
7) Done!