/********************************************************************/
/*  Command WRKHTTP - Custom processor to work with HTTP CONFIG     */
/********************************************************************/
/*  Version for V4Rx - support multiple servers                     */
/********************************************************************/
/*  Use this command to perform the following functions:            */
/*    - create a backup of the current selected configuration mbr   */
/*    - edit the current selected configuration member with SEU     */
/*      or the system provided HTTP configuration editor            */
/*    - print the current selected configuration member             */
/*    - start PDM for file QUSRSYS/QATMHTTPC                        */
/*    - restart the HTTP server                                     */
/*                                                                  */
/*  Backups are created as mmmmmmnnnn where "nnnn" is a four digit  */
/*  generation number, starting with 0001. (mmmmmm is member)       */
/********************************************************************/
/*  1/31/98 - changed for V4Rx, add parameter for Configuration     */
/*    File (MBR) to accomodate other than CONFIG                    */
/********************************************************************/
/*  Copyright (c) 1997, 1998 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(MBR)              +
                        TYPE(*CHAR)           +
                        LEN(10)               +
                        DFT(CONFIG)           +
                        PROMPT('Configuration member to edit')

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

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

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

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

             PARM       KWD(HTTPSVR)        +
                        TYPE(*CHAR)         +
                        LEN(10)             +
                        DFT(DEFAULT)        +
                        SPCVAL((*ALL *ALL)(*MBR *MBR)) +
                        PROMPT('HTTP server instance')