t-x goto语法转换修改提交

eIBS.properties

-#Tue Oct 12 14:48:20 CST 2021
+#Tue Oct 12 16:26:34 CST 2021
 LastTarget=eIBS
 ScalePercent=80
 DefaultTransName=ditopn

script/trncorco.0007.script

@@ -23,6 +23,8 @@ boolean doConfirm(#trn argtrn)
   }
   // Check wether CNF Entry is waiting
   int destnum = 0;
+  ExitLabel:
+  while(true){
   if( ! checkServiceWfe( argtrn, "CNF" ) )
   {
     destnum = 0;
@@ -32,13 +34,14 @@ boolean doConfirm(#trn argtrn)
     Platform.sdbUpdate( argtrn );
     Platform.dbCommit();
     updategrid( argtrn );
-    return true; // #######TODO 改写 LABEL与GOTO  ####   goto ExitLabel
+    //return true; //   ####   goto ExitLabel
+    break ExitLabel;
   }
   sigWrite( "E", argtrn, "SG3" ); // external confirmation entered`
   String setflg = Platform.mid( $$argtrn\relreq.getValue(), 3, 1 );
   $$argtrn\relres = Platform.mid( $$argtrn\relres.getValue(), 1, 2 ) + setflg;
   Platform.status( #CT000002, $$argtrn\ownref.getValue() );
-  // #######TODO 改写 LABEL与GOTO   ####    label ReturnLabel
+  //    ####    label ReturnLabel
   if( Platform.compareTo( $$argtrn\relres ,  $$argtrn\relreq ) == 0 )
   {
     $$argtrn\relflg = "R";
@@ -47,7 +50,9 @@ boolean doConfirm(#trn argtrn)
   {
     $$argtrn\relflg = "W";
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label ExitLabel
+  break ExitLabel;
+  }
+  //   ####    label ExitLabel
   updateServiceWfe( argtrn, "CNF" );   // Update status of WFE entry for release
   $$argtrn\inftxt = inftxttmp;
   $$argtrn\infdsp = infdsptmp;

script/trncorco.0017.script

@@ -9,7 +9,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
   //检核牌价是否变化
   /*if( checkXrtChg( $$argtrn\inr.getValue() ) )
   {
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+    //return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+    break ExitNoUpdateLabel;
   }*/
   //新增结售汇，更新汇率处理
   boolean getXrtReturn = false;
@@ -19,11 +20,14 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
   getXrtReturn = getXrtReturnBox.value;
 
   //新增更新gle汇率异常处理，如果异常直接不能复核，（其实也可以直接不更新，后面再优化）
+  ExitNoUpdateLabel:
+  while(true){
   if( getXrtReturn )
   {
     destnum = new BigDecimal("0");
     Platform.errorMessage( #CT000072 );
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+    //return destnum; //####   goto ExitNoUpdateLabel
+    break ExitNoUpdateLabel;
   }
   //! brtset bctset cptopn 交易提示一下如果结算贷款登记时绑定过借据号
   String jjh = NULLSTR;
@@ -48,7 +52,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
     {
       Platform.errorMessage( #CT000058, Platform.mid( $$argtrn\ownref.getValue(), 3 ) );
       destnum = new BigDecimal("0");
-      return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+      //return destnum; // ####   goto ExitNoUpdateLabel
+      break ExitNoUpdateLabel;
     }
   }
   queHldFlg = "D";
@@ -62,7 +67,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
       Platform.errorMessage( #CT000028, $$argtrn\inr.getValue(), GetLockUID, GetLockDateTime );
       destnum = new BigDecimal("0");
       queHldFlg = " ";
-      return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+      //return destnum; // ####   goto ExitNoUpdateLabel
+      break ExitNoUpdateLabel;
     }
     Platform.reraise();
   }
@@ -75,7 +81,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
       Platform.errorMessage( #CT000029, $$argtrn\inr.getValue(), GetLockUID, GetLockDateTime );
       destnum = new BigDecimal("0");
       queHldFlg = " ";
-      return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+      //return destnum; // ####   goto ExitNoUpdateLabel
+      break ExitNoUpdateLabel;
     }
     Platform.reraise();
   }
@@ -85,7 +92,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
     Platform.errorMessage( #CT000030 );
     queHldFlg = "D";
     destnum = new BigDecimal("0");
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+    //return destnum; // ####   goto ExitNoUpdateLabel
+    break ExitNoUpdateLabel;
   }
   // Checking the commit status after locking the TRN
   if( Platform.compareTo($$argtrn\comflg,  "D" )== 0 )
@@ -93,25 +101,30 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
     Platform.errorMessage( #CT000031 );
     queHldFlg = "D";
     destnum = new BigDecimal("0");
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+    //return destnum; //  ####   goto ExitNoUpdateLabel
+    break ExitNoUpdateLabel;
   }
   destnum = new BigDecimal(argrelnum);
   // Force reread of WFEs
   Platform.clear( $wfmmod\wfs );
   // Check wether REL Entry is waiting
   // if service "REL" is used, SRVREL must be included and executed in MGRTSK in order to set WFE for REL to "D"one
+  ExitLabel:
+  while(true){
   if( ! checkServiceWfe( argtrn, "REL" ) )
   {
     queHldFlg = "D";
     destnum = new BigDecimal("0");
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitLabel
+    //return destnum; // ####   goto ExitLabel
+    break ExitLabel;
   }
   //检查服务状态是否有，"E" or "F" ，如果有，必须先进行处理才能RELEASE
   if( ! checkWfeStat() )
   {
     queHldFlg = "D";
     destnum = new BigDecimal("0");
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitLabel
+    //return destnum; //  ####   goto ExitLabel
+    break ExitLabel;
   }
   // check wether user already gave signature
   destnum = setSign( argtrn, argrelnum );
@@ -119,13 +132,15 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
   {
     queHldFlg = "D";
     destnum = new BigDecimal("0");
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+    //return destnum; // ####   goto ExitNoUpdateLabel
+    break ExitNoUpdateLabel;
   }
   if( ! checkPDP( argtrn ) )
   {
     queHldFlg = "D";
     destnum = new BigDecimal("0");
-    return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+    //return destnum; // ####   goto ExitNoUpdateLabel
+    break ExitNoUpdateLabel;
   }
   // 资金报价交易有时间控制，超过时间不允许Release
   Date time = null;
@@ -141,7 +156,8 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
       Platform.errorMessage( #CT000050 );
       queHldFlg = " ";
       destnum = new BigDecimal("0");
-      return destnum; // #######TODO 改写 LABEL与GOTO  ####   goto ExitNoUpdateLabel
+      //return destnum; //  ####   goto ExitNoUpdateLabel
+      break ExitNoUpdateLabel;
     }
   }
   //gleXrtChgAfterRelease( argtrn\inr )
@@ -266,7 +282,9 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
   {
     $imgmod.imgrel ( $$argtrn\imginr.getValue(), $$argtrn\ownref.getValue(), $$argtrn\relflg.getValue(), $$argtrn\relres.getValue() );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label ExitLabel
+  break ExitLabel;
+  }
+  //  ####    label ExitLabel
   $$argtrn\inftxt = inftxttmp;
   $$argtrn\infdsp = infdsptmp;
   setTrnOrgFlg( argtrn );
@@ -320,7 +338,9 @@ BigDecimal doRelease(#trn argtrn,int argrelnum)
     updategrid( argtrn );
     Platform.SetAttributeStream( $trnstm.getValue(), tdAttrSelected, lines );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label ExitNoUpdateLabel
+  break ExitNoUpdateLabel;
+  }
+  //   ####    label ExitNoUpdateLabel
   Platform.dbRollback();
   return destnum;
 

script/trndia.0010.script

@@ -135,9 +135,12 @@ void saveNewDiaries()
     // analyse of controlflag
     flg = internalCtlGetFlgOfLbl( lbl );
     // entry mustn`t be saved in DB when diary was not modified or is a dummy-entry
+    diary:
+    while(true){
     if( Platform.compareTo( flg ,  "SNN" ) == 0 || Platform.compareTo( flg ,  "SND" ) == 0 || Platform.compareTo( flg ,  "NNN" ) == 0 )
     {
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto diary
+      //return ; //  ####   goto diary
+      break diary;
     }
     if( Platform.compareTo( Platform.getTransName() ,  "CPTREP" ) == 0 )
     {
@@ -218,7 +221,9 @@ void saveNewDiaries()
         Platform.reraise();
       }
     }
-    // #######TODO 改写 LABEL与GOTO   ####    label diary
+    break diary;
+    }
+    //    ####    label diary
   }
 
 }
\ No newline at end of file

script/trndia.0025.script

@@ -30,7 +30,9 @@ void internalCtlGetDiaOfType(String argpth,String argdiatyp,String argsubkey,ISt
     }
   }
   int idx = 1;
-  // #######TODO 改写 LABEL与GOTO   ####    label NextEntry
+  NextEntry:
+  while(true){
+  //####    label NextEntry
   int fnd = Platform.streamSearch( $diawrkstm, lbl, idx );
   if( fnd == 0 && lblWithInr )
   {
@@ -38,13 +40,17 @@ void internalCtlGetDiaOfType(String argpth,String argdiatyp,String argsubkey,ISt
     lbl = argpth + "//#" + argsubkey + "#" + argdiatyp + "#";
     idx = 1;
     lblWithInr = false;
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+    //return ; //####   goto NextEntry
+    continue NextEntry;
   }
   if( fnd > 0 )
   {
     Platform.streamInsert( argwrkstm, 0, Platform.getLine( $diawrkstm.getValue(), fnd ) );
     idx = fnd + 1;
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+    //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+    continue NextEntry;
+  }
+  break NextEntry;
   }
 
 }
\ No newline at end of file

script/trndia.0045.script

@@ -5,6 +5,8 @@ boolean isOpenDiariesExists()
   boolean res = false;
   int stmCnt = 0;
   String lbl = NULLSTR;
+  done:
+  while(true){
   if( ! Platform.isEmpty( $diawrkstm ) )
   {
     stmCnt = Platform.streamCount( $diawrkstm.getValue() );
@@ -15,11 +17,14 @@ boolean isOpenDiariesExists()
       if( Platform.isEmpty( $diachk\donflg ) )
       {
         res = true;
-        return res; // #######TODO 改写 LABEL与GOTO  ####   goto done
+        //return res; //####   goto done
+        break done;
       }
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  break done;
+  }
+  //    ####    label done
   return  res;
 
 }
\ No newline at end of file

script/trndoc.0002.script

@@ -74,6 +74,9 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
   String docnam = Platform.mid( argdocpannam, 1, Platform.len( argdocpannam ) - 2 ) + Platform.mid( argdocpannam, Platform.len( argdocpannam ), 1 );
   //  check if message is already in list
   int gridCnt = Platform.gridCount( $doceot );
+  boolean setitFlag = true;
+  setitLabel:
+  while(true){
   if( gridCnt > 0 )
   {
     for(int  i = 1;i <= gridCnt;i++)
@@ -88,7 +91,8 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
         if( Platform.compareTo($doceot[i]\argptainr.getValue(), ptainr) != 0 )
         {
           Platform.clear( $doceot[i] );
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto setit
+          //return ; //####   goto setit
+          break setitLabel;
         }
         $doceot[i]\pandsc = pandsc;
         $doceot[i]\role = role;
@@ -143,7 +147,9 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
             Platform.clear( $doceot[i]\docdat );
           }
         }
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto DoRegisterAddTxt
+       // return ; //####   goto DoRegisterAddTxt
+        setitFlag = false;
+         break setitLabel;
       }
     }
   }
