Conference iosg::all-in-1_v30

1281.0. "Strange things with the BOX command" by MSDSWS::DUNCAN (Forever VMS, VMS Forever) Thu Aug 20 1992 14:24

ALL-IN-1 V3.0

    My customer has added something to double check to see if one really
    wants to send a message that is not UNSENT, such as READ.
    
    They have a short script that is in the TXL and when it displays the
    box, some of the case is wrong, such as the first word in this example. 
    If I just do a <DO EM_ASK_NOT_UNSENT, I get 
    
    
         P    Print                  Number:  009499    Status:  READ
         
  <        YOU have chosen the Send option but the current document   
  <        is not UNSENT.  THIS will create a new message with the    
  <        current document as an attachment, AND send it.  IF this   
  <        was not your intention, press EXIT SCREEN now, THEN select 
  <        an UNSENT document or use the Create option to CREATE a    
  <        new message.                                               
                                                                     ent
                                                                     
          PRESS RETURN to continue or press EXIT SCREEN to abandon.  
         
         Enter option and press RETURN,
         or press NEXT SCREEN for more options                        (more...)


Of course there should be a box around this test, but with notes....

Now if I do A <DO OA$DO:EM_ASK_NOT_UNSENT.SCP, then the case is fine:

         P    Print                  Number:  009499    Status:  READ
         
   <       You have chosen the Send option but the current document   
   <       is not UNSENT.  This will create a new message with the    
   <       current document as an attachment, and send it.  If this   
   <       was not your intention, press EXIT SCREEN now, then select 
   <       an UNSENT document or use the Create option to create a    
   <       new message.                                               
                                                                     ent
                                                                     
          Press RETURN to continue or press EXIT SCREEN to abandon.  
         
         Enter option and press RETURN,
         or press NEXT SCREEN for more options                        (more...)



Darryl


The code is as follows:

$ UDEV >>> type/p oa$do:em_ask_not_unsent.scp

.BOX EM_S,12,11,60,9,1
<erase>
<left 1><right 1>
You have chosen the <b>Send<c> option but the current document is not
<b>UNSENT<c>.
This will create a new message with the current document as an attachment,
and send it.
If this was not your intention, press <b>EXIT SCREEN<c> now,
then select an <b>UNSENT<c> document or use the <b>Create<c> option to
create a new message.
<set -1,2>
Press <b>RETURN<c> to continue or press <b>EXIT SCREEN<c> to abandon.
.END_BOX
.LABEL JUDGE_RESPONSE
.SINX
.JUDGE "{KEY 0}"
.DELETE_BOX *
.FX GET OA$STATUS=0
.EXIT
.END_JUDGE
.JUDGE "{F10}"
.DELETE_BOX *
.FX GET OA$STATUS=0
.EXIT
.END_JUDGE
.JUDGE "{CR}"
.DELETE_BOX *
.FX GET OA$STATUS=1
.EXIT
.END_JUDGE
.GOTO JUDGE_RESPONSE

Hello Darryl,

Works fine on fully patch 2.4 so this feature must have
slipped in 3.0. 

It looks like the TXL compiler uppercases every 
first word off each line (this, and, if...).

I would say: put the script in OA$LIB until the problem is 
fixed. 

I expect that someone from IOSG will tell us if the
problem is know or that you have to us formal channels
(SPR)....

Regards,

Jan