3.18.7　bjexu_scopy（ファイルのレコード単位の複写）

■ 形式

■ オペランド

FILEORG=ファイル形式

bjexu_scopy制御文の入力ファイルのファイル形式を指定する。

• ファイル形式〜((F｜V｜A))

  F：固定長順編成ファイル（COBOLで作成したファイル，ファイルサイズがレコード長の整数倍であるバイナリファイル）であることを示す。

  V：可変長順編成ファイル（COBOLで作成したファイル）であることを示す。

  A：テキストファイル（COBOLまたはテキストエディタで作成したファイル）であることを示す。テキストファイルの各行（テキストレコード）は，改行文字（X'0A'）で区切られている。

RECLEN=レコード長

bjexu_scopy制御文の入力ファイルのレコード長を指定する。

• レコード長　〜＜符号なし整数＞((1〜65535))

  レコード長を指定する。FILEORG=Fを指定した場合は，必ず指定する必要がある。その他の形式のときは指定しないこと。指定した場合はエラーとなる。

RECCOUNT

単純複写時，ファイルのレコードサイズに基づいたレコード数をKAKD2138-Iメッセージに表示することを指定する。省略時は，レコード長が65535バイトのレコードを出力したときのレコード数を表示する。

固定長順編成ファイルの場合，FILEORG=FとRECLENオペランドとともに指定する必要がある。

可変長順編成ファイルを単純複写する場合，レコード単位に入出力を行うので，RECCOUNTオペランド指定がない単純複写と比較して性能が低下する。

入力ファイルがテキストファイルのときは，指定できない。指定すると，エラーとなる。

CHKEMPTY

入力が可変長順編成ファイルのとき，レコード数が0件のファイルであればエラーにすることを指定する。省略すると，入力ファイルのレコード数が0件であってもエラーにしないで，レコード数が0件の出力ファイルを作成する。

入力ファイルが可変長順編成ファイル以外のときは，指定できない。指定すると，エラーとなる。単純複写のときは，指定しても無効で，エラーにならない。

■ 注意事項

• 制御文の先頭に指定すること。

• ほかの制御文が1つも指定されていないとき，およびLENGTHオペランド指定なしのGENERATE文だけを指定したときは省略できる。その他の場合は省略できない。

• すべての制御文が省略されたとき，およびLENGTHオペランド指定なしのGENERATE文だけを指定したときは，入力ファイルの実際の形式に関係なく，入力ファイルをそのまま出力ファイルに複写する。可変長順編成ファイルをDD連結するときは，INPFILE文でFILEORG=Vを指定する必要がある。

■ 形式

■ オペランド

FILEORG=ファイル形式

bjexu_scopy制御文の出力ファイルのファイル形式を指定する。

• ファイル形式〜((F｜V｜A))

  F：固定長順編成ファイル（COBOLで作成したファイル，ファイルサイズがレコード長の整数倍であるバイナリファイル）であることを示す。

  V：可変長順編成ファイル（COBOLで作成したファイル）であることを示す。

  A：テキストファイル（COBOLまたはテキストエディタで作成したファイル）であることを示す。テキストファイルの各行（テキストレコード）は，改行文字（X'0A'）で区切られている。

RECLEN=レコード長

bjexu_scopy制御文の出力ファイルのレコード長を指定する。

• レコード長　〜＜符号なし整数＞((1〜65535))

  レコード長を指定する。可変長順編成ファイルの場合は最大レコード長を指定する。テキストファイルの場合は指定しないこと。指定した場合はエラーとなる。

出力が固定長順編成ファイルの場合

• RECLENオペランドの指定値が出力ファイルのレコード長になる。

  単純複写を除く複写や編集時に，RECLENオペランドを省略した場合，次のように仮定する。

  ・入力が可変長順編成ファイルのときは，FIELD編集の結果のレコードの長さがレコード長になる。

  ・入力が固定長順編成ファイルのときは，環境変数BJEX_SCOPY_FIXRECLENの定義によって出力レコード長の求め方を選択できる。指定値ごとの出力レコード長を決める優先順位を次の表に示す。

  表3‒46　出力レコード長の決定方法

  環境変数BJEX_SCOPY_FIXRECLENの設定	出力レコード長の優先順位
  	FIELD	GENERATE	INPFILE
  FIELD	1	2	3
  NOFIELD	−	1	2
  FIELDとNOFIELD以外，または設定されていない	1	2	3

  （凡例）

  FIELD：RECORD文のFIELDオペランドで編集した結果の長さ。

  GENERATE：GENERATE文のLENGTHオペランドの指定値。

  INPFILE：INPFILE文のRECLENオペランドの指定値。

  1〜3：出力レコード長を決定する優先順位（優先順位は1が最も高い）。

  −：対象外。

