COBOL引数の登録集原文例
       01 G1.
        02 G2  OCCURS 10.
         03 B1         PIC X(50).
COBOLプログラム例
        ：
       PROCEDURE DIVISION USING ...
 
      *> 検索処理
           IF B1(1)=SPACE THEN
             ：
           END-IF
             ：
           MOVE 'TEST OK' TO B1(10).
             ：

 
    ：
    int i=0;
    for ( i=0; i < 10; i++ ) {           [B1(0)〜B1(9)へ"XXXXX"を設定]
      bean.setB1("XXXXX", i);              [JavaBean版]
      remoteobj.setB1("XXXXX", i);         [EJB対応版]
    }
    ：                                     [B1(5)を取得]
    String wkstr=bean.getB1(5);          [JavaBean版]
    String wkstr=remoteobj.getB1(5);     [EJB対応版]
    ：