a-r goto语法转换修改提交

script/atcmod.0002.script

@@ -16,7 +16,7 @@ void getNextEntryForDIA(Argument<String> argcodes,Argument<String> arggroup,Argu
     {
       if( ! atcConditionTrue( $atcsub\atcdia\ignflg.getValue(), $atcsub\atcdia\cnd.getValue(), $atcsub\atcdia\cndfld1typ.getValue(), $atcsub\atcdia\cndfld1.getValue(), $atcsub\atcdia\cndfld2typ.getValue(), $atcsub\atcdia\cndfld2.getValue() ) )
       {
-        //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+        //return ; //   ####   goto NextEntry
         continue NextEntryLabel;
       }
       arggroup.value = $atcsub\atcdia\grp;
@@ -30,7 +30,7 @@ void getNextEntryForDIA(Argument<String> argcodes,Argument<String> arggroup,Argu
           break;
           default:
           atcCallSysdumpInfo( "ATCDIA\\DAT", $atcsub\atcdia\dat.getValue(), "Function not defined" );
-          //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+          //return ; //   ####   goto NextEntry
                   continue NextEntryLabel;
         }
         break;
@@ -40,7 +40,7 @@ void getNextEntryForDIA(Argument<String> argcodes,Argument<String> arggroup,Argu
         {
           errTxt = Platform.getErrorText();
           atcCallSysdumpInfo( "ATCDIA\\DAT", $atcsub\atcdia\dat.getValue(), errTxt );
-          //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+          //return ; //  ####   goto NextEntry
                   continue NextEntryLabel;
         }
         break;
@@ -50,7 +50,7 @@ void getNextEntryForDIA(Argument<String> argcodes,Argument<String> arggroup,Argu
         {
           errTxt = Platform.getErrorText();
           atcCallSysdumpInfo( "ATCDIA\\DAT", $atcsub\atcdia\dat.getValue(), errTxt );
-          //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+          //return ; //   ####   goto NextEntry
                   continue NextEntryLabel;
         }
         break;
@@ -62,14 +62,14 @@ void getNextEntryForDIA(Argument<String> argcodes,Argument<String> arggroup,Argu
         {
           errTxt = Platform.getErrorText();
           atcCallSysdumpInfo( "ATCDIA\\DATNUM", Platform.toString( $atcsub\atcdia\datnum.getValue() ), errTxt );
-          //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+          //return ; //  ####   goto NextEntry
                   continue NextEntryLabel;
         }
       }
       // no creation of diary, if date empty
       if( Platform.isEmpty( argdate.value ) )
       {
-       //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextEntry
+       //return ; //   ####   goto NextEntry
                continue NextEntryLabel;
       }
       argcod.value = $atcsub\atcdia\cod;

script/cbsget.0003.script

@@ -12,7 +12,9 @@ String cbsGetUnbalancedExtIds(IModule obj,String cbcarg)
   String sql = "Where OBJTYP = '" + Platform.recGetObj( obj ) + "' AND OBJINR = '" + Platform.recGetInr( obj ) + "'";
   sql = sql + " AND CBC = '" + cbcarg + "' ORDER BY EXTID ASC, BEGDAT DESC, INR DESC";
   Platform.dbSelectCursor( $cbb, sql );
-  // #######TODO 改写 LABEL与GOTO   ####    label CBBLoop
+  //    ####    label CBBLoop
+  CBBLoopLabel:
+  while(true){
   Platform.DBFetch( $cbb );
   while( Platform.errorCode() <= 0 )
   {
@@ -38,13 +40,16 @@ String cbsGetUnbalancedExtIds(IModule obj,String cbcarg)
       }
       lastId = $cbb\extid;
     }
-    continue ; // #######TODO 改写 LABEL与GOTO  ####   goto CBBLoop
+    //continue ; //   ####   goto CBBLoop
+    continue CBBLoopLabel;
+  }
+  break CBBLoopLabel;
   }
   if( ! Platform.isEmpty( emptyId ) )
   {
     extIds = "\r\n" + extIds;
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label CBBDone
+  //    ####    label CBBDone
   return  extIds;
 
 }
\ No newline at end of file

script/cbsget.0004.script

@@ -13,7 +13,9 @@ String internalGenSqlSet(String argliste)
   String rtn = NULLSTR;
   IStream argstm = new StreamImpl();
   Platform.streamClear( argstm );
-  // #######TODO 改写 LABEL与GOTO   ####    label NxtElm
+  //    ####    label NxtElm
+  NxtElmLabel:
+  while(true){
   // Search for next delimiter
   while(begPos <= MdaUtilsEx.len(argliste)) {
       int len = Platform.pos( Platform.mid( argliste, begPos ), "," );
@@ -24,7 +26,7 @@ String internalGenSqlSet(String argliste)
         if( begPos == 1 )
         {
           rtn = " = " + Platform.sqlLit( argliste );
-          return rtn; // #######TODO 改写 LABEL与GOTO  ####   goto Done
+          return rtn; //   ####   goto Done
         }
         // if no delimiter found, take rest
         len = Platform.len( Platform.mid( argliste, begPos ) ) + 1;
@@ -43,10 +45,13 @@ String internalGenSqlSet(String argliste)
         begPos = begPos + len;
         if( begPos <= Platform.len( argliste ) )
         {
-          continue; // #######TODO 改写 LABEL与GOTO  ####   goto NxtElm
+          //continue; //   ####   goto NxtElm
+          continue NxtElmLabel;
         }
       }
   }
+  break NxtElmLabel;
+  }
   // transform list of values into the set format
   String list = "";
   String con = "";
@@ -57,7 +62,7 @@ String internalGenSqlSet(String argliste)
     con = ",";
   }
   rtn = " IN (" + list + ")";
-  // #######TODO 改写 LABEL与GOTO   ####    label Done
+  //    ####    label Done
   return  rtn;
 
 }
\ No newline at end of file

script/cbsmod.0004.script

@@ -26,7 +26,9 @@ void createCbbEntries(#cbe rec)
   }
   // Insert CBB-records for all relevant CBC-s depending on CBT
   int idx = 1;
-  // #######TODO 改写 LABEL与GOTO   ####    label CBBLoop
+  //   ####    label CBBLoop
+  CBBLoopLabel:
+  while(true){
   String blk = Platform.getLine( cbcBlk, idx );
   if( Platform.isEmpty( blk ) )
   {
@@ -73,6 +75,8 @@ void createCbbEntries(#cbe rec)
     Platform.reraise();
   }
   idx = idx + 1;
-  return ; // #######TODO 改写 LABEL与GOTO  ####   goto CBBLoop
+  //return ; //   ####   goto CBBLoop
+  continue CBBLoopLabel;
+  }
 
 }
\ No newline at end of file

script/cbsmod.0010.script

@@ -50,7 +50,9 @@ void deleteCbbEntries(#cbe cbearg)
     }
   }
   int idx = 0;
-  // #######TODO 改写 LABEL与GOTO   ####    label DelLoop
+  //   ####    label DelLoop
+  DelLoopLabel:
+  while(true){
   idx = idx + 1;
   if( idx > Platform.streamCount( stream ) )
   {
@@ -78,6 +80,8 @@ void deleteCbbEntries(#cbe cbearg)
   // Delete the CBS-Balance entry
   Platform.dbRead( $\cbsmod\cbb, inr, "INR" );
   Platform.sdbRngDelete( $\cbsmod\cbb );
-  return ; // #######TODO 改写 LABEL与GOTO  ####   goto DelLoop
+  //return ; //   ####   goto DelLoop
+  continue DelLoopLabel;
+  }
 
 }
\ No newline at end of file

script/cbsmod.0013.script

@@ -50,11 +50,13 @@ void commitCbbEntries(#cbe cbearg)
     }
   }
   int idx = 0;
