OUTFILE - Retrieve Information to Outfile

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

Start the conversation

Send me notifications when other members comment.

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

Please create a username to comment.

-ADS BY GOOGLE

SearchEnterpriseLinux

SearchDataCenter

Close