Versions Compared

Old Version 4

changes.mady.by.user Rieko Saitoh

Saved on

compared with

New Version Current

changes.mady.by.user Rieko Saitoh

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

例5：PRNTBCHというファンクション(プロセスGLPROC01に属する)を作成します。このファンクションは、対話方式で呼び出されると、印刷条件を指定するようユーザーに要求して、それ自体をバッチに送信します。また、バッチ方式で呼び出されると、その印刷条件を使用して、ユーザーが要求したレポートを作成します。また、この例では、拡張可能なグループを使用することによって、フィールド・リストを簡略化しています。 を作成します。このファンクションは、対話方式で呼び出されると、印刷条件を指定するようユーザーに要求して、それ自体をバッチに送信します。また、バッチ方式で呼び出されると、その印刷条件を使用して、ユーザーが要求したレポートを作成します。また、この例では、拡張可能なグループを使用することによって、フィールド・リストを簡略化しています。 

     GROUP_BY NAME(#XG_EXCH) FIELDS(#GLNUMB #BATCH #MINCREDIT)
     IF COND('*JOBMODE = I')
               REQUEST FIELDS(#XG_EXCH)
               SUBMIT  PROCESS(GLPROC01) FUNCTION(PRNTBCH) EXCHANGE(#XG_EXCH)
     ELSE
               SELECT  FIELDS(#CREDIT #DEBIT) FROM_FILE(GLMASTV3) WITH_KEY(#GLNUMB #BATCH) WHERE('#CREDIT *GE #MINCREDIT')
               UPRINT  FIELDS(#GLNUMB #BATCH #CREDIT #DEBIT)
               ENDSELECT
               ENDPRINT
     ENDIF

...