/*--+------------------------------------------------------------+--*/
/*--+   COMMAND ID : SAVSPLF                                     +--*/
/*--+ COMMAND NAME : SAVE SPOOLED FILE                           +--*/
/*--+------------------------------------------------------------+--*/
/*--+      VERSION : 1.0 (1999/04/22)                            +--*/
/*--+------------------------------------------------------------+--*/
/*--+ R510以降で使用するために$SAVSPLFの                     +--*/
/*--+   25行目&SPLNBRの桁数4を6にする                    +--*/
/*--+   30行目&SH_SPLNOB2の桁数2を4にする                +--*/
/*--+  さらにコマンドSAVSPLFのSPLNBRの桁数4を6にする   +--*/
/*--+------------------------------------------------------------+--*/
             CMD        PROMPT('SAVE SPOOLED FILE')

             PARM       KWD(SPLF) TYPE(*NAME) LEN(10) MIN(1) +
                          PROMPT('SPOOLED FILE')

             PARM       KWD(TOFILE) TYPE(GETFILE) MIN(1) PROMPT('TO +
                          DATA BASE FILE')

             PARM       KWD(JOB) TYPE(GETJOB) DFT(*) SNGVAL((*)) +
                          PROMPT('JOB NAME')

             PARM       KWD(SPLNBR) TYPE(*CHAR) LEN(4) RANGE(0000 +
                          9999) MIN(1) FULL(*YES) +
                          CHOICE('0001-9999') PROMPT('SPOOLED FILE +
                          NUMBER')

             PARM       KWD(TOMBR) TYPE(*NAME) LEN(10) DFT(*SPLF) +
                          SPCVAL((*SPLF)) PROMPT('TO MEMBER')


 GETFILE:    QUAL       TYPE(*NAME) LEN(10) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) DFT(*LIBL) +
                          SPCVAL((*LIBL) (*CURLIB)) EXPR(*YES) +
                          PROMPT(LIBRARY)

 GETJOB:     QUAL       TYPE(*NAME) LEN(10)
             QUAL       TYPE(*NAME) LEN(10) PROMPT(USER)
             QUAL       TYPE(*CHAR) LEN(6) FULL(*YES) +
                          CHOICE('000000-999999') PROMPT(NUMBER)