/********************************************************************/
/*  Command WRKHTTP - Custom processor to work with HTTP CONFIG     */
/*                                                                  */
/*  Use this command to perform the following functions:            */
/*    - create a backup of the current CONFIG member                */
/*    - edit the current CONFIG member with SEU or the system       */
/*      command QSYS/WRKHTTPCFG                                     */
/*    - print the current CONFIG member                             */
/*    - start PDM for file QUSRSYS/QATMHTTPC                        */
/*    - restart the HTTP server                                     */
/*                                                                  */
/*  Backups are created as CONFIGnnnn where "nnnn" is a four digit  */
/*  generation number, starting with 0001.                          */
/*                                                                  */
/********************************************************************/
/*  Copyright (c) 1997, Bits & Bytes Programming                    */
/*  ALL RIGHTS RESERVED                                             */
/*                                                                  */
/*  Craig Pelkie                                                    */
/*  Bits & Bytes Programming                                        */
/*  P.O. Box 1473                                                   */
/*  Valley Center, CA  92082-1473                                   */
/*  craig@web400.com                                                */
/********************************************************************/

 wrkhttp:    cmd        prompt('Work with HTTP CONFIG')

             PARM       KWD(EDIT)             +
                        TYPE(*CHAR)           +
                        LEN(4)                +
                        RSTD(*YES)            +
                        DFT(*SEU)             +
                        VALUES(*SEU *SYS *NO) +
                        PROMPT('Edit CONFIG (SEU/System)')

             PARM       KWD(PRINT)                       +
                        TYPE(*CHAR)                      +
                        LEN(7)                           +
                        RSTD(*YES)                       +
                        DFT(*NO )                        +
                        VALUES(*BEFORE *AFTER *BOTH *NO) +
                        Prompt('Print CONFIG before/after edit')

             PARM       KWD(BACKUP)      +
                        TYPE(*CHAR)      +
                        LEN(4)           +
                        RSTD(*YES)       +
                        DFT(*YES)        +
                        VALUES(*YES *NO) +
                        PROMPT('Create backup for CONFIG')

             PARM       KWD(PDM)         +
                        TYPE(*CHAR)      +
                        RSTD(*YES)       +
                        LEN(4)           +
                        DFT(*NO )        +
                        VALUES(*YES *NO) +
                        PROMPT('Run PDM for QUSRSYS/QATMHTTPC')

             PARM       KWD(RESTART)     +
                        TYPE(*CHAR)      +
                        RSTD(*YES)       +
                        LEN(4)           +
                        DFT(*YES)        +
                        VALUES(*YES *NO) +
                        PROMPT('Restart the HTTP server')