• RECORD文のFIELDオペランドで編集した結果の長さが出力レコード長を超えるとエラーになる。

• RECORD文やRECORD文のFIELDオペランドの指定がない場合，入力レコード長が出力レコード長と一致しないときは，次に示す処理となる。

  「入力レコード長＞出力レコード長」の場合，後ろを切り捨てる。

  「入力レコード長＜出力レコード長」の場合，残りはRECORD文のFILLオペランドで指定した文字を埋め込む。FILLオペランドの指定を省略した場合は空白（X'20'）を埋め込む。

出力が可変長順編成ファイルの場合

• 単純複写を除く複写や編集処理でRECLENオペランド省略時は，最大レコード長に65535を仮定する。

• 出力ファイルの最大レコード長を超える編集はエラーになる。次に示す処理となる。

  「入力または編集結果のレコード長＞出力ファイルの最大レコード長」の場合はエラーとなる。

  「入力または編集結果のレコード長≦出力ファイルの最大レコード長」の場合，入力または編集結果のレコード長の長さで出力する。

MINLEN=最小レコード長

出力ファイルが可変長順編成ファイルのとき，最小レコード長を指定する。このオペランドを指定すると，最小レコード長より短いレコードを出力しようとしたときにエラーになるので，必要な情報が含まれていることをチェックできる。

固定長順編成ファイルやテキストファイルの場合は指定しないこと。指定した場合はエラーとなる。

• 最小レコード長　〜＜符号なし整数＞((1〜65535))

  単純複写を除く複写や編集処理でMINLENオペランド省略時は，最小レコード長に1を仮定する。

  出力ファイルの最小レコード長に満たない編集はエラーとなる。

■ 注意事項

• INPFILE文の次に指定すること。

• RECLENおよびMINLENオペランドを指定するときは，「最大レコード長≧最小レコード長」になるように指定する。指定に誤りがあると，エラーとなる。

■ 形式

■ オペランド

LENGTH=入力論理レコード長

• 入力論理レコード長　〜＜符号なし整数＞((1〜65535))

  固定長順編成ファイルのレコードを連結，または切り捨てるときに指定する。

  入力論理レコード長を指定する。このオペランドで，入力ファイルのレコード長をオペランドで指定した入力論理レコード長に変更し，複数の入力レコードを連結して処理できる。

  入力論理レコードは，複写や編集のための新たな入力レコードになり，その編集結果が出力レコードになる。

  このオペランドを指定した場合，次の手順でレコード連結される。

  　1.　指定した入力論理レコード長に達するまで，複数の入力レコードを連結する。

  　2.　入力論理レコード長が入力レコード長の倍数でない場合，連結後の端数部分を切り捨てる。

  　3.　連結後の入力レコードの長さが入力論理レコード長に達しない場合，出力しない。

  　4.　上記の手順で連結したレコードを1つの入力論理レコードとして処理する。したがって，レコードを編集する場合，入力位置は連結後の入力論理レコードに対するものを指定する。

このオペランドは，入力ファイル形式が固定長順編成ファイルのときだけ指定できる。省略した場合はレコードを連結しない。

このオペランドを指定して出力ファイルのレコード長を省略した場合，出力ファイルのレコード長にこのオペランドで指定した値が仮定される。なお，可変長順編成ファイルおよびテキストファイルにこのオペランドを指定した場合はエラーとなる。

このオペランドを使用した例を次に示す。

■ 注意事項

• INPFILE文とOUTFILE文の次に記述すること。

• GENERATE文は1行だけ指定できる。1つのステップ内に2行以上記述するとエラーになる。

■ 形式

■ オペランド

NAME=(ファイル名)　〜＜引用文字列または特殊文字列＞

