Article

OUTFILE - Retrieve Information to Outfile

Sudhakar Kunji
/*********************************************************************/
/*                                                                   */
/* System............ Utilities                                      */
/* Program........... OUTFILE  - Retrieve Information to Outfile     */
/* Written by........ Sudhakar Ramakrishnan Kunji                    */
/* Date.............. Dec. 11, 2000.                                 */
/*                                                                   */
/*                                                                   */
/*                       Program Description?                       */
/* This Command retieves the information obtained by executing a     */
/* Command into a Outfile specified in the Command.                  */
/*                                                                   */
/* NOTE: Always issue the command with *PRINT option while using it  */
/*       inside OUTFILE Command.                                     */
/*                                                                   */
/*       If used inside another process, give DLTSPLF as *YES.       */
/*                                                                   */
/*? * * * * * * * * * * Maintenance Log? * * * * * * * * * * * * * */
/* Req#.       Date      Programmer     Modification Reason          */
/*                                                                   */
/*                                                                   */
/*********************************************************************/
             CMD        PROMPT('Retrieve Informatn. to Outfile')

             PARM       KWD(COMMAND) TYPE(*CMDSTR) LEN(3000) MIN(1) +
                          PROMPT('Command to execute')

             PARM       KWD(OUTFILE) TYPE(Q1) MIN(1) PROMPT('Output +
                          file')

 Q1:         QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES)
             QUAL       TYPE(*NAME) LEN(10) MIN(1) EXPR(*YES) +
                          PROMPT('Library')


             PARM       KWD(MBROPT) TYPE(*CHAR) LEN(8) RSTD(*YES) +
                          DFT(*REPLACE) VALUES(*REPLACE *ADD) +
                          EXPR(*YES) PROMPT('Replace or add records')

             PARM       KWD(RCDLEN) TYPE(*DEC) LEN(3) DFT(132) +
                          RANGE(1 500) PROMPT('Outfile record length')

             PARM       KWD(DLTSPLF) TYPE(*LGL) LEN(1) RSTD(*YES) +
                          DFT(*NO) SPCVAL((*NO '0') (*YES '1')) +
                          PROMPT('Delete spooled file')

There are Comments. Add yours.

 
TIP: Want to include a code block in your comment? Use <pre> or <code> tags around the desired text. Ex: <code>insert code</code>

REGISTER or login:

Forgot Password?
By submitting you agree to receive email from TechTarget and its partners. If you reside outside of the United States, you consent to having your personal data transferred to and processed in the United States. Privacy
Sort by: OldestNewest

Forgot Password?

No problem! Submit your e-mail address below. We'll send you an email containing your password.

Your password has been sent to: