Revision: 4791
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at January 21, 2008 08:38 by fbayanati
Initial Code
* -----
* VKCWbrc.mac - Vertical Knee brace 2 Column Web
* This part of macro applies to vertical braces for a VKCW connection
*
* Developer : FB Date : 16Jan200
* Last modified:
* -----
*LOCAL curMem, ierr, brcMemNum, %Ocode, NUMc, %errmsg, NUMb
doneVal = $DONE
IF ($DONE = 1) THEN
GOTO macend
ENDIF
ierr = 0
brcMemNum = $MEMBER
CALL pos2beVBrc( brcMemNum, ierr )
IF ( ierr # 0 ) THEN
%Ocode = NTOLCOD brcMemNum
DONE %Ocode
ENDIF
NUMc = 0
%errmsg = No error
CALL findVKCWcol( brcMemNum, NUMc, ierr, %errmsg )
IF (ierr # 0) THEN
PRINT error=<%errmsg>
GOTO macend
ENDIF
CALL svWshpDBt(NUMc, Dc, Bc, tc)
*CALL svWshpDBt(NUMb, Db, Bb, tb)
*GOTO macend
CALL getColDatFile( NUMc, %colSetupFile, ierr )
PRINT NUMc:{NUMc} %colSetupFile:<%colSetupFile> ierr:{ierr}
IF (ierr # 0) THEN
GOTO macend
ENDIF
OPENR %colSetupFile
CALL readVKCW
CLOSER
CALL brc2HorLoc(brcMemNum, %brc2HorLoc)
CALL setONvbTOS&SIDE(brcMemNum)
CALL setVBoffs4VKCW(brcMemNum)
CALL vbShrt4VKCW(brcMemNum, NUMb, ierr)
IF (ierr # 0) THEN
GOTO macend
ENDIF
CALL vbBolts4VKCW(brcMemNum, ierr)
IF (ierr # 0) THEN
GOTO macend
ENDIF
*IF (ierr # 0) THEN
* GOTO macend
*ENDIF
#macend
Initial URL
Initial Description
* VKCWbrc.mac - Vertical Knee brace 2 Column Web
Initial Title
VKCWbrc.mac - Vertical Knee brace 2 Column Web
Initial Tags
Initial Language
Other