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')

Back to top