home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / comp / os / vms / 22158 < prev    next >
Encoding:
Internet Message Format  |  1993-01-28  |  1.9 KB
  1. Path: sparky!uunet!charon.amdahl.com!pacbell.com!decwrl!sdd.hp.com!zaphod.mps.ohio-state.edu!rpi!usc!elroy.jpl.nasa.gov!nntp-server.caltech.edu!SOL1.GPS.CALTECH.EDU!CARL
  2. From: carl@SOL1.GPS.CALTECH.EDU (Carl J Lydick)
  3. Newsgroups: comp.os.vms
  4. Subject: Re: command procedure calling
  5. Date: 27 Jan 1993 01:38:08 GMT
  6. Organization: HST Wide Field/Planetary Camera
  7. Lines: 28
  8. Distribution: world
  9. Message-ID: <1k4p20INNjbq@gap.caltech.edu>
  10. References: <ERMIMWEI.20@er.ele.tue.nl?>
  11. Reply-To: carl@SOL1.GPS.CALTECH.EDU
  12. NNTP-Posting-Host: sol1.gps.caltech.edu
  13.  
  14. In article <ERMIMWEI.20@er.ele.tue.nl?>, ERMIMWEI@er.ele.tue.nl (Wim Beckers) writes:
  15. >When a command procedure is called by another command procedure  their is 
  16. >always a return to the calling command procedure.
  17. >Is there a possibility to NOT return to the calling procedure?
  18.  
  19. Well, you *COULD* execute the command:
  20.     $ MCR DCL
  21. (don't do this;  it deletes your process, but it does *NOT* return to the
  22. calling procedure :-).
  23.  
  24. There's no documented way to exit from the entire stack of DCL procedures in a
  25. single command.  The best way to deal with this is, after every invocation of a
  26. command procedure, have conditional code in the calling procedure.  For
  27. example:
  28.     $!    LEVEL1.COM
  29.     $     @LEVEL2
  30.     $    IF ($STATUS .AND. 7) .NE. 1 THEN-
  31.             EXIT 'F$INTEGER(%X10000000 .OR. $STATUS)'
  32.     $     {additional commands}
  33. and have the called procedure return a meaningful status when it exits.
  34. --------------------------------------------------------------------------------
  35. Carl J Lydick | INTERnet: CARL@SOL1.GPS.CALTECH.EDU | NSI/HEPnet: SOL1::CARL
  36.  
  37. Disclaimer:  Hey, I understand VAXen and VMS.  That's what I get paid for.  My
  38. understanding of astronomy is purely at the amateur level (or below).  So
  39. unless what I'm saying is directly related to VAX/VMS, don't hold me or my
  40. organization responsible for it.  If it IS related to VAX/VMS, you can try to
  41. hold me responsible for it, but my organization had nothing to do with it.
  42.