Example 1. Change all data sets in a reference member
This example shows issuing an EC command to change a string in all
data sets listed in a reference member.
Enter the EC command.
Menu Utilities Compilers Options Status Help
──────────────────────────────────────────────────────────────────────────────
ISR@PRIM z/OS Primary Option Menu
Option ===> EC ABC DEF /CNTL
0 Settings Terminal and user parameters User ID . : TDORNEY
1 View Display source data or listings Time. . . : 12:37
2 Edit Create or change source data Terminal. : 3278
3 Utilities Perform utility functions Screen. . : 1
4 Foreground Interactive language processing Language. : ENGLISH
5 Batch Submit job for language processing Appl ID . : ISR
6 Command Enter TSO or Workstation commands TSO logon : ISPF
7 Dialog Test Perform dialog testing TSO prefix: TDORNEY
9 IBM Products IBM program development products System ID : FMD2
10 SCLM SW Configuration Library Manager MVS acct. : IBMGSA
11 Workplace ISPF Object/Action Workplace Release . : ISPF 7.1
12 z/OS System z/OS system programmer applications
13 z/OS User z/OS user applications
14 IBMGSA IBMGSA Development and Service Apps
S SDSF SDSF
Enter X to Terminate using log/list defaults
F1=Help F2=Split F3=Exit F7=Backward F8=Forward F9=Swap
F10=Actions F12=retrieve
Press Enter to make a non-immediate change of the data sets defined in the reference member CNTL.
The proposed changes are displayed in the Enhanced Change Report.
File Edit Edit_Settings Menu Utilities Compilers Test Help
───────────────────────────────────────────────────────────────────────────────
Enhanced Change Report Index CNTL Col 00001 00072
Command ===> ________________________________________________ Scroll ===> CSR
****** ***************************** Top of Data ******************************
000001 ------------------------------------------------------------------------
000002 >Data Set: TDORNEY.CNTL
000003 >Member : AA68093
000004 9 // SET IPVLVL=DEF
000005 >Member : CHARS
000006 9 ⧉DEFdefghi®¯Đìçñ
000007 >Member : DITQQ
000008 30 say CHANGE('DEFDEFDEF','DEF','DeF') 'DeFDEFDEF'
000009 31 say CHANGE('DEFDEFDEF','DEF','DeF',2) 'DeFDeFDEF'
000010 32 say CHANGE('DEFDEFDEF','DEF','DeF',0) 'DeFDeFDeF'
000011 33 say CHANGE('DEFDEFDEF','DEF','DeF',,4) 'DEFDeFDEF'
000012 35 say CHANGE('DEFDEFDEF','a',,0) 'bcbcbc'
000013 >Member : EXTFN002
000014 38 SETC(DEF,'A')
000015 42 SETC(DEF,'A')
000016 ┌──────────────────────────────────────────────────────┐
000017 │ 22 line(s) in 8 of 915 Member(s) and 1 of 1 File(s). │
F1=Help └──────────────────────────────────────────────────────┘ 6=Rchange
F7=Up F8=Down F9=Swap F10=Left F11=Right F12=retrieve
Press F3 to exit the report panel.
┌────────────────────────── Change Save Warning ──────────────────────────┐
─ │ FMNPCWRN ==> │
I │ │
O │ │
│ │
0 │ You have NOT saved the changes you have made. Press ENTER to save │
1 │ or PF3/END to cancel changes: │
2 │ │
3 │ Total changes 36 │
4 │ Total members 8 │
5 │ Total files 1 │
│ F1=Help F2=Split F3=Exit F7=Backward F8=Forward │
│ F9=Swap F12=Cancel │
F └─────────────────────────────────────────────────────────────────────────┘