/*************************************************************************/
/* Program Id...........  HELPTEXT - Generic help text support           */
/*                                                                       */
/* Programmer...........  Steven Croy, iSoftwerks, Inc.                  */
/* Date coded...........  04/12/2006                                     */
/*                                                                       */
/* Function.............  This provides full screen help text            */
/*                        support for softcoded applications.            */
/*                                                                       */
/*                                                                       */
/* Compiler options.....  *OWNER                                         */
/*                                                                       */
/*************************************************************************/

/*=======================================================================*/
/* Program and Declarative Section:                                      */
/*=======================================================================*/
PGM        PARM(                                                          +
                &PROGRAM                                                  +
                &FORMAT                                                   +
               )
/*-----------------------------------------------------------------------*/
/* Constant definitions                                                  */
/*         Variable    Type     Length           Value                   */
/*-----------------------------------------------------------------------*/
DCL        &MEMBER    *CHAR    LEN(10)
DCL        &SECTION   *CHAR    LEN(8)
/*-----------------------------------------------------------------------*/
/* Variable definitions                                                  */
/*         Variable    Type     Length           Value                   */
/*-----------------------------------------------------------------------*/
DCL        &FORMAT     *CHAR    LEN(8)
DCL        &PROGRAM    *CHAR    LEN(10)
/*=======================================================================*/
/* Begin Procedure Section:                                              */
/*=======================================================================*/

             CHGVAR     VAR(&MEMBER) VALUE(&PROGRAM)
             CHGVAR     VAR(&SECTION) VALUE(&FORMAT)

CHKOBJ     OBJ(QHLPSRC) OBJTYPE(*FILE) MBR(&PROGRAM)
             MONMSG     MSGID(CPF9801 CPF9815) EXEC(DO)
             CHGVAR     VAR(&MEMBER) VALUE('DEFAULT   ')
             CHGVAR     VAR(&SECTION) VALUE('BEGIN   ')
ENDDO

             OVRDBF     FILE(QHLPSRC) MBR(&MEMBER) OVRSCOPE(*CALLLVL)
             CALLPRC    PRC(SHWHLPTXT) PARM((&SECTION))
             DLTOVR     FILE(QHLPSRC) LVL(*)

EndPgm:
             ENDPGM