added LSL2 stored procedures

LSL2/STPROC/MODS_NEW_PROJECT.txt

@@ -0,0 +1,71 @@
+function mods_new_project()
+
+$insert logical
+$insert rlist_equates
+$insert msg_equates
+declare function utility, msg, set_property, get.reccount
+declare subroutine record_lock, clear_table
+
+
+open 'MODS' to ModsTable else
+   Void = msg( '', 'Unable to open MODS...' )
+   return 0
+end
+Flag = ''
+Count = get.reccount(ModsTable, Flag, 0)
+if Count > 0 then
+   MsgInfo = ''
+   MsgInfo<micon$> = 'H'
+   MsgInfo<mtext$> = 'There are rows in the MODS table.  You either need to apply them or clear the MODS table.'
+   Void = msg( '', MsgInfo )
+   return 0
+end
+		
+MsgInfo = ''
+MsgInfo<micon$> = '?'
+MsgInfo<mtext$> = 'Are you sure that you want to start a new project...This will clear the BACKREPOS table and start with a fresh copy from SYSREPOS'
+MsgInfo<mtype$> = 'BNY'
+Resp = msg( '', MsgInfo )
+
+if Resp = 1 else
+   return 0
+end
+clear_table('BACKREPOS')
+*
+open 'BACKREPOS' to BReposTable else
+   msg( '', 'Unable to open BACKREPOS' )
+   return 0
+end
+open 'SYSREPOS' to SysReposTable else
+   msg( '', 'Unable to open SYSREPOS' )
+   return 0
+end
+
+* new copy each SYSREPOS into BACKREPOS
+Stmt = 'SELECT SYSREPOS'
+Stat = utility( 'CURSOR', 'H' )
+
+rlist( Stmt, target_activelist$, '', '', '' )
+
+if @reccount then
+	Eof    = false$
+	loop
+	  readnext Id else Eof = true$
+	 until eof
+	      SysreposRec = xlate( 'SYSREPOS', Id, '', 'X' )
+         record_lock( BReposTable, 'BACKREPOS', Id )
+         write SysreposRec on BReposTable, Id else
+            Void = msg( '', 'Unable to write BACKREPOS ':Id )
+            return 0
+         end
+         unlock BReposTable, Id else
+            Void = msg( '', 'Unable to unlock BACKREPOS ':Id )
+            return 0
+         end
+	repeat
+end
+Void = set_property( @window:'.PSD', 'TEXT', oconv( date(), 'D4/' ) )
+Stat = utility( 'CURSOR', 'A' )
+return 0
+
+