/*============================================================================*/
/*                                                                            */
/*  CRTCMD CMD(QGPL/F_TO_STMF) PGM(QGPL/F_TO_STMF))                           */
/*         SRCFILE(*LIBL/QCMDSRC) SRCMBR(*CMD)                                */
/*         HLPPNLGRP(QGPL/F_TO_STMF) HLPID(FTOSTMF)                           */
/*                                                                            */
/*============================================================================*/
             CMD        PROMPT('CPY a db file to a STMF')

             PARM       KWD(FROMFILE) TYPE(QUAL1) MIN(1) +
                          PROMPT('From file' 1)
 QUAL1:      QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL(*LIBL) +
                          PROMPT('library')

             PARM       KWD(TOSTMF) TYPE(*PNAME) LEN(256) MIN(1) +
                          PROMPT('To stream file' 3)

             PARM       KWD(MBR) TYPE(*NAME) LEN(10) DFT(*FIRST) +
                          SPCVAL((*FIRST *FIRST)) MIN(0) +
                          PROMPT('File member' 2)

             PARM       KWD(DTAFMT) TYPE(*CHAR) LEN(7) RSTD(*YES) +
                          DFT(*TEXT) VALUES(*TEXT *BINARY) +
                          PROMPT('Data Format' 4)

             PARM       KWD(TOCCSID) TYPE(*DEC) LEN(5) DFT(*DFT) +
                          SPCVAL((*DFT 0) (*STDASCII -1) (*PCASCII +
                          -2)) PMTCTL(PMTCTL1) PROMPT('Stream file +
                          CCSID' 5)
 PMTCTL1:    PMTCTL     CTL(DTAFMT) COND((*EQ *TEXT))

             PARM       KWD(DSPSTMF) TYPE(*CHAR) LEN(4) RSTD(*YES) +
                          DFT(*YES) VALUES(*YES *NO) +
                          PROMPT('Display stream file' 6)