VKCWbrc.mac - Vertical Knee brace 2 Column Web


/ Published in: Other
Save to your folder(s)

* VKCWbrc.mac - Vertical Knee brace 2 Column Web


Copy this code and paste it in your HTML
  1. * -----
  2. * VKCWbrc.mac - Vertical Knee brace 2 Column Web
  3. * This part of macro applies to vertical braces for a VKCW connection
  4. *
  5. * Developer : FB Date : 16Jan200
  6. * Last modified:
  7. * -----
  8.  
  9. *LOCAL curMem, ierr, brcMemNum, %Ocode, NUMc, %errmsg, NUMb
  10.  
  11. doneVal = $DONE
  12. IF ($DONE = 1) THEN
  13. GOTO macend
  14. ENDIF
  15.  
  16. ierr = 0
  17. brcMemNum = $MEMBER
  18. CALL pos2beVBrc( brcMemNum, ierr )
  19. IF ( ierr # 0 ) THEN
  20. %Ocode = NTOLCOD brcMemNum
  21. DONE %Ocode
  22. ENDIF
  23.  
  24. NUMc = 0
  25. %errmsg = No error
  26. CALL findVKCWcol( brcMemNum, NUMc, ierr, %errmsg )
  27. IF (ierr # 0) THEN
  28. PRINT error=<%errmsg>
  29. GOTO macend
  30. ENDIF
  31.  
  32. CALL svWshpDBt(NUMc, Dc, Bc, tc)
  33. *CALL svWshpDBt(NUMb, Db, Bb, tb)
  34.  
  35. *GOTO macend
  36.  
  37. CALL getColDatFile( NUMc, %colSetupFile, ierr )
  38. PRINT NUMc:{NUMc} %colSetupFile:<%colSetupFile> ierr:{ierr}
  39. IF (ierr # 0) THEN
  40. GOTO macend
  41. ENDIF
  42.  
  43. OPENR %colSetupFile
  44. CALL readVKCW
  45. CLOSER
  46.  
  47. CALL brc2HorLoc(brcMemNum, %brc2HorLoc)
  48.  
  49. CALL setONvbTOS&SIDE(brcMemNum)
  50. CALL setVBoffs4VKCW(brcMemNum)
  51.  
  52. CALL vbShrt4VKCW(brcMemNum, NUMb, ierr)
  53. IF (ierr # 0) THEN
  54. GOTO macend
  55. ENDIF
  56.  
  57. CALL vbBolts4VKCW(brcMemNum, ierr)
  58. IF (ierr # 0) THEN
  59. GOTO macend
  60. ENDIF
  61.  
  62. *IF (ierr # 0) THEN
  63. * GOTO macend
  64. *ENDIF
  65.  
  66. #macend

Report this snippet


Comments

RSS Icon Subscribe to comments

You need to login to post a comment.