Example 1. Setting up default member first time usage
Menu Utilities Compilers Options Status Help ─ ┌──────────────────────── Enhanced Search Command ────────────────────────┐ ─────────── │ Command ===> │ O │ │ │ String: │ 0 │ DSEB + │ RNEY 1 │ String options Columns │ 06 2 │ 1 Prefix From │ 8 3 │ 2 Suffix To │ 4 │ 3 Word │ LISH 5 │ │ 6 │ Scope: │ F 7 │ Member. Edit │ RNEY 9 │ DDnames + │ 2 1 │ DSNs . + │ GSA 1 │ │ F 7.1 1 │ Options: │ 1 │ Enter "/" to select option ISPF Pack │ 1 │ Directory Drill Result Parmlib Proclib 1. Asis │ S │ Batch Jobcard Edit _ List _ First 2. Skip │ │ F1=Help F2=Split F3=Exit F4=Expand F7=Backward │ │ F8=Forward F9=Swap F10=Left F11=Right F12=Cancel │ └─────────────────────────────────────────────────────────────────────────┘ p F10=Actions F12=retrieve
Menu Utilities Compilers Options Status Help
─ ┌────────────────────────── Allocate data set ──────────────────────────┐ ──
│ Command ===> │
O │ │
│ The data set was not found │
0 │ │
1 │ Data set name DTORNEY.FMNSRCH.INDEX │
2 │ │
3 │ Change the data set name or │
4 │ │
5 │ Press ENTER to allocate a new data set │
6 │ │
7 │ F1=Help F2=Split F3=Exit F7=Backward F8=Forward │
9 │ F9=Swap F12=Cancel │
1 └───────────────────────────────────────────────────────────────────────┘
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=Cancel
File Edit Edit_Settings Menu Utilities Compilers Test Help ─────────────────────────────────────────────────────────────────────────────── EDIT DTORNEY.FMNSRCH.INDEX(DEFAULT) - 01.00 Columns 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** =NOTE= Specify 1 to 4 data set names in the following format: =NOTE= Input_dsn Input_template Output_dsn Output_template =NOTE= Where =NOTE= Input_dsn : Input data set or path name =NOTE= Input_template : Input template (specify - to bypass) =NOTE= Output_dsn : Output data set or path name =NOTE= Output_template: Output template =NOTE= Note: Search only applies to the first data set name on the line. '''''' FMN.P*.CNTL '''''' FMN.R*.CNTL '''''' '''''' '''''' '''''' '''''' '''''' '''''' F1=Help F2=cruise F3=Exit F4=EFind F5=Rfind F6=Rchange F7=Up F8=Down F9=Swap F10=Left F11=Right F12=retrieve
Press F3.
The following figure is a search report showing lines that were found to match the search string, DSEB.
File Edit Edit_Settings Menu Utilities Compilers Test Help ─────────────────────────────────────────────────────────────────────────────── VIEW Enhanced Search Report Index DEFAULT Col 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** 000001 ------------------------------------------------------------------------ 000002 >Data Set: FMN.PI19593.CNTL 000003 >Member : TEST3 000004 25 $$FILEM DSEB INPUT=DD01,NOUPDATE=YES, 000005 >Member : TEST4 000006 19 $$FILEM DSEB INPUT=DD01,NOUPDATE=YES, 000007 ------------------------------------------------------------------------ 000008 >Data Set: FMN.USERXYZ.CNTL 000009 >Member : BATFUN3 000010 31 $$FILEM DSEB NOUPDATE=YES, 000011 >Member : BATFUN4 000012 31 $$FILEM DSEB NOUPDATE=YES, 000013 >Member : BATFUN5 000014 70 $$FILEM DSEB , 000015 >Member : BATFUN6 000016 ┌──────────────────────────────────────────────────────────┐ 000017 │ 231 line(s) in 83 of 1108 Member(s) and 9 of 92 File(s). │ 000018 └──────────────────────────────────────────────────────────┘ 000019 ------------------------------------------------------------------------
If you place the cursor on the data on line 14 and press Enter, you can see FMN.USERXYZ.CNTL(BATFUN5) with the cursor placed on line 70.
File Edit Edit_Settings Menu Utilities Compilers Test Help ─────────────────────────────────────────────────────────────────────────────── VIEW FMN.USERXYZ.CNTL(BATFUN5) - 01.05 Columns 00001 00072 Command ===> Scroll ===> CSR 000070 $$FILEM DSEB , 000071 $$FILEM DSNIN=FMN.USERXYZ.DATAO, 000072 $$FILEM MEMBER=DTTYPE5, 000073 $$FILEM TCIN=FMN.USERXYZ.TEMPLATE.XML(DTTYPE),PROC=* 000074 do until(down(1) = 'EOF') 000075 SELECT 000076 WHEN(TID('REC-TYPE01')) THEN DO; 000077 IF CMP_DATE('START-DATE01',,,'RG','10/02/1996','10/02/1999') THEN 000078 if val_fld('salary01') = 85000 then set_fld('salary01',90000); 000079 if val_fld('salary01') = 75000 then set_fld('salary01',80000); 000080 if val_fld('salary01') = 73000 then set_fld('salary01',78000); 000081 UPDATE() 000082 END; 000083 END 000084 WHEN(TID('REC-TYPE02')) THEN DO; 000085 IF CMP_TIME('BIRTH-TIME02',,,'RG','08:00:00','10:00:00') THEN DO; 000086 if val_fld('salary02') = 85000 then set_fld('salary02',90000); 000087 if val_fld('salary02') = 75000 then set_fld('salary02',80000); 000088 if val_fld('salary02') = 73000 then set_fld('salary02',78000); 000089 UPDATE()
If you place the cursor on line 73 anywhere within the data set name FMN.USERXYZ.TEMPLATE.XML and press F4, the following panel is displayed.
File Edit Edit_Settings Menu Utilities Compilers Test Help ─ ┌─────── FMN.USERXYZ.TEMPLATE.XML ────────┐ ───────────────────────────────── V │ File Manager │ Columns 00001 00072 C │ Edit/View Utility Template │ Scroll ===> CSR 0 │ ───────────────────────────────────── │ 0 │ Command ===> │ 0 │ │ 0 │ 1 View View resource │ 0 │ 2 Edit Edit resource │ TTYPE),PROC=* 0 │ 3 Select Select resource list │ 0 │ 4 Dslist ISPF data set list │ 0 │ 5 Search Nested search │ 0 │ 6 All Show all occurrences │ ,'10/02/1996','10/02/1999') THEN 0 │ 7 First Find first occurrence │ 5000 0 │ 8 Prev Find previous occurrence │ 0 │ 9 Next Find next occurrence │ 0 │ 10 Last Find last occurrence │ 0 │ 11 Rsearch Search the resource │ 1)) 0 │ 12 PDSE2 Workbench │ 0 │ │ 0 └─────────────────────────────────────────┘ ,'08:00:00','10:00:00') THEN DO; 000085 SALARY = VAL_FLD('SALARY02') + 5000 000086 SET_FLD('SALARY02',SALARY) 000087 UPDATE() 000088 END;
From the menu above, you can choose any of the options by number or by placing the cursor on it and press Enter.
If you select option 5 nested search, the following panel is displayed:
File Edit Edit_Settings Menu Utilities Compilers Test Help ─────────────────────────────────────────────────────────────────────────────── VIEW Enhanced Search Report Index DEFAULT Col 00001 00072 Command ===> Scroll ===> CSR ****** ***************************** Top of Data ****************************** 000001 ------------------------------------------------------------------------ 000002 >Data Set: FMN.USERXYZ.CNTL 000003 >Member : BATFUN1 000004 32 $$FILEM TCIN=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000005 82 $$FILEM TCOLD=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000006 83 $$FILEM TCNEW=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000007 >Member : BATFUN2 000008 32 $$FILEM TCIN=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000009 87 $$FILEM TCOLD=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000010 88 $$FILEM TCNEW=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000011 >Member : BATFUN3 000012 34 $$FILEM TCIN=FMN.USERXYZ.TEMPLATE.XML(DTTYPE),PROC=* 000013 86 $$FILEM TCOLD=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000014 87 $$FILEM TCNEW=FMN.USERXYZ.TEMPLATE.XML(DTTYPE), 000015 >Member : BATFUN4 000016 ┌─────────────────────────────────────────────────────────┐ * 000017 │ 50 line(s) in 13 of 1108 Member(s) and 1 of 92 File(s). │ 000018 └─────────────────────────────────────────────────────────┘ 000019 >Member : BATFUN5
- Repeat the process to create nested searches.
- Use F3 to return to a previous search.
- Use Cancel to exit all searches.