例 2.CR (自由形式基準) 接頭部コマンド
この例では、CR (自由形式基準) 接頭部コマンドを使用して再定義基準を入力する方法を示します。
Process Options Help
───────────────────────────────────────────────────────────────────────────────
File Manager Field Selection/Edit Line 1 of 11
Command ===> _____________________________________________________ Scroll CSR
----------- Criteria - Enter 1 or 2 to specify expression by field -----------
1 Id : +
2 Sel: +
Offset 0 CCSID _____
Cmd Seq SHE Ref Field Name Picture Type Start Length
**** Top of data ****
___ ___ 1 1 REDEFINES-LAYOUT AN 1 5
___ ___ 2 2 REDEF-TYPE X AN 1 1
cr 3 2 DATA-A AN 2 4
___ ___ 4 3 DATA-A1 XX AN 2 2
___ ___ 5 3 DATA-A2 XX AN 4 2
cr 6 2 DATA-B REDEFINES DATA-A AN 2 4
___ ___ 7 3 DATA-B1 99 ZD 2 2
___ ___ 8 3 DATA-B2 99 ZD 4 2
cr 9 2 DATA-C REDEFINES DATA-A AN 2 4
___ ___ 10 3 DATA-C1 S9(4) BI 2 2
___ ___ 11 3 DATA-C2 S9(4) BI 4 2
**** End of data ****
REDEFINES 文節があるか、REDEFINES 文節のターゲットになっているフィールドの横に CR コマンドを入力し、Enter キーを押します。
最初のフィールド DATA-A の「REDEFINES Criteria」パネルが表示されます。
Process Options Help
───────────────────────────────────────────────────────────────────────────────
File Manager REDEFINES Criteria: DATA-A Line 1 of 11
Command ===> _____________________________________________________ Scroll CSR
-------------- Criteria - Enter 1 to specify expression by field -------------
1: #2 = 'A' +
Offset 0
Cmd Seq SHE Ref Field Name Picture Type Start Length
**** Top of data ****
1 1 REDEFINES-LAYOUT AN 1 5
2 2 REDEF-TYPE X AN 1 1
3 2 DATA-A AN 2 4
4 3 DATA-A1 XX AN 2 2
5 3 DATA-A2 XX AN 4 2
6 2 DATA-B REDEFINES DATA-A AN 2 4
7 3 DATA-B1 99 ZD 2 2
8 3 DATA-B2 99 ZD 4 2
9 2 DATA-C REDEFINES DATA-A AN 2 4
10 3 DATA-C1 S9(4) BI 2 2
11 3 DATA-C2 S9(4) BI 4 2
**** End of data ****
DATA-A 定義のサンプル・パネルのように式 #2 = 'A' を入力して、F3 を押します。
Process Options Help
───────────────────────────────────────────────────────────────────────────────
File Manager REDEFINES Criteria: DATA-B Line 1 of 11
Command ===> _____________________________________________________ Scroll CSR
-------------- Criteria - Enter 1 to specify expression by field -------------
1: #2 = 'B' +
Offset 0
Cmd Seq SHE Ref Field Name Picture Type Start Length
**** Top of data ****
1 1 REDEFINES-LAYOUT AN 1 5
2 2 REDEF-TYPE X AN 1 1
3 2 DATA-A AN 2 4
4 3 DATA-A1 XX AN 2 2
5 3 DATA-A2 XX AN 4 2
6 2 DATA-B REDEFINES DATA-A AN 2 4
7 3 DATA-B1 99 ZD 2 2
8 3 DATA-B2 99 ZD 4 2
9 2 DATA-C REDEFINES DATA-A AN 2 4
10 3 DATA-C1 S9(4) BI 2 2
11 3 DATA-C2 S9(4) BI 4 2
**** End of data ****
DATA-B 定義のサンプル・パネルのように式 #2 = 'B' を入力して、F3 を押します。
Process Options Help
───────────────────────────────────────────────────────────────────────────────
File Manager REDEFINES Criteria: DATA-C Line 1 of 11
Command ===> _____________________________________________________ Scroll CSR
-------------- Criteria - Enter 1 to specify expression by field -------------
1: #2 = 'C' +
Offset 0
Cmd Seq SHE Ref Field Name Picture Type Start Length
**** Top of data ****
1 1 REDEFINES-LAYOUT AN 1 5
2 2 REDEF-TYPE X AN 1 1
3 2 DATA-A AN 2 4
4 3 DATA-A1 XX AN 2 2
5 3 DATA-A2 XX AN 4 2
6 2 DATA-B REDEFINES DATA-A AN 2 4
7 3 DATA-B1 99 ZD 2 2
8 3 DATA-B2 99 ZD 4 2
9 2 DATA-C REDEFINES DATA-A AN 2 4
10 3 DATA-C1 S9(4) BI 2 2
11 3 DATA-C2 S9(4) BI 4 2
**** End of data ****
DATA-C 定義のサンプル・パネルのように式 #2 = 'C' を入力して、F3 を押します。
Process Options Help
───────────────────────────────────────────────────────────────────────────────
File Manager Field Selection/Edit Line 1 of 11
Command ===> _____________________________________________________ Scroll CSR
----------- Criteria - Enter 1 or 2 to specify expression by field -----------
1 Id : _____________________________________________________________________ +
2 Sel: +
Offset 0 CCSID _____
Cmd Seq SHE Ref Field Name Picture Type Start Length
**** Top of data ****
___ ___ 1 1 REDEFINES-LAYOUT AN 1 5
___ ___ 2 2 REDEF-TYPE X AN 1 1
___ ___ 3 2 DATA-A AN 2 4
___ ___ 4 3 DATA-A1 XX AN 2 2
___ ___ 5 3 DATA-A2 XX AN 4 2
___ ___ 6 2 DATA-B REDEFINES DATA-A AN 2 4
___ ___ 7 3 DATA-B1 99 ZD 2 2
___ ___ 8 3 DATA-B2 99 ZD 4 2
___ ___ 9 2 DATA-C REDEFINES DATA-A AN 2 4
___ ___ 10 3 DATA-C1 S9(4) BI 2 2
___ ___ 11 3 DATA-C2 S9(4) BI 4 2
**** End of data ****
注: 再定義基準のあるフィールド (フィールド 3、6、および 9) では、その参照番号が赤で「Field Selection/Edit」パネルに強調表示されます。