Conference iosg::all-in-1_v30

1750.0. "Unsent mail count" by NCBOOT::HARRIS (oooppps) Tue Nov 10 1992 20:44

    the customer has a script that will display the number of messages that
    are unsent (using OA$MAIL_UNSENT_COUNT).  the script by itself works
    and it works fine in V2.4, but in V3.0.....
    
    in V2.4 the call to the script was placed immediately after the MAIL
    INIT command.
    
    	                                                                              
    MENU /USER=USER/DATE=DATE/MAIL=MAIL/CHOICE=CHOICE/CLEAR/TITLE=TITLE           
    /MORE="EMC1,EMC2,FC1"                                                         
    /PRE="GET #CURDOC='OA$CURMES'\MAIL INITIALIZE                                 
    \DO 3M$A1:[EM_MODIFIED]UNSENT\                                                
     .IF OA$CURMES NES ''                                                         
    .
    .
    /GET=UNSENT,#UNSENT/GET=UNSENT_MESSAGE,#UNSENT_MESS
    .
    .
    ________________
    Now in V3.0, i've tried placing the call to the script in about the
    same place, but its not working correctly. the /GET used to be part of
    the /PRE.  the script does work if called interactivly, and if the user
    goes to the WP menu, then back to EM; or if you log out then log back
    in.  i've also tried placing the call to the script in various other
    locations-but no luck in working.  any ideas?
    
    .
    .
    /GET=UNSENT,#UNSENT/GET=UNSENT_MESSAGE,#UNSENT_MESS
    /HARD=EM$_EMC_HRD_EM
    /PRE='
    .
    .
    ;;~~EM_INIT~~;;
    
    MAIL INITIALIZE\
    GET #CURDOC = "OA$CURMES"\
    GET #CURDRA = "$EM_DRAWER"\
    DO UNSENT\
    GET OA$SUBSYSTEM = "EM"\
    
    
_________________
    !
        GET #UNSENT = OA$MAIL_UNSENT_COUNT
        GET #UNSENT_MESS = " "
        .IF #UNSENT EQ 0 THEN .GOTO EXIT_HERE
        .IF #UNSENT EQ 1 THEN GET #UNSENT_MESS = "message unsent"
        .IF #UNSENT GT 1 THEN GET #UNSENT_MESS = "messages unsent"
    .LABEL EXIT_HERE
        .IF #UNSENT EQ 0 THEN GET #UNSENT = " "
        .EXIT
    

    Is this Ann?
    
    Look at note 1463, specifically 1463.2.  
    
    Also, just for the heck of it try the following where you do
    the get (outside of the /pre) in V3.0.
    
    	<FOR CAB$ WITH .MAIL_STATUS == "UNSENT" DO GET OA$SEL_COUNT
    
    Tim

    If you move the code for the /pre to an xop and call the xop from the
    /pre:
    
    	/pre ='xop ...' 
    
    you get the same results.
    
    
    I still think the answer lies in note 1463.
    
    
    Tim