-  // #######TODO 改写 LABEL与GOTO   ####    label UpdLoop
+  //    ####    label UpdLoop
+  UpdLoopLabel:
+  while(true){
   idx = idx + 1;
   if( idx > Platform.streamCount( stream ) )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdDone
+    return ; //  ####   goto UpdDone
   }
   lin = Platform.getLine( stream, idx );
   opr = Platform.mid( lin, 1, 1 );
@@ -87,7 +89,9 @@ void commitCbbEntries(#cbe cbearg)
   {
     Platform.reraise();
   }
-  return ; // #######TODO 改写 LABEL与GOTO  ####   goto UpdLoop
-  // #######TODO 改写 LABEL与GOTO   ####    label UpdDone
+  //return ; //   ####   goto UpdLoop
+  continue UpdLoopLabel;
+  }
+  //    ####    label UpdDone
 
 }
\ No newline at end of file

script/cfgfil.0094.script

@@ -27,7 +27,7 @@ void saveConDataAndCallTrn(String argtrn)
             if( !que )
             {
               Platform.clear( $\sysmod\spt );
-              return ; // #######TODO 改写 LABEL与GOTO  ####   goto LblEnd
+              return ; //  ####   goto LblEnd
             }
           }
           else
@@ -43,7 +43,7 @@ void saveConDataAndCallTrn(String argtrn)
                 {
                   Platform.message( #CT000027, sptEty );
                   Platform.dbFree( $\sysmod\spt );
-                  return ; // #######TODO 改写 LABEL与GOTO  ####   goto LblEnd
+                  return ; //   ####   goto LblEnd
                 }
               }
             }
@@ -53,7 +53,7 @@ void saveConDataAndCallTrn(String argtrn)
             }
             Platform.message( #CT000026, $\sysmod\spt\frm.getValue() );
             Platform.dbFree( $\sysmod\spt );
-            return ; // #######TODO 改写 LABEL与GOTO  ####   goto LblEnd
+            return ; //   ####   goto LblEnd
           }
         }
       }
@@ -69,6 +69,6 @@ void saveConDataAndCallTrn(String argtrn)
   Platform.clear( $\sysmod\spt );
   saveConData();
   Platform.lnkCallTransaction( argtrn );
-  // #######TODO 改写 LABEL与GOTO   ####    label LblEnd
+  //   ####    label LblEnd
 
 }
\ No newline at end of file

script/ditopn.0044.script

@@ -2,7 +2,25 @@ void printAddressBlk(String user,String charArg,String user1)
 {
   if( Platform.isEmpty( user ) )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto this
+    //return ; //  ####   goto this
+     //  ####    label this
+          if( ! Platform.isEmpty( Platform.getContent( user1 + "\\ADRBLK" ) ) )
+          {
+            for(int  i = 1;i <= 4;i++)
+            {
+              if( ! Platform.isEmpty( Platform.getLine( Platform.getContent( user1 + "\\ADRBLK" ), i ) ) )
+              {
+                if( i == 1 )
+                {
+                  Platform.printTempUsing( "ditopn.adrlin", charArg, Platform.getLine( Platform.getContent( user1 + "\\ADRBLK" ), i ));
+                }
+                else
+                {
+                  Platform.printTempUsing( "ditopn.adrlin", "", Platform.getLine( Platform.getContent( user1 + "\\ADRBLK" ), i ));
+                }
+              }
+            }
+          }
   }
   else
   {
@@ -40,7 +58,7 @@ void printAddressBlk(String user,String charArg,String user1)
     }
     else
     {
-      // #######TODO 改写 LABEL与GOTO   ####    label this
+      //   ####    label this
       if( ! Platform.isEmpty( Platform.getContent( user1 + "\\ADRBLK" ) ) )
       {
         for(int  i = 1;i <= 4;i++)

script/docbol.0019.script

@@ -35,7 +35,9 @@ void bolGetCodeDesc(IStream argsrcstm,IStream argtarstm)
         if( Platform.len( code ) > 3 )
         {
           // no action, as it`s not a code
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto LblEnd
+          //return ; //   ####   goto LblEnd
+          Platform.streamInsert( argtarstm, 0, line );
+          continue;
         }
         desc = "";
         Platform.streamClear( descStm );
@@ -44,7 +46,9 @@ void bolGetCodeDesc(IStream argsrcstm,IStream argtarstm)
         if( Platform.errorCode() > 0 )
         {
           // no action, the file must not exist
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto LblEnd
+          //return ; //   ####   goto LblEnd
+          Platform.streamInsert( argtarstm, 0, line );
+          continue;
         }
         Platform.streamClear( tmpStm );
         trimStream( descStm, tmpStm );
@@ -59,7 +63,7 @@ void bolGetCodeDesc(IStream argsrcstm,IStream argtarstm)
         line = Platform.mid( line, 1, endPos ) + code + " " + desc + Platform.mid( line, nextPos );
       }
     }
-    // #######TODO 改写 LABEL与GOTO   ####    label LblEnd
+    //    ####    label LblEnd
     Platform.streamInsert( argtarstm, 0, line );
   }
 

script/doceot.0000.script

@@ -29,7 +29,8 @@ void setCORTYP()
     {
       if( Platform.searchBlock( $valcortyp.getValue(), cortyp ) == 0 )
       {
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextIdx
+        //return ; //   ####   goto NextIdx
+        continue;
       }
     }
     switch( cortyp )
@@ -142,7 +143,7 @@ void setCORTYP()
         setval = setval + cortyp + "\r\n";
       }
     }
-    // #######TODO 改写 LABEL与GOTO   ####    label NextIdx
+    //    ####    label NextIdx
   }
   // if CORTYP is not allowed, ignore manual input and redefault
   if( Platform.searchBlock( setval, $cortyp.getValue() ) == 0 )
@@ -177,7 +178,7 @@ void setCORTYP()
   {
     Platform.disable( $cortyp );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label nodef
+  //  ####    label nodef
   setOldValues();
   //if IsModified( CORTYP ) then
   //  ResetModified( CORTYP )

script/doceot.0041.script

@@ -9,12 +9,12 @@ check $adrbic order 1000
         if( Platform.compareTo( $cortyp.getValue() ,  "SWT" ) == 0 && Platform.isEmpty( $adrbic ) )
         {
           Platform.errorMessage( #CT000086 );
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+          return ; //   ####   goto done
         }
         $\trnmod\ptsmod\adrdef.checkADRBIC ( $adrbic.getValue() );
       }
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  //    ####    label done
 
 }
\ No newline at end of file

script/doceot.0053.script

@@ -11,11 +11,12 @@ String getCORTYPValuesPopup()
     {
       if( Platform.searchBlock( $valcortyp.getValue(), cortyp ) == 0 )
       {
-        return setval = setval + cortyp + "\r\n"; // #######TODO 改写 LABEL与GOTO  ####   goto NextIdx
+        //return setval = setval + cortyp + "\r\n"; //  ####   goto NextIdx
+        continue;
       }
     }
     setval = setval + cortyp + "\r\n";
-    // #######TODO 改写 LABEL与GOTO   ####    label NextIdx
+    //    ####    label NextIdx
   }
   return  setval;
 

script/docimm.0007.script

@@ -90,7 +90,7 @@ void printAllTags()
     }
     break;
     case "A":  // Display all parts of ASCIN (handle multiple messages)
-    // #######TODO 改写 LABEL与GOTO   ####    label LabelAllParts
+    //  ####    label LabelAllParts
     Platform.streamSet( msgstream, $ascin.getValue() ); // for rest of message
     total = splitMsgDTAInc();
     for(int  logicalFileIdx = 1;logicalFileIdx <= total;logicalFileIdx++)
