* SUB01DAT 運用日付取得用連絡領域
           01  D01UBSPAR.
               03  D01FKICOD               PIC S9(004)  COMP.
               03  D01UBSUDATE             PIC 9(008).