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
その他のブランク・フィールドで Enter キーを押すと、参照データ・セットが作成され、DEFAULT という名前のメンバーの編集セッションが開始されます。参照データ・セットについては、次の割り振りパネルが表示されます。デフォルトの命名規則 userid.FMNSRCH.INDEX が適切でない場合は、名前を上書きします。
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
F3 を押します。
次の図は、検索ストリング 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 ------------------------------------------------------------------------
カーソルを行 14 のデータに置いて Enter キーを押すと、カーソルが行 70 に置かれた状態で FMN.USERXYZ.CNTL(BATFUN5) が表示されます。
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()