作成するファイル名を指定する。SYSUT2の指定がディレクトリの場合に指定できる。

この制御文に続き，RECORD文でレコードグループを指定する。1つのMEMBER文に対して複数個のRECORD文を指定できる。RECORD文がなければ，入力ファイルの終わりまでが1つのファイルとして，このオペランドで指定したファイル名が与えられる。

ファイル名には，パス名の区切りを示す文字（/：スラント）を指定できない。

■ 注意事項

• 出力がディレクトリでない場合，オープンエラーになる。

• 複数のMEMBER文を指定するときは，RECORD文のIDENTオペランドでレコードグループを指定する必要がある。MEMBER文を1つだけ指定したとき，および複数のMEMBER文を指定したときの最後のRECORD文のIDENTオペランドは省略できる。IDENTオペランドを省略すると，ファイルの終わりまでが同一のレコードグループとして扱われる。

• MEMBER文を1つだけ指定するときは，RECORD文を省略できる。また，複数のMEMBER文を指定するとき，最後のMEMBER文に対するRECORD文は省略できる。RECORD文を省略すると，ファイルの終わりまでが同一のレコードグループとして扱われる。

• 先頭のMEMBER文の前にRECORD文を指定した場合，エラーになる。

• MEMBER文で指定したファイルがすでに存在するときは，エラーになる。

■ 形式

■ オペランド

IDENT=(文字列長，最終レコード情報，入力位置)

順編成の入力をレコードグループに分割するとき，レコードグループの最終レコードを識別する情報を指定する。

• 文字列長　〜＜符号なし整数＞((1〜8))

  最終レコード情報の文字列長を示す。

• 最終レコード情報　〜＜引用文字列＞((1〜8バイト))

  最終レコードを識別する文字列を指定する。文字列長サブオペランド値を指定した場合，このオペランドに指定した文字列（先頭と末尾の引用符は除く）の長さは，文字列長サブオペランド値と一致しなければならない。

• 入力位置　〜＜符号なし整数＞((1〜65535))

  レコードの先頭からの位置を指定する。GENERATE文でLENGTHオペランドを指定しているときは，入力論理レコードの先頭からの位置を指定する。

  レコードの指定された入力位置から指定された長さが，最終レコードの情報で示された文字列と一致すれば，それが最終レコードとなる。

  複数のRECORD文を連続して指定できる。複数のRECORD文を指定するときは，IDENTオペランドでレコードグループを指定する必要がある。最後のRECORD文だけは，IDENTオペランドを省略できる。

  IDENTオペランドを省略すると，ファイルの終わりまでが同一のグループとして扱われる。

FIELD=([フィールド長],[入力位置｜フィールド情報],[PZ｜ZP],[出力位置][,出力長])

レコードの編集方法を指定する。1つのRECORD文に複数指定できる。

出力ファイルが可変長順編成ファイルのとき，編集してできたレコードの長さがレコード長になる。

入力レコードまたは入力論理レコードの内容を編集しないで出力レコードの先頭に複写するときは，FIELDオペランドを省略できる。それ以外のときは，FIELDオペランドで編集方法を指定する必要がある。

FIELDオペランドを省略したとき，環境変数BJEX_SCOPY_NOFIELD_TRUNCの定義によって複写する入力レコードを80バイトに切り詰めるかどうかを選択できる。指定値ごとの動作を次の表に示す。

表3‒47　環境変数BJEX_SCOPY_ NOFIELD_TRUNCの設定ごとの制限

環境変数BJEX_SCOPY_ NOFIELD_TRUNCの設定	出力レコード長
YES	80バイトに切り詰める
NO	80バイトに切り詰めない
YESとNO以外，または設定されていない	80バイトに切り詰めない

• フィールド長　〜＜符号なし整数＞《80》((1〜65535))

  入力フィールドの長さを示す。複写の場合は，出力フィールドの長さに一致する。変換の場合には，出力フィールドの長さが変化する。

  出力位置からレコード長の最後までの長さが指定できる最大値になる。

• 入力位置　〜＜符号なし整数＞《1》((1〜65535))

  入力フィールドの位置を入力レコードの先頭からのバイト数で示す（レコードの先頭を1とする）。

  GENERATE文でLENGTHオペランドを指定しているときは，入力論理レコードの先頭からの位置を指定する。

