neues zu ispf, highlights der letzten 10 jahre - t-online... · neues zu ispf, highlights der...
Post on 27-Jul-2018
224 Views
Preview:
TRANSCRIPT
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software
DENK Hamburg
Neues zu ISPF Highlights der letzten 10 Jahre …
April 2014
YCOS Yves Colliard Software GmbH Fremersbergstr. 45 D-76530 Baden-Baden Tel. +49/7221 9708384 Fax 0322 2374 2352
eMail: ycos@ycos.de Home: www.ycos.de
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software
Neues zu ISPF, Highlights der letzten 10 Jahre…
Retrieve… today ......................................................... 3
Retrieve using RETP .................................................. 4
Split Screen ................................................................ 7
SWAPBAR .................................................................. 8
=XALL Primary Command – End All ......................... 10
Logon on which system? .......................................... 11
More Infos on Panel .................................................. 12
Not enough space on primary command .................. 14
Edit/View and Find problems .................................... 15
Edit/View and Find customized – EDSET ................. 16
CUT & PASTE – many clipboards and Edit .............. 17
Using SuperC/CE to compare ................................... 19
COMPARE in Edit/View ............................................ 20
Submit “selected data” .............................................. 25
HIDE excluded lines ................................................. 26
Edit HEX ON ............................................................. 27
Edit Hex Line Command – HX .................................. 28
Edit – Profile Lock ..................................................... 29
Copy one line to many targets .................................. 30
Multiple Line Command – Move / Copy .................... 31
Find and Change ...................................................... 33
Text Split – TS ......................................................... 35
Text Flow – TF ......................................................... 36
Member List – Postion after member selection......... 37
Settings – Member list .............................................. 38
Search Member list – SRCHFOR ............................. 39
Filter Member list...................................................... 41
DSLIST – List von Datasets ..................................... 42
Search Member in Dataset List ................................ 43
Search Content in Dataset List ................................. 46
Search/SuperCompare Content in Dataset List ........ 49
Allocate Like in Dataset List ..................................... 51
Dataset List Block Commands ................................. 52
DSLIST – List of Datasets ........................................ 53
UDLIST – List for USS Path ..................................... 54
What is happening in my edit macro ........................ 64
What is happening in my panel ................................ 66
What is happening in my skeleton ............................ 69
User Line Commands – YCLMACRX ....................... 71
More information about z/OS 2.1 ............................ 106
Copyright................................................................ 127
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 3
Retrieve… today
Start the start in the command stack…
PF12
PF12
PF12
PF12
…
Noooooooooooooooooooooooooooo!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 4
Retrieve using RETP RETP (on PFK24 –could be another)
EDIT YVES.YCOS.CNTL(A) – 01.03 Columns 00001 00072
C +---------- Retrieve -----------+ Scroll ===> CSR
* ! Options Help ! Top of Data ******************************
0 ! ---------------------------- !
0 ! ISPF Retrieve Panel ! ---
0 ! ! mbH
0 ! Select the command !
0 ! to be retrieved !
0 ! More: + !
0 ! 1. START 0 !
0 ! 2. comp 'sys1.parmlib(> !
* ! 3. comp 'yves.parmlib(> ! Bottom of Data ****************************
! 4. comp 'sys1.parmlib(> !
! 5. comp 'sys1.parmlib(> !
! 6. comp 'sys1.parmlib(> !
! 7. PFSHOW OFF !
! 8. START 7.2 !
! 9. copy 'isp.sisppenu(> !
! 10. S ISPRETP !
! 11. DS YCOS.P* !
! 12. DSLIST ISPF !
! 13. START 0 !
+-------------------------------+
Shows up to 25 of the last commands!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 5
Don’t forget to set Minimum of command characters to put in retrieve stack – Options 1 IBM Default is 1 character! Use at least 5
Define also where the cursor is to be positioned – Options 2
EDIT YVES.YCOS.CNTL(A) – 01.03 Columns 00001 00072
C +---------- Retrieve -----------+ Scroll ===> CSR
* ! Options Help ! Top of Data ******************************
0 ! +----------------------------------------------------------------+
0 ! ! 1. Set minimum number of characters saved in retrieve stack !
0 ! ! 2. Select cursor position for retrieve !
0 ! ! 3. Exit !
0 ! +----------------------------------------------------------------+
0 ! More: + !
0 ! 1. START 0 !
0 ! 2. comp 'sys1.parmlib(> !
* ! 3. comp 'yves.parmlib(> ! Bottom of Data ****************************
! 4. comp 'sys1.parmlib(> !
! 5. comp 'sys1.parmlib(> !
! 6. comp 'sys1.parmlib(> !
! 7. PFSHOW OFF !
! 8. START 7.2 !
! 9. copy 'isp.sisppenu(> !
! 10. S ISPRETP !
! 11. DS YCOS.P* !
! 12. DSLIST ISPF !
! 13. START 0 !
+-------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 6
Number of characters of a command to be relevant for the retrieve stack (also PF12)
EDIT YVES.YCOS.CNTL(A) - 01.03 Columns 00001 00072
C +---------- Retrieve -----------+ Scroll ===> CSR
* ! Options Help ! Top of Data ******************************
0 ! - +--------------- Retrieve ----------------+
0 ! ! ISPF Retrieve Panel !
0 ! ! !
0 ! S ! Set minimum number of characters to be !
0 ! t ! saved in the retrieve stack !
0 ! ! !
0 ! ! Enter minimum number of !
0 ! ! characters . . . . . . . . . . 5 !
* ! ! ! ****************************
! ! !
! ! !
! ! !
! ! !
! ! !
! ! !
! +-----------------------------------------+
! 11. comp 'sys1.parmlib(> !
! 12. PFSHOW OFF !
! 13. START 7.2 !
+-------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 7
Split Screen - SPLIT: Split Screen (PF2)
- SWAP: Screen swap (PF9)
- SPLIT NEW: Split Screen – up to Maximum (8 – Default ISPF Configuration – 32 are possible!)
- START [application]: Split Screen and call menu item or application – up to Maximum
- SWAP LIST: show a list of split screens
- SWAP NEXT|PREV: move to next/previous split screen
- SCRNAME name [PERM]: set a screen name (PERM not overridden) – review all application start!
- SCRNAME ON|OFF: show screen name (like panelid)
- SWAP scrname: move to the given screen name
- SWAP id: move to the given screen number
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 8
SWAPBAR . Swap line with List (Point-and-Shoot) of possible Screens! SWAPBAR ON|OFF|/ Line at Bottom (physical! Point-and-Shoot) Every entry is 8 bytes long – Screen Name or Panel Name Active Session = *name (max 7 chars) Alternate Session = -name (max 7 chars) If too much Screen "<" and ">" will be displayed "<" and ">" are Point-and-Shoot Fields P10 and P11 with Cursor on SWAPBAR can also be used If Menu Option "Tab to action bar choices" is on, then positioning will occur Menu Option "Always show split line" will be deactivated! / : Settings (z/OS 2.1)
Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.C* Row 1 of 7
Command ===> Scroll ===> CSR
...
...
...
...
...
*DSLIST SDSF -EDIT CMD
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 9
Create multiple split screens using Rexx:
/* REXX RXSTART Copyright YCOS Yves Colliard Software 2007-2010 */
/*----------------------------------------------------------------*/
/* RXSTART - Create many split screens */
/*----------------------------------------------------------------*/
/* REXX Tool */
/*================================================================*/
address ispexec
/* for every screen give command or option @ screen name */
sp.1="dslist ycos.clist@clist"
sp.2="dslist ycos.cntl@cntl"
sp.3="sd;st@sdsf"
sp.4="0@setit"
sp.5="3@utils"
opt=""
do i=1 while sp.i<>"SP."i
parse var sp.i cmd "@" nam
if sp.i="SP."i then opt=";BASE"
"SELECT PGM(ISPSTRT) PARM("cmd";SCRNAME "nam" PERM;SWAP"opt")"
end
z/OS 2.1 – ZSTART Profile Variable: ISPF;command stack… . New option on ISPSTART Default use ZSTART or BASIC (no automatic start) or zstart_var_name (other variable name)
Don’t forget to make your 3270 emulation cursor sensitive!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 10
=XALL Primary Command – End All
=XALL
. Run an “=X” command on all logical split screens New with z/OS 2.1!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 11
Logon on which system?
Do not execute the wrong things on the right system!
Do not even execute the right things on the wrong system!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 12
More Infos on Panel
. new SYSNAME and USERID Commands Shows SYSNAME and/or USERID on Panels SYSNAME ON|OFF USERID ON|OFF like PANELID or SCRNAME 17 bytes on Panels – truncated if needed Priority: SYSNAME, USERID, PANELID and SCRNAME ISPF Options (0) Identifier action bar – temporary or long term Default Setting Configuration Table
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 13
Menu Utilities Compilers Options Status Help
------------------------------------------------------------------------------
SYSY ISPF Primary Option Menu
Option ===> SYSNAME ON________________________________________________________
0 Settings Terminal and user parameters User ID . : YVES
Log/List Function keys Colors Environ Workstation Identifier Help
----------------------------------------------- +-----------------------------+
ISPF Settings ! 4 1. Message identifier... !
Command ===> ! 2. Panel identifier... !
! 3. Screen name... !
Options Print ! 4. System name... !
Enter "/" to select option Fam ! 5. User ID... !
Command line at bottom Dev +-----------------------------+
+------------------ ISPF Settings ------------------+
! System Name Identifier !
! !
! Enter "/" to select option !
! / Display system name !
! identifier !
! !
! Default setting for system name !
! 2 1. Off !
! 2. On !
! !
+---------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 14
Not enough space on primary command
ZEXPAND support on Command Line: . Problem solved if primary command longer than the visible space Review your PFK and set ZEXPAND/EXPAND!
. Scrollable fields new Option: SCROLL(NOLR) Left/Right disabled
YVES Row 00001 of 00004
C +---------------------------- ZCMD+0 ------------------------------+ => CSR
! Row 00001 of 00004 !
! Command ===> Scroll ===> CSR !
! !
! ________________________________________________________________ !
! ________________________________________________________________ !
! ________________________________________________________________ !
! ___________________________ !
! !
! !
! !
+------------------------------------------------------------------+
New with z/OS 2.1!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 15
Edit/View and Find problems
2 Lines are unneeded within EDIT/VIEW
File Edit Edit_Settings Menu Utilities Compilers Test Help
---------------------------------------------------------------------------------------
EDIT YVES.CLIST(YCLMACRX) - 01.02 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 /* Rexx by YCOS Yves Colliard Software - www.ycos.de */
000002 /* */
…
Find will place the data in line 2 and RepeatFind (PF5) will challenge: where is it?
File Edit Edit_Settings Menu Utilities Compilers Test Help
---------------------------------------------------------------------------------------
EDIT YVES.CLIST(YCLMACRX) - 01.02 WORD 'DD' found
Command ===> f 'DD' word Scroll ===> CSR
001148 yend = Start
001149 if teil2 <> "DD" & pos("LIKE=",T)=0 then do
001150 yl=teil2
001151 /* search begin */
001152 trop="N"
001153 do j=start-1 to 1 by -1 until trop="Y"
001154 "(YLIN) = LINE "j /* Get previous line */
001155 parse Var YLIN teil1 teil2 teil3 .
001156 if left(teil1,3)<>"//*" & teil2 ="DD" then do
001157 trop = "Y"
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 16
Edit/View and Find customized – EDSET
EDIT YVES.YCOS.NEW(NEWMEMB) - 01.00 Columns 00001 00072
+-----------------------------------------------------------------------------+
! Edit and View Settings !
! Command ===> !
! More: + !
! Settings for current and future Edit and View sessions: !
! !
! User session initial macro . . . . . . . . . . . . . . !
! Maximum initial storage allowed for Edit and View . . 0 !
! Target line for Find/Change/Exclude string . . . . . . 8 !
! Enter "/" to select option !
! / Always position Find/Change/Exclude string to target line !
! / Remove action bars in ISPF edit and view panels !
! Force ISRE776 if RCHANGE passed arguments !
! !
! CUT default . . 2 1. Append PASTE default . . 2 1. Delete !
! 2. Replace 2. Keep !
! !
! Settings for future sessions. Select Apply Setting Immediately for the !
! setting to affect the current session as well. !
! !
! Enter "/" to select option !
! / Confirm Cancel/Move/Replace Apply Setting Immediately !
! Preserve VB record length Apply Setting Immediately !
+-----------------------------------------------------------------------------+
Change it? Change it?
Change it? Change it?
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 17
CUT & PASTE – many clipboards and Edit CUT / PASTE: Clipboard Manager CUT selection: C/CC/M/MM/X/XX PASTE Target: A/B
CUT [lptr-range] [DEFAULT|clipname] [REPLACE|APPEND] [NX|X] [DISPLAY]
EDIT YVES.YCOS.CNTL(A) - 01.03 Columns 00001 00072
Command ===> cut yves Scroll ===> CSR
****** ***************************** Top of Data ******************************
C00001 Yves Colliard
000002 --------------------------------
000003 YCOS Yves Colliard Software GmbH
000004 Fremersbergstr. 45
000005 76530 Baden-Baden
000006 Tel. 07221/9708384
000007 Fax 0322 2374 2352
000008 eMail: yves.colliard@ycos.de
****** **************************** Bottom of Data ****************************
EDIT YVES.YCOS.CNTL(A) - 01.03 1 lines cut to YVES
Command ===> cut adr x Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 Yves Colliard
000002 --------------------------------
XX0003 YCOS Yves Colliard Software GmbH
000004 Fremersbergstr. 45
XX0005 76530 Baden-Baden
000006 Tel. 07221/9708384
000007 Fax 0322 2374 2352
000008 eMail: yves.colliard@ycos.de
****** **************************** Bottom of Data ****************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 18
CUT DISPLAY
ISREDDE4 YVES.YCOS.CNTL(A) - 01.03 Columns 00001 00072
C +----------------------------------------------------------------+ ===> CSR
* ! ISRECUTL Clipboard manager ! **********
= ! ! ata
= ! B - Browse C - Clear O - Toggle Read-only !
0 ! E - Edit R - Rename D - Delete !
0 ! !
0 ! Name Lines User Comment !
0 ! !
0 ! DEFAULT 0 ISPF Default Clipboard !
0 ! ADR 3 !
0 ! YVES 1 !
0 ! !
* ! ! **********
! !
! !
! !
! !
! !
! !
! !
! F1=Help F2=Split F3=Exit F9=Swap F12=Cancel !
+----------------------------------------------------------------+
All clipboards will be shown – also the default one. The clipboards can be edited... and...
PASTE [DEFAULT|clipname] [KEEP|DELETE] The PASTE Command can be used to retrieve the clipboard contents Default behaviour can be set in the EDSET function – see EDSET
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 19
Using SuperC/CE to compare
Results will be shown separately
No good overview of the differences
No chance to easily “merge” differences
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 20
COMPARE in Edit/View COMPARE: the current edit/view data with…
COMPare member [EXCLUDE | X]
(member) [SAVE] Dataset | 'Dataset' [SYSIN [(supercdsn)]] Dataset(member) | 'Dataset(member)' [VOL(vol)] path | / * | SESSION NEXT Parameter * | SESSION Compare in-Storage <-> Disk NEXT Compare with same Member in the higher Hierarchy EXCLUDE Compare & Exclude "same" Lines (most of them – see Settings) SAVE Compare & Save SUPERC Results -> prefix.ISPFEDIT.COMPARE.LIST SYSIN Compare & use SYSIN SUPERC Parms supercdsn – Name of SuperC SYSIN Control Statements (z/OS 1.11) / – prompt VOL not catalogued dataset (z/OS 2.1) without Options -> Settings (enhanced with z/OS 2.1)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 21
EDIT YVES.YCOS.CNTL(A) - 01.00
Command ===>
****** ***************************** To
000001 Yves Colliard
000002 --------------------------------
000003 YCOS Yves Colliard Software GmbH
000004 Fremersbergstr. 45
000005 76530 Baden-Baden
000006 Tel. 07221/9708384
000007 Fax 0322 2374 2352
000008 eMail: yves.colliard§ycos.de ******
**************************** Bot
EDIT YVES.YCOS.CNTL(B) - 01.01
Command ===>
****** ***************************** To
000001 Yves Colliard
000002 YCOS Yves Colliard Software GmbH
000003 Fremersbergstr. 45
000004 Tel. 07221/9708384
000005 Fax 0322 2374 2352
000006 eMail: ycos@ycos.de
000007 eMail: yves.colliard§ycos.de
****** **************************** Bot
EDIT YVES.YCOS.CNTL(A) - 01.01 Changes are shown
Command ===> comp (b) Scroll ===> CSR
000001 Yves Colliard
.OAAAA --------------------------------
000003 YCOS Yves Colliard Software GmbH
000004 Fremersbergstr. 45
.OAAAB 76530 Baden-Baden
000006 Tel. 07221/9708384
000007 Fax 0322 2374 2352
====== eMail: ycos@ycos.de
000008 eMail: yves.colliard§ycos.de
****** **************************** Bottom of Data ****************************
Notes can be changed to “lines” with the line command “MD” – Make Data
NOT in B
NOT in B
NOT in A
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 22
COMP
EDIT YVES.YCOS.CNTL(COMP1) - 01.02 Columns 00001 00072
+------------------------------------------------------------------------------+
! Edit Compare Settings !
! Command ===> !
! !
! SuperC Options: Display options: !
! Enter "/" to select option Lines displayed !
! Case Insensitive Compare with EXCLUDE . . . 5 (0 - 12) !
! !
! Ignore Reformat Differences Label Prefix . . . O (A - Y) !
! !
! Data Contains DBCS Characters Use a label prefix of O to enable !
! special coloring when edit !
! highlighting is enabled. !
! Enter END to save changes. !
! Enter CANCEL to cancel changes. !
! !
! !
! !
! !
! !
! !
! !
+------------------------------------------------------------------------------+
Edit COMPARE settings (z/OS 1.13)
Change number of lines before and after
EXCLUDE
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 23
COMP (comp2) x
EDIT YVES.YCOS.CNTL(COMP1) - 01.02 Columns 00001 00072
Command ===> comp comp2 x Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 /* REXX YCSMFLRX Copyright YCOS Yves Colliard Software 2009-10 V2.0 */
000002 /*--------------------------------------------------------------------*/
000003 /* YCSMFLRX - Check the input parms in DD SMFIN */
000004 /* Create the parms used by YCSMFLOG program */
000005 /* Call YCSMFLOG program */
000006 /* - if called as an Edit Macro - it will syntax check */
000007 /* the SMFIN data */
000008 /* - using YCSMFINI to create parameter for YCSMFLOG */
000009 /* the SMFIN data */
000010 /*--------------------------------------------------------------------*/
000011 /* REXX Tool */
000012 /**********************************************************************/
000013 /* V2.0 - 20.07.2010 - new version */
000014 /* P016 - 28.06.2010 - correct for USER Exits not on Remote! */
000015 /* P014 - 22.04.2010 - correct date output in protocol */
000016 /* - correct julian day calculation */
000017 /* P012 - 08.04.2010 - support for USER Exits not on Remote! */
000018 /* P011 - 16.02.2010 - support for USER Exits */
000019 /* P009 - 22.01.2010 - correct volser, free datasets and report */
000020 /* - correct default date/time */
000021 /* - correct timeout parameter */
000022 /* P008 - 18.11.2009 - small corrections */
000023 /* P007 - 06.11.2009 - enhanced remote processing */
000024 /* P006 - 04.11.2009 - correct remote return code */
000025 /* P002 - 16.10.2009 - enhanced output display */
000026 /* P001 - 08.10.2009 - correct Record Default */
000027 /* - no $$ EOF in JCL for Edit Macro */
000028 /* - Remote unload on DASDONLY stream */
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 24
COMP (comp2) x: Result
EDIT YVES.YCOS.CNTL(COMP1) - 01.02 Changes are shown
Command ===> Scroll ===> CSR
000412 end
====== t2=strip(t2)
.OAAAA fasdfasdfasfasdf
000414 logs_era.logs_anz=check_time(t2,"ER") /* End Range of Log */
000415 tosc=strip(t1""t3)
000416 end
000417 when pos("DDNAME(",tosc)>0 !, /* DDName given */
000418 pos("DD(",tosc)>0 then do
- - - - - - - - - - - - - - - - - - 252 Line(s) not Displayed
000671 call reto "STAT must be Yes or No"
000672 end
000673 ddnm_sta.ddnm_anz=t2 /* statistics */
000674 tosc=strip(t1""t3)
000675 end
====== otherwise
000676 call reto "Unknown statement" strip(tosc)
000677 end
000678 end
000679 end
000680 /* */
- - - - - - - - - - - - - - - - - - 284 Line(s) not Displayed
000965 if l2+2>256 then do
000966 nrec=" "
000967 end
000968 else do
000969 nrec=substr(ddnm_alrec.l1,l2+2,1)
.OAAAB asdfasdf
.OAAAC asdfasdf
.OAAAD asdfasdf
NOT in COMP1 note
NOT in COMP1 note
NOT in COMP2 label
NOT in COMP2 label
Excluded lines
Excluded lines
5 lines
5 lines
5 lines
5 lines
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 25
Submit “selected data”
Remember to use SUB X
EDIT YVES.YCOS.CNTL(JCL) - 01.03 Columns 00001 00080
Command ===> sub nx Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 //YVESX JOB
000002 //PRINT EXEC PGM=IEBGENER
000003 //SYSPRINT DD SYSOUT=*
000004 //SYSOUT DD SYSOUT=*
000005 //SYSIN DD DUMMY
000006 //SYSUT2 DD DISP=SHR,DSN=YVES.SMF.RECS.D110704.DALL
000007 //SYSUT1 DD DISP=SHR,DSN=YVES.SMF.RECS.D110704.D081500
- - - - - - - - - - - - - - - - - - - - - - 2 Line(s) not Displayed
000010 // DD DISP=SHR,DSN=YVES.SMF.RECS.D110704.D083000
****** ******************************** Bottom of Data ********************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 26
HIDE excluded lines HIDE eXcluded: exclude the “excluded-Lines” from Display! RESET HIDE: show “excluded-Lines” again
EDIT YCOSUSR.YCOS.CNTL(YZOS12M) - 01.01 Columns 00001 00072
Command ===> HIDE X Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000001 /* REXX */
000002 ADDRESS ISREDIT "MACRO"
000003 Address ISPEXEC "CONTROL ERRORS RETURN"
000004 Address ISREDIT "(TLINE) = LINENUM .ZLAST"
000005 /* */
- - - - - - - - - - - - - - - - - - - 12 Line(s) not Displayed
000018 end
000019 end
EDIT YCOSUSR.YCOS.CNTL(YZOS12M) - 01.01 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000001 /* REXX */
000002 ADDRESS ISREDIT "MACRO"
000003 Address ISPEXEC "CONTROL ERRORS RETURN"
000004 Address ISREDIT "(TLINE) = LINENUM .ZLAST"
000005 /* */
000018 end
000019 end
Underline!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 27
Edit HEX ON
ALL data is HEX...
Need for a selective solution
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 28
Edit Hex Line Command – HX . New line command: HX[n] – Display selected line(s) in Hex or Reset Hex Display– n copies (default 1) HXX – Block Command – n copies (default 1)
EDIT YVES.YCOS.CNTL(A) - 01.03 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 Yves Colliard
000002 --------------------------------
hx0003 YCOS Yves Colliard Software GmbH
ECDE4EA8A4C99988984E98AA8984C98C444444444444444444444444444444444444444444444444
83620855203633919402663619507428000000000000000000000000000000000000000000000000
--------------------------------------------------------------------------------------
000004 Fremersbergstr. 45
000005 76530 Baden-Baden
000006 Tel. 07221/9708384
000007 Fax 0322 2374 2352
000008 eMail: yves.colliard@ycos.de
****** ******************************** Bottom of Data ********************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 29
Edit – Profile Lock - PROFILE|PR: anzeigen der Profile Informationen pro Low Level Qualifier wird eine Profile angelegt die maximale Anzahl Profiles wird in der ISPF Konfiguration definiert – Default 25 (zu klein!) werden mehr Profiles (unterschiedlichen LLQ) verwendet, dann „verschwinden“ welche! ausgenommen: Profiles die LOCKed sind die LOCKed Profiles werden auch nicht „zurückgeschrieben“! PR LOCK – Profile „locken“
EDIT YVES.YCOS.NEW(MEM2) - 01.02 Columns 00001 00072
Command ===> PR Scroll ===> CSR
****** ***************************** Top of Data ******************************
=PROF> ....NEW (FIXED - 80)....RECOVERY ON....NUMBER OFF.......................
=PROF> ....CAPS OFF....HEX OFF....NULLS ON STD....TABS OFF.....................
=PROF> ....AUTOSAVE ON....AUTONUM OFF....AUTOLIST OFF....STATS ON..............
=PROF> ....PROFILE UNLOCK....IMACRO NONE....PACK OFF....NOTE ON................
=PROF> ....HILITE OFF CURSOR FIND..............................................
=TABS> * * * * * *
=MASK> /* comment */
=BNDS> < >
=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
000001 verwendung von PROF
****** **************************** Bottom of Data ****************************
PR - Profile Einstellungen werden hier
gespeichert und festgehalten; auch TABS, MASK und BNDS
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 30
Copy one line to many targets
Line command: C
Line command: A and ENTER
Line command: C
Line command: A and ENTER
Line command: C
Line command: A and ENTER
Line command: C
Line command: A and ENTER
…
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 31
Multiple Line Command – Move / Copy . Normal usage: M/C -> A/B/O – After / Before / Overlay . New: AK[n] – Multiple Move / Copy After – n copies (default 1) BK[n] – Multiple Move / Copy Before – n copies (default 1) OK[n] / OOK-OOK – Multiple Move / Copy Overlay – n copies (default 1)
. Until Final Destination given: ISRE051 MOVE/COPY is pending - Enter A, B, or O line
command, or a CREATE or REPLACE command
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 32
EDIT YVES.YCOS.CNTL(A) - 01.03 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 Yves Colliard
C00002 --------------------------------
AK0003 YCOS Yves Colliard Software GmbH
000004 Fremersbergstr. 45
BK0005 76530 Baden-Baden
000006 Tel. 07221/9708384
AK0007 Fax 0322 2374 2352
O00008 eMail: yves.colliard@ycos.de
****** ******************************** Bottom of Data ********************************
EDIT YVES.YCOS.CNTL(A) - 01.04 Columns 00001 00080
Command ===> Scroll ===> CSR
****** ********************************* Top of Data **********************************
000001 Yves Colliard
000002 --------------------------------
000003 YCOS Yves Colliard Software GmbH
000004 --------------------------------
000005 Fremersbergstr. 45
000006 --------------------------------
000007 76530 Baden-Baden
000008 Tel. 07221/9708384
000009 Fax 0322 2374 2352
000010 --------------------------------
000011 eMail:-yves.colliard@ycos.de----
****** ******************************** Bottom of Data ********************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 33
Find and Change FIND st-1 [range] [NEXT] [CHARS] [X] [col-1 [col-2]] F [PREV] [PREFIX] [NX] CHANGE st-1 st-2 [range] [FIRST] [SUFFIX] C [LAST] [WORD] [ALL]
st-1 – string Charakter 'char akter' "char akter" C'Charakter' Text (Groß- und Kleinschreibung) T'charakter' Text (Groß- und Kleinschreibung unabhängig) * erneut – gleichen Text X'0A07' hexadezimal P'=' irgendein Charakter P'@' alphabetisch P'#' numerisch P'$' spezial P'^' kein Leerzeichen P'.' "unsichtbar" P'-' nicht numerisch P'<' Kleinbuchstaben P'>' Großbuchstaben
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 34
Find, Change, Exclude, Seek Regular Expression: Rʹregexpʹ . single character yv.s -> yves
* zero or many instances of previous character col*iard -> coiard, coliard, colliard, collliard …
? zero or one instance of previous character col?iard -> coliard, colliard
+ one or many instances of previous character col+iard -> coliard, colliard…
[ ] list of possible characters c[aio]lliard -> calliard, cilliard, colliard
[ - ] list of possible characters within a range c[a-d]lliard -> calliard, cblliard, cclliard, cdlliard
[^ ] list of not possible characters c[^aio]lliard -> all but not: calliard, cilliard, colliard
{min} {min,} {min,max} number of times an expression must be given (Exact, Min no Max, Min/Max) c[ol]{2}liard -> cooliard, colliard, cllliard, cloliard c[ol]{2,3}liard -> cooliard, coooliard… c[ol]{2,}liard -> cooliard, coooliard, cooooliard…
| OR condition yves|colliard -> yves or colliard
( ) group yves.(([0-9][A-F]{2})|([A-F][0-9]{2})) -> 0A, A0, 9F, F9…
\ escape – next chararacter is data and not an expression \+yves -> +yves
z/OS 2.1
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 35
Text Split – TS
EDIT YVES.YCOS.NEW(MEM2) - 01.01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
TS und was passiert, wenn man TE als Line Command eingibt? Der Text kann
000002 ohne Rücksicht eingeben werden; es ist ähnlich wie mit einem PC Editor,
000003 am Ende wird daraus einen fliessenden Text gemacht. Dabei kann entweder
000004 vorab mit BOUNDARY der Umfang der Eingabe oder später mit TF## angegeben
000005 werden
000006
****** **************************** Bottom of Data ****************************
:TS on PFx
TS – Text Split der Cursor muss auf die Stelle
platziert sein! Kann auch als PF Taste definiert
werden – Line Commands mit dem Präfix „:“ definiert PFx = :TS
CUSROR!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 36
Text Flow – TF EDIT YVES.YCOS.CNTL(MSG) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
TF1001 EZA4253E $HASP085 $HASP099 $HASP100 $HASP250 $HASP314 $HASP395 $HASP608
000002 $HASP9085 ASA2960I ATR104I ATR167I BPXI032E BPXI055I BPXI056E BPXP018I
000003 BPXP023I CEA0106I CNZ4100I CNZ4213I COF033I COF534I COF536I CSV210I
000004 EZZ0673I EZZ4201I EZZ6008I EZZ6009I EZZ6010I EZZ9292I GFSC717E IEA989I
000005 IEE037D IEE043I IEE301I IEE311I IEE341I IEE341I IEE400I IEF126I IEF196I
000006 IEF404I IKT006I
****** **************************** Bottom of Data ****************************
EDIT YVES.YCOS.CNTL(MSG) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 EZA4253E
000002 $HASP085
000003 $HASP099
000004 $HASP100
000005 $HASP250
000006 $HASP314
000007 $HASP395
000008 $HASP608
000009 $HASP9085
000010 ASA2960I
000011 ATR104I
000012 ATR167I
000013 BPXI032E
000014 BPXI055I
000015 BPXI056E
000016 BPXP018I
000017 BPXP023I
000018 CEA0106I
000019 CNZ4100I
000020 CNZ4213I
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 37
Member List – Postion after member selection Menu Functions Confirm Utilities Help
------------------------------------------------------------------------------
EDIT YVES.YCOS.CNTL Row 00542 of 01380
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
_________ J203A 10 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J203B 16 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J204A 34 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J204B 24 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J204C 17 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J204D 16 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J205A 4 2004/06/02 2004/06/02 09:43:19 YVES
S________ J206A 34 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J207A 4 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J208A 11 2010/10/31 2010/10/31 09:09:00 YCZOSZ
Menu Functions Confirm Utilities Help
------------------------------------------------------------------------------
EDIT YVES.YCOS.CNTL Row 00542 of 01380
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
_________ J206A 34 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J207A 4 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J208A 11 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J209A 11 2010/03/09 2010/03/09 11:59:54 YVES
_________ J209ARX 8 2010/03/09 2010/03/09 11:20:16 YVES
_________ J210A 4 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J211A 5 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J212A 3 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J213A 5 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J214A 8 2010/03/09 2010/03/09 13:06:01 YVES
_________ J215A 6 2010/03/09 2010/03/09 13:37:58 YVES
_________ J216A 10 2010/10/31 2010/10/31 09:09:00 YCZOSZ
_________ J216ARX 6 2010/10/31 2010/10/31 09:09:00 YCZOSZ
NEW Position to TOP
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 38
Settings – Member list Log/List Function keys Colors Environ Workstation Identifier Help
------------------------------------------------------------------------------
ISPF Settings
Command ===>
More: +
Options Print Graphics
Enter "/" to select option Family printer type 2
Command line at bottom Device name . . . .
/ Panel display CUA mode Aspect ratio . . . 0
/ Long message in pop-up
Tab to action bar choices
/ Tab to point-and-shoot fields General
/ Restore TEST/TRACE options Input field pad . . B
Session Manager mode Command delimiter . ;
/ Jump from leader dots
Edit PRINTDS Command
/ Always show split line
Enable EURO sign
Member list options
Enter "/" to select option
Scroll member list
/ Allow empty member list
/ Allow empty member list (nomatch)
/ Empty member list for edit only
Terminal Characteristics
Screen format 2 1. Data 2. Std 3. Max 4. Part
Terminal Type 3 1. 3277 2. 3277A 3. 3278 4. 3278A
5. 3290A 6. 3278T 7. 3278CF 8. 3277KN
9. 3278KN 10. 3278AR 11. 3278CY 12. 3278HN
Test if you like/need! Scroll list to selected member
Empty Member list action
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 39
Search Member list – SRCHFOR Call once without parameters to “customize”
*------------------------ MEMBER LIST Srchfor Options ------------------------*
| |
| Command ===> |
| |
| You are about to search the members of the data set(s) specified. |
| Specify search string(s) and options and press ENTER to run the search. |
| Enter the END or the CANCEL command to cancel the search. |
| |
| ==> |
| ==> |
| ==> |
| ==> |
| ==> |
| ==> |
| |
| Listing DSN: |
| |
| Select Process Options with / Select Output Options with / |
| _ Mixed Mode _ View output |
| _ Any case _ Save output |
| / Set EDIT FIND string / Filter List |
| / Set BROWSE FIND string |
| |
*-----------------------------------------------------------------------------*
Filter the list of member only to the members containing the searched string
Set PF5 to the searched string
in Edit and in Browse
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 40
Menu Functions Confirm Utilities Help
------------------------------------------------------------------------------
EDIT YVES.BSP.PO Row 00001 of 00004
Command ===> SRCHFOR STEPLIB Scroll ===> CSR
Name Prompt Size Created Changed ID
_________ A 8 2009/12/09 2009/12/09 09:48:18 YVES
_________ ABEND 4 2009/12/08 2009/12/09 17:05:01 YVES
_________ ASCII 3 2009/12/08 2009/12/08 17:05:28 YVES
_________ B 7 2009/12/09 2009/12/09 09:48:33 YVES
_________ C1 43 2009/12/09 2009/12/09 11:07:21 YVES
_________ JCL1 3 2009/12/09 2011/04/15 15:15:07 YVES
_________ JCL2 2 2009/12/09 2009/12/09 14:09:03 YVES
_________ JCL3 6 2009/12/09 2009/12/09 16:18:16 YVES
_________ JCL4 10 2009/12/09 2011/04/15 15:15:16 YVES
_________ MYRX 8 2009/12/09 2009/12/09 14:17:04 YVES
_________ M1 4 2009/12/07 2009/12/08 17:16:23 YVES
_________ M9 36 2009/12/07 2011/04/15 15:15:30 YVES
**End**
Menu Functions Confirm Utilities Help
------------------------------------------------------------------------------
EDIT YVES.BSP.PO String(s) found
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
_________ ABEND *Found 4 2009/12/08 2009/12/09 17:05:01 YVES
_________ JCL1 *Found 3 2009/12/09 2011/04/15 15:15:07 YVES
_________ JCL4 *Found 10 2009/12/09 2011/04/15 15:15:16 YVES
_________ M9 *Found 36 2009/12/07 2011/04/15 15:15:30 YVES
**End**
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 41
Filter Member list . Member List generic Search/Display Enhanced: New FILTER Primary Command FILTER [field op val]
Window Option Panel op = EQ, NE, LE, LT, GE, GT REFresh Command to Reset Filter
+--------------------------------------------------------+
| Member List Filter |
| |
| Select field and operator then enter a value |
| to set a member list filter. |
| |
| Field Operator |
| _ 1. Name _ 1. EQ (equal) |
| 2. Lib 2. NE (not equal) |
| 3. VV 3. LE (less or equal) |
| 4. MM 4. GE (greater or equal) |
| 5. Created 5. LT (less) |
| 6. Changed 6. GT (greater) |
| 7. Size |
| 8. Initial |
| 9. MOD |
| 10. Userid |
| |
| Value ___________________ |
| |
+--------------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 42
DSLIST – List von Datasets Menu RefList RefMode Utilities Help
------------------------------------------------------------------------------
Data Set List Utility
Option ===>
blank Display data set list P Print data set list
V Display VTOC information PV Print VTOC information
Enter one or both of the parameters below:
Dsname Level . . . YVESUSR.Y*________________________________________
Volume serial . .
Data set list options
Initial View . . . 1 1. Volume Enter "/" to select option
2. Space / Confirm Data Set Delete
3. Attrib / Confirm Member Delete
4. Total / Include Additional Qualifiers
/ Display Catalog Name
/ Display Total Tracks
/ Prefix Dsname Level
DSLIST - Data Sets Matching YVESUSR.Y* Row 1 of nn
Total Tracks: 656 non-x: 656 Data Sets: 4 non-x: 4
-------------------------------------------------------------------------------
Command - Enter "/" to select action Message Volume
Tracks % XT Device Dsorg Recfm Lrecl Blksz Created Referred
Catalog
-------------------------------------------------------------------------------
YVESUSR.YCOS.CNTL VOL001
652 49 2 3390 PO FB 80 27920 2004/10/27 2008/11/26
SYS1.UCAT.YCAT1
PF10
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 43
Search Member in Dataset List . Dataset List – DSLIST – 3.4 new Primary Command – Search Members in Dataset List: MEMBER memname [X|NX] [RECALL1|RECALL2] MEMBER – MEM – M memname: could be generic X|EX: only excluded Lines NX: only non-excluded Lines RECALL1: Recall only Datasets Migrated to DASD RECALL2: Recall all Migrated Datasets
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 44
Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.CNTL Row 1 of 12
Command ===> M YCOS Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
YVES.YCOS.ALLREXX.PO Y2WORK
YVES.YCOS.CLIST Y2WORK
YVES.YCOS.CLIST.OLD Y00001
YVES.YCOS.CLIST.RXFIELDW.XMIT Y2WORK
YVES.YCOS.CLIST.SAVE Y2WORK
YVES.YCOS.CLIST.T Y3WORK
YVES.YCOS.CLIST.XMIT Y3WORK
YVES.YCOS.CLIST.YCLOGMRX.XMIT Y2WORK
YVES.YCOS.CNTL Y2WORK
YVES.YCOS.CNTL.TRANS Y3WORK
YVES.YCOS.CNTL.TRANS.XMIT Y2WORK
YVES.YCOS.CNTL.XMIT Y3WORK
***************************** End of Data Set list ****************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 45
Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.CNTL Member(s) found
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
YVES.YCOS.CLIST.SAVE Member: YCOS Y2WORK
YVES.YCOS.CLIST.T Y3WORK
YVES.YCOS.CLIST.XMIT Migrated MIGRAT2
YVES.YCOS.CLIST.YCLOGMRX.XMIT Y2WORK
YVES.YCOS.CNTL Member: YCOS Y2WORK
YVES.YCOS.CNTL.TRANS Y3WORK
YVES.YCOS.CNTL.TRANS.XMIT Y2WORK
YVES.YCOS.CNTL.XMIT Migrated MIGRAT2
***************************** End of Data Set list ****************************
PF1 *---------------------------------------------------------------------------*
| Member YCOS found in 2 data sets. 2 migrated data sets were not |
| searched. |
*---------------------------------------------------------------------------*
Member found
Not searched Because Migrated
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 46
Search Content in Dataset List Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.CNTL Row 1 of 4
Command ===> SRCHFOR HUGO Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
YVES.YCOS.CNTL Y2WORK
YVES.YCOS.CNTL.TRANS Y3WORK
YVES.YCOS.CNTL.TRANS.XMIT Y2WORK
YVES.YCOS.CNTL.XMIT Y3WORK
***************************** End of Data Set list ****************************
+------------------------------------------+
| ****** SuperC Search-for invoked. ****** |
+------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 47
SRCHFOR result
Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.CNTL String(s) found
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
YVES.YCOS.CNTL String(s) found Y2WORK
YVES.YCOS.CNTL.TRANS Y3WORK
YVES.YCOS.CNTL.TRANS.XMIT Y2WORK
YVES.YCOS.CNTL.XMIT String(s) found Y3WORK
***************************** End of Data Set list ****************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 48
DSLIST SRCHFOR without parameter Menu Options View Utilities Compilers Help
+--------------------------- DSLIST Srchfor Options ---------------------------+
! !
! Command ===> !
! !
! You are about to search multiple data sets. !
! Specify search string(s) and options and press ENTER to run the search. !
! Enter the END or the CANCEL command to cancel the search. !
! More: + !
! ==> HUGO !
! ==> !
! ==> !
! ==> !
! ==> !
! ==> !
! !
! Listing DSN: 'YVES.SRCHDSL.LIST' !
! !
! Select Process Search Search Select Display !
! Options with / Migrated Excluded Options with / !
! Mixed Mode 1 1. None 3 1. Excluded View output !
! Any case 2. First level 2. Non-excluded / Exclude not !
! Totals only 3. All 3. Both found !
+------------------------------------------------------------------------------+
Exclude datasets without match
from display
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 49
Search/SuperCompare Content in Dataset List SearchFor and SearchFor Extended (3.14 and 3.15) SF [B|V|E] [string] SFE [B|V|E] [string] (B|V|E: Browse, View or Edit results – Default Member List)
SuperC and SuperCE SC [NDSN(/) NVOL(new vol) ODSN(old ds) OVOL(old vol) M(member mask)
PROMPT] SCE [NDSN(/) NVOL(new vol) ODSN(old ds) OVOL(old vol) M(member mask)
PROMPT]
Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.ADDRESS.SPACES.O* Row 1 of 1
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
sc odsn(comp.test).ADDRESS.SPACES.ONLY Y1WORK
***************************** End of Data Set list ****************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 50
Compare Output!
VIEW YVES.SUPERC.LIST Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 1 ISRSUPC - MVS/PDF FILE/LINE/WORD/BYTE/SFOR COMPARE UTILITY- ISPF
000002 NEW: YVES.YCOS.ADDRESS.SPACES.ONLY OLD: YVES.
000003
000004 LISTING OUTPUT SECTION (LINE COMPARE)
000005
000006 ID SOURCE LINES
000007 ----+----1----+----2----+----3----+----4----+----5----+----6----+--
000008 ASCHINT ASCHINT IEFPROC OWT I A=001B PER=NO SMC=000
000009 ASCHINT ASCHINT IEFPROC OWT I A=0037 PER=NO SMC=000
000010 ASCHINT ASCHINT IEFPROC OWT I A=0038 PER=NO SMC=000
000011 ASCHINT ASCHINT IEFPROC OWT I A=0039 PER=NO SMC=000
000012 ASCHINT ASCHINT IEFPROC OWT I A=003A PER=NO SMC=000
000013 ASCHINT ASCHINT IEFPROC OWT I A=003B PER=NO SMC=000
000014 ASCHINT ASCHINT IEFPROC OWT I A=003C PER=NO SMC=000
000015 ASCHINT ASCHINT IEFPROC OWT I A=003D PER=NO SMC=000
000016 ASCHINT ASCHINT IEFPROC OWT I A=003E PER=NO SMC=000
000017 ASCHINT ASCHINT IEFPROC OWT I A=003F PER=NO SMC=000
000018 I - ASCHINT ASCHINT IEFPROC OWT I A=0040 PER=NO SMC=000
000019 I - ASCHINT ASCHINT IEFPROC OWT I A=0041 PER=NO SMC=000
000020 ASCHINT ASCHINT IEFPROC OWT I A=0042 PER=NO SMC=000
000021 ASCHINT ASCHINT IEFPROC OWT I A=0043 PER=NO SMC=000
000022 ASCHINT ASCHINT IEFPROC OWT I A=0044 PER=NO SMC=000
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 51
Allocate Like in Dataset List
AL – Allocate Like – DSLIST: . New DSLIST line command – same dialog as CREate in Edit: AL [datasetname]
Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.C* Row 1 of 7
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
Al my.like.ds.YCOS.CATALOG.DIAG VOL001
YVES.YCOS.CATALOG.ICF.DIAGLIST VOL001
+-----------------------------------------------------------------------+
| Allocate Target Data Set |
| Command ===> |
| |
| Specified data set YVES.MY.LIKE.DS |
| does not exist. |
| If you wish to allocate this data set, select one of the options |
| below. |
| |
| Allocation Options: |
| 1. Allocate using the attributes of: |
| YVES.YCOS.CATALOG.DIAG |
| 2. Specify allocation attributes |
| |
| Use existing SMS attributes for option 1 |
| |
| Instructions: |
| Press ENTER to allocate data set. |
| Enter CANCEL or END to cancel allocation. |
+-----------------------------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 52
Dataset List Block Commands . "like" SDSF – for Line Commands, REXX, Clist... . Handling of Excluded Lines is controlled by Options->DSLIST Settings...-> Execute Block Commands for excluded Data Sets //cmd dataset.1
dataset.2
// dataset.3 Menu Options View Utilities Compilers Help
------------------------------------------------------------------------------
DSLIST - Data Sets Matching YVES.YCOS.C* Row 1 of 7
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
//d YVES.YCOS.CATALOG.DIAG VOL001
YVES.YCOS.CATALOG.ICF.DIAGLIST VOL001
YVES.YCOS.CATALOG.VVDS.LIST VOL001
- - - - - - - - - - - - 1 data set(s) not displayed
YVES.YCOS.CLIST Y00001
YVES.YCOS.CLISTX Y00001
// YVES.YCOS.CNTL VOL002
***************************** End of Data Set list ****************************
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 53
DSLIST – List of Datasets DSLIST YCOS.AD*
DSLIST - Data Sets Matching YVES.YCOS.AD*
Command ===>
Command - Enter "/" to select action
------------------------------------------
YVES.YCOS.ADDRESS.SPACES
YVES.YCOS.ADDRESS.SPACES.ONLY
DSLIST 'YVES.**.ONLY' DSLIST - Data Sets Matching YVES.**.ONLY
Command ===>
Command - Enter "/" to select action
-----------------------------------------
YVES.YCOS.ADDRESS.SPACES.ONLY
APPEND 'SYS1.PARM*' DSLIST - Data Sets Matching YVES.**.ONLY
Command ===>
Command - Enter "/" to select action
-----------------------------------------
SYS1.PARMLIB
SYS1.PARMLIB.YCOS
YVES.YCOS.ADDRESS.SPACES.ONLY
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 54
UDLIST – List for USS Path
. Dataset List for USS Path – UDLIST (3.17) Same function as “DSLIST” for USS Path UDLIST [list_name | pathname]
Same commands and usage as DSLIST Attention: some ISPF Panels upper case the input data! (UDLIST /u/yves... from 2.1 try to lowercase all)
ISPF 3.4 – create reference list
Menu RefList RefMode Utilities Help
------------------------------------------------------------------------------
Data Set List Utility
Option ===>
blank Display data set list P Print data set list
V Display VTOC information PV Print VTOC information
Enter one or both of the parameters below:
Dsname Level . . .
Volume serial . .
Data set list options
Initial View Enter "/" to select option
1 1. Volume / Confirm Data Set Delete
2. Space / Confirm Member Delete
3. Attrib / Include Additional Qualifiers
4. Total / Display Catalog Name
Display Total Tracks
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 55
Select Option 2 – List of Personal Data Set Lists
Menu RefList RefMode Utilities Help
----- +------------------------------------------------+ ---------------------
! 2 1. Current Personal Data Set List (TOOOL) !
Optio ! 2. List of Personal Data Set Lists !
+------------------------------------------------+
blank Display data set list P Print data set list
V Display VTOC information PV Print VTOC information
Enter one or both of the parameters below:
Dsname Level . . .
Volume serial . .
Data set list options
Initial View Enter "/" to select option
1 1. Volume / Confirm Data Set Delete
2. Space / Confirm Member Delete
3. Attrib / Include Additional Qualifiers
4. Total / Display Catalog Name
Display Total Tracks
When the data set list is displayed, enter either:
"/" on the data set list command field for the command prompt pop-up,
an ISPF line command, the name of a TSO command, CLIST, or REXX exec, or
"=" to execute the previous command.
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 56
Current List of Personal Data Set Lists
File View Options Help
------------------------------------------------------------------------------
Active: TOOOL Personal Data Set Lists List 1 of 18
Command ===> Scroll ===> PAGE
Action: O=Open A=Save As D=Delete E=Edit L=DSLIST U=UDLIST
Name Description Created Referenced
_ TOOOL 10/11/23 11/02/09 20:27
_ BSP1 asdlfaslkdjfalskdjfaslkjf 10/11/23 10/11/23 14:51
_ MAC 10/03/16 10/11/23 14:47
_ SF 10/02/01 10/11/06 12:49
_ U1 09/10/22 10/12/06 20:44
_ CL clist 05/01/26 09/02/04 14:15
_ CN JCL 05/07/18 09/02/12 14:08
_ DUMP 06/07/20 10/10/04 22:30
_ FZ 05/10/01 06/07/17 15:47
_ JES2 06/07/17 10/03/09 19:00
_ PARM 04/05/28 11/03/02 13:07
_ PROC 04/05/28 11/02/09 20:30
_ REFLIST Last 30 referenced data sets 11/03/14 21:12
_ SR 09/10/22 11/03/02 13:07
_ TS Tsystems 04/06/01 09/10/13 13:28
_ TTT 06/08/31 08/11/26 21:15
_ YC 04/05/17 04/07/27 16:23
_ YVT 08/12/15 08/12/15 21:03
**End**
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 57
Select: File -> New List – Option 1
File View Options Help
+------------------+ ---------------------------------------------------------
! 1 1. New List ! Personal Data Set Lists List 1 of 18
! 2. Open ! Scroll ===> PAGE
! 3. Save As... !
! 4. Delete... ! e As D=Delete E=Edit L=DSLIST U=UDLIST
! 5. Edit !
! 6. DSLIST ! Description Created Referenced
! 7. UDLIST ! 10/11/23 11/02/09 20:27
! 8. Exit ! asdlfaslkdjfalskdjfaslkjf 10/11/23 10/11/23 14:51
+------------------+ 10/03/16 10/11/23 14:47
_ SF 10/02/01 10/11/06 12:49
_ U1 09/10/22 10/12/06 20:44
_ CL clist 05/01/26 09/02/04 14:15
_ CN JCL 05/07/18 09/02/12 14:08
_ DUMP 06/07/20 10/10/04 22:30
_ FZ 05/10/01 06/07/17 15:47
_ JES2 06/07/17 10/03/09 19:00
_ PARM 04/05/28 11/03/02 13:07
_ PROC 04/05/28 11/02/09 20:30
_ REFLIST Last 30 referenced data sets 11/03/14 21:12
_ SR 09/10/22 11/03/02 13:07
_ TS Tsystems 04/06/01 09/10/13 13:28
_ TTT 06/08/31 08/11/26 21:15
_ YC 04/05/17 04/07/27 16:23
_ YVT 08/12/15 08/12/15 21:03
**End**
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 58
Create a new list with all “needed” USS directories
File View Options Help
------------------------------------------------------------------------------
Personal Data Set List New list
Command ===>
Enter a list action to perform or select a data set entry to retrieve.
Action: S=Save A=Save As D=Delete this list E=Extended Edit L=DSLIST U=UDLIST
Action Name Description Created Referenced
More: +
Select Data Set, DSLIST Level or z/OS UNIX file Volume WS
/u
/etc
/bin/IBM
/usr/lpp/perl
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 59
Save the list using the “A” Save as option and give a name to your list and a description
+-------------------------------------------------+
| Personal Data Set List Save As |
| |
| List . . . . . MUSS |
| |
| Description . . My USS List |
| |
| |
| Enter a new list name and optionally a list |
| description. |
| |
| Press ENTER to save, EXIT to cancel Save as. |
| |
| |
| |
| |
+-------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 60
The UDLIST primary command can be used on any ISPF panel
Menu RefList RefMode Utilities Workstation Help
------------------------------------------------------------------------------
View Entry Panel
Command ===> UDLIST
ISPF Library:
Project . . . YVES
Group . . . . YCOS . . . . . . . . .
Type . . . . CNTL
Member . . . (Blank or pattern for member selection list)
Other Partitioned, Sequential or VSAM Data Set, or z/OS UNIX file:
Name . . . . . +
Volume Serial . . (If not cataloged)
Workstation File:
File Name . .
Options
Initial Macro . . . . / Confirm Cancel/Move/Replace
Profile Name . . . . . Browse Mode
Format Name . . . . . View on Workstation
Data Set Password . . / Warn on First Data Change
Record Length . . . . Mixed Mode
View ASCII data
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 61
All defined Dataset Lists will be shown and two options are available: - Enter a path name - Select an entry from the dataset list
Menu RefList RefMode Utilities Workstation Help
+------------------------------------------------------------------------------+
! Personal Data Set Lists for UDLIST List 1 of 19 !
! Command ===> Scroll ===> PAGE !
! !
! Specify the pathname for a z/OS UNIX directory: !
! Name . . . . . + !
! !
! Or select a personal data set list as a filter for UDLIST: !
! !
! Name Description Created Referenced !
! . MUSS My USS List 11/03/14 11/03/14 21:19 !
! . TOOOL 10/11/23 11/02/09 20:27 !
! . BSP1 asdlfaslkdjfalskdjfaslkjf 10/11/23 10/11/23 14:51 !
! . MAC 10/03/16 10/11/23 14:47 !
! . SF 10/02/01 10/11/06 12:49 !
! . U1 09/10/22 10/12/06 20:44 !
! . CL clist 05/01/26 09/02/04 14:15 !
! . CN JCL 05/07/18 09/02/12 14:08 !
! . DUMP 06/07/20 10/10/04 22:30 !
+------------------------------------------------------------------------------+
Data Set Password . . / Warn on First Data Change
Record Length . . . . Mixed Mode
View ASCII data
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 62
Selecting MUSS will show the wanted directories! What for a fast USS directory selection entry
Menu Utilities View Options Help
-------------------------------------------------------------------------------
z/OS UNIX Directory List List 1 of 4
Command ===> Scroll ===> CSR
List . . . : MUSS
Command Pathname Message Type Permission
-------------------------------------------------------------------------------
/bin/IBM Dir rwxr-xr-x
/etc Syml rwxrwxrwx
/u Dir rwxr-xr-x
/usr/lpp/perl Dir rwxr-xr-x
**End**
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 63
On all ISPF panels you can call UDLIST and give the name of the wanted list
Menu RefList RefMode Utilities Workstation Help
------------------------------------------------------------------------------
View Entry Panel
Command ===> UDLIST MUSS
ISPF Library:
Project . . . YVES
Group . . . . YCOS . . . . . . . . .
Type . . . . CNTL
Member . . . (Blank or pattern for member selection list)
Other Partitioned, Sequential or VSAM Data Set, or z/OS UNIX file:
Name . . . . . +
Volume Serial . . (If not cataloged)
Workstation File:
File Name . .
Options
Initial Macro . . . . / Confirm Cancel/Move/Replace
Profile Name . . . . . Browse Mode
Format Name . . . . . View on Workstation
Data Set Password . . / Warn on First Data Change
Record Length . . . . Mixed Mode
View ASCII data
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 64
What is happening in my edit macro . new Edit Macro "debugging-Tool" Program ISREMSPY show the "Data"
Command: (TL) = LINE 19 ISREMSPY LINE 0 OF 19
----------------------------------------------------------------------------
EDIT YCOSUSR.YCOS.CNTL(YZOS12M) - 01.01 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000001 /* REXX Beispiel Copyright YCOS Yves Colliard Software 2005 */
000002 /* Usage of ISREMSPY - Edit Macro Spy */
000003 ADDRESS ISREDIT "MACRO"
000004 Address ISPEXEC "CONTROL ERRORS RETURN"
000005 Address ISREDIT "(TLINE) = LINENUM .ZLAST"
000006 /* */
000007 do i = 1 to tline
000008 Address ISREDIT "(xstat) = XSTATUS "i
000009 if xstat = "NX" then do
000010 Address ISREDIT "(tl) = line "i
000011 if i=19 then do
000012 address tso "ISREMSPY"
000013 outit="' ---> YCOS was here - Bonjour Yves <---'"
000014 Address ISREDIT "LINE_AFTER" i-1 "= DATALINE" outit
000015 address tso "ISREMSPY"
000016 i=i+1
000017 end
000018 end
000019 end
Last ISREDIT
Command
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 65
Command: LINE_AFTER 18 = DATALINE ' ---> YCOS ISREMSPY LINE 0 OF 20
----------------------------------------------------------------------------
EDIT YCOSUSR.YCOS.CNTL(YZOS12M) - 01.01 Columns 00001 00072
Command ===> Scroll ===> PAGE
****** ***************************** Top of Data ******************************
000001 /* REXX Beispiel Copyright YCOS Yves Colliard Software 2005 */
000002 /* Usage of ISREMSPY - Edit Macro Spy */
000003 ADDRESS ISREDIT "MACRO"
000004 Address ISPEXEC "CONTROL ERRORS RETURN"
000005 Address ISREDIT "(TLINE) = LINENUM .ZLAST"
000006 /* */
000007 do i = 1 to tline
000008 Address ISREDIT "(xstat) = XSTATUS "i
000009 if xstat = "NX" then do
000010 Address ISREDIT "(tl) = line "i
000011 if i=19 then do
000012 address tso "ISREMSPY"
000013 outit="' ---> YCOS was here - Bonjour Yves <---'"
000014 Address ISREDIT "LINE_AFTER" i-1 "= DATALINE" outit
000015 address tso "ISREMSPY"
000016 i=i+1
000017 end
000018 end
000019 ---> YCOS was here - Bonjour Yves <---
000020 end
Last ISREDIT
Command
and
the result
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 66
What is happening in my panel
. Panel Services Tracing Help development and debugging
Services Calls: DISPLAY, TBDISPL, PQUERY
Table Processing: )ABCINIT, )ABCPROC, )INIT, )REINIT, and )PROC
ISPDPTRC Command Start and Control Trace Stop Trace View Trace
Data written to ISPDPTRC DD dynamically allocated – LRECL 255 and RECFM VB start or stop and view trace ISPDPTRC
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 67
start or stop and view trace ISPDPTRC do not display start and termination messages [QUIET] control of amount of trace [DSP|DISPLAY(None | In | Out | Both) ] [READ(None | Summary | Detail) ] [SVC|SERVICE(None | Detail) ] selection/filtering [PNL|PANEL(* | panel_name | panel_mask) ] [SCR|SCREEN(0 | * | screenid)] [SECT|SECTION(* | All | None | [Init] [Reinit] [Proc] | [NOInit] [NOReinit] [NOProc]) ] end trace and/or optionally view trace [VIEW] [END]
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 69
What is happening in my skeleton . File Tailoring Services Tracing Help development and debugging
Services Calls: FTOPEN, FTINCL, FTCLOSE and FTERASE
File Tailoring Processing and Skeleton Statements
ISPFTTRC Command Start and Control Trace Stop Trace View Trace
Data written to ISPFTTRC DD dynamically allocated – LRECL 255 and RECFM VB start or stop and view trace ISPFTTRC
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 70
start or stop and view trace ISPFTTRC do not display start and termination messages [QUIET] control of amount of trace [READ(None | Summary | Detail) ] [SVC|SERVICE(None | Detail) ] [TBV|TBVARS(None | Detail) ] selection/filtering [SKL|SKEL|SKELETON(* | skel_name | skel_mask) ] [SCR|SCREEN(0 | * | screenid)] [REC|RECORDS(* | All | None | [Src|Source] [Data] [Cntl] | [NOSrc] [NOData] [NOCntl]) ] end trace and/or optionally view trace [VIEW] [END]
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 71
User Line Commands – YCLMACRX
. IBM has integrated LMAC – edit line commands – within ISPF
the supported line commands have to be defined using ISPF Table Utility – 3.16 (or Site-Wide customization) a new option has to be selected / Table is an EDIT line command table
6 options will have to be given: User Command – name of the line command (1-6 chars)
Macro – name of the Rexx or program to get control Program Macro – N=Rexx (or Clist) Y=program
Block Format – Y=block commands are supported (like: rr – rr)
Multi Line – Y=many lines as target (like: r9)
Dest Used – Y=a destination line is needed (like: c -> a)
the command table has to be given on Edit Line Command Table . . ________
USE IT!! EXTEND IT!! HAVE FUN!! Download from www.ycos.de (or write yourself)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 72
YCLMACRX line commands – H/Help – TSO YCLMACRX H ==>> Show help
HELP ==>> Show help
Help from outside - TSO YCLMACRX
----------- Text Commands
RV ==>> Reverse the line text
CE ==>> Center the line text
AL ==>> Align Left the line text
AR ==>> Align Right the line text
AU ==>> Align Up the line text as the previous line
if JCL found - alignment based on:
Ref Line "JCL Comment -> column 15
Ref Line "// " -> first parameter statement
if more than 16 -> use column 15
else "//D1 DD DSN=" -> third parameter statement
if more than 16 -> use column 15
AD ==>> Align Down the line text as the next line
if JCL found - alignment based on:
Ref Line "JCL Comment -> column 15
Ref Line "// " -> first parameter statement
if more than 16 -> use column 15
else "//D1 DD DSN=" -> third parameter statement
if more than 16 -> use column 15
YX ==>> Hex one line as note (native support 1.11!)
CL ==>> Compare lines
the selected line and the next line will be compared
differences will be shown with an infoline - sample:
THIS IS MY FIRST LINE WITH SOME HEX AND OTHER DATA
! <---> ! ! ! <>
THIX IS MY OTHER LINE WITH SOME HEX AND XTHER ADTA
single character difference with a !
many characters with <----> or <>
CM ==>> Comment/uncomment lines
if JCL try to toggle // and //comment
else create a before/after comment a la rexx
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 73
----------- Dataset Commands
Analyse the line to find a dataset
Make a difference if JCL or not
JCL search DSN= and JCLLIB ORDER= and PATH=
For JCL which is not DSN or JCLLIB (e.g. PROC)
support dataset in parameter=dataset
If not JCL search a nn.nn.nn
If more than one nn.nn.nn in line process first
or nn.nn.nn pointed to by cursor position.
E ==>> Edit the dataset
V ==>> View the dataset
REV ==>> View the dataset with REVIEW (also VSAM)
Support has to be activated and REVIEW installed!
DA ==>> Dataset allocation like - JCL and TSO Allocate
DI ==>> DSINFO the dataset
DL ==>> LISTCAT the dataset
DS ==>> DSLIST the dataset 3.4
DXn ==>> DSLIST first n Qualifiers 3.4
DM ==>> MemberList 3.1
LD ==>> Execute the RACF LISTDSD/LD Command
DH ==>> HSM List command - Display HSM Migrate/Backup
data and give the possibility to
HRECALL or HRESTORE
the selected data - using the EX Line Command
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 74
----------- Other Commands
EX ==>> Execute the cmd line - as a tso cmd
Output will be displayed using ISPF VIEW
TSO is default and has not to be given!
the lines can be continued with a + or a ,
for example with following lines
+----------------------------------------------------+
! execute the command under TSO !
! !
! EX0002 lista st h !
! 000003 listc ent('a.very.imp.ds') all !
! 000004 listc ent('a.very.imp.ds') all !
! 000005 tso listc, !
! 000006 ent('a.very.imp.ds')+ !
! 000007 all !
+----------------------------------------------------+
EX ==>> Execute the cmd line - as a SDSF command like /...
Output will be displayed using ISPF VIEW
the lines can be continued with a + or a ,
for example with following lines
+----------------------------------------------------+
! execute the command under SDSF !
! !
! 000001 sdsf d a !
! 000002 sdsf d xcf,str !
! EX0003 sdsf d prog, + !
! 000004 lpa, + !
! 000005 mod=iefbr14 !
+----------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 75
EX ==>> Execute the cmd line - as an EJES command like /...
Output will be displayed using ISPF VIEW
the lines can be continued with a + or a ,
for example with following lines
+----------------------------------------------------+
! execute the command under EJES (c) !
! !
! 000001 ejes d a !
! 000002 ejes d xcf,str !
! EX0003 ejes d prog, + !
! 000004 lpa, + !
! 000005 mod=iefbr14 !
+----------------------------------------------------+
EX ==>> Execute the cmd line - as a UNIX command like Shell
the command can also be run as a Superuser - if
authority is given - using the UNIXSU prefix
Output will be displayed using ISPF VIEW
the lines can be continued with a + or a ,
!!! but here not a directory !!!
for example with following lines
+----------------------------------------------------+
! execute the command under Unix USS !
! !
! 000018 unix ls !
! 000019 unixsu ls !
! EX0020 unixsu mkdir -m 755 /u/AUTH !
! 000021 unix mkdir -m 755 /u/NOTAUTH !
! 000022 unix ls -l /u/PFA !
! 000023 unix ls -l + !
! 000024 /u !
+----------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 76
Since version 2.11 you can use the
unixenv and unixsuenv
to run the command using the same environment
variables like you would have starting the command
under the OMVS Shell
- this will cost some more overhead!
- the used environment variables will be listed at
the end of the display
for example with following lines
+----------------------------------------------------+
! execute the command under Unix USS !
! using the environment variables !
! !
! 000018 unixenv javac mypgm.java !
+----------------------------------------------------+
+----------------------------------------------------+
! execute the command under Unix USS !
! using the environment variables !
! and setting own environment variables !
! Syntax: !
! first line only: unixenv + !
! second line eyecatcher: env_variable_start !
! many lines with environment variables !
! eyecatcher: env_variable_end !
! command line (with continuation if needed) !
! !
! 000167 unixenv + !
! 000168 env_variable_start !
! 000169 PATH=/usr/lpp/dfsms/bin !
! 000170 env_variable_end !
! 000171 confighfs + !
! 000172 -l !
+----------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 77
EX ==>> Execute the cmd line - as a UDLIST 3.17 command
the lines can be continued with a + or a ,
for example with following lines
+----------------------------------------------------+
! display the path using UDLIST - 3.17 !
! !
! 000039 udlist /u !
! 000040 udlist /u/zfs/YVES !
! EX0041 udlist /u/zfs + !
! 000042 /YVES + !
! 000043 /DIR !
+----------------------------------------------------+
EX ==>> Execute the cmd line - as a Unix FIND for a
directory and show all results with UDLIST 3.17
the lines can be continued with a + or a ,
!!! but here not the directory !!!
for example with following lines
+----------------------------------------------------+
! find and display all directories within !
! first parm is path !
! second parm is directory name (also generic)!
! !
! 000047 ufdir /u o* !
! EX0048 ufdir /u/zfs/YVES *u* !
! 000049 * the directory name CANNOT be continued!!! !
! 000050 ufdir /u/zfs/YVES + !
! 000051 *I* !
+----------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 78
EX ==>> Execute the cmd line - as a Unix FIND for a
file name and show all results with UDLIST 3.17
the lines can be continued with a + or a ,
!!! but here not the directory !!!
for example with following lines
+----------------------------------------------------+
! find and display all files within given !
! name within a given directoy tree !
! first parm is path !
! second parm is file name (also generic) !
! !
! 000062 uffil /u/zfs/YVES + !
! 000063 *y* !
! 000064 uffil /u/zfs/YVES + !
! 000065 * !
! 000066 * the directory name CANNOT be continued!!! !
! EX0067 uffil /u + !
! 000068 *C* !
+----------------------------------------------------+
EX ==>> External call of the EX function:
TSO YCLMACRX tso lista st h
TSO YCLMACRX sdsf d a,l
TSO YCLMACRX ejes d a,l
TSO YCLMACRX unix ps -le
TSO YCLMACRX unixsu ps -le
TSO YCLMACRX udlist /u/zfs/YVES
TSO YCLMACRX ufdir /u o*
TSO YCLMACRX uffil /u/zfs/YVES *y*
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 79
AE ==>> Ascii -> Ebcdic - simple table
EA ==>> Ebcdic -> Ascii - simple table
JU ==>> JCL Upper Case
Work "like" UC but it will not Uppercase
- jcl comment lines
- sysin (not JCL)
- all quoted data, like PATH=, PARM=...
----------- General Information
H HELP E V DH DI DL DM DS EX CL LD REV
are single line commands
All othes can be given in the forms
CE5
or
CEE
...
CEE
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 80
YCLMACRX – AL – align left YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000105 end
000106 else do
000107 ISupport="CE RV AL AR E EX V DI DL",
000108 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
AL0109 newl="YVES"
000110 end
YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000105 end
000106 else do
000107 ISupport="CE RV AL AR E EX V DI DL",
000108 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
000109 newl="YVES"
000110 end
Get the data on the first column
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 81
YCLMACRX – AU – align up YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000105 end
000106 else do
000107 ISupport="CE RV AL AR E EX V DI DL",
AU0108 newl="YVES"
000109 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
000110 end
YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000105 end
000106 else do
000107 ISupport="CE RV AL AR E EX V DI DL",
000108 newl="YVES"
000109 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
000110 end
AU or AU# or AUU-AUU
Align data on the previous line – up
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 82
EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000078 //SYSOUT DD SYSOUT=*
000079 //SYSPRINT DD SYSOUT=*
000080 //SYSMDUMP DD DSN=YVES.YCOS.SF.DUMP,
AU5081 // DISP=(,CATLG),
000082 // SPACE=(TRK,(15,15),RLSE),
000083 // STORCLAS=SMS,
000084 // RECFM=FB,
000085 // LRECL=4160
000086 //SYSTSIN DD *
****** **************************** Bottom of Data ****************************
EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000078 //SYSOUT DD SYSOUT=*
000079 //SYSPRINT DD SYSOUT=*
000080 //SYSMDUMP DD DSN=YVES.YCOS.SF.DUMP,
000081 // DISP=(,CATLG),
000082 // SPACE=(TRK,(15,15),RLSE),
000083 // STORCLAS=SMS,
000084 // RECFM=FB,
000085 // LRECL=4160
000086 //SYSTSIN DD *
****** **************************** Bottom of Data ****************************
AU or AU# or AUU-AUU – JCL
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 83
YCLMACRX – AD – align down YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000105 end
000106 else do
000107 ISupport="CE RV AL AR E EX V DI DL",
AD0108 newl="YVES"
000109 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
000110 end
YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000105 end
000106 else do
000107 ISupport="CE RV AL AR E EX V DI DL",
000108 newl="YVES"
000109 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
000110 end
AD or AD# or ADD-ADD
Align data on the next line – down
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 84
EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000093 //SYSPRINT DD SYSOUT=*
000094 //SYSMDUMP DD DSN=YVES.YCOS.SF.DUMP,
ADD095 // DISP=(,CATLG),
000096 // SPACE=(TRK,(15,15),RLSE),
000097 // STORCLAS=SMS,
ADD098 // RECFM=FB,
000099 // LRECL=4160
000100 //SYSTSIN DD *
****** **************************** Bottom of Data ****************************
EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000093 //SYSPRINT DD SYSOUT=*
000094 //SYSMDUMP DD DSN=YVES.YCOS.SF.DUMP,
000095 // DISP=(,CATLG),
000096 // SPACE=(TRK,(15,15),RLSE),
000097 // STORCLAS=SMS,
000098 // RECFM=FB,
000099 // LRECL=4160
000100 //SYSTSIN DD *
****** **************************** Bottom of Data ****************************
AD or AD# or ADD-ADD – JCL
Also available – like AU – for JCL
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 85
YCLMACRX – CL – Compare Line YCD THE.COMPA.SAMPL.DATASET.YCOS.DAT(COMPLINE) - 01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
CL0001 THIS IS MY FIRST LINE WITH SOME HEX AND OTHER DATA
000002 THIX IS MY OTHER LINE WITH SOME HEX AND XTHER ADTA
****** **************************** Bottom of Data ****************************
YCD THE.COMPA.SAMPL.DATASET.YCOS.DAT(COMPLINE) - 01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 THIS IS MY FIRST LINE WITH SOME HEX AND OTHER DATA
====== ! <---> ! ! ! <>
000002 THIX IS MY OTHER LINE WITH SOME HEX AND XTHER ADTA
****** **************************** Bottom of Data ****************************
YCD THE.COMPA.SAMPL.DATASET.YCOS.DAT(COMPLINE) - 01 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
hx0001 THIS IS MY FIRST LINE WITH SOME HEX AND OTHER DATA
ECCE4CE4DE4CCDEE4DCDC4ECEC4EDDC4CCE00000000000000CDC4DECCD4CCEC444444444
389209204806992303955069380264508570102030405060715406385904131000000000
------------------------------------------------------------------------------
====== ! <---> ! ! ! <>
hx0002 THIX IS MY OTHER LINE WITH SOME HEX AND XTHER ADTA
ECCE4CE4DE4DECCD4DCDC4ECEC4EDDC4CCE00100000400000CDC4EECCD4CCEC444444444
389709204806385903955069380264508570102030405060715407385901431000000000
------------------------------------------------------------------------------
****** **************************** Bottom of Data ****************************
CL
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 86
YCLMACRX – CM – comment non JCL YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000106 else do
CM3107 ISupport="CE RV AL AR E EX V DI DL",
000108 newl="YVES"
000109 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
000110 end
000111 /* Define the all the */
000112 /* Line-Commands */
000113 CSupport = "CE RV AL AR AU AD CM AE EA"
YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(LM) - 01.00 Columns 00001 00072
Command ===> Scroll ===> CSR
000106 else do
000107 /* Comment Start
000108 ISupport="CE RV AL AR E EX V DI DL",
000109 newl="YVES"
000110 "DS DM DX AU AD CM YX LD HELP H AE EA CL"
000111 Comment End */
000112 end
000113 /* Define the all the */
000114 /* Line-Commands */
000115 CSupport = "CE RV AL AR AU AD CM AE EA"
CM or CM# or CMM-CMM
Create a comment over 3 lines. For 1 line use CM; for a block use CMM – CMM
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 87
YCLMACRX – CM – comment JCL YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
000013 //SYSPRINT DD DSN=YVESCOL.AMBLIST,
CM4014 // DISP=SHR
000015 //* DISP=(,CATLG),
000016 //* SPACE=(TRK,(50,10),RLSE),
000017 //* DCB=(RECFM=VBA,LRECL=137),MGMTCLAS=BAT#NJ
000025 //SYSIN DD *
000026 LISTLOAD OUTPUT=XREF,DDN=LOADLIB,
YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
000013 //SYSPRINT DD DSN=YVESCOL.AMBLIST,
000014 //* DISP=SHR
000015 // DISP=(,CATLG),
000016 // SPACE=(TRK,(50,10),RLSE),
000017 // DCB=(RECFM=VBA,LRECL=137),MGMTCLAS=BAT#NJ
000025 //SYSIN DD *
000026 LISTLOAD OUTPUT=XREF,DDN=LOADLIB,
CM or CM# or CMM-CMM
Within JCL CM (CM# and CMM) will flip/flop comments!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 88
YCLMACRX – E/V – Edit/View YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
E00013 //SYSPRINT DD DSN=YVESCOL.AMBLIST,
000014 // DISP=SHR,
000015 //* DISP=(,CATLG),
000016 //* SPACE=(TRK,(50,10),RLSE),
000017 //* DCB=(RECFM=VBA,LRECL=137),MGMTCLAS=BAT#NJ
000025 //SYSIN DD *
000026 LISTLOAD OUTPUT=XREF,DDN=LOADLIB,
YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
V00013 //SYSPRINT DD DSN=YVESCOL.AMBLIST,
000014 //* DISP=SHR,
000015 // DISP=(,CATLG),
000016 // SPACE=(TRK,(50,10),RLSE),
000017 // DCB=(RECFM=VBA,LRECL=137),MGMTCLAS=BAT#NJ
000025 //SYSIN DD *
000026 LISTLOAD OUTPUT=XREF,DDN=LOADLIB,
E or V
Use E or V to directly Edit or View a dataset
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 89
YCLMACRX – DA – Dataset Allocate like YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
DA0013 //SYSPRINT DD DISP=SHR,DSN=YVES.YCDIAG.LINKLIB
====== >>> Use line command MD (Make Data) to use JCL to allocate
====== //ycosddn DD DSN=YVES.YCDIAG.LINKLIB,
====== // DISP=(,CATLG),
====== // SPACE=(CYL,(42,0,49)),
====== // LRECL=0,RECFM=U,BLKSIZE=32760,DSORG=PO,
====== // UNIT=3390,VOL=SER=Y3WORK,
====== // STORCLAS=SMS,
====== // DSNTYPE=PDS
====== >>> Use line command MD (Make Data) and EX (Execute)
====== ALLOC FI(ycosddn) DA('YVES.YCDIAG.LINKLIB') +
====== NEW CATALOG CYLINDER SPACE(42,0) +
====== DIR(49) LRECL(0) RECFM(U) +
====== BLKSIZE(32760) DSORG(PO) +
====== STORCLAS(SMS) +
====== DSNTYPE(PDS)
====== FREE FI(ycosddn)
For the selected dataset two ways of creating a “clone copy” will be presented: - JCL - TSO ALLOCATE
Using MD (Make Data) the needed solution can be include and used (executed)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 90
YCLMACRX – DI – Dataset Info YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
DI0013 //SYSPRINT DD DSN=YVESCOL.AMBLIST,
====== Data Set Name . . . . : YVESCOL.AMBLIST
======
====== General Data Current Allocation
====== Management class . . : MGMT01 Allocated tracks . : 2
====== Storage class . . . : SCLA05 Allocated extents . : 1
====== Volume serial . . . : VOL001
====== Device type . . . . : 3390
====== Data class . . . . . : DEFAULT Current Utilization
====== Organization . . . : PS Used tracks . . . . : 2
====== Record format . . . : FBA Used extents . . . : 1
====== Record length . . . : 121
====== Block size . . . . : 27951
====== 1st extent tracks . : 2
====== Secondary tracks . : 10
====== Data set name type : SMS Compressible . : NO
======
====== Creation date . . . : 2011/09/16 Referenced date . . : 2011/09/3
====== Expiration date . . : ***None***
====== //ycosddn DD DSN=YVESCOL.AMBLIST,
====== // DISP=(,CATLG),
====== // SPACE=(TRK,(2,10,0)),
====== // LRECL=121,RECFM=FBA,BLKSIZE=27951,DSORG=PS,
====== // UNIT=3390,VOL=SER=VOL001,
====== // MGMTCLAS=MGMT01,STORCLAS=SCAL05,DATACLAS=DEFAULT
The dataset information will be shown. All information are shown as Model and could be changed to information in your member using the MD – Make Data ISPF line command!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 91
YCLMACRX – DL – Dataset Listcat YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
DL0013 //SYSPRINT DD DSN=YVESCOL.AMBLIST
YCD SYS11273.T130035.RA000.YVESCOL.R0287021 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 YCOS LISTCAT: 'YVESCOL.AMBLIST' 30/09/11 13:00:35
000002 ------------------------------------------------------------------------
000003 NONVSAM ------- YVESCOL.AMBLIST
000004 IN-CAT --- ICFCAT.YCOS.CAT
000005 HISTORY
000006 DATASET-OWNER-----(NULL) CREATION--------2011.259
000007 RELEASE----------------2 EXPIRATION------0000.000
000008 ACCOUNT-INFO-----------------------------------(NULL)
000009 SMSDATA
000010 STORAGECLASS ------SCLA1 MANAGEMENTCLASS---MGMT05
000011 DATACLASS -------DEFAULT LBACKUP ---0000.000.0000
000012 VOLUMES
000013 VOLSER------------VOL001 DEVTYPE------X'3010200F' FSEQN--
000014 ASSOCIATIONS--------(NULL)
000015 ATTRIBUTES
****** **************************** Bottom of Data ****************************
DL
Make a listcat all of your dataset
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 92
YCLMACRX – DS – Dataset list DSLIST 3.4 YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
DS0013 //SYSPRINT DD DSN=YVESCOL.AMBLIST
Menu Options View Utilities Compilers Help RZ1/YCD
------------------------------------------------------------------------------
YCD ST - Data Sets Matching YVESCOL.AMBLIST Row 1 of 1
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
YVESCOL.AMBLIST B10175
***************************** End of Data Set list ****************************
DS
Make a dataset list – 3.4 – of the selected dataset.
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 93
YCLMACRX – DX# – Dataset list DSLIST 3.4 YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
DX4020 //LOADLIB DD DISP=SHR,DSN=YCD.SAMPL.YCOSR.LINEMAC.YVES.LOAD
Menu Options View Utilities Compilers Help RZ1/YCD
------------------------------------------------------------------------------
YCD ST - Data Sets Matching YCD.SAMPL.YCOSR.LINEMAC Row 1 of 198
Command ===> Scroll ===> CSR
Command - Enter "/" to select action Message Volume
-------------------------------------------------------------------------------
YCD.SAMPL.YCOSR.LINEMAC.DATA VOL001
YCD.SAMPL.YCOSR.LINEMAC.PERF.MYDAT.YVES.XXX ARCIVE1
YCD.SAMPL.YCOSR.LINEMAC.PERF.MYDAT.YVES.ZZZZ ARCIVE1
YCD.SAMPL.YCOSR.LINEMAC.PERF.MYDAT.YCD.MTEXT VOL001
YCD.SAMPL.YCOSR.LINEMAC.PERF.MYDAT.YCD.OTEXT VOL001
YCD.SAMPL.YCOSR.LINEMAC.PERF.YVES.AV ARCIVE1
YCD.SAMPL.YCOSR.LINEMAC.PERF.YVES.XXX ARCIVE1
YCD.SAMPL.YCOSR.LINEMAC.PERF.YVES.ZZZZ VOL001
DX or DX#
Make a dataset list on the first four qualifiers – DX4 – YCD.SAMPL.YCOSR.LINEMAC
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 94
YCLMACRX – DM – Dataset Member List 3.1 YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
DM0020 //LOADLIB DD DISP=SHR,DSN=YCD.SAMPL.YCOSR.LINEMAC.YVES.LOAD
Menu Functions Confirm Utilities Help RZ1/YCD
------------------------------------------------------------------------------
YCD LIBRARY YCD.SAMPL.YCOSR.LINEMAC.YVES.LOAD Row 00001 of 00010
Command ===> Scroll ===> CSR
Name Prompt Alias-of Size TTR AC AM RM
_________ ISPFHTML 000031C0 00002C 00 31 ANY
_________ LMAC 00006DA0 000025 00 31 24
_________ LO0210BC 0001DEF8 00000B 00 31 ANY
_________ YEULUV 00000008 000004 00 31 ANY
_________ YEULUVE 00000008 000005 00 31 ANY
_________ YEULUVF 00000008 000006 00 31 ANY
_________ YPLI01 000037C8 000029 00 31 ANY
_________ YPLI02 000041D8 00002B 00 31 ANY
_________ YPLI04 00003AB0 00002E 00 31 ANY
_________ YWAIT5 00000078 000012 00 31 ANY
**End**
DM
Make a Member list on the selected dataset
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 95
YCLMACRX – LD – List RACF Dataset EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000087 //PRINT EXEC PGM=IKJEFT01,REGION=0M
LD0088 //STEPLIB DD DISP=SHR,DSN=YVES.YCDIAG.LINKLIB
EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000087 //PRINT EXEC PGM=IKJEFT01,REGION=0M
000088 //STEPLIB DD DISP=SHR,DSN=YVES.YCDIAG.LINKLIB
====== INFORMATION FOR DATASET YVES.YCDIAG.* (G)
======
====== LEVEL OWNER UNIVERSAL ACCESS WARNING ERASE
====== ----- -------- ---------------- ------- -----
====== 00 YVES NONE NO NO
======
====== AUDITING
====== --------
====== FAILURES(READ)
======
====== NOTIFY
====== --------
====== NO USER TO BE NOTIFIED
======
====== YOUR ACCESS CREATION GROUP DATASET TYPE
====== ----------- -------------- ------------
...
LD
Will display output of the RACF Command:
LISTDSD DATASET(dsn) GENERIC ALL DFP HISTORY
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 96
YCLMACRX – DH – Dataset HSM YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
DH0020 //LOADLIB DD DISP=SHR,DSN=YCD.SAMPL.YCOSR.LINEMAC.YVES.LOAD
DH
Will display a formatted output of the HSM Command:
HLIST DSNAME(dsn) BCDS or BOTH (if migrated)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 97
YCLMACRX – EX – Execute TSO Command YCD YCD.SAMPL.YCOSR.LINEMAC.YVES.REXX(AMBLIST) - 01. Columns 00001 00072
Command ===> Scroll ===> CSR
EX0113 listc lev(YVESCOL)
000114 tso +
000115 listc +
000116 lev(YVESCOL)
YCD SYS11273.T130232.RA000.YVESCOL.R0287935 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 YCOS CMD: listc lev(YVESCOL) 30/09/11 13:02:32
000002 ------------------------------------------------------------------------
000003 NONVSAM ------- YVESCOL.AMBLIST
000004 IN-CAT --- ICFCAT.YVES.CAT
000005 NONVSAM ------- YVESCOL.BBPROF
000006 IN-CAT --- ICFCAT.YVES.CAT
000007 NONVSAM ------- YVESCOL.BBSDEF
000008 IN-CAT --- ICFCAT.YVES.CAT
000009 NONVSAM ------- YVESCOL.BBVDEF
000010 IN-CAT --- ICFCAT.YVES.CAT
000011 NONVSAM ------- YVESCOL.BMP.TRACE
000012 IN-CAT --- ICFCAT.YVES.CAT
000013 NONVSAM ------- YVESCOL.B38.TRACE.NEW
000014 IN-CAT --- ICFCAT.YVES.CAT
EX [tso] or TSO YCLMACRX tso cmd
Run the selected TSO command and display result – command continuation is supported (+ and ,)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 98
YCLMACRX – EX SDSF – Execute MVS Command EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000101
000102 * time
EX0103 sdsf d t
000104
000105 * work with exits
000106 sdsf SETPROG EXIT,ADD, +
000107 EX=SYS.IEFUSI, +
000108 MOD=YCDUSI, +
000109 DSN=yves.ycos.linklib
VIEW SYS13227.T124336.RA000.YVES.R0100102 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 Executing: d t
000002 ------------------------------------------------------------------------
000003
000004 ==== 3 Lines of output =================================================
000005 SYSTEMY 2013227 12:43:36.28 ISF031I CONSOLE YVESY ACTIVAT
000006 SYSTEMY 2013227 12:43:36.28 -d t
000007 SYSTEMY 2013227 12:43:36.30 TSU00049 IEE136I LOCAL: TIME=12.43.36
****** **************************** Bottom of Data ****************************
EX sdsf or TSO YCLMACRX sdsf mvscmd
Run the selected MVS, JES… Command as if given under SDSF using Option 6 or / – command continuation is supported (+)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 99
YCLMACRX – EX UNIX – Execute a Unix Command EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000110
EX0111 unix ls
000112 unixsu ls
000113 unixsu mkdir -m 755 /u/AUTH
000114 unix mkdir -m 755 /u/NOTAUTH
000115 unix ls -l /u/PFA
000116 unix ls -l +
000117 /u
VIEW SYS13227.T125458.RA000.YVES.R0100104 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 Executing: ls
000002 Current uid : 0 Current euid: 0
000003 ------------------------------------------------------------------------
000004
000005 Run with following 2 response(s)
000006 YVES
000007 mystd.out
000008
****** **************************** Bottom of Data ****************************
EX unix/unixsu/unixenv/unixsuenv or TSO YCLMACRX unix unixcmd
Run the selected Unix Command as if given under OMVS Shell – command continuation is supported (+)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 100
EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000118
000119 unixenv javac mypgm.java
000120
EX0121 unixenv +
000122 env_variable_start
000123 PATH=/usr/lpp/dfsms/bin
000124 env_variable_end
000125 confighfs +
000126 -l
VIEW SYS13227.T130347.RA000.YVES.R0100110 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 Executing: confighfs -l
000002 Current uid : 0 Current euid: 0
000003 ------------------------------------------------------------------------
000004
000005 Run with following 4 response(s)
000006 HFS Limits
000007 Maximum virtual storage: ______1001(MB)
000008 Minimum fixed storage: _________0(MB)
000011
000012 ========================================================================
000013 13 Environment variable(s) used:
000014 ========================================================================
000015 MAIL=/usr/mail/YVES
000016 PATH=/usr/lpp/Printsrv/bin:/bin:.
000017 SHELL=/bin/sh
000018 PS1=$LOGNAME:$PWD: >
000019 _=/bin/env
...
000027 PATH=/usr/lpp/dfsms/bin
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 101
YCLMACRX – EX UDLIST – Unix 3.17 UDLIST EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000127
000128 udlist /u
ED0129 udlist /u/zfs/YVES
000130 udlist /u/zfs +
000131 /YVES +
000132 /DIR
Menu Utilities View Options Help
-------------------------------------------------------------------------------
z/OS UNIX Directory List Row 1 to 5 of 5
Command ===> Scroll ===> CSR
Pathname . : /u/zfs/YVES
Command Filename Message Type
-------------------------------------------------------------------------------
. Dir
.. Dir
.sh_history File
mystd.out File
YVES Dir
EX udlist or TSO YCLMACRX udlist unix_path
Display the path using UDLIST - 3.17 – command continuation is supported (+)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 102
YCLMACRX – EX UFDIR – Unix find directories EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000133
000134 ufdir /u o*
EX0135 ufdir /u/zfs/YVES *u*
000136 * the directory name CANNOT be continued!!!
000137 ufdir /u/zfs/YVES +
000138 *I*
Menu Utilities View Options Help
-------------------------------------------------------------------------------
z/OS UNIX Directory List List 1 of 2
Command ===> Scroll ===> CSR
List . . . : YYYYMUSS
Command Pathname Message Type Permission
-------------------------------------------------------------------------------
/u/zfs/YVES/YVES/CLIST Dir rwxrwxrwx
/u/zfs/YVES/YVES/SI Dir rwxrwxrwx
**End**
+---------------------------------------------------------+
! 2 directories with name: *I* found from dir /u/zfs/YVES !
+---------------------------------------------------------+
EX ufdir or TSO YCLMACRX ufdir unix_path srch_char find and display all directories within a path with a directory name (also generic) – command continuation is supported (+) but not within directory name
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 103
YCLMACRX – EX UFFIL – Unix find files EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
000139
EX0140 uffil /u/zfs/YVES + 000141 *y*
000142 uffil /u/zfs/YVES +
000143 *
000144 * the directory name CANNOT be continued!!!
Menu Utilities View Options Help
-------------------------------------------------------------------------------
z/OS UNIX Directory List List 1 of 16
Command ===> Scroll ===> CSR
List . . . : YYYYMUSS
Command Pathname Message Type Permission
-------------------------------------------------------------------------------
/u/zfs/YVES/.sh_history File rw-------
/u/zfs/YVES/mystd.out File rwx------
/u/zfs/YVES/YVES/CLIST/YCLMACR File rw-rw-rw-
/u/zfs/YVES/YVES/CLIST/YCLMACR File rw-rw-rw-
/u/zfs/YVES/YVES/CLIST/YCLMACR File rw-rw-rw-
/u/zfs/YVES/YVES/SI/SSISFUNC_2 File rw-rw-rw-
/u/zfs/YVES/YVES/SI/SSISF00F_2 File rw-rw-rw-
/u/zfs/YVES/YVES/SI/SUBTIMER_2 File rw-rw-rw-
...
+--------------------------------------------------------------------------+
! 16 files with name: * found in 5 directories, searching from /u/zfs/YVES !
+--------------------------------------------------------------------------+
EX uffil or TSO YCLMACRX uffil unix_path srch_char Find and display all files within a path with a file name (also generic) – command continuation is supported (+) but not within directory name
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 104
YCLMACRX – JU – JCL Upper Case EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
JUU001 //* ascbs
000002 und das auch
…
000018 // if rc>4 or rc5<7 then comment
000019 // if rc>4 or rc5<7
000020 // or rc>99
000021 // or rc>99 then comment
000022 // exec pgm=hugo,parm='abcdefgh' comm
000023 // exec pgm=hugo,parm='abcdefgh',thatis comm
000024 // exec pgm=hugo,parm='abcdefg
000025 // even more parms',andsome,jcl comm
000026 // dd path='/u/ikj',pathopts='asfd'
000027 // dd path='/u/ikj
000028 // even more ',orthis comm
000029 // dd path='/u/ikj
000030 // even more and more
000031 // even more ',orthis comm
…
000057 //abcde dd path='/u/ikj',pathopts='asfd'
000058 //abcde dd path='/u/ikj
000059 // even more ',orthis comm
000060 //abcde dd path='/u/ikj
000061 // even more and more
000062 // even more ',orthis comm
000063 //abcde dd disp=shr, asdfasdf
000064 //* dsn=sys1.nix
000065 // dsn=sys1.doch und das nicht
000066 //abcde dd disp=shr, asdfasdf
000067 // dsn=sys1.doch und das auch nicht
000068 //* dsn=sys1.nix und das auch nicht
JUU069 // dsn=sys1.doch und das auch nicht
JU or JU# or JUU-JUU
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 105
EDIT YVES.YCOS.CNTL(YTLMAC) - 01.10 Columns 00001 00072
Command ===> Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 //* ascbs
000002 und das auch
…
000018 // IF RC>4 OR RC5<7 THEN comment
000019 // IF RC>4 OR RC5<7
000020 // OR RC>99
000021 // OR RC>99 THEN comment
000022 // EXEC PGM=HUGO,PARM='abcdefgh' comm
000023 // EXEC PGM=HUGO,PARM='abcdefgh',THATIS comm
000024 // EXEC PGM=HUGO,PARM='abcdefg
000025 // even more parms',ANDSOME,JCL comm
000026 // DD PATH='/u/ikj',PATHOPTS='asfd'
000027 // DD PATH='/u/ikj
000028 // even more ',ORTHIS comm
000029 // DD PATH='/u/ikj
000030 // even more and more
000031 // even more ',ORTHIS comm
…
000057 //ABCDE DD PATH='/u/ikj',PATHOPTS='asfd'
000058 //ABCDE DD PATH='/u/ikj
000059 // even more ',ORTHIS comm
000060 //ABCDE DD PATH='/u/ikj
000061 // even more and more
000062 // even more ',ORTHIS comm
000063 //ABCDE DD DISP=SHR, asdfasdf
000064 //* dsn=sys1.nix
000065 // DSN=SYS1.DOCH und das nicht
000066 //ABCDE DD DISP=SHR, asdfasdf
000067 // DSN=SYS1.DOCH und das auch nicht
000068 //* dsn=sys1.nix und das auch nicht
000069 // DSN=SYS1.DOCH und das auch nicht
Make an “intelligent” (programmed ;-) JCL Upper Case
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 106
More information about z/OS 2.1
SWAPBAR / – customize: . Swapbar settings: Separator bar between screen and swapbar colour, highlighting settings saved to profile
+---------------------- ISPF Settings ----------------------+
! SYC3 Tailor SWAPBAR Display !
! !
! / Show SWAPBAR divider line ( enter "/" to select) !
! !
! S to update SWAPBAR, C for current session, !
! D to clear current session !
! !
! Enter first letter of color and hilite to set !
! R color (Blue,Red,Pink,Green,Turquoise,Yellow,White) !
! hilite (None,Blink,Reverse,Underscore) !
! !
! !
! !
+-----------------------------------------------------------+
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 107
Edit/View RESet ALL: . Reset ALL line numbers indicators, like ==CHG>, .label…
HILITE support for JCL lower case: . wrong JCL lower case will be hilited
TSO PARMDD Support: . TSO enhancement for PARMDD support and more than 100 chars parameters
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 108
Member List display support: . Display enhanced from 9.999 to 9.999.999
Old: Menu Functions Confirm Utilities Help
------------------------------------------------------------------------------
LIBRARY YVES.CLIST Row 00001 of 00718
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
_ $$ 1 2010/04/21 2010/04/21 15:48:24 YVES
New 2.1: Menu Functions Confirm Utilities Help
------------------------------------------------------------------------------
LIBRARY YVES.CLIST Row 0000001 of 0000718
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
_ $$ 1 2010/04/21 2010/04/21 15:48:24 YVES
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 109
Extended Member List support for parameter: . a parameter (argument) can be given during the call of a Rexx or Command
Menu Functions Confirm Utilities Help
------------------------------------------------------------------------------
EDIT YVES.CLIST Row 0000001 of 0000718
Command ===> Scroll ===> CSR
Name Prompt Size Created Changed ID
myrexx___ $$ myparm 1 2010/04/21 2010/04/21 15:48:24 YVES
MYREXX: /* rexx MYREXX */
say arg(1)
exit
Output: 'YVES.CLIST($$)' MYPARM
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 110
USS Dataset List enhancements: . New Line commands: EU/VU . New Primary commands: EU/VU, Filter, Srchfor . Enhanced Primary command “/” – like ISPF Option 6 – list of the last commands . “Width of filename column” can be increased to more than 30! New MAX:110 . New Output mode option for USS commands: Browse or View . Block commands – like DSLIST . Enhanced Filenames – using Glob Characters
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 111
UDLIST Line Commands > execute login shell, < execute command, E Edit, B Browse, N Create new Directory, L Directory List, D Delete, R Rename, C|CO Copy Out, CI Copy In, I Information, MM Modify Mode Fields, MX Modify Attributes, X Execute V – View (z/OS 1.9 New!)
RA – Add to Personal Dataset List (z/OS 1.10 New! Attention Case Sensitive!)
EA and VA – Edit and View ASCII Support (z/OS 1.10 New!) AA – Auditor Auditing, UA – User Auditing, FS – File System, MF – Modify Format MG – Modify Group, MO – Modify Owner (z/OS 1.11 New!)
MA – Modify ACL (z/OS 1.13 New!)
EU – Edit UTF-8 (z/OS 2.1 New!)
VU – View UTF-8 (z/OS 2.1 New!)
UDLIST Primary Commands EU – Edit UTF-8 (z/OS 2.1 New!)
VU – View UTF-8 (z/OS 2.1 New!)
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 112
UDLIST Primary Commands FILTER string APPEND|REPLACE (z/OS 2.1 New!) Display only the files matching the string filter APPEND: current filter all files “yves*” FILTER coll APPEND new filter: “yves*coll”
Think about using UDLIST with own reference list names YCLMACRX ex udlist!
UDLIST Primary Commands SRCHFOR [string] (z/OS 2.1 New!) Search for string like in DSLIST – also ASCII
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 113
UDLIST Primary Commands “/” enhanced to support list of last 10 USS commands Like ISPF option 6
Think about using YCLMACRX ex unix
UDLIST Options “Width of filename column” enhanced to support up to 110 characters (previous 30) Size will be reduced by Screen Size Minimum = Screen Size – 50 Change it during a DIRLIST Service (prev. z/OS 2.1!): …
address ispexec
"VGET ZULWFNMC" /* size of filename on display */
sav_zfsz=ZULWFNMC /* if you want to restore! */
ZULWFNMC=40
"VPUT ZULWFNMC"
"DIRLIST PATH(LINE)"
…
“Output mode option” for USS Commands: Browse or View
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 114
UDLIST Line Commands “//” Block Line Command Support Like ISPF DSLIST 3.4
Menu Utilities View Options Help
-------------------------------------------------------------------------------
z/OS UNIX Directory List Row 1 to 10 of 10
Command ===> Scroll ===> CSR
Pathname . : /u/zfs/YVES
Command Filename Message Type
-------------------------------------------------------------------------------
________ . Dir
________ .. Dir
________ .sh_history File
________ mystd.out File
//d_____ YVES1 File
________ YVES2 File
________ YVES3 File
________ YVES4 File
//______ YVES5 File
________ YVES6 File
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 115
UDLIST Filename Masking using Glob Characters Glob characters: ? Match any single character * Match multiple characters [ ] Open/close a set of single characters (each character in the set can match a single character at the position specified)
Glob Characters support on DIRLIST Service
ISPF Retry using lower case on “not found”
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 116
New Encoding option on Edit and View: Menu RefList RefMode Utilities Workstation Help
------------------------------------------------------------------------------
View Entry Panel
Command ===>
ISPF Library:
Project . . . YVES
Group . . . . YCOS . . . . . . . . .
Type . . . . CLIST
Member . . . (Blank or pattern for member selection list)
Other Partitioned, Sequential or VSAM Data Set, or z/OS UNIX file:
Name . . . . . +
Volume Serial . . (If not cataloged)
Workstation File:
File Name . .
Options
Initial Macro . . . . / Confirm Cancel/Move/Replace
Profile Name . . . . . Browse Mode
Format Name . . . . . View on Workstation
Data Set Password . . / Warn on First Data Change
Record Length . . . . Mixed Mode
Line Command Table . . YCLMACTB
Data Encoding (View mode only)
_ 1. ASCII
2. UTF-8
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 117
ASCII – UTF-8 Support COPY, CREATE, MOVE, REPLACE, CUT New option: ASCII or UTF8 PASTE New option: ASIS – no Conversion (from CUT Tagged file) EDIT and VIEW Services New option: ASCII or UTF8 SUBmit WILL always convert to EBCDIC! No HILITING support!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 118
Support for USS File on Dataset List 3.4: Menu RefList RefMode Utilities Help
------------------------------------------------------------------------------
Data Set List Utility
Option ===>
blank Display data set list P Print data set list
V Display VTOC information PV Print VTOC information
Enter one or both of the parameters below:
Dsname Level . . . /u/zfs________________________________________
…
/ = path name ~ = user’s home directory (German ß) . = current working directory .. = parent directory of current directory
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 119
Free of Space for Multi-Volume Datasets: . F (Free) Command on DSLIST 3.4 also for Multi-Volume Datasets No more: Invalid multivolume cmd
Maximum Scroll Amount increased: . now up to 9.999.999 lines (prev. 9.999 UP/DOWN) ZXSMIN and ZXSMAX variables contains the defauts from the ISPF configuration – up to 9.999.999 ZSCROLNL new variable contains scroll amounts up to 9.999.999 (ZSCROLLN only up to 9.999)
also Table Services Services
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 120
COMPare command support Volume: . new VOL(…) Parameter on COMPare command . COMPare Settings (without parameter) has been enhanced name of dataset and options: Exclude, Save, SYSIN, SYSIN Dataset
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 121
TSO Rexx: . LISTDSI new parameters MULTIVOL | NOMULTIVOL space calculation over all volumes RACF | NORACF dataset open for directory information . LISTDSI new variables PDSE SYSALLOCPAGES: number of pages allocated to a PDSE SYSUSEDPERCENT: percentage of pages used within a PDSE Multivolume
SYSNUMVOLS: number of volumes SYSVOLUMES: list of volumes blank separated EAV
SYSCREATETIME: EAV creation time SYSCREATESTEP: EAV creation step SYSCREATEJOB: EAV creation job
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 122
/* REXX LISTDSI Copyright YCOS Yves Colliard Software 1990-2013 */
/*----------------------------------------------------------------*/
/* LISTDSI - List Data Set Informationen */
/*----------------------------------------------------------------*/
/* REXX TSO und MVS Built-In Funktionen */
/*----------------------------------------------------------------*/
/* Syntax: */
/* LISTDSI(dsn [location] [dir] [rec] [sms] [racf] [mult]) */
/* LISTDSI(filen FILE [dir] [rec] [sms] [racf] [mult]) */
/* ===> Result + Variablen */
/* location - VOLUME( ) / PREALLOC */
/* dir - NODIRECTORY / DIRECTORY (Default NODIRECTORY) */
/* rec - RECALL / NORECALL (Default RECALL only from DASD) */
/* sms - NOSMSINFO / SMSINFO (Default NOSMSINFO) */
/* racf - NORACF / RACF (Default RACF) */
/* mult - MULTIVOL / NOMULTIVOL (Default NOMULTIVOL) */
/*================================================================*/
/* */
ds3 = arg(1)
/* */
dscd = LISTDSI(ds3 "DIRECTORY") /* LISTDSI des ds3 Data Sets */
/* DIRECTORY Informationen */
IF dscd = 0 THEN
CALL ausgabe
ELSE DO
SAY "Fehler, beim" ds3 "Data Set" /* LISTDSI nicht erfolgreich */
SAY "Return Code" dscd
SAY "Reason Code" SYSREASON
SAY SYSMSGLVL1
SAY SYSMSGLVL2
END
/* */
EXIT
/* */
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 123
ausgabe:
/* */
SAY "Data Set Name:" SYSDSNAME
SAY " auf Volume:" SYSVOLUME " Unit:" SYSUNIT
SAY " Number of Volumes:" SYSNUMVOLS
SAY " All Volumes:" SYSVOLUMES
SAY " DSORG:" SYSDSORG " RECFM:" SYSRECFM
SAY " LRECL:" SYSLRECL " BLKSIZE:" SYSBLKSIZE " KEYL:" SYSKEYLEN
SAY " "SYSALLOC SYSUNITS "Allocated," SYSUSED SYSUNITS "Used"
SAY " Allocation, primary:" SYSPRIMARY " secondary:" SYSSECONDS
SAY " In" SYSEXTENTS "Extents"
SAY " Created:" SYSCREATE " Referenced:" SYSREFDATE
SAY " Expiration Date:" SYSEXDATE
SAY " "SYSPASSWORD "Password," SYSRACFA "RACF Protection"
SAY " Data Set changed:" SYSUPDATED
SAY " This Unit as" SYSTRKSCYL "Tracks per Cylinder"
SAY " and" SYSBLKSTRK "Blocks per Track"
SAY " Data Set Type:" SYSSEQDSNTYPE
IF SYSDSORG = "PO" THEN DO
SAY " "SYSADIRBLK "Directory Blocks allocated"
SAY " "SYSUDIRBLK "Directory Blocks used"
SAY " "SYSMEMBERS "Members"
SAY " "SYSALLOCPAGES "Number allocated PDSE Pages"
SAY " "SYSUSEDPERCENT "Percent Pages Used PDSE"
END
SAY " Creation Time (EAV):" SYSCREATETIME
SAY " Creation Job (EAV):" SYSCREATEJOB
SAY " Creation Step (EAV):" SYSCREATESTEP
/* */
RETURN
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 124
Multivolume: Data Set Name: YVES.SMFRMF.DUMP
auf Volume: VOL001 Unit: 3390
Number of Volumes: 20
All Volumes: VOL001 VOL002 VOL003 * * * * * * * *
* * * * * * * * *
DSORG: PS RECFM: VBS
…
PDSE: Data Set Name: YVES.YCOS.PDSE
…
DSORG: PO RECFM: FB
…
900 Number allocated PDSE Pages
2 Percent Pages Used PDSE
EAV: Data Set Name: YVES.YCOS.EAV
…
Created: 2013/326 Referenced: 2013/326
…
Creation Time (EAV): 12:17:11
Creation Job (EAV): YVESAEVJ
Creation Step (EAV): STALLEAV
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 125
TSO Rexx – cont.: . EXECIO Enhanced Support for Spanned, Track overflow and Undefined records (load module) . STORAGE Built-in support for 64Bit value can be “_” separated – 70_01234567 . MVSVAR new variable SYSOSSEQ – from ECVTPSEQ
/* REXX MVSVAR Copyright YCOS Yves Colliard Software 1990-2013 */
/* */
SAY "MVS Level: " MVSVAR("SYSMVS")
/* Ausgabe: MVS Level */
/* */
SAY "MVS Level: " MVSVAR("SYSOSSEQ")
/* Ausgabe: MVS Level */
/* */
MVS Level: SP7.2.1
MVS Level: 01.02.01.00
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software Page 126
Thank you! Danke! Merci!
Neues zu ISPF, Highlights der letzten 10 Jahre …
© YCOS Yves Colliard Software
Copyright
YCOS Yves Colliard Software GmbH
Fremersbergstr. 45 D-76530 Baden-Baden
Tel. +49/7221/9708384 Fax 0322 2374 2352
eMail: ycos@ycos.de
Home: http://www.ycos.de
Copyright YCOS Yves Colliard Software GmbH 1990-2014 All rights reserved. Duplication or disclosure only with explicit approval of YCOS Yves Colliard Software GmbH.
top related