@@ -156,15 +162,19 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
       if( Platform.isEmpty( $doceot[i]\id ) )
       {
         fnd = i;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto setit
+        //return ; //####   goto setit
+        break setitLabel;
       }
     }
   }
   Platform.gridInsertRow( $doceot, 0, 10 );
   fnd = Platform.gridCount( $doceot ) - 9;
   int i = fnd;
+  break setitLabel;
+  }
   // set line in DOCEOT
-  // #######TODO 改写 LABEL与GOTO   ####    label setit
+  // ####    label setit
+  if(setitFlag){
   if( i > 0 )
   {
     $doceot[i]\id = id;
@@ -209,8 +219,9 @@ void defDocEot(String trigger,String subid,String argdocpannam,String apfcod,int
       Platform.clear( $doceot[i]\docdat );
     }
   }
+  }
   // defaulting for ADDTXT/ADDSTR from RegisterAddTxt
-  // #######TODO 改写 LABEL与GOTO   ####    label DoRegisterAddTxt
+  // ####    label DoRegisterAddTxt
   int stmCnt = 0;
   String postcmd = NULLSTR;
   if( ! Platform.isModified( $doceot[i]\addtxt ) && ! Platform.isModified( $doceot[i]\addstr ) )

script/trndoc.0055.script

@@ -28,6 +28,8 @@ event $butatt order 1000
   int stmCnt = Platform.streamCount( selStm );
   String objtyp = NULLSTR;
   String objinr = NULLSTR;
