Command source, was Re: OUTQ contents save

[Jeff_Velten@xxxxxxxxxxxxxxx]

Ok, since I've received a few more requests for these two commands here
they are.
[Insert appropriate disclaimer here]

Command GETSPLF, uses CPP QGPL/QSPGETF
========================================================================
GETSPLF:    CMD        PROMPT('Get Spooled File')
            PARM       KWD(FILE) TYPE(*NAME) LEN(10) RTNVAL(*NO) +
                         RSTD(*NO) MIN(1) MAX(1) FILE(*IN) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) +
                         PASSATR(*NO) PROMPT('Spooled File')
            PARM       KWD(TOFILE) TYPE(Q1) RTNVAL(*NO) MIN(1) +
                         MAX(1) FILE(*OUT) PROMPT('To data base file')
            PARM       KWD(JOB) TYPE(Q2) RTNVAL(*NO) DFT(*) +
                         SNGVAL((*)) MIN(0) MAX(1) FILE(*NO) +
                         PROMPT('Job name')
            PARM       KWD(SPLNBR) TYPE(*INT2) RTNVAL(*NO) +
                         RSTD(*NO) DFT(*ONLY) RANGE(1 9999) +
                         SPCVAL((*ONLY 0) (*LAST -1)) MIN(0) +
Command QSPGETF
                         MAX(1) EXPR(*YES) VARY(*NO) PASSATR(*NO) +
                         PROMPT('Spooled file number')
           PARM       KWD(TOMBR) TYPE(*NAME) LEN(10) RTNVAL(*NO) +
                         RSTD(*NO) DFT(*FIRST) SPCVAL((*FIRST)) +
                         MIN(0) MAX(1) FILE(*NO) FULL(*NO) +
                         EXPR(*YES) VARY(*NO) PASSATR(*NO) +

                         PROMPT('To member')

Q1:         QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) MIN(1) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) PASSATR(*NO)
            QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) DFT(*LIBL) +
                         SPCVAL((*LIBL) (*CURLIB *CURLIB)) MIN(0) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) +
                         PASSATR(*NO) PROMPT('Library')

Q2:         QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) MIN(1) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) PASSATR(*NO)
            QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) MIN(0) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) +
                         PASSATR(*NO) PROMPT('User')
            QUAL       TYPE(*CHAR) LEN(6) RSTD(*NO) RANGE(000000 +
                         999999) MIN(0) FULL(*YES) EXPR(*YES) +
                         PASSATR(*NO) PROMPT(NUMBER)
=====================================================================


Command PUTSPLF, uses CPP QGPL/QSPPUTF
=====================================================================
PUTSPLF:    CMD        PROMPT('Put Spooled File')
            PARM       KWD(FROMFILE) TYPE(Q1) MIN(1) MAX(1) +
                         FILE(*IN) PROMPT('From File')
            PARM       KWD(OUTQ) TYPE(Q1) MIN(1) MAX(1) FILE(*NO) +
                         PROMPT('Output queue')
            PARM       KWD(FROMMBR) TYPE(*NAME) LEN(10) DFT(*FIRST) +
                         SPCVAL((*FIRST)) MIN(0) MAX(1) FILE(*NO) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) +
                         PASSATR(*NO) PROMPT('From member')

Q1:         QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) MIN(1) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) PASSATR(*NO)
            QUAL       TYPE(*NAME) LEN(10) RSTD(*NO) DFT(*LIBL) +
                         SPCVAL((*LIBL) (*CURLIB *CURLIB)) MIN(0) +
                         FULL(*NO) EXPR(*YES) VARY(*NO) +
                         PASSATR(*NO) PROMPT('Library')
=====================================================================

Jeff

Jeff Velten, Operations Analyst
The AT-A-GLANCE Group - http://www.at-a-glance.com
Phone: (607) 563-9411 x679
Fax: (607) 563-8811


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MAJORDOMO@midrange.com
|    and specify 'unsubscribe MIDRANGE-L' in the body of your message.
| Questions should be directed to the list owner/operator: david@midrange.com
+---