/*------------------------------------------------------------------------*/
/*                                                                        */
/*     受注データ選択                                                   */
/*                                                                        */
/*          PROGRAMMER . . . . . KAKEFUDA                                 */
/*          CREATION . . . . . . 2001-06-19                               */
/*          MODIFICATION . . . .                                          */
/*                                                                        */
/*                                                                        */
/*------------------------------------------------------------------------*/

PGM   (&PBSYS# &PBPGMQ &PBCHGC &PBCNLC)

  DCL  &PBSYS#    *DEC   (11 0)
  DCL  &PBPGMQ    *CHAR    10
  DCL  &PBCHGC    *CHAR    1
  DCL  &PBCNLC    *CHAR    1
  DCL  &MSG       *CHAR   256

  CALL SAM0100  (&PBSYS# &PBPGMQ &PBCHGC &PBCNLC)


RETURN
ENDPGM