SUBROUTINE OPT.DISP.B4.AFT.SUB(ANSWER, SUB.DATA, P.NBR, PMT, SAVE.FN, VALUE)
     *
     * DAG - ALL - Release 7.0
       Version="~Ver=~7.1.11~52377889~"
     * David A. Green - To Display Options Like Validation with the Descirption.
     *
     * Common Areas
     *
     *#* COPY COPY.TOOLS.BP STANDARD.COMMON ;*#* Copied Source Follows (12-03-03)
     $INCLUDE STANDARD.COMMON.VARIABLES FROM COPY.TOOLS.BP
     $INCLUDE STANDARD.COMMON.APP.PROGRAMS FROM COPY.TOOLS.BP
     *#*
     $INCLUDE COM500 FROM COPY.TOOLS.BP
     $INCLUDE STANDARD.VARIABLES.END FROM COPY.TOOLS.BP
     $INCLUDE COM.PWS FROM COPY.TOOLS.BP
     *
     EQU TRUE TO 1, FALSE TO 0
     *
     EQU THIS.AM       TO PMT<1, 10>
     EQU THIS.VM       TO VALUE
     EQU THIS.LEN      TO PMT<1, 15>
     EQU THIS.FMT      TO PMT<1, 28>
     EQU THIS.FILE     TO PMT<1, 11>
     OPT.VAL = PMT<1, 64>
     OPT.TXT = PMT<1, 65>
     *
     IF OPT.VAL THEN
        IF THIS.FMT = "" THEN THIS.FMT = "L#":THIS.LEN
        THIS.OPT = FILE.ITEM(THIS.FILE)<THIS.AM, THIS.VM>
        FIND THIS.OPT IN OPT.VAL SETTING AM.POS, VM.POS, SM.POS THEN
           THIS.TEXT = FMT(THIS.OPT:" ":OPT.TXT<AM.POS, VM.POS, SM.POS>, THIS.FMT)
           ANSWER = THIS.TEXT
        END
     END
     RETURN
     *
PGM.ABORT:*
     CALL SCREEN.MSG('Abnormal Abort;B;H;E;A')
     *
END