* SUB03END ABEND処理用連絡領域
           01  E01ABDPAR.
                 03  E01ABDCOD               PIC 9(003).