+  UpdateGrids:
+  while(true){
   for(int  selidx = 1;selidx <= stmCnt;selidx++)
   {
     line = Platform.getLine( selStm, selidx );
@@ -44,7 +46,8 @@ event $butatt order 1000
         {
           Platform.errorMessage( #CT001100 );
           fillCONDOCSTM();
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdateGrids
+          //return ; //####   goto UpdateGrids
+          break UpdateGrids;
         }
         else
         {
@@ -54,17 +57,21 @@ event $butatt order 1000
       break;
       default:
       Platform.errorMessage( #CT001099, objtyp );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdateGrids
+      //return ; // ####   goto UpdateGrids
+      break UpdateGrids;
     }
     // Attachment entry does not yet exist, create new attachment under selected document
     newid = createAttachment( $doceot[dOCEOTidx]\id.getValue(), $smh\nam.getValue(), "SMH", $smh\inr.getValue(), "" );
     if( Platform.errorCode() > 0 )
     {
       Platform.errorMessage( #CT001098, Platform.getErrorText() );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdateGrids
+      //return ; //####   goto UpdateGrids
+      break UpdateGrids;
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label UpdateGrids
+  break UpdateGrids;
+  }
+  //####    label UpdateGrids
   Platform.invokeModulePath( "assertDOCS", 0 );
   Platform.invokeModulePath( "TRNDOCFillDOCTree", 0 );
   if( Platform.compareTo(newid, "") != 0 )

script/trndoc.0060.script

@@ -37,20 +37,26 @@ event $filrecv order 1000
     filenameout = getNormalizedFilename( Platform.getLastNode( filenamein ) );
     filenameoutfull = Platform.getFullName( "tmp", filenameout );
     Platform.FileCopy( "client:" + filenamein, filenameoutfull );
+    UpdateGrids:
+    while(true){
     if( Platform.errorCode() > 0 )
     {
       Platform.errorMessage( #CT001116, Platform.getErrorText() );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdateGrids
+      //return ; // ####   goto UpdateGrids
+      break UpdateGrids;
     }
     // Attachment entry does not yet exist, create new attachment under selected document
     newid = createAttachment( $doceot[dOCEOTidx]\id.getValue(), filenameout, "FIL", filenameout, "" );
     if( Platform.errorCode() > 0 )
     {
       Platform.errorMessage( #CT001118, Platform.getErrorText() );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdateGrids
+      //return ; // ####   goto UpdateGrids
+      break UpdateGrids;
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label UpdateGrids
+  break UpdateGrids;
+  }
+  // ####    label UpdateGrids
   Platform.invokeModulePath( "assertDOCS", 0 );
   Platform.invokeModulePath( "TRNDOCFillDOCTree", 0 );
   if( ! Platform.isEmpty( newid ) )

script/trndoc.0068.script

@@ -34,6 +34,8 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
   //  check if message is already in list
   int gridcnt = Platform.gridCount( $doceot );
   int fnd = 0;
+  setit:
+  while(true){
   if( gridcnt > 0 )
   {
     for(int  i = 1;i <= gridcnt;i++)
@@ -41,7 +43,8 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
       if( Platform.compareTo( id ,  $doceot[i]\id ) == 0 )
       {
         fnd = i;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto setit
+        //return ; //####   goto setit
+        break setit;
       }
     }
   }
@@ -54,7 +57,8 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
       if( Platform.isEmpty( $doceot[i]\id ) )
       {
         fnd = i;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto setit
+        //return ; //  ####   goto setit
+        break setit;
       }
     }
   }
@@ -62,8 +66,10 @@ void defDocAtt(String trigger,String argid,String argsubid,String argdsc,String
   gridcnt = Platform.gridCount( $doceot );
   fnd = gridcnt - 9;
   int i = fnd;
+  break setit;
+  }
   // set line in DOCEOT
-  // #######TODO 改写 LABEL与GOTO   ####    label setit
+  //   ####    label setit
   if( i > 0 )
   {
     $doceot[i]\id = id;

script/trndoc.0123.script

@@ -43,12 +43,17 @@ event $butattapy order 1000
     Platform.exitEvent();
   }
   String newid = createAttachment( $doceot[dOCEOTidx]\id.getValue(), attName, "EOT", attInr, "" );
+  UpdateGrids:
+  while(true){
   if( Platform.errorCode() > 0 )
   {
     Platform.errorMessage( #CT001188, Platform.getErrorText() );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdateGrids
+    //return ; // ####   goto UpdateGrids
+    break UpdateGrids;
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label UpdateGrids
+  break UpdateGrids;
+  }
+  //  ####    label UpdateGrids
   Platform.invokeModulePath( "assertDOCS", 0 );
   Platform.invokeModulePath( "TRNDOCFillDOCTree", 0 );
   if( ! Platform.isEmpty( newid ) )

script/trnism.0012.script

@@ -14,8 +14,8 @@ static void getStandardReference(Argument<String> ownref,String sector,String pn
   }
   if( Platform.isEmpty( pntref ) )
   {
-    //return ; // #######TODO 改写 LABEL与GOTO  ####   goto GetNewRef
-    // #######TODO 改写 LABEL与GOTO   ####    label GetNewRef
+    //return ; //   ####   goto GetNewRef
+    //   ####    label GetNewRef
       // if number of parents contract empty
       // - generate new reference
       // Generate Name of counter to be taken
@@ -115,9 +115,9 @@ static void getStandardReference(Argument<String> ownref,String sector,String pn
       if(1==1) return;
     }
   }
-  //return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+  //return ; //   ####   goto done
   /**
-  // #######TODO 改写 LABEL与GOTO   ####    label GetNewRef
+  //  ####    label GetNewRef
   // if number of parents contract empty
   // - generate new reference
   // Generate Name of counter to be taken

script/trnism.0033.script

@@ -37,12 +37,12 @@ void getgrpnew(String sec,String bchkey,String branch,Argument<String> grp)
     if( Platform.errorCode() == 0 )
     {
       grp.value = $rou\grp;
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto end2
+      return ; //####   goto end2
     }
     else
     {
       err = Platform.errorCode();
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto END1
+      //return ; // ####   goto END1
     }
   }
   else
@@ -50,7 +50,7 @@ void getgrpnew(String sec,String bchkey,String branch,Argument<String> grp)
     grp.value = "";
   }
   //2、------查找该分行除了第一步中已设定组以外其它所有支行的组别所属--------------
-  // #######TODO 改写 LABEL与GOTO   ####    label END1
+  // ####    label END1
   rousql = "Where (BUSSEC = '" + sec + "' AND TRNGRP='" + trl + "' AND BCHCOD='' )";
   Platform.dbSelectCursor( $rou, rousql );
   if( Platform.errorCode() == 0 )
@@ -69,7 +69,7 @@ void getgrpnew(String sec,String bchkey,String branch,Argument<String> grp)
   {
     grp.value = "";
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label end2
+  // ####    label end2
   /**
   if Pos( \SYSMOD\USR\TRLGRP, "A" ) == 1 then
   GRP = ""

script/trnmod.0005.script

@@ -5,7 +5,7 @@ void troWriteEntry(String objtyp,String objinr,String trninr)
   if( Platform.isEmpty( objinr ) )
   {
     Platform.sysDump( "Can not insert contract without INR in SRO" );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //####   goto done
   }
   // Is already a last TRN stored for this contract?
   String sql = Platform.sdbEtyGenSql( $tro, "where OBJTYP = " + Platform.sqlLit( objtyp ) + " AND OBJINR = " + Platform.sqlLit( objinr ) + " AND LSTFLG = 'X'" );
@@ -38,6 +38,6 @@ void troWriteEntry(String objtyp,String objinr,String trninr)
       Platform.sdbInsert( $tro );
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  //####    label done
 
 }
\ No newline at end of file

script/trnmod.0025.script

@@ -80,6 +80,6 @@ void autoRegistration(IModule arggrp,String argfrm,String argtxt)
   $\sysmod.sptSaveEntry( $sptaut, arggrp, SptWaitingRegistration, bakStm, "", "" );
   // reset SMH
   Platform.loadData( $smh, oldSmh );
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  // ####    label done
 
 }
\ No newline at end of file

script/trnmod.0037.script

@@ -23,13 +23,16 @@ void troLockAdditionalContract(IModule obj)
   $mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, "", "ADDRELWRN" + Platform.recGetObj( obj ) + Platform.recGetInr( obj ) );
   int a = 0;
   String notFndTxt = NULLSTR;
+  doneLabel:
+  while(true){
   if( Platform.isEmpty( objINR ) && ! Platform.sptIsAnyLoaded() )
   {
     Platform.setContentText( objPath + "\\OWNREF", "" );
     a = Platform.errorCode();
     notFndTxt = #CT000026;
     Platform.setErrorCode( 27, notFndTxt );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    //return ; //####   goto done
+    break  doneLabel;
   }
   String ownRef = Platform.getContent( objPath + "\\OWNREF" );
   Platform.sdbReadLock( Platform.getModule( objPath ), objINR );
@@ -37,7 +40,8 @@ void troLockAdditionalContract(IModule obj)
   int errorCode = 0;
   if( Platform.errorCode() == tdOdbcNotFound )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    //return ; // ####   goto done
+    break  doneLabel;
   }
   else
   {
@@ -48,7 +52,8 @@ void troLockAdditionalContract(IModule obj)
       errorCode = Platform.errorCode();
       $mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, Platform.getText( #CT000028, Platform.errorCode(), Platform.trim( GetLockUID ), GetLockDate, Platform.mid( Platform.fmtTime( (int)GetLockTime ), 1, 5 ), ownRef ), "ADDLCKWRN" + Platform.recGetObj( obj ) + Platform.recGetInr( obj ) );
       Platform.setErrorCode( errorCode, lckTxt );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+      //return ; // ####   goto done
+      break  doneLabel;
     }
     else
     {
@@ -78,7 +83,8 @@ void troLockAdditionalContract(IModule obj)
       errTxt = Platform.getText( #CT000080, ref, trnLst );
       $mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, errTxt, "ADDXREWRN" + Platform.recGetObj( obj ) + Platform.recGetInr( obj ) );
       Platform.setErrorCode( tdOdbcLocked, errTxt );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+      //return ; // ####   goto done
+      break  doneLabel;
     }
     else
     {
@@ -90,7 +96,9 @@ void troLockAdditionalContract(IModule obj)
   trnLst = trnLstBox.value;
 
   Platform.setErrorCode( 0, "" );
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  break  doneLabel;
+  }
+  //    ####    label done
   // reraise all errorcodes
   Platform.reraise();
   // Use EXIT to return to caller with the errorcode set

script/trnp.0038.script

@@ -28,6 +28,8 @@ void fillWFESTM()
     {
       srv = Platform.getLine( remainSrv, idx );
       preLst = $wfmmod.getPreLst ( srv );
+      Nextsrv:
+      while(true){
       for(int  sroidx = 1;sroidx <= Platform.len( preLst );sroidx+=6)
       {
         // PreLst contains list of (possible) predecessors of $srv
@@ -39,14 +41,17 @@ void fillWFESTM()
           if( Platform.streamSearch( remainSrv, preSrv ) > 0 )
           {
             // service still has predecessor
-            return ; // #######TODO 改写 LABEL与GOTO  ####   goto Nextsrv
+            //return ; //####   goto Nextsrv
+            break Nextsrv;
           }
         }
       }
       loopFlag = false;
       Platform.streamDelete( remainSrv, idx );
       Platform.streamInsert( srvstm, 0, srv );
-      // #######TODO 改写 LABEL与GOTO   ####    label Nextsrv
+      break Nextsrv;
+      }
+      //####    label Nextsrv
     }
     if( loopFlag == true )
     {

script/trnrel.0122.script

@@ -296,6 +296,8 @@ void updateGridButtons()
     }
   }
   int useidx = 0;
+  orelabLabel:
+  while(true){
   if( ! Platform.isEmpty( $trncorco\selinr ) )
   {
     for(int  trnidx = 1;trnidx <= Platform.streamCount( $trncorco\selinr.getValue() );trnidx++)
@@ -307,7 +309,8 @@ void updateGridButtons()
         if( Platform.compareTo($trn\relflg.getValue(), "W") != 0 && Platform.compareTo($trn\relflg.getValue(), "X") != 0 )
         {
           //Platform.disable( $relrow, $reldsp );
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto orelab
+          //return ; // ####   goto orelab
+          break orelabLabel;
         }
         else
         {
@@ -320,14 +323,17 @@ void updateGridButtons()
           if( useidx <= 0 )
           {
             //Platform.disable( $relrow, $reldsp );
-            return ; // #######TODO 改写 LABEL与GOTO  ####   goto orelab
+            //return ; //####   goto orelab
+            break orelabLabel;
           }
         }
       }
     }
   }
   Platform.invisible( $rejrow );
-  // #######TODO 改写 LABEL与GOTO   ####    label orelab
+  break orelabLabel;
+  }
+  //  ####    label orelab
   if( Platform.compareTo( $\sysmod\bch\lev ,  "3" ) == 0 )
   {
     $seaownflg = "X";

script/xrtmod.0029.script

@@ -18,7 +18,9 @@ void updateTdparaCurTable()
   String curCod = "";
   int curDec = 0;
   Platform.dbExecuteSql( sql );
-  // #######TODO 改写 LABEL与GOTO   ####    label GetNext
+  //    ####    label GetNext
+  GetNext:
+  while(true){
   Platform.dbFetchFields( "COD", curCod, "DEC", curDec );
   String curNam = NULLSTR;
   String curLin = NULLSTR;
@@ -34,7 +36,8 @@ void updateTdparaCurTable()
     {
       curTbl = curTbl + "\r\n" + curLin;
     }
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto GetNext
+    //return ; // ####   goto GetNext
+    continue GetNext;
   }
   else
   {
@@ -43,6 +46,8 @@ void updateTdparaCurTable()
       Platform.reraise();
     }
   }
+  break GetNext;
+  }
   Platform.dbCloseCursor();
   Platform.SetIniBlock( "TDPARA.INI", "CURRENCY", "Currency", curTbl );
   Platform.CacheClear();

script/xrtmod.0042.script

@@ -9,7 +9,7 @@ void getratCeb(String fromcur,String tocur,String typ,Date value,Argument<BigDec
   if( Platform.compareTo( fromcur ,  tocur ) == 0 )
   {
     rmbrat.value = new BigDecimal(1);
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //  ####   goto done
   }
   if( ( Platform.compareTo(fromcur, sysiso) != 0 ) && ( ! Platform.isEmpty( fromcur ) ) )
   {
@@ -32,6 +32,6 @@ void getratCeb(String fromcur,String tocur,String typ,Date value,Argument<BigDec
       rmbrat.value = Platform.round( $xrt\midrat.getValue(), 6 );
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  //    ####    label done
 
 }
\ No newline at end of file

script/xrtmod.0043.script

@@ -14,7 +14,7 @@ void getratCebTim(String fromcur,String tocur,Date value,Argument<String> rmbrat
   if( Platform.compareTo( fromcur ,  tocur ) == 0 )
   {
     rmbrat.value = "";
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; // ####   goto done
   }
   if( ( Platform.compareTo(fromcur, sysiso) != 0 || Platform.compareTo(tocur, sysiso) != 0 ) && ( ! Platform.isEmpty( fromcur ) ) )
   {
@@ -58,6 +58,6 @@ void getratCebTim(String fromcur,String tocur,Date value,Argument<String> rmbrat
   cbrate = XRT\BUY1RAT
   endif
   **/
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  //    ####    label done
 
 }
\ No newline at end of file