[Search for users] [Overall Top Noters] [List of all Conferences] [Download this site]

Conference iosg::all-in-1_v30

Title:*OLD* ALL-IN-1 (tm) Support Conference
Notice:Closed - See Note 4331.l to move to IOSG::ALL-IN-1
Moderator:IOSG::PYE
Created:Thu Jan 30 1992
Last Modified:Tue Jan 23 1996
Last Successful Update:Fri Jun 06 1997
Number of topics:4343
Total number of notes:18308

1941.0. "MAIL EDIT, STATUS, and REPEAT loop programming." by NIKKOR::ANDERSON (BIG RED FAN, Went to LITTLE BROWN) Thu Dec 10 1992 15:32

    Programming Question: 
    
    Background - ALL-IN-1 V3.0, VAX/VMS V5.4-3
    
    I tried writing a repeat loop to send mail messages of selected records
    in a DSAB from a index form.  The user selects the records and does a
    XS command.  The name data looks similar to:
    
    	GET #RFA=''\
        .FX
          NEXT_SELECTED ...\\
          GET #KEY = ...\\
          
          BUILD MAIL MESSAGE...\\
    
          CLOSE_MESSAGE\\
          MAIL EDIT/HEADER\\
          MAIL SEND\\
          REPEAT
    
    The previous works fine unless the user presses exit screen.  At this
    point I would like to end the loop.  But, it seems that the MAIL EDIT
    function does not set a status so that IFEXIT or IFSTATUS can be used. 
    The only way I was able to do this was to take the code and put it in a
    script and check OA$FORM_TERMINATOR with a .IF THEN .GOTO statement.
    Replacing the REPEAT with another .GOTO.  Is there a way to do this
    without using a script.
    
    Thanks.
    
    
    
    
    
    
    
    	
    
    
      
    
    
    
T.RTitleUserPersonal
Name
DateLines
1941.1Just set oa$status yourselfHVNBND::WARFORDRichard Warford @CEO DTN 367-5455Thu Dec 10 1992 15:426
    How about MAIL EDIT\GET OA$STATUS=OA$FORM_TERMINATOR\IFSTATUS
    
    Type of thing. Might need a .IF to set OA$STATUS to a 1 or 0 to
    work properly...
    
    Rick
1941.2Or another one...OK4ME::CAFE3Jack CreamerThu Dec 10 1992 19:136
    
    Or check OA$FORM_DISPOSE...
    
    HTH,
    
    Jack
1941.3...OMDEMO::ANDERSONBIG RED FAN, Went to LITTLE BROWNMon Dec 14 1992 20:348
    I thought I had tried both of these.
    
    I tried to set OA$STATUS but with no luck and if you cannot do this, it
    is impossible to make the REPEAT loop because you cannot use IFSTATUS.
    
    And... oa$form_dispose is not set correctly so you cannot use IFEXIT.
    
    
1941.4OA$STATUS should be settableHVNBND::WARFORDRichard Warford @CEO DTN 367-5455Mon Dec 14 1992 22:315
    OA$STATUS should be settable. BUT it might have to be set to a 1 or
    0 only. Not to the exact status you are getting from your terminator
    symbol.
    
    RIck