C*
     C*サブファイルメッセージ設定
     C*
     C                   EVAL      *IN69 = *ON                                  :
     C                   EVAL      S1PGMQ = ZZPGIDC                             :
     C                   EVAL      POTPQ = '*'                                  :
     C*
     C*画面情報
     C*
     C                   EVAL      V1PGIDC = ZZPGIDC
     C                   EVAL      V1JBIDC = ZZJBIDC
     C                   EVAL      V1USIDC = ZZUSIDC