• フィールド情報　〜＜引用文字列＞((1〜40バイト))

  文字列を埋め込む場合，埋め込む文字列をアポストロフィで囲んで指定する。最大で40バイト指定できる。

PZ｜ZP

PZを指定した場合，入力フィールドのデータを内部10進形式とし，外部10進形式に変換する。

ZPを指定した場合，外部10進形式から内部10進形式に変換する。

PZもZPも指定しなかった場合，入力フィールドのデータは文字列となり，変換しないで転送する。

変換での妥当性はチェックしない。あらかじめ正しい形式のデータを設定しておく必要がある。

変換後の内部10進形式の符号（最終バイト下位4ビット）は，正の場合（1100）₂，負の場合は（1101）₂とする。変換元内部10進数の最終バイト下位4ビットが（1101）₂の場合は負とし，（1101）₂以外であれば正となる。

外部10進形式の符号位置は，最終バイト上位4ビットとする。変換後は正の場合は3，負の場合は7とする。変換前の外部10進数の最終バイト上位4ビットが7の場合は負とし，7以外であれば正となる。外部10進形式のゾーン部（各バイトの上位4ビット）は3とする。

外部10進数は次に示す形式とする。

ゾーン部には3の値を，数字部には0〜9の値を指定する。

また，符号部は次に示す値のどちらかを指定する。

　3：正

　7：負

内部10進数は次に示す形式とする。

数字部には0〜9の値を指定する。

また，符号部には次に示す値のどれかを指定する。

　（1100）₂：正

　（1101）₂：負

　（1111）₂：絶対値（変換した結果がこの値になることはない）

出力位置　〜＜符号なし整数＞《1》((1〜65535))

編集後のデータの出力フィールドの開始位置を示す（レコードの先頭を1とする）。

FIELDオペランドの指定順に処理する。直前の結果と重なったときは，上書きされる。

出力長　〜＜符号なし整数＞《80》((1〜65535))

入力フィールドのデータ変換（PZ，ZP変換）を指定した場合，出力フィールドの長さを指定する。

この指定を省略すると，次の値が仮定される。なお，「↓（数値）↓」は小数点切り捨てを表す。

PZ変換の時：入力フィールド長×2−1

ZP変換の時：↓（入力フィールド長＋2）÷2↓

出力長が上記の値より短い場合，変換後のフィールドの右端から指定した長さのフィールドが出力される。

出力長が上記の値より長い場合，PZ変換のときは（30）₁₆が，ZP変換のときは（00）₁₆が左端から埋め込まれる。

データ変換しない場合，出力長を指定しても無視される。

PZ変換とZP変換時の入力フィールドと出力フィールドの関連を次に示す。なお，フィールド内の数値は16進数で記述している。

FILL=埋め込み文字｜X'埋め込み文字'

• 埋め込み文字　〜＜引用文字列＞《空白》((1文字))

• X'埋め込み文字'　〜＜16進数字＞《20》((2文字))

未編集フィールドに埋め込む文字を指定する。Xを指定した場合には16進数字で指定する。

■ 注意事項

• IDENTオペランドは，RECORD文に複数指定されたとき，最後の指定を有効にする。

• FILLオペランドは，RECORD文に複数指定されたとき，最後の指定を有効にする。

• 入力位置とフィールド長は，入力レコードまたは入力論理レコード外を指定すると，エラーになる。

• フィールド長，出力位置，および出力長は，編集の結果が出力レコード長を超えない値を指定すること。出力ファイルが固定長順編成ファイルの場合，OUTFILE文のRECLENオペランドで出力レコード長を指定したとき，FIELDオペランドの指定がレコード長を超える指定はエラーになる。

  RECLENオペランドの指定がないときは，環境変数BJEX_SCOPY_FIXRECLENの定義によって出力レコード長の求め方を選択できる。詳細については，「3.18.7(4)(b)　OUTFILE文」を参照のこと。

  出力ファイルが可変長順編成ファイルのとき，出力ファイルの最大レコード長を超える編集はエラーになる。

• 入力レコードに有効なデータがない場合，空（ゼロバイト）のファイルができることがある。入力ファイルや編集結果のレコードがゼロバイトの場合などが該当する。