//* PROBLEM DESCRIPTION(S): //* PDS - //* Refit TSO PDS command version 7.0 to run on MVT. //* //* This is version 7.0.03 of the MVT PDS command. //* //* All native PDS 7.0 subcommands are supported under MVT. //* Supported subcommands are: //* //* ATTRIB - Display (or modify) load module attributes //* ALIAS - Assign an alias to a member //* CHANGE - Change to a different data set //* COMPARE - Compare two members //* COMPRESS - Compress the data set //* CONTROL - Set program control variables //* DISPLAY - Display all or part of the directory //* DIRENTRY - Dump a member's directory entry //* DELETE - Delete a member //* DSNAME - Display the current data set allocation //* END - Terminate the PDS command //* EXEC - Execute PDS subcommands from a CLIST source //* FIND - List lines containing a search string //* FIXPDS - Modify the allocated partitioned data set //* FSE - Edit a member with the fse command //* HELP - Display subcommand help for PDS //* HISTORY - List history of a load module //* IF - Test a member for given attributes //* LIST - List contents of a member //* MAP - Map a load module //* MEMBERS - Display members in a group //* OPTIONS - Display the subcommand menu //* OUTCOPY - Output IEBCOPY SELECT statements //* PATTERN - Display directory based on member name segments //* RECALL - Display or reissue the previous subcommand //* RENAME - Rename a member //* RESTORE - Resurrect a previously deleted member //* REVIEW - Browse data with the REVIEW command //* SUBMIT - Submit a JCL member //* TSO - Execute a TSO command //* TSOEDIT - Edit a member with TSO edit //* USAGE - List data set statistics //* VERIFY - Check the data set for validity errors //* //* The following external programs are required for the //* indicated subcommands: //* //* Subcommand Programs Source //* ---------- ------------------ --------------------------- //* REVIEW REVIEW CBT FILE 296; CBT FILE 300 //* COMPARE COMPARE, COMPAREB CBT FILE 296; CBT FILE 300 //* //* A PDS help member is also included. //* //* Because ISPF is not available, ISPF-related subcommands //* BROWSE, EDIT/SPFEDIT, ISPMODE and MEMLIST are not available //* in MVT. Subcommands that link to other external command //* processors, DSPRINT, PRINTOFF and TSOLIST, are also disabled //* in the MVT environment. //* //* MVT does not provide the System Track Allocation Routine //* (STAR), which supports the TRKCALC macro. STAR logic //* from MVS 3.8 has been rewritten as a local subroutine //* and included with PDS. The STAR subroutine to apply //* tolerance factors has been modified to support all devices //* that require it (the MVS 3.8 version is hard-coded for 2314 //* only). Because this requires more registers than are used //* by the MVS version, the caller of TRKCALC must provide the //* address of a standard save area in R13, and specify //* REGSAVE=YES on the TRKCALC macro invocation. PDS usage of //* TRKCALC includes REGSAVE=YES. //* //* Several macros not available or incomplete in MVT have //* been created or supplied from MVS 3.8 macro libraries. //* They are: //* //* ESTAE (mapped to MVT STAE) //* IHADVCT (Device Characteristics Table mapping) //* IHASDWA (SDWA, first 104 bytes) //* IKJEFFDF (DAIRFAIL parm list) //* IKJEFFMT (IKJEFF02 message handler parameter list) //* IKJTSMSG (IKJEFF02 message handler message description) //* SETRP (generates MVT STAE return linkage) //* STFSMODE (set full screen mode, acts as a no-op) //* STLINENO (set next non-full-screen line number) //* TRKCALC (modified to call local STAR subroutine) //* //* By default, PDS uses the unit name "SYSDA" for allocating disk //* data sets. To use a different unit, change the conditional //* assembly variable &DAUNIT in member PDSGEN70 to the desired //* value. //* //* SPECIAL CONDITIONS: //* DEPENDENCY: //* Assembly of PDS requires the OS/VS XF assembler IFOX00. //* //* DEPENDENCY: //* PDS uses System/370 instructions. The hardware or hardware //* emulator MVT is running on must support System/370 instructions, //* or the version of MVT being used must include software //* simulation of System/370 instructions. //* //* DEPENDENCY: //* STLINENO acts as a no-op unless usermod TMVT818 or //* equivalent is installed to add STLINENO functionality //* to MVT SVC 94. //* //* COMMENTS: //* LAST CHANGE: 2021/08/18 //* //* REWORK HISTORY: //* 2021/08/18 $D06 7.0.03: Change default unit from SYSALLDA //* to SYSDA. //* 2017/08/01 $D05 7.0.02: Support for translator history. //* 2010/05/04 $D04 7.0.01: Support extended DIRENTRY display. //* 2010/05/04 $D03 7.0.01: Support for MAP JCL. //* 2010/05/04 $D02 7.0.01: Fix AMODE errors. //* 2010/05/04 $D01 7.0.01: Refit to support MVT. //* //* THE FOLLOWING MODULES AND/OR MACROS ARE AFFECTED BY THIS USERMOD: //* //* MODULES //* PDS7003 //* //* MACROS //* PDS7003 (help member) //* ESTAE //* IHADVCT //* IHASDWA //* IKJEFFDF //* IKJEFFMT //* IKJTSMSG //* SETRP //* SGSTAR //* STARRTN //* STFSMODE //* STLINENO //* TRKCALC //* //* Note: All macros except the help member PDS7003 are //* installed in the private library SYS2.PDS.R703.ASM and //* will not be placed in system libraries. //* //* DISK SPACE REQUIREMENTS: //* PDS requires disk space as follows: //* //* component DASD type tracks //* --------- --------- ------ //* PDS load module 3330 10 //* PDS source 3330 155 //* help member 3330 25 //* //* MAIN STORAGE REQUIREMENTS: //* PDS requires 85K for program code and at least 8K //* working storage. The code is reentrant and refreshable, //* so it may be placed in the link pack area or time sharing //* link pack area if desired. //* //* INSTALLATION INSTRUCTIONS: //* (A) Modify the symbolic parameter WKUNIT on the PROC //* statement if you need to use a DASD unit name other //* than SYSDA. //* //* (B) Modify the ALLOC step to set your preferences for: //* //* 1) Target load library (default is SYS2.LINKLIB). This //* should be a link list library, or a library in the //* STEPLIB concatention in the TSO procedure. //* //* 2) Target library for help member (default is SYS1.HELP). //* //* 3) Unit and volume for source data set (unit default //* is SYSDA, volume default is ASPSUP). Data set //* SYS2.PDS.R703.ASM will be created on the designated //* volume. //* //* (C) Modify PDS configuration options in the PDSGEN70 member //* if desired. Options you might want to modify include: //* //* &DAUNIT - Unit name used by PDS for DASD allocation //* (default is SYSDA). //* //* &TUNIT - Unit name for DASD utility data sets in JCL //* generated by MAP (default is SYSDA). //* //* For proper assembly, &MVT must remain set to 1 and //* &MVSLEV to "MVS038". //* //* (D) Run the job. //* //* (E) Verify successful completion. All steps should complete //* with return code zero except the LKED step, which //* should produce a return code of 4 and msgIEW0461 due to //* the absence of optional user exits VSUBCMD and VTSOCMD. //*