@@ -175,7 +175,71 @@ void printAllTags()
       if( Platform.errorCode() == -500 )
       {
         // splitting is not possible (no :EOH:, TradeConnect message show complete message)
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto LabelAllParts
+       // return ; //   ####   goto LabelAllParts
+        Platform.streamSet( msgstream, $ascin.getValue() ); // for rest of message
+            total = splitMsgDTAInc();
+            for(int  logicalFileIdx = 1;logicalFileIdx <= total;logicalFileIdx++)
+            {
+              if( total <= 1 )
+              {
+                // ASCIN contains single logical file
+              }
+              else
+              {
+                Platform.clear( $lastfilename );
+                line = Platform.getLine( $msgctl.getValue(), logicalFileIdx );
+                start = Platform.parseInt( Platform.mid( line, 1, 8 ) );
+                end = Platform.parseInt( Platform.mid( line, 9, 8 ) );
+                Platform.streamClear( $ascin.getValue() );
+                for(int  i = start;i <= end;i++)
+                {
+                  Platform.streamInsert( $ascin.getValue(), 0, Platform.getLine( msgstream, i ) );
+                }
+                // ASCIN contains logical file number `$LogicalFileIdx`
+              }
+              msgpos = 0;
+              do
+              {
+                msglen = -1;
+                Argument<Integer> msgposBox = new Argument<Integer>("",msgpos);
+                Argument<Integer> msglenBox = new Argument<Integer>("",msglen);
+                analyseSwiftStream( msgposBox, msglenBox, $smh\cortyp.getValue() );
+
+                msgpos = msgposBox.value;
+                msglen = msglenBox.value;
+
+                if( Platform.errorCode() > 0 )
+                {
+                  printLine( Platform.getText( #CT000198, $filename.getValue(), Platform.errorCode(), Platform.getErrorText() ) );
+                  msglen = 0;
+                }
+                else
+                {
+                  if( msglen > 7 )
+                  {
+                    // Delete repetition of header for Tradeconnect/DTALC Trailer
+                    // (Swift body fields are alway numeric)
+                    zline = Platform.streamSearch( $namestream, "Z" );
+                    if( zline > 1 )
+                    {
+                      if( Platform.compareTo( Platform.mid( Platform.getLine( $namestream.getValue(), zline - 1 ), 1, 1 ) ,  "A" ) == 0 )
+                      {
+                        for(int  delidx = 1;delidx <= zline - 1;delidx++)
+                        {
+                          Platform.streamDelete( $namestream.getValue(), 1 );
+                        }
+                      }
+                    }
+                    if( ! Platform.isEmpty( $namestream ) )
+                    {
+                      printAllFldStream( true );
+                      printLine( " " );
+                    }
+                    msgpos = msgpos + msglen;
+                  }
+                }
+              }while (!( msglen < 7 ));
+              }
       }
       if( total > 1 )
       {

script/docimm.0016.script

@@ -81,7 +81,7 @@ void printDocFromSMH(#smh insmh,#prt inprt,String outfilename)
     default:
     Platform.setErrorCode( 599, Platform.formatText( "GetViewerFromSMH returned format \'$1\' which cannot be printed", viewFmt ) );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label ErrorLabel
+  //    ####    label ErrorLabel
   String dummy = getTagSupFile( $smh\cortyp.getValue() );
   if( Platform.errorCode() == 0 )
   {

script/docimm.0053.script

@@ -188,7 +188,12 @@ void popupDocWithSMH(#smh insmh,String intitle)
     if( ! Platform.fileExists( $filename.getValue() ) )
     {
       Platform.setErrorCode( 1, Platform.getText( #CT000383, $filename.getValue() ) );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto ErrorLabel
+      //return ; //   ####   goto ErrorLabel
+      if( Platform.errorCode() > 0 )
+        {
+          Platform.message( #CT000367, $filename.getValue(), Platform.getErrorText(), Platform.errorCode() );
+        }
+        if(1==1) return;
     }
     $\sysmod\syspth.showLocalCopy( "", $filename.getValue(), "" );
     break;
@@ -202,7 +207,7 @@ void popupDocWithSMH(#smh insmh,String intitle)
     default:
     Platform.setErrorCode( 599, Platform.formatText( "GetViewFromSMH returned unknown format \'$1\'", viewFmt ) );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label ErrorLabel
+  //    ####    label ErrorLabel
   if( Platform.errorCode() > 0 )
   {
     Platform.message( #CT000367, $filename.getValue(), Platform.getErrorText(), Platform.errorCode() );

script/docimm.0060.script

@@ -5,7 +5,9 @@ int splitMsgDTAInc()
   Platform.clear( $msgctl );   // list of start/end line per message
   int nextA1 = Platform.streamSearch( $ascin, ":A1:" );
   int start = 1;
-  // #######TODO 改写 LABEL与GOTO   ####    label SearchNextA1
+  //    ####    label SearchNextA1
+  SearchNextA1Label:
+  while(true){
   nextA1 = Platform.streamSearch( $ascin, ":A1:", nextA1 + 1 );
   int end = nextA1 - 1;
   if( end <= 0 )
@@ -16,7 +18,10 @@ int splitMsgDTAInc()
   start = nextA1;
   if( nextA1 > 0 )
   {
-    return MdaUtils.streamCount(this.getMsgctl()); // #######TODO 改写 LABEL与GOTO  ####   goto SearchNextA1
+    //return MdaUtils.streamCount(this.getMsgctl()); //   ####   goto SearchNextA1
+    continue SearchNextA1Label;
+  }
+  break SearchNextA1Label;
   }
   return Platform.streamCount( $msgctl.getValue() );
 

script/docimm.0071.script

@@ -79,7 +79,8 @@ void printAllFldStream(boolean printfooterflag)
     // skip system tags
     if( Platform.compareTo( format ,  "SYS" ) == 0 )
     {
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextField
+      //return ; //   ####   goto NextField
+      continue;
     }
     // Load Content
     content = Platform.loadContent( orifieldname, $fldstream.getValue() );
@@ -251,7 +252,7 @@ void printAllFldStream(boolean printfooterflag)
     {
       newline = true;
     }
-    // #######TODO 改写 LABEL与GOTO   ####    label NextField
+    //   ####    label NextField
   }
   if( printfooterflag )
   {

script/docimm.0098.script

@@ -80,7 +80,7 @@ void printAllTagsTCO(IStream docstream,String intitle,String indir,String incort
     }
     break;
     case "A":  // Display all parts of ASCIN (handle multiple messages)
-    // #######TODO 改写 LABEL与GOTO   ####    label LabelAllParts
+    //   ####    label LabelAllParts
     Platform.streamSet( msgstream, $ascin.getValue() ); // for rest of message
     total = splitMsgDTAInc();
     for(int  logicalFileIdx = 1;logicalFileIdx <= total;logicalFileIdx++)
@@ -154,7 +154,68 @@ void printAllTagsTCO(IStream docstream,String intitle,String indir,String incort
       if( Platform.errorCode() == -500 )
       {
         // splitting is not possible (no :EOH:, TradeConnect message show complete message)
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto LabelAllParts
+        //return ; //  ####   goto LabelAllParts
+        Platform.streamSet( msgstream, $ascin.getValue() ); // for rest of message
+            total = splitMsgDTAInc();
+            for(int  logicalFileIdx = 1;logicalFileIdx <= total;logicalFileIdx++)
+            {
+              if( total <= 1 )
+              {
+                // ASCIN contains single logical file
+              }
+              else
+              {
+                Platform.clear( $lastfilename );
+                line = Platform.getLine( $msgctl.getValue(), logicalFileIdx );
+                start = Platform.parseInt( Platform.mid( line, 1, 8 ) );
+                end = Platform.parseInt( Platform.mid( line, 9, 8 ) );
+                Platform.streamClear( $ascin.getValue() );
+                for(int  i = start;i <= end;i++)
+                {
+                  Platform.streamInsert( $ascin.getValue(), 0, Platform.getLine( msgstream, i ) );
+                }
+                // ASCIN contains logical file number `$LogicalFileIdx`
+              }
+              msgpos = 0;
+              do
+              {
+                msglen = -1;
+                Argument<Integer> msgposBox = new Argument<Integer>("",msgpos);
+                Argument<Integer> msglenBox = new Argument<Integer>("",msglen);
+                analyseSwiftStream( msgposBox, msglenBox, "SWT" );
+
+                msgpos = msgposBox.value;
+                msglen = msglenBox.value;
+
+                if( Platform.errorCode() > 0 )
+                {
+                  msglen = 0;
+                }
+                else
+                {
+                  if( msglen > 7 )
+                  {
+                    // Delete repetition of header for Tradeconnect/DTALC Trailer
+                    // (Swift body fields are alway numeric)
+                    zline = Platform.streamSearch( $namestream, "Z" );
+                    if( zline > 1 )
+                    {
+                      if( Platform.compareTo( Platform.mid( Platform.getLine( $namestream.getValue(), zline - 1 ), 1, 1 ) ,  "A" ) == 0 )
+                      {
+                        for(int  delidx = 1;delidx <= zline - 1;delidx++)
+                        {
+                          Platform.streamDelete( $namestream.getValue(), 1 );
+                        }
+                      }
+                    }
+                    if( ! Platform.isEmpty( $namestream ) )
+                    {
+                    }
+                    msgpos = msgpos + msglen;
+                  }
+                }
+              }while (!( msglen < 7 ));
+              }
       }
       if( total > 1 )
       {

script/docimm.0100.script

@@ -79,7 +79,8 @@ void printAllFldStreamTCO(boolean printfooterflag)
     // skip system tags
     if( Platform.compareTo( format ,  "SYS" ) == 0 )
     {
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextField
+      //return ; //   ####   goto NextField
+      continue;
     }
     // Load Content
     content = Platform.loadContent( orifieldname, $fldstream.getValue() );
@@ -251,7 +252,7 @@ void printAllFldStreamTCO(boolean printfooterflag)
     {
       newline = true;
     }
-    // #######TODO 改写 LABEL与GOTO   ####    label NextField
+    //   ####    label NextField
   }
   if( printfooterflag )
   {

script/docimm.0105.script

@@ -90,7 +90,7 @@ void printAllTagsTCO1()
     }
     break;
     case "A":  // Display all parts of ASCIN (handle multiple messages)
-    // #######TODO 改写 LABEL与GOTO   ####    label LabelAllParts
+    //    ####    label LabelAllParts
     Platform.streamSet( msgstream, $ascin.getValue() ); // for rest of message
     total = splitMsgDTAInc();
     for(int  logicalFileIdx = 1;logicalFileIdx <= total;logicalFileIdx++)
@@ -167,7 +167,71 @@ void printAllTagsTCO1()
       if( Platform.errorCode() == -500 )
       {
         // splitting is not possible (no :EOH:, TradeConnect message show complete message)
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto LabelAllParts
+        //return ; //   ####   goto LabelAllParts
+        Platform.streamSet( msgstream, $ascin.getValue() ); // for rest of message
+            total = splitMsgDTAInc();
+            for(int  logicalFileIdx = 1;logicalFileIdx <= total;logicalFileIdx++)
+            {
+              if( total <= 1 )
+              {
+                // ASCIN contains single logical file
+              }
+              else
+              {
+                Platform.clear( $lastfilename );
+                line = Platform.getLine( $msgctl.getValue(), logicalFileIdx );
+                start = Platform.parseInt( Platform.mid( line, 1, 8 ) );
+                end = Platform.parseInt( Platform.mid( line, 9, 8 ) );
+                Platform.streamClear( $ascin.getValue() );
+                for(int  i = start;i <= end;i++)
+                {
+                  Platform.streamInsert( $ascin.getValue(), 0, Platform.getLine( msgstream, i ) );
+                }
+                // ASCIN contains logical file number `$LogicalFileIdx`
+              }
+              msgpos = 0;
+              do
+              {
+                msglen = -1;
+                Argument<Integer> msgposBox = new Argument<Integer>("",msgpos);
+                Argument<Integer> msglenBox = new Argument<Integer>("",msglen);
+                analyseSwiftStream( msgposBox, msglenBox, $smh\cortyp.getValue() );
+
+                msgpos = msgposBox.value;
+                msglen = msglenBox.value;
+
+                if( Platform.errorCode() > 0 )
+                {
+                  printLine( Platform.getText( #CT000411, $filename.getValue(), Platform.errorCode(), Platform.getErrorText() ) );
+                  msglen = 0;
+                }
+                else
+                {
+                  if( msglen > 7 )
+                  {
+                    // Delete repetition of header for Tradeconnect/DTALC Trailer
+                    // (Swift body fields are alway numeric)
+                    zline = Platform.streamSearch( $namestream, "Z" );
+                    if( zline > 1 )
+                    {
+                      if( Platform.compareTo( Platform.mid( Platform.getLine( $namestream.getValue(), zline - 1 ), 1, 1 ) ,  "A" ) == 0 )
+                      {
+                        for(int  delidx = 1;delidx <= zline - 1;delidx++)
+                        {
+                          Platform.streamDelete( $namestream.getValue(), 1 );
+                        }
+                      }
+                    }
+                    if( ! Platform.isEmpty( $namestream ) )
+                    {
+                      printAllFldStreamTCO( true );
+                      printLine( " " );
+                    }
+                    msgpos = msgpos + msglen;
+                  }
+                }
+              }while (!( msglen < 7 ));
+              }
       }
       if( total > 1 )
       {

script/docimm.0115.script

@@ -54,7 +54,7 @@ void popupDocWithSMHben(#smh insmh,String intitle)
     default:
     Platform.setErrorCode( 599, Platform.formatText( "GetViewFromSMH returned unknown format \'$1\'", viewFmt ) );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label ErrorLabel
+  //    ####    label ErrorLabel
   if( Platform.errorCode() > 0 )
   {
     Platform.message( #CT000434, $filename.getValue(), Platform.getErrorText(), Platform.errorCode() );

script/fecism.0007.script

@@ -321,7 +321,7 @@ BigDecimal clcFecIrtcal(#setfel line,String relcur,BigDecimal relamt,String feec
             $$line\dat2 = Platform.add( $$line\dat2.getValue(), -1 );
             enddat = $$line\dat2;
             //return ; //   ####   goto restart
-            break restartLabel;
+            continue restartLabel;
           }
           // confirm usage of total minimum
           Platform.streamInsert( $$line\infdetstm.getValue(), 0, "MINCON" + "\t" + Platform.format( $$line\dat1.getValue(), "DD/MM/YYYY" ) + "\t" + Platform.format( $$line\dat2.getValue(), "DD/MM/YYYY" ) + "\t" + relcur + "\t" + Platform.toString( mintot ) );

script/fecmod.0004.script

@@ -7,19 +7,21 @@ void loadWrkPty(String argptyinr)
   int cnt = 0;
   if( ! Platform.isEmpty( res ) )
   {
-    // #######TODO 改写 LABEL与GOTO   ####    label restart
+    //   ####    label restart
+    restartLabel:
+    while(true){
     // check if more than 20 steps to avoid dead loop
     cnt = cnt + 1;
     if( cnt > 20 )
     {
       $\trnmod\mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, #CT000002, "GetFecPtyinrOFW" );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto Done
+      return ; //   ####   goto Done
     }
     // get PTY
     Platform.cacheDbRead( $wrkpty, res, "INR" );
     if( Platform.errorCode() == tdOdbcNotFound )
     {
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto Done
+      return ; //   ####   goto Done
     }
     else
     {
@@ -30,7 +32,8 @@ void loadWrkPty(String argptyinr)
       if( ( ! Platform.isEmpty( $wrkpty\hbkconflg ) ) && ( ! Platform.isEmpty( $wrkpty\hbkinr ) ) && Platform.compareTo(res, $wrkpty\hbkinr.getValue()) != 0 )
       {
         res = $wrkpty\hbkinr;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto restart
+        //return ; //  ####   goto restart
+        continue restartLabel;
       }
       // check HEQACCFLG
       // 可能會有自指的現象，需要考慮
@@ -38,10 +41,13 @@ void loadWrkPty(String argptyinr)
       if( ( ! Platform.isEmpty( $wrkpty\heqconflg ) ) && ( ! Platform.isEmpty( $wrkpty\heqinr ) ) && Platform.compareTo(res, $wrkpty\heqinr.getValue()) != 0 )
       {
         res = $wrkpty\heqinr;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto restart
+        //return ; // ####   goto restart
+         continue restartLabel;
       }
     }
+    break restartLabel;
+    }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label Done
+  //   ####    label Done
 
 }
\ No newline at end of file

script/glemod.0001.script

@@ -94,6 +94,6 @@ void liaglesav(String cur,int amount,String engact,String engcat,String ref,Stri
       gleStoreEntry( $gle );
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label Endsav
+  //    ####    label Endsav
 
 }
\ No newline at end of file

script/glemod.0003.script

 void gleStoreEntry(#gle entry)
 {
+  dontsavLabel:
+  while(true){
   if( Platform.compareTo( $$entry\amt ,  0 ) == 0 && Platform.isEmpty( $$entry\act ) )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto dontsav
+    //return ; //   ####   goto dontsav
+    break dontsavLabel;
   }
   if( Platform.isEmpty( $$entry\dbtcdt ) )
   {
     Platform.sysDump( "D/C-Flag not set in Booking" );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto dontsav
+    //return ; //   ####   goto dontsav
+    break dontsavLabel;
   }
   $$entry\trninr = $\trnmod\trn\inr;
   if( Platform.errorCode() != 0 )
   {
     Platform.sysDump( "Cannot get \\TRN\\INR" );
     Platform.clear( $$entry\trninr );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto dontsav
+    //return ; //  ####   goto dontsav
+    break dontsavLabel;
   }
   int order = $\trnmod\glenmb;
   $$entry\gleord = Platform.toString( order + 1 );
@@ -43,7 +48,9 @@ void gleStoreEntry(#gle entry)
     $$entry\valdat = $$entry\bucdat;
   }
   Platform.saveData( entry, $glesrm.getValue(), "GLE" + Platform.toString( $glenmb.getValue(), -3 ) );
-  // #######TODO 改写 LABEL与GOTO   ####    label dontsav
+  break dontsavLabel;
+  }
+  //   ####    label dontsav
   String line = $$entry\prn.getValue() + "\t" + $$entry\trninr.getValue() + "\t" + $$entry\dbtcdt.getValue() + "\t" + $$entry\cur.getValue() + "\t" + Platform.toString( $$entry\amt.getValue() ) + "\t" + Platform.fmtDateShort( $$entry\valdat.getValue(), Platform.getLang() ) + "\t" + $$entry\act.getValue() + "\t" + Platform.toString( $$entry\rat.getValue() ) + "\t" + $$entry\expses.getValue() + "\t" + $$entry\syscur.getValue() + "\t" + Platform.toString( $$entry\sysamt.getValue() );
   Platform.streamInsert( $gleshwstm.getValue(), 0, line );
 

script/hmdsnd.0000.script

@@ -35,7 +35,9 @@ void convertSwt(#trn argtrn,IStream swtstm)
       if( Platform.errorCode() > 0 )
       {
         rc = "E";
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto doneerror
+        //return ; //   ####   goto doneerror
+                Platform.dbCloseCursor();
+                return;
       }
       Platform.streamSet( $msgout.getValue(), $msgin.getValue() );
       replaceFirstchar();
@@ -48,24 +50,32 @@ void convertSwt(#trn argtrn,IStream swtstm)
       if( Platform.errorCode() > 0 )
       {
         rc = "E";
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto doneerror
+        //return ; //   ####   goto doneerror
+                Platform.dbCloseCursor();
+                return;
       }
       msgcount = $docimm.splitMsg( $msgout.getValue() );
       if( Platform.errorCode() > 0 )
       {
         rc = "R";
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto doneerror
+        //return ; //   ####   goto doneerror
+                Platform.dbCloseCursor();
+                return;
       }
       $docimm.splitMsgGetCtl( $msgctl.getValue() );
       rc = transmitMessage( argtrn );
       if( Platform.compareTo(rc, "D") != 0 )
       {
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto doneerror
+        //return ; //   ####   goto doneerror
+                Platform.dbCloseCursor();
+                return;
       }
       if( Platform.errorCode() > 0 )
       {
         rc = "E";
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto doneerror
+        //return ; //   ####   goto doneerror
+        Platform.dbCloseCursor();
+        return;
       }
       Platform.streamInsert( swtstm, 0, $msgout.getValue() );
     }
@@ -77,7 +87,7 @@ void convertSwt(#trn argtrn,IStream swtstm)
       }
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label doneerror
+  //  ####    label doneerror
   Platform.dbCloseCursor();
 
 }
\ No newline at end of file

script/imgmod.0008.script

@@ -4,11 +4,14 @@ void scanimage()
   //>>>传递参数，根据参数调用影像接口
   //<<<end
   String key = "";
+  scanLabel:
+  while(true){
   if( Platform.compareTo( Platform.getTransName() ,  "OFFICE" ) == 0 )
   {
     //批量扫描
     key = " p ";
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto scan
+    //return ; // ####   goto scan
+           break scanLabel;
   }
   //判断点击按钮是history image还是image
   String block = Platform.getContext( "TRIGGER" );
@@ -61,7 +64,8 @@ void scanimage()
       else
       {
         key = " q " + $\sysmod\usr\extkey.getValue() + " " + "null" + " " + dCref;
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto scan
+        //return ; // ####   goto scan
+               break scanLabel;
       }
     }
   }
@@ -100,11 +104,14 @@ void scanimage()
         Platform.exitEvent();
       }
       key = " d " + $\sysmod\usr\extkey.getValue() + " " + dCref + " " + dCinr + " " + "null" + " " + "null" + " " + Platform.trim( Platform.getTransName() );
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto scan
+      //return ; // ####   goto scan
+       break scanLabel;
     }
   }
+  break scanLabel;
+  }
   //release 交易单独处理
-  // #######TODO 改写 LABEL与GOTO   ####    label scan
+  //   ####    label scan
   if( ! Platform.isEmpty( key ) )
   {
     //  PromptOK( 'R0000052

script/imgmod.0019.script

@@ -76,7 +76,7 @@ String getDcrefPart(String trn,String dcinr,Argument<String> pattyp)
       }
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  //    ####    label done
   return  dcref;
 
 }
\ No newline at end of file

script/imgmod.0035.script

@@ -9,6 +9,8 @@ static void ddeSendIMAGEStream(String argtrn,IStream argstr)
   BigDecimal del = new BigDecimal("0");
   BigDecimal tim = new BigDecimal("0");
   // #######TODO 改写 LABEL与GOTO   ####    label CheckTarget
+  CheckTargetLabel:
+  while(true){
   IStream str = new StreamImpl();
   String msg = NULLSTR;
   if( Platform.ddeTestTopic( trigger, ddeTopic ) )
@@ -33,7 +35,8 @@ static void ddeSendIMAGEStream(String argtrn,IStream argstr)
       Platform.pause( del );
       tim = Platform.numAdd(tim , del);
       // $Del = $Del * 2
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto CheckTarget
+      //return ; //   ####   goto CheckTarget
+      continue  CheckTargetLabel;
     }
     else
     {
@@ -49,5 +52,6 @@ static void ddeSendIMAGEStream(String argtrn,IStream argstr)
       }
     }
   }
-
+break CheckTargetLabel;
+}
 }
\ No newline at end of file

script/irtcal.0031.script

@@ -2,7 +2,7 @@ Date getNextPeriod(Date begdat,Date lastdate,String met)
 {
   //! retrieves next date
   //! this function needs not to respect grace period, as this is respected on calling
-  // #######TODO 改写 LABEL与GOTO   ####    label nextdate
+  //    ####    label nextdate
   // generate next date
   int year = 0;
   int month = 0;

script/liaall.0132.script

@@ -31,6 +31,8 @@ void registersettlementLiaZZ()
     {
       roldbt = rolRpl;
     }
+    SetFeeLabel:
+    while(true){
     if( ( ! Platform.isEmpty( $\liaall\liaallg[i]\rol ) ) && ( ! Platform.isEmpty( $\liaall\liaallg[i]\feecod ) ) && Platform.isEmpty( $\liaall\liaallg[i]\feehndidx ) )
     {
       // check for special ddefinition with LiaallSetFeecodObj first
@@ -96,7 +98,8 @@ void registersettlementLiaZZ()
 
             if( ! Platform.isEmpty( wrn ) )
             {
-              return ; // #######TODO 改写 LABEL与GOTO  ####   goto SetFee
+              //return ; //   ####   goto SetFee
+              break SetFeeLabel;
             }
           }
         }
@@ -136,7 +139,9 @@ void registersettlementLiaZZ()
         un = 0;
       }
     }
-    // #######TODO 改写 LABEL与GOTO   ####    label SetFee
+    break SetFeeLabel;
+    }
+    //   ####    label SetFee
     /**
     if \LIAALL\LIAALLG( $i )\fec\settyp == "E" and IsEmpty( \LIAALL\LIAALLG( $i )\setdatold ) then
     $todat = NULLDATE

script/liaall.0142.script

@@ -14,10 +14,13 @@ void getRelevantDates(int liaallgidx,Argument<Date> argbegdat,Argument<Date> arg
     lstdat = dat2;
     dat2 = $\setmod\setfeg\fecism\irtcal.getNextPeriod ( begdat, dat2, $\liaall\liaallg[i]\fec\pertyp.getValue() );
   }
+  SetResLabel:
+  while(true){
   if( dat2 == Platform.add( $\liaall\liaallg[i]\setdatold.getValue(), 1 ) )
   {
     begdat = lstdat;
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto SetRes
+     //return ; //  ####   goto SetRes
+              break SetResLabel;
   }
   // If not, try to find relevant date from fee pool
   IStream chkStm = new StreamImpl();
@@ -49,7 +52,8 @@ void getRelevantDates(int liaallgidx,Argument<Date> argbegdat,Argument<Date> arg
     {
       todat = null;
       wrn = #CT000326;
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto SetRes
+       //return ; //  ####   goto SetRes
+                break SetResLabel;
     }
     else
     {
@@ -63,7 +67,8 @@ void getRelevantDates(int liaallgidx,Argument<Date> argbegdat,Argument<Date> arg
       if( Platform.compareTo(Platform.toString( $liaallg[i]\fecold.getValue() ), Platform.toString( chkStm )) != 0 )
       {
         wrn = Platform.getText( #CT000327, $\liaall\liaallg[i]\feecod.getValue() );
-        return ; // #######TODO 改写 LABEL与GOTO  ####   goto SetRes
+         //return ; //  ####   goto SetRes
+                  break SetResLabel;
       }
       else
       {
@@ -104,12 +109,15 @@ void getRelevantDates(int liaallgidx,Argument<Date> argbegdat,Argument<Date> arg
         if( ! Platform.isEmpty( fecBegdat ) )
         {
           wrn = Platform.getText( #CT000328, $\liaall\liaallg[i]\feecod.getValue() );
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto SetRes
+          //return ; //  ####   goto SetRes
+          break SetResLabel;
         }
       }
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label SetRes
+  break SetResLabel;
+  }
+  //    ####    label SetRes
   argbegdat.value = begdat;
   argtodat.value = todat;
   argwrn.value = wrn;

script/liaccv.0006.script

@@ -48,7 +48,9 @@ void getOldCovers(IModule mod)
     mainmod = mod;
     donflg = true;
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label rep
+  //   ####    label rep
+  repLabel:
+  while(true){
   int chk = 1;
   String extid = NULLSTR;
   int use = 0;
@@ -148,7 +150,10 @@ void getOldCovers(IModule mod)
     Platform.streamClear( ids );
     Platform.streamInsert( ids, 0, Platform.getLine( addids, 1 ) );
     Platform.streamDelete( addids, 1 );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto rep
+    //return ; //   ####   goto rep
+    continue repLabel;
+  }
+  break repLabel;
   }
   // reset old amount in lines not longer holding an amount
   int stmCntOld = Platform.streamCount( oldIdxStm );

script/liaccv.0029.script

@@ -4,16 +4,21 @@ event $add order 1000
   int num = Platform.gridCount( $liaccvg );
   int idx = 1;
   String insflg = "Y";
+  chooseCcvLabel:
+  while(true){
   for(int  line = 1;line <= num;line++)
   {
     if( Platform.isEmpty( $liaccvg[line]\oldamt ) && Platform.isEmpty( $liaccvg[line]\amt ) && Platform.isEmpty( $liaccvg[line]\ownref ) && Platform.isEmpty( $liaccvg[line]\acc ) )
     {
       idx = line;
       insflg = "N";
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto chooseCcv
+      //return ; //   ####   goto chooseCcv
+      break chooseCcvLabel;
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label chooseCcv
+  break chooseCcvLabel;
+  }
+  //    ####    label chooseCcv
   if( Platform.compareTo( insflg ,  "Y" ) == 0 )
   {
     Platform.gridInsertRow( $liaccvg, 0 );

script/liaone.0018.script

@@ -7,19 +7,19 @@ default $cbe\acc order 1000
     Platform.disable( $cbe\acc );
     Platform.setFieldValue( $cbe\acc, $wrkcbe\acc );
     $cbe\acc =  $wrkcbe\acc.getValue();
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //  ####   goto done
   }
   if( Platform.isEmpty( $cbe\cur ) )
   {
     Platform.disable( $cbe\acc );
     Platform.setFieldValue( $cbe\acc, $cbe\acc );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //   ####   goto done
   }
   if( ( Platform.isEmpty( $liaptyinr ) || ( Platform.compareTo( $cbe\amt ,  0 ) == 0 ) ) && ( Platform.compareTo( $wrkcbb\amt ,  0 ) == 0 ) )
   {
     Platform.disable( $cbe\acc );
     Platform.setFieldValue( $cbe\acc, $cbe\acc );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //   ####   goto done
   }
   else
   {
@@ -51,6 +51,6 @@ default $cbe\acc order 1000
   {
     Platform.disable( $cbe\acc );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  //   ####    label done
 
 }
\ No newline at end of file

script/liaone.0019.script

@@ -5,18 +5,18 @@ default $cbe\acc2 order 1000
   {
     Platform.disable( $cbe\acc2 );
     $cbe\acc2 =  $wrkcbe\acc2.getValue();
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //   ####   goto done
   }
   if( Platform.isEmpty( $cbe\cur ) || ! Platform.isEmpty( $nobookcat ) )
   {
     $\sysmod.disableAndClearField( Platform.getDatafield($cbe,"acc2") );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //  ####   goto done
   }
   String trmtyp = NULLSTR;
   if( ( Platform.isEmpty( $liaacc2ptyinr ) || ( Platform.compareTo( $cbe\amt ,  0 ) == 0 ) ) && ( Platform.compareTo( $wrkcbb\amt ,  0 ) == 0 ) )
   {
     Platform.disable( $cbe\acc2 );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto done
+    return ; //   ####   goto done
   }
   else
   {
@@ -60,6 +60,6 @@ default $cbe\acc2 order 1000
   {
     Platform.disable( $cbe\acc2 );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label done
+  //    ####    label done
 
 }
\ No newline at end of file

script/lscmod.0018.script

@@ -15,8 +15,10 @@ void lscReevaluateLsbBalance(String lsbinr)
   // clear register to accumulate balance
   BigDecimal amt = new BigDecimal("0");
   $lsa\xrfdat = Platform.today();
-  // #######TODO 改写 LABEL与GOTO   ####    label LSCLoop
+  //   ####    label LSCLoop
   // Loop thru LSC"s, convert to LSB\CUR and sum together
+  LSCLoopLabel:
+  while(true){
   Platform.DBFetch( $lsc );
   if( Platform.errorCode() <= 0 )
   {
@@ -26,7 +28,8 @@ void lscReevaluateLsbBalance(String lsbinr)
     $lsc\xrfamt = Platform.xrtLimit( $lsc\cur.getValue(), $lsc\amt.getValue(), $lsc\xrfcur.getValue(), $lsc\xrfdat.getValue() );
     Platform.dbUpdate( $lsc, $lsc\lsbinr.getValue(), "LSBINR", $lsc\cur.getValue(), "CUR" );
     amt = Platform.numAdd(amt , $lsc\xrfamt.getValue());
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto LSCLoop
+    //return ; //   ####   goto LSCLoop
+    continue LSCLoopLabel;
   }
   else
   {
@@ -35,6 +38,8 @@ void lscReevaluateLsbBalance(String lsbinr)
       Platform.reraise();
     }
   }
+  break LSCLoopLabel;
+  }
   $lsa\useamt = amt;
   // Update LSA
   Platform.sdbUpdate( $lsa );

script/lscmod.0024.script

@@ -13,7 +13,9 @@ String lscCheckTrnAccepted(String argtrninr)
   String rtn = "";
   // build a list of all existing LSMFLG`s of the Transaction
   Platform.dbExecuteSQL( "Select LSMFLG from LSM where TRNINR = ? group by LSMFLG", argtrninr );
-  // #######TODO 改写 LABEL与GOTO   ####    label NextLsm
+  //   ####    label NextLsm
+  NextLsmLabel:
+  while(true){
   Platform.dbFetchFields( "", lsmFlg );
   if( Platform.errorCode() != tdOdbcNotFound )
   {
@@ -23,8 +25,9 @@ String lscCheckTrnAccepted(String argtrninr)
       case "O":
       case  "A":
       rtn = LscAccepted;
-      //return ; // #######TODO 改写 LABEL与GOTO  ####   goto NextLsm
-      break;
+      //return ; //   ####   goto NextLsm
+      continue NextLsmLabel;
+      //break;
       case "R":
       rtn = LscRejected;
       break;
@@ -32,6 +35,8 @@ String lscCheckTrnAccepted(String argtrninr)
       rtn = LscPending;
     }
   }
+  break NextLsmLabel;
+  }
   Platform.dbCloseCursor();
   return  rtn;
 

script/lscmod.0031.script

@@ -14,7 +14,11 @@ void getObjInf(IModule argobj,Argument<String> bussec,Argument<String> ptyinr,Ar
   {
     bussec.value = Platform.mid( Platform.getContent( conPth + "\\PTS\\OBJTYP" ), 1, 2 );
     ptyPth = conPth + "\\PTY";
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto GetPtyDta
+    //return ; //   ####   goto GetPtyDta
+    ptyinr.value = Platform.getContent( ptyPth + "\\INR" );
+      heqinr.value = Platform.getContent( ptyPth + "\\HEQINR" );
+      ctycod.value = Platform.getContent( ptyPth + "\\RSKCTY" );
+      return;
   }
   bussec.value = objTyp;
   // Now determine the relevant PTY
@@ -91,7 +95,7 @@ void getObjInf(IModule argobj,Argument<String> bussec,Argument<String> ptyinr,Ar
     // has to exist
     ptyPth = Platform.getModuleInfo( $pty, tdModuleInfoFullName );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label GetPtyDta
+  //    ####    label GetPtyDta
   ptyinr.value = Platform.getContent( ptyPth + "\\INR" );
   heqinr.value = Platform.getContent( ptyPth + "\\HEQINR" );
   ctycod.value = Platform.getContent( ptyPth + "\\RSKCTY" );

script/lscmod.0036.script

@@ -10,19 +10,45 @@ void lsiProcessCbeEntry(#cbe argcbe,IModule arggrp)
   String lsrLst = mapCbt2Lst( argcbe, arggrp );
   // Read or initialize the LSR to be used
   Platform.lscReadLsrForCbe( $lsr, argcbe, lsrLst );
+  boolean TopENGINFlag = true;
   if( Platform.compareTo( Platform.mid( $$argcbe\cbt.getValue(), 4, 3 ) ,  "IN " ) == 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto TopENGIN
+    //return ; //   ####   goto TopENGIN
   }
   else
   {
     if( Platform.compareTo( Platform.mid( $$argcbe\cbt.getValue(), 4, 3 ) ,  "OUT" ) == 0 )
     {
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto TopENGout
+      //return ; //   ####   goto TopENGout
+      if( Platform.isEmpty( $lsr\inr ) )
+        {
+          if(1==1) return;
+        }
+        // Create LSM Entry
+        lscCreateLsmForLsr( $lsm, $lsr, argcbe, "O" );
+        IStream lsbInrStm = new StreamImpl();
+        Platform.streamClear( lsbInrStm );
+        lscGetAllLsbForLsr( lsbInrStm, $lsr\inr.getValue() );
+        int lsbMax = Platform.streamCount( lsbInrStm );
+        String lsbInr = NULLSTR;
+        String lssFlg;
+        for(int  lsbIdx = 1;lsbIdx <= lsbMax;lsbIdx++)
+        {
+          lsbInr = Platform.getLine( lsbInrStm, lsbIdx );
+          lssFlg = LscAccepted;
+          Argument<String> lssFlgBox = new Argument<String>("",lssFlg);
+          lscHandleLssFlg( $lsm, lsbInr, lssFlgBox, "A" );
+
+          lssFlg = lssFlgBox.value;
+
+        }
+        Platform.lscUpdateLsmCommit( $lsm );
+        // End of ENGout
+        if(1==1) return;
     }
   }
   // Handling of ENGIN
-  // #######TODO 改写 LABEL与GOTO   ####    label TopENGIN
+  //  ####    label TopENGIN
   // Create new request (when contract has no request)
   if( Platform.isEmpty( $lsr\inr ) )
   {
@@ -46,7 +72,7 @@ void lsiProcessCbeEntry(#cbe argcbe,IModule arggrp)
   if(1==1) return;
   //--------------------------------------------------------
   // Handling of ENGout
-  // #######TODO 改写 LABEL与GOTO   ####    label TopENGout
+  //   ####    label TopENGout
   // no handling when no request exists
   if( Platform.isEmpty( $lsr\inr ) )
   {

script/lsnmod.0023.script

@@ -17,7 +17,7 @@ String lsnCheckTrnAccepted(String argtrninr)
       case  "A":
       rtn = LscAccepted;
       //return ; //  ####   goto NextLne
-      break NextLneLabel;
+      continue NextLneLabel;
       case "R":
       rtn = LscRejected;
       break;

script/mtabut.0006.script

@@ -72,7 +72,9 @@ event $sav order 200
     warFlg = true;
     if( ! Platform.isEmpty( aurflg ) && Platform.compareTo( $\sysmod\ssn\bckgrd ,  "B" ) == 0 )
     {
-      return ; // #######TODO 改写 LABEL与GOTO  ####   goto skipLabel //SYSWRN\IDS的值存在多种情况，后续优化
+      //return ; //   ####   goto skipLabel //SYSWRN\IDS的值存在多种情况，后续优化
+      $\trnmod.init200();
+          $\trnmod\trnism.wfmInitNewEntry();
     }
     /**
     if not IsEmpty( $aurflg )  and \SYSMOD\SSN\BCKGRD == "B" then
@@ -98,7 +100,7 @@ event $sav order 200
         Platform.exitEvent();
       }
     }
-    // #######TODO 改写 LABEL与GOTO   ####    label skipLabel
+    //   ####    label skipLabel
     // initialize workflow entries, if not recalculation
     $\trnmod.init200();
     $\trnmod\trnism.wfmInitNewEntry();

script/mtabut.0055.script

@@ -18,11 +18,15 @@ void checkOpenIssues(IModule arggrp)
   int dummy = $syswrn.sysWarningGroupRemove( "", sysWrnPfx );
   if( Platform.recIsEmptyInr( arggrp ) )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto ExitOfRoutine
+    //return ; //  ####   goto ExitOfRoutine
+     $syswrn.sysWarningGroupCompleted();
+     return;
   }
   if( Platform.compareTo( $clsflg.getValue() ,  "O" ) == 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto ExitOfRoutine
+    //return ; //  ####   goto ExitOfRoutine
+         $syswrn.sysWarningGroupCompleted();
+         return;
   }
   // get subcontracts from database if not already read
   int hardLinkCnt = 0;
@@ -58,7 +62,7 @@ void checkOpenIssues(IModule arggrp)
         linHardNr = Platform.streamSearch( $cfginf\chiconnectstm, "H" );
         if( linHardNr == 0 )
         {
-          return ; // #######TODO 改写 LABEL与GOTO  ####   goto LblCheckSoftLinks
+          //return ; //   ####   goto LblCheckSoftLinks
         }
         else
         {
@@ -82,7 +86,7 @@ void checkOpenIssues(IModule arggrp)
           Platform.dbFetchFields( "", hardLinkCnt );
           Platform.dbCloseCursor();
         }
-        // #######TODO 改写 LABEL与GOTO   ####    label LblCheckSoftLinks
+        //    ####    label LblCheckSoftLinks
         for(int  i = 1;i <= subConCnt;i++)
         {
           connectTyp = Platform.getLine( $cfginf\chiconnectstm.getValue(), i );
@@ -319,7 +323,7 @@ void checkOpenIssues(IModule arggrp)
   {
     $syswrn.sysWarningSet( SYSWRNTypeWarning, #CT000165, sysWrnPfx + "SPTOPNCNT" );
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label ExitOfRoutine
+  //    ####    label ExitOfRoutine
   // restore the already read status of the (re)created warning entries
   $syswrn.sysWarningGroupCompleted();
 

script/offmod.0020.script

@@ -7,9 +7,12 @@ void checkusrspt()
   }
   // Load last pending item of the current user even if the SPT was in a changed to entity
   Platform.dbRead( $\sysmod\spt, "WHERE STA = ? AND OWNUSR = ? ORDER BY INR DESC", SptAfterBreak, $\sysmod\usr\extkey.getValue() );
+  NoAbortFoundLabel:
+  while(true){
   if( Platform.errorCode() > 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NoAbortFound
+    //return ; //   ####   goto NoAbortFound
+                break NoAbortFoundLabel;
   }
   // Load the session of the SPT
   String ssnSta = "";
@@ -20,17 +23,20 @@ void checkusrspt()
   Platform.dbCloseCursor();
   if( Platform.errorCode() > 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NoAbortFound
+    //return ; //   ####   goto NoAbortFound
+                break NoAbortFoundLabel;
   }
   // check whether the SSN of the SPT is an aborted session and the last transaction was the transaction of the SPT
   if( ( Platform.compareTo(ssnSta, "C") != 0 && Platform.compareTo(ssnSta, "R") != 0 ) || Platform.compareTo($\sysmod\spt\frm.getValue(), ssnFrm) != 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NoAbortFound
+    //return ; //   ####   goto NoAbortFound
+                break NoAbortFoundLabel;
   }
   // The checking of date and time of the last transaction of the SSN against the SPT date and time
   if( Platform.diff($\sysmod\spt\dattim.getValue() , ssnDattim)<0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NoAbortFound
+    //return ; //   ####   goto NoAbortFound
+                break NoAbortFoundLabel;
   }
   int ssnCnt = 0;
   // check whether found session is the last session
@@ -39,11 +45,13 @@ void checkusrspt()
   Platform.dbCloseCursor();
   if( Platform.errorCode() > 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NoAbortFound
+    //return ; //   ####   goto NoAbortFound
+                break NoAbortFoundLabel;
   }
   if( ssnCnt > 0 )
   {
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto NoAbortFound
+    //return ; //   ####   goto NoAbortFound
+                break NoAbortFoundLabel;
   }
   boolean que = Platform.prompt( #CT000024, $\sysmod\spt\dattim.getValue() );
   String sptEty = NULLSTR;
@@ -67,7 +75,8 @@ void checkusrspt()
           {
             Platform.message( #CT000027, sptEty );
             Platform.dbFree( $\sysmod\spt );
-            return ; // #######TODO 改写 LABEL与GOTO  ####   goto NoAbortFound
+            //return ; //   ####   goto NoAbortFound
+            break NoAbortFoundLabel;
           }
         }
       }
@@ -79,7 +88,9 @@ void checkusrspt()
       Platform.dbFree( $\sysmod\spt );
     }
   }
-  // #######TODO 改写 LABEL与GOTO   ####    label NoAbortFound
+  break NoAbortFoundLabel;
+  }
+  //   ####    label NoAbortFound
   Platform.clear( $\sysmod\spt );
   if( Platform.errorCode() != tdOdbcNotFound )
   {

script/ptsmod.0005.script

@@ -4,7 +4,7 @@ void ptsRolesAdjust(IModule argmod,IStream stm)
   //! These may remove roles not allowed for contract Argmod using PtsRemoveRol
   //! Or disallow changes of roles using  PtsSetRolChgFlg
   boolean retry = false;
-  // #######TODO 改写 LABEL与GOTO   ####    label Restart
+  //   ####    label Restart
   // Inititalize  RolChgFlg for all roles
   int max = Platform.streamCount( stm );
   for(int  i = 1;i <= max;i++)

script/rngmod.0009.script

@@ -9,13 +9,18 @@ void deleteSet(IModule rec,String sqlarg)
   //! The entries to be deleted are selected and entrywise
   //! locked and then deleted.
   Platform.dbSelectCursor( rec, sqlarg );
-  // #######TODO 改写 LABEL与GOTO   ####    label DelLoop
+  //   ####    label DelLoop
+  DelLoopLabel:
+  while(true){
   Platform.DBFetch( rec );
   if( Platform.errorCode() != tdOdbcNotFound )
   {
     Platform.reraise();
     Platform.sdbDelete( rec );
-    return ; // #######TODO 改写 LABEL与GOTO  ####   goto DelLoop
+    //return ; //  ####   goto DelLoop
+    continue DelLoopLabel;
+  }
+  break DelLoopLabel;
   }
   Platform.dbCloseCursor();