Conference iosg::all-in-1_v30

    Looks like a bug. The reference should be, of course, OA$FLD_DONE. I'll
    log it in the problem database.
    
    Tony

    I've checked the problem out. It's due to the unknown function
    PA$FLD_DONE in the named data for .RETURN in form
    CM$OPTIONS$INDEX$TEMPLATE. A fixed version of the named data is given below.
    You might like to extract it and insert the new named data into the
    form on your system, test it and let us know if it works. I've also
    logged the bug and fixed the problem in the CMS libraries so it will be
    included in some future release. Thanks for telling us about it.
    
    Tony
    
;;.TYPE;;

INDEX/CHOICE=CHOICE/CLEAR/OVERLAY/HARD=CM$_HRD_TEMPLATE_TITLE
/PRE='XOP "~~PRE~~"'/POST='XOP "~~POST~~"'/MORE=#CM_OPT_MO

;;~~PRE~~;;

GET WHAT = #CM_WHAT\GET #CM_TMP0 = ""\
 GET #CM_GOLDB = 0\XOP "~~FIND~~"\
 .IF OA$MENU_REMAINDER NES '' THEN XOP "~~OPTION~~"

;;~~OPTION~~;;

GET_SYMBOL OA$MENU_REMAINDER,#CM_CHOICE," "\
GET #CM_STATUS = 0\
GET #OPTION = #CM_TYPE:5 #CM_OPTTYPE:2 #CM_CHOICE \
GET #CM_CHOICE = "~~" CM$OPTIONS$TYPE:ALTKEY.ND_OPTION[#OPTION] "~~"\
GET CHOICE = ""\.IF #CM_CHOICE NES "~~~~" THEN XOP "~~THE_CHOICE~~" ELSE 
 GET OA$MENU_REMAINDER = ""\\GET OA$DISPLAY=CM$_ICR

;;~~THE_CHOICE~~;;

GET #CM_STATUS = 0\
XOP #CM_CHOICE\.IF #CM_STATUS EQ 1 THEN OA$FLD_EXIT

;;~~POST~~;;

IFEXIT\CLOSE_PRIOR\OA$SCL_EXIT\BIND_BREAK *CMMULTOP\DUMP

;;.PC NEXT SCREEN;;

OA$SCL_NEXT_PAGE

;;.PC PREV SCREEN;;

OA$SCL_PRIOR_PAGE

;;.GOLD TAB;;

OA$SCL_NEXT_PAGE

;;.GOLD F12;;

OA$SCL_PRIOR_PAGE
GET #CM_GOLDB = 1\OA$FLD_EXIT

;;.GOLD T;;

OA$SCL_FIRST_PAGE
GET #CM_GOLDB = 1\OA$FLD_EXIT

;;.GOLD B;;

OA$SCL_LAST_PAGE\OA$SCL_BOTTOM

;;.GOLD UP;;

OA$SCL_TOP

;;.GOLD DOWN;;

OA$SCL_BOTTOM

;;OPTION;;

/MFSR=,,,*CMMULTOPT

;;DESC;;

/MFSR=,,,*CMMULTOPT

;;LINE;;

/ALIAS = %LINE

;;~~FIND~~;;

OA$SCL_INIT,,,*CMMULTOPT

;;%NULL;;

.IF CM$ETYPES.MANDATORY[#CM_ETYPES_KEY] NES 
 CM$_Y THEN XOP "~~ASK~~" ELSE GET OA$DISPLAY CM$_C_TEMP

;;~~ASK~~;;

 GET #CM_TMP0 = "RETURN"\
 YESNO_PROMPT CM$_C_NOTEMP_CON,CM$_YESNO\OA$FLD_STAY\GET #CM_TMP0 = ""\
 .IF OA$PROMPT_DISPOSE EQ 2 THEN GET #CM_GOLDA="0"\\ GET #CM_CHOICE = "*"\\
 OA$FLD_EXIT

;;.BS;;

GET #CM_GOLDB = 1\OA$FLD_EXIT

;;.F12;;

GET #CM_GOLDB = 1\OA$FLD_EXIT

;;CHOICE;;

/PRE="GET #CM_GOLDB = 0\GET #CM_CHOICE=''"
/PRE= 'XOP "~~SET_MORE_STRINGS~~"'

;;.RETURN;;

.IF CHOICE EQS "" THEN OA$FLD_DONE ELSE XOP "~~RETURN2~~"

;;.GOLD F;;

.IF CHOICE EQS "" THEN OA$FLD_DONE ELSE XOP "~~RETURN2~~"

;;~~RETURN2~~;;

GET OA$MENU_REMAINDER = CHOICE \
.IF CHOICE:1 EQS "<" OR CHOICE:1 EQS "$" THEN 
  GET CHOICE = "" \\
  OA$FLD_DONE
 ELSE 
  XOP "~~OPTION~~" 

;;~~SET_MORE_STRINGS~~;;

COMPUTE #CM_DIFF = 3 - OA$SCROLL_LINE + LINE\
.IF #CM_DIFF GE #CM_TEM_SEL_COUNT THEN GET MORE2 = MORE = "" ELSE 
 GET MORE2 = CM$_CM1_MORE\\GET MORE = CM$_GEN_MORE

    Tony,
    
    You didn't need to go to all the trouble of logging a bug report
    as the CSC has already logged this one as ALF374 (THR-15631).
    
    Ah well at least one can be closed as a duplicate.
    
    Regards,
    
    Andrew.D.Wicks 
                                                       

    Oh well, I had logged the THR (15859) before ADW replied in .last. The
    fix is in CMS and the ICO has been issued...
    
    Tony

    BL123A
    
    My customer is amazed that this bug is STILL in the code.  Here is a
    message I got from him, short but to the point.
    
    
    Subject: PA$FLD_DONE
    
    This bug is still there!  Do they think CM bugs are unimportant?  At
    heavily customized sites like ours, CM is the *first* subsystem to be
    used.
    
                                        L
    
    

    I forgot to mention that we blew away ALL-IN-1 and did a fresh install
    of BL123A.
    
    Darryl

    
    
    Darryl,
    
    Noone thinks CM is not important (CXP and TM maybe but that's another
    story) and the CM team as Tony stated in an earlier note did indeed
    place this fix in CM a long time ago. 
    
    However a business decision was made by management types who do not
    read this notesfile as to which fixes went into the resubmitted SSB
    kit (BL123A as opposed to BL122D) and this one was not included so both
    your and the customers criticism is directed at the wrong target
    (unintentionally I am sure).
    
    If you move this discussion to ABBOTT::A1INFO we may be able to give
    you some good (post-DIAMOND) news on this one.
    
    regards,
    
    Andrew.D.Wicks

    The annoyance of the customer is duely noted. The CM team are aware of
    the problem and have fixed the bug. We are now waiting for a suitable
    vehicle for delivery of the fix to the customer. Until the bus comes
    along, use the fix provided in this note.
    
    Tony