データ部1単位領域の大きさ

2:Re:データ部1単位領域の大きさ
 03/24 19:21
苦労していますね。

小生は下記の方法により対応していますが、
640Xiさんの場合の当てはまるかどうかは、わかりませんが・・・

内容:
もともと、「TBL-AREA」だったのですが「TBL-AREA-1」、「TBL-AREA-2」、・・・「TBL-AREA-6」と分けて対応しています。
01レベル1ヶのバイト数が64Kを超えないように分割しています
参考になれば幸いですが・・・

以上



000490 01  TBL-AREA-1.
000500     03  T-O-1           OCCURS 1008.
000510       05  T-GYO         PIC  9(04).
000520       05  T-NO          PIC  9(06).
000530       05  T-SRKB        PIC  X(03).
000540       05  T-TYUNO       PIC  X(07).
000550       05  T-JYUDT       PIC  9(08).
000560       05  T-KTCD        PIC  X(13).
000570       05  T-KTCD-EDIT   PIC  X(18).
000580 01  TBL-AREA-2.
000590     03  T-O-2           OCCURS 1008.
000600       05  T-KTNM        PIC  X(30).
000610       05  T-BHCD        PIC  X(30).


1-

BluesBB ©Sting_Band