Skip to content

H
hangzhoutd2bdsproject
Commit 9e16915d by 潘际乾
Options

S脚本文件修改goto

parent 58e63d06
Showing with 355 additions and 188 deletions
eIBS.properties
#Tue Oct 12 16:26:34 CST 2021 #Mon Oct 18 18:02:27 CST 2021
LastTarget=eIBS LastTarget=eIBS
ScalePercent=80 ScalePercent=80
DefaultTransName=ditopn DefaultTransName=ditopn
......
script/ptssub.0011.script
...@@ -6,7 +6,8 @@ void ptsmodSetPtsPtaFromChilds(#ptspta argptspta) ...@@ -6,7 +6,8 @@ void ptsmodSetPtsPtaFromChilds(#ptspta argptspta)
String dbfadrblkcn = NULLSTR; String dbfadrblkcn = NULLSTR;
if( Platform.isEmpty( $$argptspta\adr\inr ) ) if( Platform.isEmpty( $$argptspta\adr\inr ) )
{ {
Platform.clear( $$argptspta\dbfadrblk ); // Platform.clear( $$argptspta\dbfadrblk );
$$argptspta\dbfadrblk =NULLSTR;
} }
else else
{ {
......
script/ptssub.0028.script
...@@ -80,7 +80,8 @@ void ptsmodSetPtsFromPta(#ptspta argptspta) ...@@ -80,7 +80,8 @@ void ptsmodSetPtsFromPta(#ptspta argptspta)
switch( Platform.streamCount( adrstm ) ) switch( Platform.streamCount( adrstm ) )
{ {
case 0: case 0:
Platform.clear( $$argptspta\pts\nam ); //Platform.clear( $$argptspta\pts\nam );
$$argptspta\pts\nam = NULLSTR;
break; break;
case 1: case 1:
$$argptspta\pts\nam = Platform.getLine( adrstm, 1 ); $$argptspta\pts\nam = Platform.getLine( adrstm, 1 );
......
script/setfeg.0000.script
...@@ -3,9 +3,13 @@ void recalcSetfegBog() ...@@ -3,9 +3,13 @@ void recalcSetfegBog()
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $macbog ); Platform.postDefaultRule( $macbog );
String rclMacOld = $macbog; String rclMacOld = $macbog;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
boolean firstCall = false; boolean firstCall;
Argument<Boolean> firstCallBox = new Argument<Boolean>("",firstCall); Argument<Boolean> firstCallBox;
RclStart:
while(true) {
firstCall = false;
firstCallBox = new Argument<Boolean>("",firstCall);
getFepEntries( firstCallBox ); getFepEntries( firstCallBox );
firstCall = firstCallBox.value; firstCall = firstCallBox.value;
...@@ -21,8 +25,11 @@ void recalcSetfegBog() ...@@ -21,8 +25,11 @@ void recalcSetfegBog()
{ {
rclMacOld = $macbog; rclMacOld = $macbog;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart // return ; // #### goto RclStart
continue RclStart;
} }
$macbogold = $macbog; $macbogold = $macbog;
return;
}
} }
\ No newline at end of file
script/setfeg.0005.script
...@@ -43,7 +43,8 @@ void addTrnFee(String id,String feetyp,String feeflg,int feeunt,Date from,Date t ...@@ -43,7 +43,8 @@ void addTrnFee(String id,String feetyp,String feeflg,int feeunt,Date from,Date t
// check, if fee is defined // check, if fee is defined
if( Platform.streamSearch( $avbfeecod, feetyp ) == 0 ) if( Platform.streamSearch( $avbfeecod, feetyp ) == 0 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto done //return ; // #### goto done
return;
} }
// check, if transaction fee is already in stream // check, if transaction fee is already in stream
// if so, define it // if so, define it
...@@ -116,6 +117,6 @@ void addTrnFee(String id,String feetyp,String feeflg,int feeunt,Date from,Date t ...@@ -116,6 +117,6 @@ void addTrnFee(String id,String feetyp,String feeflg,int feeunt,Date from,Date t
mac = Platform.macGen( feetyp + feeflg + Platform.toString( feeunt ) + Platform.fmtDateShort( from ) + Platform.fmtDateShort( till ) + Platform.toString( rate ) + Platform.toString( basamt ) + cdtoldflg + addinf, 0 ); mac = Platform.macGen( feetyp + feeflg + Platform.toString( feeunt ) + Platform.fmtDateShort( from ) + Platform.fmtDateShort( till ) + Platform.toString( rate ) + Platform.toString( basamt ) + cdtoldflg + addinf, 0 );
Platform.cacheWrite( mac, "SETFEG", "MAC", idx ); Platform.cacheWrite( mac, "SETFEG", "MAC", idx );
} }
// #######TODO 改写 LABEL与GOTO #### label done // #### label done
} }
\ No newline at end of file
script/setfeg.0021.script
...@@ -4,16 +4,25 @@ void recalcSetfegEog() ...@@ -4,16 +4,25 @@ void recalcSetfegEog()
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $maceog ); Platform.postDefaultRule( $maceog );
String rclMacOld = $maceog; String rclMacOld = $maceog;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
// move amounts to settlement // move amounts to settlement
int gridcnt;
String act;
int err;
String dflg;
int error;
String cdtKey;
String amtkey;
RclStart:
while(true){
$\setmod\setglg.setglgClrAmount ( "*SETFEG" ); $\setmod\setglg.setglgClrAmount ( "*SETFEG" );
int gridcnt = 0; gridcnt = 0;
String act = NULLSTR; act = NULLSTR;
int err = 0; err = 0;
String dflg = NULLSTR; dflg = NULLSTR;
int error = 0; error = 0;
String cdtKey = NULLSTR; cdtKey = NULLSTR;
String amtkey = NULLSTR; amtkey = NULLSTR;
if( Platform.isVisible( $\setmod\setpan ) ) if( Platform.isVisible( $\setmod\setpan ) )
{ {
gridcnt = Platform.gridCount( $setfel ); gridcnt = Platform.gridCount( $setfel );
...@@ -88,8 +97,11 @@ void recalcSetfegEog() ...@@ -88,8 +97,11 @@ void recalcSetfegEog()
{ {
rclMacOld = $maceog; rclMacOld = $maceog;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
} }
$maceogold = $maceog; $maceogold = $maceog;
return;
}
} }
\ No newline at end of file
script/setfeg.0036.script
void registerSettlementCorrCha() void registerSettlementCorrCha()
{ {
int line = 0;
/** /**
if Mid( GetFramename, 1, 2 ) == "FT" or Mid( GetFramename, 1, 2 ) == "FX" or GetFramename == "CPTOUT" or GetFramename == "CLOOPN" then if Mid( GetFramename, 1, 2 ) == "FT" or Mid( GetFramename, 1, 2 ) == "FX" or GetFramename == "CPTOUT" or GetFramename == "CLOOPN" then
**/ **/
...@@ -148,10 +149,9 @@ void registerSettlementCorrCha() ...@@ -148,10 +149,9 @@ void registerSettlementCorrCha()
StreamSetLine( $CorTypStm, $I, StreamGetLine( $CorTypStm, $I ) + TAB + "0" ) StreamSetLine( $CorTypStm, $I, StreamGetLine( $CorTypStm, $I ) + TAB + "0" )
next next
**/ **/
if( ! Platform.isEmpty( $corchaflg ) ) if( Platform.isEmpty( $corchaflg ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto setFees //return ; // #### goto setFees
}
// ensure recalculation of documents // ensure recalculation of documents
$\trnmod\trndoc.assertDOCS(); $\trnmod\trndoc.assertDOCS();
// count correspondence items // count correspondence items
...@@ -187,7 +187,7 @@ void registerSettlementCorrCha() ...@@ -187,7 +187,7 @@ void registerSettlementCorrCha()
String loccty = NULLSTR; String loccty = NULLSTR;
String postfind = NULLSTR; String postfind = NULLSTR;
String postsql = NULLSTR; String postsql = NULLSTR;
int line = 0; line = 0;
int value = 0; int value = 0;
String find = NULLSTR; String find = NULLSTR;
String sql = NULLSTR; String sql = NULLSTR;
...@@ -451,7 +451,9 @@ void registerSettlementCorrCha() ...@@ -451,7 +451,9 @@ void registerSettlementCorrCha()
**/ **/
} }
} }
// #######TODO 改写 LABEL与GOTO #### label setFees return;
}
// #### label setFees
String isstyp = NULLSTR; String isstyp = NULLSTR;
String bic = NULLSTR; String bic = NULLSTR;
if( Platform.compareTo( Platform.getTransName() , "LITAME" ) == 0 && Platform.isEmpty( swifeecod ) ) if( Platform.compareTo( Platform.getTransName() , "LITAME" ) == 0 && Platform.isEmpty( swifeecod ) )
......
script/setfeg.0052.script
...@@ -43,7 +43,8 @@ void addTrnFee1(String id,String feetyp,String feeflg,int feeunt,Date from,Date ...@@ -43,7 +43,8 @@ void addTrnFee1(String id,String feetyp,String feeflg,int feeunt,Date from,Date
// check, if fee is defined // check, if fee is defined
if( Platform.streamSearch( $avbfeecod, feetyp ) == 0 ) if( Platform.streamSearch( $avbfeecod, feetyp ) == 0 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto done // return ; // #### goto done
return;
} }
// check, if transaction fee is already in stream // check, if transaction fee is already in stream
// if so, define it // if so, define it
...@@ -116,6 +117,6 @@ void addTrnFee1(String id,String feetyp,String feeflg,int feeunt,Date from,Date ...@@ -116,6 +117,6 @@ void addTrnFee1(String id,String feetyp,String feeflg,int feeunt,Date from,Date
mac = Platform.macGen( feetyp + feeflg + Platform.toString( feeunt ) + Platform.fmtDateShort( from ) + Platform.fmtDateShort( till ) + Platform.toString( rate ) + Platform.toString( basamt ) + cdtoldflg + addinf, 0 ); mac = Platform.macGen( feetyp + feeflg + Platform.toString( feeunt ) + Platform.fmtDateShort( from ) + Platform.fmtDateShort( till ) + Platform.toString( rate ) + Platform.toString( basamt ) + cdtoldflg + addinf, 0 );
Platform.cacheWrite( mac, "SETFEG", "MAC", idx ); Platform.cacheWrite( mac, "SETFEG", "MAC", idx );
} }
// #######TODO 改写 LABEL与GOTO #### label done // #### label done
} }
\ No newline at end of file
script/setfel.0000.script
...@@ -4,11 +4,15 @@ void recalcSetfel(String argrow) ...@@ -4,11 +4,15 @@ void recalcSetfel(String argrow)
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $mac ); Platform.postDefaultRule( $mac );
String rclMacOld = $mac; String rclMacOld = $mac;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
RclStart:
while(true){
String wrn = ""; String wrn = "";
INNER:
while(true){
if( Platform.isEmpty( $feecod ) ) if( Platform.isEmpty( $feecod ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto fecend break INNER; // #### goto fecend
} }
String bcur = $\cbsmod\xrtmod.sysiso(); String bcur = $\cbsmod\xrtmod.sysiso();
$doccur = $\setmod\doccur; $doccur = $\setmod\doccur;
...@@ -183,13 +187,13 @@ void recalcSetfel(String argrow) ...@@ -183,13 +187,13 @@ void recalcSetfel(String argrow)
{ {
$inftxt = Platform.toString( $infdetstm.getValue() ); $inftxt = Platform.toString( $infdetstm.getValue() );
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto fecend break INNER; // #### goto fecend
} }
if( Platform.compareTo(Platform.getTransName(), "BOTSET") != 0 ) if( Platform.compareTo(Platform.getTransName(), "BOTSET") != 0 )
{ {
if( Platform.compareTo( $modflg.getValue() , "a" ) == 0 ) if( Platform.compareTo( $modflg.getValue() , "a" ) == 0 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto fecend break INNER; // #### goto fecend
} }
} }
if( ! Platform.IsEnabled( $cur.getValue() ) ) if( ! Platform.IsEnabled( $cur.getValue() ) )
...@@ -206,7 +210,7 @@ void recalcSetfel(String argrow) ...@@ -206,7 +210,7 @@ void recalcSetfel(String argrow)
{ {
$inftxt = Platform.toString( $infdetstm.getValue() ); $inftxt = Platform.toString( $infdetstm.getValue() );
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto fecend break INNER; // #### goto fecend
} }
if( ! Platform.isModified( $cur ) ) if( ! Platform.isModified( $cur ) )
{ {
...@@ -215,7 +219,7 @@ void recalcSetfel(String argrow) ...@@ -215,7 +219,7 @@ void recalcSetfel(String argrow)
// if no currency yet, fee cannot be calculated. // if no currency yet, fee cannot be calculated.
if( Platform.isEmpty( $cur ) ) if( Platform.isEmpty( $cur ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto fecend break INNER; // #### goto fecend
} }
// Display all Infotexts on the Details Settlement Panel // Display all Infotexts on the Details Settlement Panel
String maxLev = ""; String maxLev = "";
...@@ -353,7 +357,7 @@ void recalcSetfel(String argrow) ...@@ -353,7 +357,7 @@ void recalcSetfel(String argrow)
wrn = Platform.getText( #CT000045, $feecod.getValue() ); wrn = Platform.getText( #CT000045, $feecod.getValue() );
$inftxt = $inftxt.getValue() + "\r\n" + "\r\n" + wrn; $inftxt = $inftxt.getValue() + "\r\n" + "\r\n" + wrn;
$amt = new BigDecimal("0"); $amt = new BigDecimal("0");
return ; // #######TODO 改写 LABEL与GOTO #### goto fecend break INNER; // #### goto fecend
} }
} }
$inftxt = $inftxt.getValue() + "\r\n" + Platform.getText( #CT000044, $cur.getValue(), Platform.fmtAmount( oldFepAmt, $cur.getValue() ) ); $inftxt = $inftxt.getValue() + "\r\n" + Platform.getText( #CT000044, $cur.getValue(), Platform.fmtAmount( oldFepAmt, $cur.getValue() ) );
...@@ -380,7 +384,9 @@ void recalcSetfel(String argrow) ...@@ -380,7 +384,9 @@ void recalcSetfel(String argrow)
break; break;
} }
} }
// #######TODO 改写 LABEL与GOTO #### label fecend break;
}
// #### label fecend
$\trnmod\mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, wrn, "RalcSetfel" + argrow ); $\trnmod\mtabut\syswrn.sysWarningSet( SYSWRNTypeWarning, wrn, "RalcSetfel" + argrow );
setCusPanelDescription(); setCusPanelDescription();
// Default fields standard // Default fields standard
...@@ -395,8 +401,11 @@ void recalcSetfel(String argrow) ...@@ -395,8 +401,11 @@ void recalcSetfel(String argrow)
{ {
rclMacOld = $mac; rclMacOld = $mac;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
} }
$macold = $mac; $macold = $mac;
return;
}
} }
\ No newline at end of file
script/setfog.0000.script
...@@ -4,7 +4,9 @@ void recalcSetfogEog() ...@@ -4,7 +4,9 @@ void recalcSetfogEog()
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $maceog ); Platform.postDefaultRule( $maceog );
String rclMacOld = $maceog; String rclMacOld = $maceog;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
RclStart:
while(true){
$\setmod\setglg.setglgClrAmount ( "*SETFOG" ); $\setmod\setglg.setglgClrAmount ( "*SETFOG" );
int gridcnt = Platform.gridCount( $setfol ); int gridcnt = Platform.gridCount( $setfol );
String act = NULLSTR; String act = NULLSTR;
...@@ -88,8 +90,11 @@ void recalcSetfogEog() ...@@ -88,8 +90,11 @@ void recalcSetfogEog()
{ {
rclMacOld = $maceog; rclMacOld = $maceog;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
} }
$maceogold = $maceog; $maceogold = $maceog;
break;
}
} }
\ No newline at end of file
script/setfog.0003.script
...@@ -8,7 +8,9 @@ void recalcSetfogBog() ...@@ -8,7 +8,9 @@ void recalcSetfogBog()
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $macbog ); Platform.postDefaultRule( $macbog );
String rclMacOld = $macbog; String rclMacOld = $macbog;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
RclStart:
while(true){
// load only if roles are completely (incl. SETPTY-Cache) loaded // load only if roles are completely (incl. SETPTY-Cache) loaded
String chkrol = NULLSTR; String chkrol = NULLSTR;
IStream sqlStm = new StreamImpl(); IStream sqlStm = new StreamImpl();
...@@ -32,6 +34,9 @@ void recalcSetfogBog() ...@@ -32,6 +34,9 @@ void recalcSetfogBog()
int fnd = 0; int fnd = 0;
int add = 0; int add = 0;
int stmCnt = 0; int stmCnt = 0;
setmac:
while (true){
if( Platform.streamCount( $\setmod\roldsc.getValue() ) > 0 ) if( Platform.streamCount( $\setmod\roldsc.getValue() ) > 0 )
{ {
chkrol = Platform.getLine( $\setmod\roldsc.getValue(), 1 ); chkrol = Platform.getLine( $\setmod\roldsc.getValue(), 1 );
...@@ -50,7 +55,8 @@ void recalcSetfogBog() ...@@ -50,7 +55,8 @@ void recalcSetfogBog()
Platform.reraise(); Platform.reraise();
if( Platform.compareTo( Platform.toString( sqlStm ) , Platform.toString( cacsql ) ) == 0 ) if( Platform.compareTo( Platform.toString( sqlStm ) , Platform.toString( cacsql ) ) == 0 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto setmac //return ; // #### goto setmac
break setmac;
} }
} }
Platform.cacheWrite( sqlStm, "SEFMOD", "FCPSQL" ); Platform.cacheWrite( sqlStm, "SEFMOD", "FCPSQL" );
...@@ -256,14 +262,19 @@ void recalcSetfogBog() ...@@ -256,14 +262,19 @@ void recalcSetfogBog()
} }
} }
} }
// #######TODO 改写 LABEL与GOTO #### label setmac break;
}
// #### label setmac
Platform.postDefaultRule( $macbog ); Platform.postDefaultRule( $macbog );
// if this recalculation has changed internal MAC, restart calculation up to 20 times directly // if this recalculation has changed internal MAC, restart calculation up to 20 times directly
if( Platform.compareTo(rclMacOld, $macbog.getValue()) != 0 && rclCnt <= 20 ) if( Platform.compareTo(rclMacOld, $macbog.getValue()) != 0 && rclCnt <= 20 )
{ {
rclMacOld = $macbog; rclMacOld = $macbog;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
}
break;
} }
$macbogold = $macbog; $macbogold = $macbog;
......
script/setfol.0002.script
...@@ -5,8 +5,10 @@ void recalcSetfol(String argrow) ...@@ -5,8 +5,10 @@ void recalcSetfol(String argrow)
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $mac ); Platform.postDefaultRule( $mac );
String rclMacOld = $mac; String rclMacOld = $mac;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
// Default fields standard // Default fields standard
RclStart:
while(true){
recalcSetfolStdDft( argrow ); recalcSetfolStdDft( argrow );
// Do installation specific defaulting // Do installation specific defaulting
recalcSetfolIsfDft( argrow ); recalcSetfolIsfDft( argrow );
...@@ -16,7 +18,10 @@ void recalcSetfol(String argrow) ...@@ -16,7 +18,10 @@ void recalcSetfol(String argrow)
{ {
rclMacOld = $mac; rclMacOld = $mac;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
}
break;
} }
$macold = $mac; $macold = $mac;
setCusPanelDescription(); setCusPanelDescription();
......
script/setglg.0000.script
...@@ -3,7 +3,9 @@ void recalcSetglgBog() ...@@ -3,7 +3,9 @@ void recalcSetglgBog()
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $mac ); Platform.postDefaultRule( $mac );
String rclMacOld = $mac; String rclMacOld = $mac;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
RclStart:
while(true){
// Collect amounts // Collect amounts
internalWrkSumCollect(); internalWrkSumCollect();
// load temporary info (if picked up) // load temporary info (if picked up)
...@@ -35,7 +37,10 @@ void recalcSetglgBog() ...@@ -35,7 +37,10 @@ void recalcSetglgBog()
{ {
rclMacOld = $mac; rclMacOld = $mac;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
}
break;
} }
$macold = $mac; $macold = $mac;
......
script/setglg.0002.script
...@@ -60,73 +60,73 @@ void internalGllAdjust(BigDecimal argamt,String argcur,String srcmod,int srcidx) ...@@ -60,73 +60,73 @@ void internalGllAdjust(BigDecimal argamt,String argcur,String srcmod,int srcidx)
BigDecimal b = argamt; BigDecimal b = argamt;
int free = -1; int free = -1;
int gridcnt = Platform.gridCount( $setgll ); int gridcnt = Platform.gridCount( $setgll );
// #######TODO 改写 LABEL与GOTO #### label lopfee // #### label lopfee
lopfee: lopfee:
while(true){ while(true){
f = f + 1; f = f + 1;
if( f > gridcnt ) { if( f > gridcnt ) {
//return ; // #######TODO #### goto lopend //return ; // #### goto lopend
break lopfee; break lopfee;
} }
if( Platform.isEmpty( $setgll[f]\rol ) ) { if( Platform.isEmpty( $setgll[f]\rol ) ) {
if( free < 0 ) { if( free < 0 ) {
free = f; free = f;
} }
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(r, $setgll[f]\rol.getValue()) != 0 ) { if( Platform.compareTo(r, $setgll[f]\rol.getValue()) != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(argcur, $setgll[f]\cur.getValue()) != 0 ) { if( Platform.compareTo(argcur, $setgll[f]\cur.getValue()) != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(d, $setgll[f]\flg.getValue()) != 0 ) { if( Platform.compareTo(d, $setgll[f]\flg.getValue()) != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(gllGrp, $setgll[f]\gllgrp.getValue()) != 0 ) { if( Platform.compareTo(gllGrp, $setgll[f]\gllgrp.getValue()) != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(fcdinr, $setgll[f]\fcdinr.getValue()) != 0 ) { if( Platform.compareTo(fcdinr, $setgll[f]\fcdinr.getValue()) != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(act, $setgll[f]\act.getValue()) != 0 && Platform.compareTo( dspflg , "A" ) == 0 ) { if( Platform.compareTo(act, $setgll[f]\act.getValue()) != 0 && Platform.compareTo( dspflg , "A" ) == 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo( dspflg , "A" ) == 0 && Platform.compareTo($setgll[f]\dspflg.getValue(), "A") != 0 ) { if( Platform.compareTo( dspflg , "A" ) == 0 && Platform.compareTo($setgll[f]\dspflg.getValue(), "A") != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(dspflg, "A") != 0 && Platform.compareTo( $setgll[f]\dspflg , "A" ) == 0 ) { if( Platform.compareTo(dspflg, "A") != 0 && Platform.compareTo( $setgll[f]\dspflg , "A" ) == 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo( dspflg , "C" ) == 0 && Platform.compareTo($setgll[f]\dspflg.getValue(), "C") != 0 ) { if( Platform.compareTo( dspflg , "C" ) == 0 && Platform.compareTo($setgll[f]\dspflg.getValue(), "C") != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(dspflg, "C") != 0 && Platform.compareTo( $setgll[f]\dspflg , "C" ) == 0 ) { if( Platform.compareTo(dspflg, "C") != 0 && Platform.compareTo( $setgll[f]\dspflg , "C" ) == 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo( dspflg , "F" ) == 0 && Platform.compareTo($setgll[f]\dspflg.getValue(), "F") != 0 ) { if( Platform.compareTo( dspflg , "F" ) == 0 && Platform.compareTo($setgll[f]\dspflg.getValue(), "F") != 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo(dspflg, "F") != 0 && Platform.compareTo( $setgll[f]\dspflg , "F" ) == 0 ) { if( Platform.compareTo(dspflg, "F") != 0 && Platform.compareTo( $setgll[f]\dspflg , "F" ) == 0 ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
// don`t mix debits and credits (if not allowed by SetDebCreAlw) // don`t mix debits and credits (if not allowed by SetDebCreAlw)
if( Platform.Sgn( $setgll[f]\amt.getValue() ) * Platform.Sgn( argamt ) < 0 && Platform.isEmpty( $\setmod\debcrealwflg ) ) { if( Platform.Sgn( $setgll[f]\amt.getValue() ) * Platform.Sgn( argamt ) < 0 && Platform.isEmpty( $\setmod\debcrealwflg ) ) {
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
if( Platform.compareTo( $setgll[f]\modflg , "-" ) == 0 ) { if( Platform.compareTo( $setgll[f]\modflg , "-" ) == 0 ) {
...@@ -144,14 +144,14 @@ void internalGllAdjust(BigDecimal argamt,String argcur,String srcmod,int srcidx) ...@@ -144,14 +144,14 @@ void internalGllAdjust(BigDecimal argamt,String argcur,String srcmod,int srcidx)
$setgll[f]\donflg = "x"; $setgll[f]\donflg = "x";
internalSetValdat( f, valdat ); internalSetValdat( f, valdat );
} }
//return ; // #######TODO #### goto lopfee //return ; // #### goto lopfee
continue lopfee; continue lopfee;
} }
// #######TODO 改写 LABEL与GOTO #### label lopend // #### label lopend
if( Platform.compareTo( b , 0 ) == 0 && ( Platform.isEmpty( amtIDsStm ) || Platform.isEmpty( $creemplinflg ) ) ) if( Platform.compareTo( b , 0 ) == 0 && ( Platform.isEmpty( amtIDsStm ) || Platform.isEmpty( $creemplinflg ) ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto subend return ; // #### goto subend
} }
if( n < 0 ) if( n < 0 )
{ {
...@@ -331,6 +331,6 @@ void internalGllAdjust(BigDecimal argamt,String argcur,String srcmod,int srcidx) ...@@ -331,6 +331,6 @@ void internalGllAdjust(BigDecimal argamt,String argcur,String srcmod,int srcidx)
} }
} }
Platform.resetModified( $setgll[f]\amt.getValue() ); Platform.resetModified( $setgll[f]\amt.getValue() );
// #######TODO 改写 LABEL与GOTO #### label subend // #### label subend
} }
\ No newline at end of file
script/setglg.0003.script
...@@ -22,12 +22,12 @@ void internalGlgDistrib() ...@@ -22,12 +22,12 @@ void internalGlgDistrib()
int i = 1; int i = 1;
String trnset = ""; String trnset = "";
// #### label lop1
lop1: lop1:
while(true){ while(true){
// #######TODO 改写 LABEL与GOTO #### label lop1
if( i > gridcnt ) if( i > gridcnt )
{ {
//return ; // #######TODO 改写 LABEL与GOTO #### goto don1 //return ; // #### goto don1
break lop1; break lop1;
} }
$setgll[i]\donflg = " "; $setgll[i]\donflg = " ";
...@@ -46,10 +46,10 @@ void internalGlgDistrib() ...@@ -46,10 +46,10 @@ void internalGlgDistrib()
$setgll[i]\setxxxrow = setSumMax; $setgll[i]\setxxxrow = setSumMax;
} }
i = i + 1; i = i + 1;
//return ; // #######TODO 改写 LABEL与GOTO #### goto lop1 //return ; // #### goto lop1
continue lop1; continue lop1;
} }
// #######TODO 改写 LABEL与GOTO #### label don1 // #### label don1
// Check all lines of Workgrid and add, if necessary // Check all lines of Workgrid and add, if necessary
for(int f = 1;f <= gridcnt;f++) for(int f = 1;f <= gridcnt;f++)
{ {
...@@ -61,27 +61,27 @@ void internalGlgDistrib() ...@@ -61,27 +61,27 @@ void internalGlgDistrib()
lopwrk: lopwrk:
while(true){ while(true){
// #######TODO 改写 LABEL与GOTO #### label lopwrk // #### label lopwrk
w = w + 1; w = w + 1;
if( w > Platform.streamCount( $wrksumcon.getValue() ) ) if( w > Platform.streamCount( $wrksumcon.getValue() ) )
{ {
//return ; // #######TODO 改写 LABEL与GOTO #### goto donwrk //return ; // #### goto donwrk
break lopwrk; break lopwrk;
} }
internalWrksumGetByIdx( w ); internalWrksumGetByIdx( w );
internalGllAdjust( $wrksum\amt.getValue(), $wrksum\cur.getValue(), "WRKSUM", w ); internalGllAdjust( $wrksum\amt.getValue(), $wrksum\cur.getValue(), "WRKSUM", w );
// return ; // #######TODO 改写 LABEL与GOTO #### goto lopwrk // return ; // #### goto lopwrk
continue lopwrk; continue lopwrk;
} }
// #######TODO 改写 LABEL与GOTO #### label donwrk // #### label donwrk
int f = 1; int f = 1;
lopfee2: lopfee2:
while(true){ while(true){
// #######TODO 改写 LABEL与GOTO #### label lopfee2 // #### label lopfee2
if( f > gridcnt ) if( f > gridcnt )
{ {
//return ; // #######TODO 改写 LABEL与GOTO #### goto donfee2 //return ; // #### goto donfee2
break lopfee2; break lopfee2;
} }
if( Platform.compareTo( $setgll[f]\donflg , " " ) == 0 ) if( Platform.compareTo( $setgll[f]\donflg , " " ) == 0 )
...@@ -98,11 +98,11 @@ void internalGlgDistrib() ...@@ -98,11 +98,11 @@ void internalGlgDistrib()
} }
} }
f = f + 1; f = f + 1;
//return ; // #######TODO 改写 LABEL与GOTO #### goto lopfee2 //return ; // #### goto lopfee2
continue lopfee2; continue lopfee2;
} }
// #######TODO 改写 LABEL与GOTO #### label donfee2 // #### label donfee2
for( f = 1;f <= gridcnt;f++) for( f = 1;f <= gridcnt;f++)
{ {
if( Platform.compareTo($setgll[f]\accamtfix.getValue(), "T") != 0 ) if( Platform.compareTo($setgll[f]\accamtfix.getValue(), "T") != 0 )
......
script/setglg.0021.script
...@@ -3,10 +3,12 @@ void recalcSetglgEog() ...@@ -3,10 +3,12 @@ void recalcSetglgEog()
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $maceog ); Platform.postDefaultRule( $maceog );
String rclMacOld = $maceog; String rclMacOld = $maceog;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
// redistibute ACCCPRAMT // redistibute ACCCPRAMT
// Control stream holding line for acccpramt for CPRMACs // Control stream holding line for acccpramt for CPRMACs
// Format : MAC+TAB+ Str(line) // Format : MAC+TAB+ Str(line)
RclStart:
while(true){
IStream ctlStm = new StreamImpl(); IStream ctlStm = new StreamImpl();
Platform.streamClear( ctlStm ); Platform.streamClear( ctlStm );
int gridcnt = Platform.gridCount( $setgll ); int gridcnt = Platform.gridCount( $setgll );
...@@ -88,7 +90,10 @@ void recalcSetglgEog() ...@@ -88,7 +90,10 @@ void recalcSetglgEog()
{ {
rclMacOld = $maceog; rclMacOld = $maceog;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
}
break;
} }
$maceogold = $maceog; $maceogold = $maceog;
......
script/setglg.0034.script
...@@ -103,7 +103,7 @@ boolean checkXrtChg() ...@@ -103,7 +103,7 @@ boolean checkXrtChg()
return true; return true;
} }
} }
// #######TODO 改写 LABEL与GOTO #### label done // #### label done
return false; return false;
} }
\ No newline at end of file
script/setgll.0004.script
...@@ -4,8 +4,10 @@ void recalcSetgll(String argrow) ...@@ -4,8 +4,10 @@ void recalcSetgll(String argrow)
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $mac ); Platform.postDefaultRule( $mac );
String rclMacOld = $mac; String rclMacOld = $mac;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
// Reset depending fields on changes // Reset depending fields on changes
RclStart:
while(true){
internalResetDependingFields(); internalResetDependingFields();
// Default fields standard // Default fields standard
recalcSetgllStdDft( argrow ); recalcSetgllStdDft( argrow );
...@@ -27,7 +29,10 @@ void recalcSetgll(String argrow) ...@@ -27,7 +29,10 @@ void recalcSetgll(String argrow)
{ {
rclMacOld = $mac; rclMacOld = $mac;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
}
break;
} }
setCusPanelDescription(); setCusPanelDescription();
$macold = $mac; $macold = $mac;
......
script/setgll.0012.script
...@@ -3,8 +3,10 @@ void clcrat() ...@@ -3,8 +3,10 @@ void clcrat()
//! calulation of rates and rate types //! calulation of rates and rate types
boolean restarted = false; boolean restarted = false;
boolean valuesSet = false; boolean valuesSet = false;
// #######TODO 改写 LABEL与GOTO #### label restart // #### label restart
// use valdat as rate date. If valdat not available use Today // use valdat as rate date. If valdat not available use Today
restart:
while(true){
Date vald = null; Date vald = null;
if( Platform.isEmpty( $valdat ) ) if( Platform.isEmpty( $valdat ) )
{ {
...@@ -532,9 +534,12 @@ void clcrat() ...@@ -532,9 +534,12 @@ void clcrat()
if( ! restarted ) if( ! restarted )
{ {
restarted = true; restarted = true;
return ; // #######TODO 改写 LABEL与GOTO #### goto restart //return ; // #### goto restart
continue restart;
} }
} }
break;
}
// enable rates for free rate types // enable rates for free rate types
if( Platform.compareTo( $scbrattyp.getValue() , "F" ) == 0 ) if( Platform.compareTo( $scbrattyp.getValue() , "F" ) == 0 )
{ {
......
script/setgll.0037.script
...@@ -79,17 +79,20 @@ void defaultSFTMT() ...@@ -79,17 +79,20 @@ void defaultSFTMT()
} }
// set flags for creation of payment message. If flags set, SESPAY is active, otherwise not // set flags for creation of payment message. If flags set, SESPAY is active, otherwise not
//! If RTGSPlus, show always MT103 //! If RTGSPlus, show always MT103
int err = 0;
setdirindflg:
while(true){
if( Platform.compareTo( $dsp.getValue() , "RTC" ) == 0 || Platform.compareTo( $dsp.getValue() , "TGC" ) == 0 ) if( Platform.compareTo( $dsp.getValue() , "RTC" ) == 0 || Platform.compareTo( $dsp.getValue() , "TGC" ) == 0 )
{ {
Platform.setFieldValue( $sftmt, "103" ); Platform.setFieldValue( $sftmt, "103" );
$sftmt = "103"; $sftmt = "103";
return ; // #######TODO 改写 LABEL与GOTO #### goto setdirindflg break ; // #### goto setdirindflg
} }
if( Platform.compareTo( Platform.mid( $dsp.getValue(), 1, 2 ) , "IZ" ) == 0 ) if( Platform.compareTo( Platform.mid( $dsp.getValue(), 1, 2 ) , "IZ" ) == 0 )
{ {
//SetValues( SFTMT, "IZV" ) //SetValues( SFTMT, "IZV" )
$sftmt = "IZV"; $sftmt = "IZV";
return ; // #######TODO 改写 LABEL与GOTO #### goto setdirindflg break ; // #### goto setdirindflg
} }
Platform.disable( $sftmt ); Platform.disable( $sftmt );
// main message is MT103, if beneficiary (:59: RMS) is set and not a bank // main message is MT103, if beneficiary (:59: RMS) is set and not a bank
...@@ -170,7 +173,7 @@ void defaultSFTMT() ...@@ -170,7 +173,7 @@ void defaultSFTMT()
if GetFramename == "CPTADV" or GetFramename == "CPTOPN" or GetFramename == "CPTOUT" or GetFramename == "CPTOTH" then if GetFramename == "CPTADV" or GetFramename == "CPTOPN" or GetFramename == "CPTOUT" or GetFramename == "CPTOTH" then
**/ **/
String sfttyp = NULLSTR; String sfttyp = NULLSTR;
int err = 0; err = 0;
if( Platform.compareTo( Platform.getTransName() , "CPTADV" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTOPN" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTOUT" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTOTH" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTSUB" ) == 0 ) if( Platform.compareTo( Platform.getTransName() , "CPTADV" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTOPN" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTOUT" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTOTH" ) == 0 || Platform.compareTo( Platform.getTransName() , "CPTSUB" ) == 0 )
{ {
sfttyp = Platform.getContent( "\\CPTP\\CPDGRP\\REC\\SWFTYP" ); sfttyp = Platform.getContent( "\\CPTP\\CPDGRP\\REC\\SWFTYP" );
...@@ -253,8 +256,10 @@ void defaultSFTMT() ...@@ -253,8 +256,10 @@ void defaultSFTMT()
err = Platform.errorCode(); err = Platform.errorCode();
$sftmt = msgtyp; $sftmt = msgtyp;
} }
return;
}
//--------end------------------------ //--------end------------------------
// #######TODO 改写 LABEL与GOTO #### label setdirindflg // #### label setdirindflg
//! If a special MT is sent (not 202 or 103), it has to be indirect to ensure sending of special message to beneficiary //! If a special MT is sent (not 202 or 103), it has to be indirect to ensure sending of special message to beneficiary
// if authorisation for rembourse, no 202 // if authorisation for rembourse, no 202
//由于光大银行的帐户行的帐号不在国结维护 //由于光大银行的帐户行的帐号不在国结维护
......
script/setgll.0061.script
...@@ -8,7 +8,7 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin ...@@ -8,7 +8,7 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin
{ {
dpy.value = "???/???"; dpy.value = "???/???";
rate.value = 0; rate.value = 0;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
if( ( Platform.compareTo( dcbcur , #CT000169 ) == 0 || Platform.compareTo( scbcur , #CT000170 ) == 0 ) ) if( ( Platform.compareTo( dcbcur , #CT000169 ) == 0 || Platform.compareTo( scbcur , #CT000170 ) == 0 ) )
{ {
...@@ -16,13 +16,13 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin ...@@ -16,13 +16,13 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin
{ {
rate.value = dcbrat / scbrat; rate.value = dcbrat / scbrat;
dpy.value = dcbcur + "/" + scbcur; dpy.value = dcbcur + "/" + scbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
else else
{ {
rate.value = scbrat / dcbrat; rate.value = scbrat / dcbrat;
dpy.value = scbcur + "/" + dcbcur; dpy.value = scbcur + "/" + dcbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
} }
else else
...@@ -33,13 +33,13 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin ...@@ -33,13 +33,13 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin
{ {
rate.value = dcbrat / scbrat; rate.value = dcbrat / scbrat;
dpy.value = dcbcur + "/" + scbcur; dpy.value = dcbcur + "/" + scbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
else else
{ {
rate.value = scbrat / dcbrat; rate.value = scbrat / dcbrat;
dpy.value = scbcur + "/" + dcbcur; dpy.value = scbcur + "/" + dcbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
} }
else else
...@@ -50,13 +50,13 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin ...@@ -50,13 +50,13 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin
{ {
rate.value = dcbrat / scbrat; rate.value = dcbrat / scbrat;
dpy.value = dcbcur + "/" + scbcur; dpy.value = dcbcur + "/" + scbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
else else
{ {
rate.value = scbrat / dcbrat; rate.value = scbrat / dcbrat;
dpy.value = scbcur + "/" + dcbcur; dpy.value = scbcur + "/" + dcbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
} }
else else
...@@ -67,24 +67,24 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin ...@@ -67,24 +67,24 @@ void cnv2RatCeb(String scbcur,String dcbcur,int scbrat,int dcbrat,Argument<Strin
{ {
rate.value = scbrat / dcbrat; rate.value = scbrat / dcbrat;
dpy.value = scbcur + "/" + dcbcur; dpy.value = scbcur + "/" + dcbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
else else
{ {
rate.value = dcbrat / scbrat; rate.value = dcbrat / scbrat;
dpy.value = dcbcur + "/" + scbcur; dpy.value = dcbcur + "/" + scbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
} }
else else
{ {
rate.value = scbrat / dcbrat; rate.value = scbrat / dcbrat;
dpy.value = scbcur + "/" + dcbcur; dpy.value = scbcur + "/" + dcbcur;
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
} }
} }
} }
// #######TODO 改写 LABEL与GOTO #### label done // #### label done
} }
\ No newline at end of file
script/setmod.0057.script
...@@ -29,7 +29,7 @@ String printSwiftFees(String rol,String tag,String argdirflg,String argdspflg,in ...@@ -29,7 +29,7 @@ String printSwiftFees(String rol,String tag,String argdirflg,String argdspflg,in
boolean allMisc = false; boolean allMisc = false;
// DO5CS.703597 // DO5CS.703597
String altCT = getAlternateFeeCodetable( tag, $\trnmod\trndoc\doccur\mt.getValue() ); String altCT = getAlternateFeeCodetable( tag, $\trnmod\trndoc\doccur\mt.getValue() );
// #######TODO 改写 LABEL与GOTO #### label Restart // #### label Restart
int entCnt = 0; int entCnt = 0;
IStream res = new StreamImpl(); IStream res = new StreamImpl();
Platform.streamClear( res ); Platform.streamClear( res );
...@@ -167,7 +167,7 @@ String printSwiftFees(String rol,String tag,String argdirflg,String argdspflg,in ...@@ -167,7 +167,7 @@ String printSwiftFees(String rol,String tag,String argdirflg,String argdspflg,in
if( ! allMisc ) if( ! allMisc )
{ {
allMisc = true; allMisc = true;
//return ""; // #######TODO 改写 LABEL与GOTO #### goto Restart //return ""; // #### goto Restart
continue Restart; continue Restart;
} }
else else
......
script/setmod.0069.script
...@@ -27,7 +27,7 @@ String printSwiftFolFees(String rol,String tag,String argdirflg,String argdspflg ...@@ -27,7 +27,7 @@ String printSwiftFolFees(String rol,String tag,String argdirflg,String argdspflg
} }
boolean allMisc = false; boolean allMisc = false;
String wrnBlkNegAmt = ""; String wrnBlkNegAmt = "";
// #######TODO 改写 LABEL与GOTO #### label Restart // #### label Restart
Restart: Restart:
while (true){ while (true){
...@@ -76,7 +76,7 @@ String printSwiftFolFees(String rol,String tag,String argdirflg,String argdspflg ...@@ -76,7 +76,7 @@ String printSwiftFolFees(String rol,String tag,String argdirflg,String argdspflg
if( ! allMisc ) if( ! allMisc )
{ {
allMisc = true; allMisc = true;
//return ; // #######TODO 改写 LABEL与GOTO #### goto Restart //return ; // #### goto Restart
continue Restart; continue Restart;
} }
else else
......
script/setmod.0070.script
...@@ -26,7 +26,7 @@ String printSwiftFelFees(String rol,String tag,String argdirflg,String argdspflg ...@@ -26,7 +26,7 @@ String printSwiftFelFees(String rol,String tag,String argdirflg,String argdspflg
chkdspflg = "S"; chkdspflg = "S";
} }
boolean allMisc = false; boolean allMisc = false;
// #######TODO 改写 LABEL与GOTO #### label Restart // #### label Restart
int entCnt = 0; int entCnt = 0;
IStream res = new StreamImpl(); IStream res = new StreamImpl();
Platform.streamClear( res ); Platform.streamClear( res );
...@@ -79,7 +79,7 @@ String printSwiftFelFees(String rol,String tag,String argdirflg,String argdspflg ...@@ -79,7 +79,7 @@ String printSwiftFelFees(String rol,String tag,String argdirflg,String argdspflg
if( ! allMisc ) if( ! allMisc )
{ {
allMisc = true; allMisc = true;
//return ; // #######TODO 改写 LABEL与GOTO #### goto Restart //return ; // #### goto Restart
continue Restart; continue Restart;
} }
else else
......
script/setmod.0094.script
...@@ -3,16 +3,21 @@ void recalcSetDetMac() ...@@ -3,16 +3,21 @@ void recalcSetDetMac()
int rclCnt = 0; int rclCnt = 0;
Platform.postDefaultRule( $macdet ); Platform.postDefaultRule( $macdet );
String rclMacOld = $macdet; String rclMacOld = $macdet;
// #######TODO 改写 LABEL与GOTO #### label RclStart // #### label RclStart
RclStart:
while(true){
recalcSetdet(); recalcSetdet();
// #######TODO 改写 LABEL与GOTO #### label setmac // #### label setmac
Platform.postDefaultRule( $macdet ); Platform.postDefaultRule( $macdet );
// if this recalculation has changed internal MAC, restart calculation up to 20 times directly // if this recalculation has changed internal MAC, restart calculation up to 20 times directly
if( Platform.compareTo(rclMacOld, $macdet.getValue()) != 0 && rclCnt <= 20 ) if( Platform.compareTo(rclMacOld, $macdet.getValue()) != 0 && rclCnt <= 20 )
{ {
rclMacOld = $macdet; rclMacOld = $macdet;
rclCnt = rclCnt + 1; rclCnt = rclCnt + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto RclStart //return ; // #### goto RclStart
continue RclStart;
}
break;
} }
$macdetold = $macdet; $macdetold = $macdet;
......
script/setmod.0096.script
...@@ -22,7 +22,7 @@ String dtaGetFeesOwn(String argrol,String argdirflg,String argdspflg,int arglinn ...@@ -22,7 +22,7 @@ String dtaGetFeesOwn(String argrol,String argdirflg,String argdspflg,int arglinn
chkdspflg = "S"; chkdspflg = "S";
} }
boolean allMisc = false; boolean allMisc = false;
// #######TODO 改写 LABEL与GOTO #### label Restart // #### label Restart
RestartLabel: RestartLabel:
while(true){ while(true){
IStream res = new StreamImpl(); IStream res = new StreamImpl();
...@@ -79,7 +79,7 @@ String dtaGetFeesOwn(String argrol,String argdirflg,String argdspflg,int arglinn ...@@ -79,7 +79,7 @@ String dtaGetFeesOwn(String argrol,String argdirflg,String argdspflg,int arglinn
if( ! allMisc ) if( ! allMisc )
{ {
allMisc = true; allMisc = true;
//return ; // #######TODO 改写 LABEL与GOTO #### goto Restart //return ; // #### goto Restart
continue RestartLabel; continue RestartLabel;
} }
else else
......
script/setmod.0121.script
...@@ -29,7 +29,7 @@ String printSwiftFeeDetDspFun(String rol,String tag,String sel) ...@@ -29,7 +29,7 @@ String printSwiftFeeDetDspFun(String rol,String tag,String sel)
allow = 6; allow = 6;
} }
boolean allMisc = false; boolean allMisc = false;
// #######TODO 改写 LABEL与GOTO #### label restart // #### label restart
int entCnt = 0; int entCnt = 0;
IStream res = new StreamImpl(); IStream res = new StreamImpl();
Platform.streamClear( res ); Platform.streamClear( res );
...@@ -194,7 +194,7 @@ String printSwiftFeeDetDspFun(String rol,String tag,String sel) ...@@ -194,7 +194,7 @@ String printSwiftFeeDetDspFun(String rol,String tag,String sel)
if( ! allMisc && ( Platform.compareTo( tag , "73" ) == 0 || Platform.compareTo( tag , "73A" ) == 0 ) && Platform.compareTo( $\trnmod\trndoc\doccur\mt , "754" ) == 0 ) if( ! allMisc && ( Platform.compareTo( tag , "73" ) == 0 || Platform.compareTo( tag , "73A" ) == 0 ) && Platform.compareTo( $\trnmod\trndoc\doccur\mt , "754" ) == 0 )
{ {
allMisc = true; allMisc = true;
//return ; // #######TODO 改写 LABEL与GOTO #### goto restart //return ; // #### goto restart
continue restartLabel; continue restartLabel;
} }
else else
......
script/setmod.0127.script
...@@ -12,9 +12,10 @@ void printDetailledSettlement(String rol) ...@@ -12,9 +12,10 @@ void printDetailledSettlement(String rol)
IStream curstm = new StreamImpl(); IStream curstm = new StreamImpl();
Platform.streamSet( curstm, getSettledCur( rol, "X" + "\r\n" + "S", "X" + "\r\n" + "S", "FNC" + "\r\n" + "FND" + "\r\n" + "HLD" ) ); Platform.streamSet( curstm, getSettledCur( rol, "X" + "\r\n" + "S", "X" + "\r\n" + "S", "FNC" + "\r\n" + "FND" + "\r\n" + "HLD" ) );
// if nothing settled, skip to print of advised fees // if nothing settled, skip to print of advised fees
while(true){
if( Platform.isEmpty( curstm ) ) if( Platform.isEmpty( curstm ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto PrtAdv break ; // #### goto PrtAdv
} }
// get settled amount to be shown i.e. all amounts except amounts booked to internal financed accounts // get settled amount to be shown i.e. all amounts except amounts booked to internal financed accounts
BigDecimal setamt = $setglg.getSetAmtSysByRolTypDsp ( rol, "", "" ); BigDecimal setamt = $setglg.getSetAmtSysByRolTypDsp ( rol, "", "" );
...@@ -341,7 +342,9 @@ void printDetailledSettlement(String rol) ...@@ -341,7 +342,9 @@ void printDetailledSettlement(String rol)
$\trnmod\trndoc.xmlPrtEmptyLine( 1 ); $\trnmod\trndoc.xmlPrtEmptyLine( 1 );
} }
} }
// #######TODO 改写 LABEL与GOTO #### label PrtAdv break;
}
// #### label PrtAdv
// Print fees advised // Print fees advised
boolean firstfee = false; boolean firstfee = false;
/** /**
......
script/setmod.0231.script
...@@ -53,7 +53,7 @@ void getRecvType() ...@@ -53,7 +53,7 @@ void getRecvType()
if( Platform.compareTo( yn , "Y" ) == 0 ) if( Platform.compareTo( yn , "Y" ) == 0 )
{ {
Platform.message( #CT000540, recvType ); Platform.message( #CT000540, recvType );
return ; // #######TODO 改写 LABEL与GOTO #### goto Done return ; // #### goto Done
} }
} }
} }
...@@ -61,6 +61,6 @@ void getRecvType() ...@@ -61,6 +61,6 @@ void getRecvType()
} }
} }
} }
// #######TODO 改写 LABEL与GOTO #### label Done // #### label Done
} }
\ No newline at end of file
script/socmod.0001.script
...@@ -31,6 +31,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed ...@@ -31,6 +31,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed
{ {
while( trycount <= 5 && cmpFlag != true ) while( trycount <= 5 && cmpFlag != true )
{ {
endlab:
while(true){
Platform.writeLog( "ForuseSEQ", #CT000013 ); Platform.writeLog( "ForuseSEQ", #CT000013 );
fd = Platform.SockOpen( ip, port ); fd = Platform.SockOpen( ip, port );
callError = Platform.errorCode(); callError = Platform.errorCode();
...@@ -39,7 +41,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed ...@@ -39,7 +41,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed
Platform.writeLog( "ForuseSEQ", Platform.getText( #CT000014, Platform.errorCode() ) ); Platform.writeLog( "ForuseSEQ", Platform.getText( #CT000014, Platform.errorCode() ) );
trnflg = "E"; trnflg = "E";
trycount = trycount + 1; trycount = trycount + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto endlab //return ; // #### goto endlab
break endlab;
} }
Platform.setContext( "SOCKTIMEOUT", timeout ); Platform.setContext( "SOCKTIMEOUT", timeout );
Platform.SockCall( fd, instm, outStream ); Platform.SockCall( fd, instm, outStream );
...@@ -50,7 +53,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed ...@@ -50,7 +53,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed
Platform.writeLog( "ForuseSEQ", Platform.getText( #CT000015, Platform.errorCode() ) ); Platform.writeLog( "ForuseSEQ", Platform.getText( #CT000015, Platform.errorCode() ) );
trnflg = "E"; trnflg = "E";
trycount = trycount + 1; trycount = trycount + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto endlab //return ; // #### goto endlab
break endlab;
} }
Platform.SockClose( fd ); Platform.SockClose( fd );
callError = Platform.errorCode(); callError = Platform.errorCode();
...@@ -59,7 +63,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed ...@@ -59,7 +63,8 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed
Platform.writeLog( "ForuseSEQ", Platform.getText( #CT000016, Platform.errorCode() ) ); Platform.writeLog( "ForuseSEQ", Platform.getText( #CT000016, Platform.errorCode() ) );
trnflg = "E"; trnflg = "E";
trycount = trycount + 1; trycount = trycount + 1;
return ; // #######TODO 改写 LABEL与GOTO #### goto endlab //return ; // #### goto endlab
break endlab;
} }
/** /**
if $OutStream <> "0" then if $OutStream <> "0" then
...@@ -97,7 +102,9 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed ...@@ -97,7 +102,9 @@ static void foruseSockCall(IStream instm,IStream outstm,Argument<Boolean> failed
cmpFlag = true; cmpFlag = true;
failed.value = true; failed.value = true;
} }
// #######TODO 改写 LABEL与GOTO #### label endlab break endlab;
}
// #### label endlab
trycount = trycount + 1; trycount = trycount + 1;
} }
if( callError == 502 ) if( callError == 502 )
......
script/sptsel.0003.script
...@@ -50,7 +50,7 @@ void updateSptSpr(#spt argspt,String argsptsta,String argsprsta) ...@@ -50,7 +50,7 @@ void updateSptSpr(#spt argspt,String argsptsta,String argsprsta)
Platform.dbCommit(); Platform.dbCommit();
Platform.status( #CT000104, $spt\objnam.getValue(), $spt\txt.getValue() ); Platform.status( #CT000104, $spt\objnam.getValue(), $spt\txt.getValue() );
//ReadSPTSTM //ReadSPTSTM
// #######TODO 改写 LABEL与GOTO #### label LblEnd // #### label LblEnd
Platform.sdbFree( argspt ); Platform.sdbFree( argspt );
} }
\ No newline at end of file
script/sptsel.0032.script
...@@ -54,7 +54,7 @@ void printSwtWithSMH(#smh insmh,String intitle) ...@@ -54,7 +54,7 @@ void printSwtWithSMH(#smh insmh,String intitle)
default: default:
Platform.setErrorCode( 599, Platform.formatText( "GetViewFromSMH returned unknown format \'$1\'", viewFmt ) ); Platform.setErrorCode( 599, Platform.formatText( "GetViewFromSMH returned unknown format \'$1\'", viewFmt ) );
} }
// #######TODO 改写 LABEL与GOTO #### label ErrorLabel // #### label ErrorLabel
if( Platform.errorCode() > 0 ) if( Platform.errorCode() > 0 )
{ {
Platform.message( #CT000259, $docimm\filename.getValue(), Platform.getErrorText(), Platform.errorCode() ); Platform.message( #CT000259, $docimm\filename.getValue(), Platform.getErrorText(), Platform.errorCode() );
......
script/sptsel.0041.script
...@@ -112,7 +112,7 @@ void executeReject(String argsptinr) ...@@ -112,7 +112,7 @@ void executeReject(String argsptinr)
//########## //##########
msg = Platform.getText( #CT000285, filename, "Error", Platform.errorCode(), Platform.getErrorText() ); msg = Platform.getText( #CT000285, filename, "Error", Platform.errorCode(), Platform.getErrorText() );
Platform.message( #CT000299, msg ); Platform.message( #CT000299, msg );
return ; // #######TODO 改写 LABEL与GOTO #### goto LblEnd return ; // #### goto LblEnd
} }
else else
{ {
...@@ -126,7 +126,7 @@ void executeReject(String argsptinr) ...@@ -126,7 +126,7 @@ void executeReject(String argsptinr)
if( flag == false ) if( flag == false )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto LblEnd return ; // #### goto LblEnd
} }
Platform.streamClear( strstream1 ); Platform.streamClear( strstream1 );
Platform.streamInsert( strstream1, 0, $infor.getValue() ); Platform.streamInsert( strstream1, 0, $infor.getValue() );
...@@ -148,7 +148,7 @@ void executeReject(String argsptinr) ...@@ -148,7 +148,7 @@ void executeReject(String argsptinr)
// PromptOK( 'RG000292 // PromptOK( 'RG000292
} }
} }
// #######TODO 改写 LABEL与GOTO #### label LblEnd // #### label LblEnd
Platform.clear( $smh ); Platform.clear( $smh );
} }
else else
......
script/sptsel.0095.script
...@@ -56,7 +56,7 @@ void printBOPWithNET(#bopnet insmh,String intitle) ...@@ -56,7 +56,7 @@ void printBOPWithNET(#bopnet insmh,String intitle)
default: default:
Platform.setErrorCode( 599, Platform.formatText( "GetViewFromSMH returned unknown format \'$1\'", viewFmt ) ); Platform.setErrorCode( 599, Platform.formatText( "GetViewFromSMH returned unknown format \'$1\'", viewFmt ) );
} }
// #######TODO 改写 LABEL与GOTO #### label ErrorLabel // #### label ErrorLabel
if( Platform.errorCode() > 0 ) if( Platform.errorCode() > 0 )
{ {
Platform.message( #CT000613, $docimm\filename.getValue(), Platform.getErrorText(), Platform.errorCode() ); Platform.message( #CT000613, $docimm\filename.getValue(), Platform.getErrorText(), Platform.errorCode() );
......
script/srvclo.0002.script
...@@ -114,7 +114,7 @@ void doHandle(Argument<String> rc,Argument<String> errmsg,String subnam,String t ...@@ -114,7 +114,7 @@ void doHandle(Argument<String> rc,Argument<String> errmsg,String subnam,String t
goto CloEnd goto CloEnd
endif endif
**/ **/
// #######TODO 改写 LABEL与GOTO #### label CloEnd // #### label CloEnd
if( Platform.compareTo( rc.value , "E" ) == 0 ) if( Platform.compareTo( rc.value , "E" ) == 0 )
{ {
Platform.dbRollback(); Platform.dbRollback();
......
script/stgmod.0013.script
...@@ -9,17 +9,27 @@ void gridCfgLoadTds(IModule argrec,String argtds) ...@@ -9,17 +9,27 @@ void gridCfgLoadTds(IModule argrec,String argtds)
String tbl = Platform.toUpper( Platform.trim( Platform.getTableName( argrec ) ) ); String tbl = Platform.toUpper( Platform.trim( Platform.getTableName( argrec ) ) );
String modPth = Platform.getModuleInfo( argrec, tdModuleInfoFullName ); String modPth = Platform.getModuleInfo( argrec, tdModuleInfoFullName );
String tdsFil = Platform.tdVCSReadName( "FRAME", tbl + ".tds" ); String tdsFil = Platform.tdVCSReadName( "FRAME", tbl + ".tds" );
int idx;
String stgHea = null;
String lin = null;
int pos = 0;
String tdsGrdValSec = "";
String tdsIniLab = "";
IStream tdsStm = new StreamImpl();
AutoGen:
while(true){
if( Platform.errorCode() == 100 ) if( Platform.errorCode() == 100 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto AutoGen break AutoGen ; // #### goto AutoGen
} }
else else
{ {
Platform.reraise(); Platform.reraise();
} }
String tdsGrdValSec = tbl + "." + argtds; tdsGrdValSec = tbl + "." + argtds;
// modi for weihai // modi for weihai
String tdsIniLab = NULLSTR; tdsIniLab = NULLSTR;
if( Platform.compareTo( Platform.getLang() , "CN" ) == 0 ) if( Platform.compareTo( Platform.getLang() , "CN" ) == 0 )
{ {
tdsIniLab = "[" + argtds + "-" + "EN" + "-Init-GridCfg]"; tdsIniLab = "[" + argtds + "-" + "EN" + "-Init-GridCfg]";
...@@ -28,7 +38,7 @@ void gridCfgLoadTds(IModule argrec,String argtds) ...@@ -28,7 +38,7 @@ void gridCfgLoadTds(IModule argrec,String argtds)
{ {
tdsIniLab = "[" + argtds + "-" + Platform.getLang() + "-Init-GridCfg]"; tdsIniLab = "[" + argtds + "-" + Platform.getLang() + "-Init-GridCfg]";
} }
IStream tdsStm = new StreamImpl(); tdsStm = new StreamImpl();
Platform.streamLoad( tdsStm, tdsFil ); Platform.streamLoad( tdsStm, tdsFil );
IStream tdsIniStm = new StreamImpl(); IStream tdsIniStm = new StreamImpl();
Platform.streamClear( tdsIniStm ); Platform.streamClear( tdsIniStm );
...@@ -43,7 +53,7 @@ void gridCfgLoadTds(IModule argrec,String argtds) ...@@ -43,7 +53,7 @@ void gridCfgLoadTds(IModule argrec,String argtds)
} }
if( tdsTxtBeg < 2 ) if( tdsTxtBeg < 2 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto AutoGen break AutoGen ; // #### goto AutoGen
} }
int tdsTxtEnd = Platform.streamSearch( tdsStm, "[", tdsTxtBeg ) - 1; int tdsTxtEnd = Platform.streamSearch( tdsStm, "[", tdsTxtBeg ) - 1;
if( tdsTxtEnd < tdsTxtBeg ) if( tdsTxtEnd < tdsTxtBeg )
...@@ -53,7 +63,7 @@ void gridCfgLoadTds(IModule argrec,String argtds) ...@@ -53,7 +63,7 @@ void gridCfgLoadTds(IModule argrec,String argtds)
int tdsGrdBeg = Platform.streamSearch( tdsStm, "[" + tdsGrdValSec + "-GridValues]" ) + 1; int tdsGrdBeg = Platform.streamSearch( tdsStm, "[" + tdsGrdValSec + "-GridValues]" ) + 1;
if( tdsGrdBeg < 2 ) if( tdsGrdBeg < 2 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto AutoGen break AutoGen ; // #### goto AutoGen
} }
int tdsGrdEnd = Platform.streamSearch( tdsStm, "[", tdsGrdBeg ) - 1; int tdsGrdEnd = Platform.streamSearch( tdsStm, "[", tdsGrdBeg ) - 1;
if( tdsGrdEnd < tdsGrdBeg ) if( tdsGrdEnd < tdsGrdBeg )
...@@ -61,10 +71,10 @@ void gridCfgLoadTds(IModule argrec,String argtds) ...@@ -61,10 +71,10 @@ void gridCfgLoadTds(IModule argrec,String argtds)
tdsGrdEnd = Platform.streamCount( tdsStm ); tdsGrdEnd = Platform.streamCount( tdsStm );
} }
// Determine the heading of the promptstream // Determine the heading of the promptstream
int idx = Platform.streamSearch( tdsStm, "FormCaption=", tdsTxtBeg, tdsTxtEnd ); idx = Platform.streamSearch( tdsStm, "FormCaption=", tdsTxtBeg, tdsTxtEnd );
String stgHea = NULLSTR; stgHea = NULLSTR;
String lin = NULLSTR; lin = NULLSTR;
int pos = 0; pos = 0;
if( idx == 0 ) if( idx == 0 )
{ {
stgHea = argtds; stgHea = argtds;
...@@ -258,8 +268,9 @@ void gridCfgLoadTds(IModule argrec,String argtds) ...@@ -258,8 +268,9 @@ void gridCfgLoadTds(IModule argrec,String argtds)
ignore = Platform.errorCode(); ignore = Platform.errorCode();
} }
if(1==1) return; if(1==1) return;
}
//-------------------------------------------------------------------- //--------------------------------------------------------------------
// #######TODO 改写 LABEL与GOTO #### label AutoGen // #### label AutoGen
// autogenerate fieldlist in case no valid tds file (entry) available // autogenerate fieldlist in case no valid tds file (entry) available
gridCfgInit(); gridCfgInit();
gridCfgAddJoinIns( tbl, "", "" ); gridCfgAddJoinIns( tbl, "", "" );
......
script/svsmod.0006.script
...@@ -31,10 +31,12 @@ void svsFldTblSet2VisibleFields() ...@@ -31,10 +31,12 @@ void svsFldTblSet2VisibleFields()
stmCntFld = Platform.streamCount( fldStream ); stmCntFld = Platform.streamCount( fldStream );
for(int fldIdx = 1;fldIdx <= stmCntFld;fldIdx++) for(int fldIdx = 1;fldIdx <= stmCntFld;fldIdx++)
{ {
NextField:
while(true){
fieldName = Platform.trim( Platform.getLine( fldStream, fldIdx ) ); fieldName = Platform.trim( Platform.getLine( fldStream, fldIdx ) );
if( Platform.isEmpty( fieldName ) ) if( Platform.isEmpty( fieldName ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto NextField break NextField ; // #### goto NextField
} }
field = Platform.getField( fieldName ); field = Platform.getField( fieldName );
datatype = Platform.getAttribute( field, tdAttrDatatype ); datatype = Platform.getAttribute( field, tdAttrDatatype );
...@@ -43,24 +45,24 @@ void svsFldTblSet2VisibleFields() ...@@ -43,24 +45,24 @@ void svsFldTblSet2VisibleFields()
case tdDataTypeText: case tdDataTypeText:
if( ! Platform.IsEnabled( field ) ) if( ! Platform.IsEnabled( field ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto NextField break NextField ; // #### goto NextField
} }
viewType = Platform.getAttribute( field, tdAttrViewtype ); viewType = Platform.getAttribute( field, tdAttrViewtype );
int tdViewTypeLabel = 0; int tdViewTypeLabel = 0;
if( viewType == tdViewTypeLabel ) if( viewType == tdViewTypeLabel )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto NextField break NextField ; // #### goto NextField
} }
break; break;
case tdDataTypeNumeric: case tdDataTypeNumeric:
case tdDataTypeDate: case tdDataTypeDate:
if( ! Platform.IsEnabled( field ) ) if( ! Platform.IsEnabled( field ) )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto NextField break NextField ; // #### goto NextField
} }
break; break;
default: default:
return ; // #######TODO 改写 LABEL与GOTO #### goto NextField break NextField ; // #### goto NextField
} }
// if the same field appears twice, store only once // if the same field appears twice, store only once
found = Platform.streamSearch( $frmfld, fieldName + " " ); found = Platform.streamSearch( $frmfld, fieldName + " " );
...@@ -68,7 +70,9 @@ void svsFldTblSet2VisibleFields() ...@@ -68,7 +70,9 @@ void svsFldTblSet2VisibleFields()
{ {
Platform.streamInsert( $frmfld.getValue(), 0, fieldName + " " ); Platform.streamInsert( $frmfld.getValue(), 0, fieldName + " " );
} }
// #######TODO 改写 LABEL与GOTO #### label NextField break NextField;
}
// #### label NextField
} }
} }
} }
......
script/svsmod.0009.script
...@@ -30,6 +30,9 @@ void svsSsnSave(String argfld,String savetype) ...@@ -30,6 +30,9 @@ void svsSsnSave(String argfld,String savetype)
Platform.streamSet( $frmfld.getValue(), $svsfld.getValue() ); Platform.streamSet( $frmfld.getValue(), $svsfld.getValue() );
int stmCnt = 0; int stmCnt = 0;
String content = NULLSTR; String content = NULLSTR;
SaveContent:
while(true){
if( Platform.isEmpty( $svs\inr ) || Platform.compareTo(Platform.getTransName(), $svs\dst.getValue()) != 0 || Platform.compareTo("S", $svs\subtyp.getValue()) != 0 || Platform.compareTo($\sysmod\ssn\inr.getValue(), $svs\subkey.getValue()) != 0 ) if( Platform.isEmpty( $svs\inr ) || Platform.compareTo(Platform.getTransName(), $svs\dst.getValue()) != 0 || Platform.compareTo("S", $svs\subtyp.getValue()) != 0 || Platform.compareTo($\sysmod\ssn\inr.getValue(), $svs\subkey.getValue()) != 0 )
{ {
// if SVS is already read the following read/create on demand is not required // if SVS is already read the following read/create on demand is not required
...@@ -62,7 +65,7 @@ void svsSsnSave(String argfld,String savetype) ...@@ -62,7 +65,7 @@ void svsSsnSave(String argfld,String savetype)
$oldsubtyp = "S"; $oldsubtyp = "S";
$oldsubkey = $\sysmod\ssn\inr; $oldsubkey = $\sysmod\ssn\inr;
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto SaveContent break SaveContent ; // #### goto SaveContent
} }
} }
} }
...@@ -70,7 +73,9 @@ void svsSsnSave(String argfld,String savetype) ...@@ -70,7 +73,9 @@ void svsSsnSave(String argfld,String savetype)
// no SVE handling necessary, as no modified entry exists // no SVE handling necessary, as no modified entry exists
if(1==1) return; if(1==1) return;
} }
// #######TODO 改写 LABEL与GOTO #### label SaveContent return;
}
// #### label SaveContent
svsSaveContent(); svsSaveContent();
} }
\ No newline at end of file
script/sysmod.0065.script
...@@ -6,14 +6,17 @@ static void lnkReturnToCallerKeepSPT(String argflg) ...@@ -6,14 +6,17 @@ static void lnkReturnToCallerKeepSPT(String argflg)
//! Corresponding functions: LnkReturnToCaller, LnkReturnToFirst, LnkExit //! Corresponding functions: LnkReturnToCaller, LnkReturnToFirst, LnkExit
// To solve the problem in INFTRN (return to the same TRN, DO5DOS.2664) // To solve the problem in INFTRN (return to the same TRN, DO5DOS.2664)
Platform.streamClear( Platform.ddeSTREAM() ); Platform.streamClear( Platform.ddeSTREAM() );
// #######TODO 改写 LABEL与GOTO #### label PopFromStack // #### label PopFromStack
String frm = null;
PopFromStack:
while(true){
if( Platform.streamCount( $\sysmod\frmstk\stk.getValue() ) < 1 ) if( Platform.streamCount( $\sysmod\frmstk\stk.getValue() ) < 1 )
{ {
Platform.lnkReturnToFirst(); Platform.lnkReturnToFirst();
} }
String lin = Platform.getLine( $\sysmod\frmstk\stk.getValue(), 1 ); String lin = Platform.getLine( $\sysmod\frmstk\stk.getValue(), 1 );
int pos = Platform.pos( lin, "\t" ); int pos = Platform.pos( lin, "\t" );
String frm = NULLSTR; frm = NULLSTR;
if( pos == 0 ) if( pos == 0 )
{ {
frm = lin; frm = lin;
...@@ -49,7 +52,10 @@ static void lnkReturnToCallerKeepSPT(String argflg) ...@@ -49,7 +52,10 @@ static void lnkReturnToCallerKeepSPT(String argflg)
Platform.streamDelete( $\sysmod\frmstk\stk.getValue(), 1 ); Platform.streamDelete( $\sysmod\frmstk\stk.getValue(), 1 );
if( Platform.compareTo( Platform.toUpper( Platform.getTransName() ) , frm ) == 0 ) if( Platform.compareTo( Platform.toUpper( Platform.getTransName() ) , frm ) == 0 )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto PopFromStack //return ; // #### goto PopFromStack
continue PopFromStack;
}
break;
} }
Platform.saveData( $\sysmod\spt, Platform.sysStream(), "SPT" ); Platform.saveData( $\sysmod\spt, Platform.sysStream(), "SPT" );
$\sysmod.internalHandlePassingEty(); $\sysmod.internalHandlePassingEty();
......
script/sysmod.0155.script
...@@ -8,7 +8,9 @@ static void ddeSendStream(String argtrn,String argtop,IStream argstr) ...@@ -8,7 +8,9 @@ static void ddeSendStream(String argtrn,String argtop,IStream argstr)
String ddeTopic = argtop + "_" + $\sysmod.getSystemName(); String ddeTopic = argtop + "_" + $\sysmod.getSystemName();
BigDecimal del = new BigDecimal("0"); BigDecimal del = new BigDecimal("0");
BigDecimal tim = new BigDecimal("0"); BigDecimal tim = new BigDecimal("0");
// #######TODO 改写 LABEL与GOTO #### label CheckTarget // #### label CheckTarget
CheckTarget:
while(true){
IStream str = new StreamImpl(); IStream str = new StreamImpl();
String msg = NULLSTR; String msg = NULLSTR;
if( Platform.ddeTestTopic( trigger, ddeTopic ) ) if( Platform.ddeTestTopic( trigger, ddeTopic ) )
...@@ -33,7 +35,8 @@ static void ddeSendStream(String argtrn,String argtop,IStream argstr) ...@@ -33,7 +35,8 @@ static void ddeSendStream(String argtrn,String argtop,IStream argstr)
Platform.pause( del ); Platform.pause( del );
tim = Platform.numAdd(tim , del); tim = Platform.numAdd(tim , del);
// $Del = $Del * 2 // $Del = $Del * 2
return ; // #######TODO 改写 LABEL与GOTO #### goto CheckTarget //return ; // #### goto CheckTarget
continue CheckTarget;
} }
else else
{ {
...@@ -49,5 +52,7 @@ static void ddeSendStream(String argtrn,String argtop,IStream argstr) ...@@ -49,5 +52,7 @@ static void ddeSendStream(String argtrn,String argtop,IStream argstr)
} }
} }
} }
break;
}
} }
\ No newline at end of file
script/sysmod.0204.script
...@@ -20,7 +20,7 @@ void getbranch() ...@@ -20,7 +20,7 @@ void getbranch()
{ {
Platform.sysDump( Platform.getText( #CT000551, $\sysmod\usr\extkey.getValue() ) ); Platform.sysDump( Platform.getText( #CT000551, $\sysmod\usr\extkey.getValue() ) );
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO return ; // #### goto ENDDO
} }
// if a default client exists then take this client // if a default client exists then take this client
int err = 0; int err = 0;
...@@ -67,7 +67,7 @@ void getbranch() ...@@ -67,7 +67,7 @@ void getbranch()
{ {
Platform.errorMessage( #CT000414, Platform.errorCode(), errmsg ); Platform.errorMessage( #CT000414, Platform.errorCode(), errmsg );
Platform.dbCloseCursor(); Platform.dbCloseCursor();
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO return ; // #### goto ENDDO
} }
branch = ""; branch = "";
Platform.dbFetchFields( "", branch ); Platform.dbFetchFields( "", branch );
...@@ -80,7 +80,7 @@ void getbranch() ...@@ -80,7 +80,7 @@ void getbranch()
Platform.dbCloseCursor(); Platform.dbCloseCursor();
} }
} }
// #######TODO 改写 LABEL与GOTO #### label ENDDO // #### label ENDDO
if(1==1) return; if(1==1) return;
} }
\ No newline at end of file
script/sysmod.0205.script
...@@ -20,7 +20,8 @@ void getbchkey_cp() ...@@ -20,7 +20,8 @@ void getbchkey_cp()
{ {
Platform.sysDump( Platform.getText( #CT000549, $\sysmod\usr\extkey.getValue() ) ); Platform.sysDump( Platform.getText( #CT000549, $\sysmod\usr\extkey.getValue() ) );
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO Platform.sqlSetCommittedRead();
return ; // #### goto ENDDO
} }
// if a default client exists then take this client // if a default client exists then take this client
int err = 0; int err = 0;
...@@ -54,7 +55,8 @@ void getbchkey_cp() ...@@ -54,7 +55,8 @@ void getbchkey_cp()
if( Platform.compareTo( $bch\bchtyp , "0" ) == 0 ) if( Platform.compareTo( $bch\bchtyp , "0" ) == 0 )
{ //THE BRANCH TYPE JUDGED { //THE BRANCH TYPE JUDGED
Platform.streamSet( $frmstk\bchkey.getValue(), "FALSE" ); Platform.streamSet( $frmstk\bchkey.getValue(), "FALSE" );
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO Platform.sqlSetCommittedRead();
return ; // #### goto ENDDO
} }
streamcount = 0; streamcount = 0;
Platform.streamClear( errmsg ); Platform.streamClear( errmsg );
...@@ -72,7 +74,8 @@ void getbchkey_cp() ...@@ -72,7 +74,8 @@ void getbchkey_cp()
{ {
Platform.errorMessage( #CT000420, Platform.errorCode(), errmsg ); Platform.errorMessage( #CT000420, Platform.errorCode(), errmsg );
Platform.dbCloseCursor(); Platform.dbCloseCursor();
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO Platform.sqlSetCommittedRead();
return ; // #### goto ENDDO
} }
branch = ""; branch = "";
Platform.dbFetchFields( "", branch ); Platform.dbFetchFields( "", branch );
...@@ -84,7 +87,7 @@ void getbchkey_cp() ...@@ -84,7 +87,7 @@ void getbchkey_cp()
} }
Platform.dbCloseCursor(); Platform.dbCloseCursor();
} }
// #######TODO 改写 LABEL与GOTO #### label ENDDO // #### label ENDDO
Platform.sqlSetCommittedRead(); Platform.sqlSetCommittedRead();
if(1==1) return; if(1==1) return;
......
script/sysmod.0206.script
...@@ -18,7 +18,8 @@ void getbranch_cp() ...@@ -18,7 +18,8 @@ void getbranch_cp()
{ {
Platform.sysDump( Platform.getText( #CT000547, $\sysmod\usr\extkey.getValue() ) ); Platform.sysDump( Platform.getText( #CT000547, $\sysmod\usr\extkey.getValue() ) );
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO Platform.sqlSetCommittedRead();
return ; // #### goto ENDDO
} }
// if a default client exists then take this client // if a default client exists then take this client
int err = 0; int err = 0;
...@@ -66,7 +67,8 @@ void getbranch_cp() ...@@ -66,7 +67,8 @@ void getbranch_cp()
{ {
Platform.errorMessage( #CT000418, Platform.errorCode(), errmsg ); Platform.errorMessage( #CT000418, Platform.errorCode(), errmsg );
Platform.dbCloseCursor(); Platform.dbCloseCursor();
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO Platform.sqlSetCommittedRead();
return ; // #### goto ENDDO
} }
branch = ""; branch = "";
Platform.dbFetchFields( "", branch ); Platform.dbFetchFields( "", branch );
...@@ -79,7 +81,7 @@ void getbranch_cp() ...@@ -79,7 +81,7 @@ void getbranch_cp()
Platform.dbCloseCursor(); Platform.dbCloseCursor();
} }
} }
// #######TODO 改写 LABEL与GOTO #### label ENDDO // #### label ENDDO
Platform.sqlSetCommittedRead(); Platform.sqlSetCommittedRead();
if(1==1) return; if(1==1) return;
......
script/sysmod.0208.script
...@@ -20,7 +20,7 @@ void getbchkey() ...@@ -20,7 +20,7 @@ void getbchkey()
{ {
Platform.sysDump( Platform.getText( #CT000553, $\sysmod\usr\extkey.getValue() ) ); Platform.sysDump( Platform.getText( #CT000553, $\sysmod\usr\extkey.getValue() ) );
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO return ; // #### goto ENDDO
} }
// if a default client exists then take this client // if a default client exists then take this client
int err = 0; int err = 0;
...@@ -51,7 +51,7 @@ void getbchkey() ...@@ -51,7 +51,7 @@ void getbchkey()
if( Platform.compareTo( $bch\bchtyp , "0" ) == 0 ) if( Platform.compareTo( $bch\bchtyp , "0" ) == 0 )
{ //THE BRANCH TYPE JUDGED { //THE BRANCH TYPE JUDGED
Platform.streamSet( $frmstk\bchkey.getValue(), "FALSE" ); Platform.streamSet( $frmstk\bchkey.getValue(), "FALSE" );
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO return ; // #### goto ENDDO
} }
streamcount = 0; streamcount = 0;
Platform.streamClear( errmsg ); Platform.streamClear( errmsg );
...@@ -78,7 +78,7 @@ void getbchkey() ...@@ -78,7 +78,7 @@ void getbchkey()
{ {
Platform.errorMessage( #CT000424, Platform.errorCode(), errmsg ); Platform.errorMessage( #CT000424, Platform.errorCode(), errmsg );
Platform.dbCloseCursor(); Platform.dbCloseCursor();
return ; // #######TODO 改写 LABEL与GOTO #### goto ENDDO return ; // #### goto ENDDO
} }
branch = ""; branch = "";
Platform.dbFetchFields( "", branch ); Platform.dbFetchFields( "", branch );
...@@ -90,7 +90,7 @@ void getbchkey() ...@@ -90,7 +90,7 @@ void getbchkey()
} }
Platform.dbCloseCursor(); Platform.dbCloseCursor();
} }
// #######TODO 改写 LABEL与GOTO #### label ENDDO // #### label ENDDO
if(1==1) return; if(1==1) return;
} }
\ No newline at end of file
script/sysmod.0264.script
...@@ -64,7 +64,7 @@ String runTrngetData(String srvnam,String calltp,String trninr,String itfinr,Str ...@@ -64,7 +64,7 @@ String runTrngetData(String srvnam,String calltp,String trninr,String itfinr,Str
} }
else else
{ {
return ""; // #######TODO 改写 LABEL与GOTO #### goto enddo return outtxt; // #### goto enddo
} }
} }
break; break;
...@@ -77,11 +77,11 @@ String runTrngetData(String srvnam,String calltp,String trninr,String itfinr,Str ...@@ -77,11 +77,11 @@ String runTrngetData(String srvnam,String calltp,String trninr,String itfinr,Str
} }
else else
{ {
return ""; // #######TODO 改写 LABEL与GOTO #### goto enddo return outtxt; // #### goto enddo
} }
break; break;
} }
// #######TODO 改写 LABEL与GOTO #### label enddo // #### label enddo
return outtxt; return outtxt;
} }
\ No newline at end of file
script/sysmod.0289.script
...@@ -72,7 +72,7 @@ void getXDInfo() ...@@ -72,7 +72,7 @@ void getXDInfo()
if( ! Platform.isEmpty( Platform.getContent( "\\FFTFLAG" ) ) ) if( ! Platform.isEmpty( Platform.getContent( "\\FFTFLAG" ) ) )
{ {
pjjh = ""; pjjh = "";
return ; // #######TODO 改写 LABEL与GOTO #### goto done return ; // #### goto done
} }
xxd = "BPD"; xxd = "BPD";
break; break;
...@@ -1215,7 +1215,7 @@ void getXDInfo() ...@@ -1215,7 +1215,7 @@ void getXDInfo()
{ {
Platform.exitEvent(); Platform.exitEvent();
} }
// #######TODO 改写 LABEL与GOTO #### label done // #### label done
} }
} }
\ No newline at end of file
script/sysmod.0400.script
...@@ -13,6 +13,10 @@ init $$\ order 9000550 ...@@ -13,6 +13,10 @@ init $$\ order 9000550
int ssn = 0; int ssn = 0;
String canTxt = NULLSTR; String canTxt = NULLSTR;
boolean can = false; boolean can = false;
SSNDone:
while(true){
SSNNew:
while(true){
if( Platform.isEmpty( $\sysmod\ssn\inr ) ) if( Platform.isEmpty( $\sysmod\ssn\inr ) )
{ {
// only on first Execution of rule try to load SPT-Inr // only on first Execution of rule try to load SPT-Inr
...@@ -29,7 +33,8 @@ init $$\ order 9000550 ...@@ -29,7 +33,8 @@ init $$\ order 9000550
if( ssnInrNumeric < 0 ) if( ssnInrNumeric < 0 )
{ {
Platform.sysDump( Platform.formatText( "Invalid base 36 number '$1' passed following -SSNINR", ssnInr ) ); Platform.sysDump( Platform.formatText( "Invalid base 36 number '$1' passed following -SSNINR", ssnInr ) );
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
Platform.setContext( tdContextSESSIONNUMBER, Platform.toString( ssnInrNumeric ) ); Platform.setContext( tdContextSESSIONNUMBER, Platform.toString( ssnInrNumeric ) );
} }
...@@ -78,7 +83,8 @@ init $$\ order 9000550 ...@@ -78,7 +83,8 @@ init $$\ order 9000550
{ {
Platform.exitSession(); Platform.exitSession();
} }
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
} }
// After having fixed the Session-Inr lock the Session record // After having fixed the Session-Inr lock the Session record
...@@ -88,13 +94,15 @@ init $$\ order 9000550 ...@@ -88,13 +94,15 @@ init $$\ order 9000550
{ {
$\sysmod\ssn\inr = "NO"; $\sysmod\ssn\inr = "NO";
Platform.sysDump( Platform.formatText( "Unable to lock session ID upon start of transaction.\n(Error=$1 $2)", Platform.errorCode(), Platform.getErrorText() ) ); Platform.sysDump( Platform.formatText( "Unable to lock session ID upon start of transaction.\n(Error=$1 $2)", Platform.errorCode(), Platform.getErrorText() ) );
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
// Load the Session record // Load the Session record
Platform.dbRead( $\sysmod\ssn, $\sysmod\ssn\inr.getValue(), "INR" ); Platform.dbRead( $\sysmod\ssn, $\sysmod\ssn\inr.getValue(), "INR" );
if( Platform.errorCode() == tdOdbcNotFound ) if( Platform.errorCode() == tdOdbcNotFound )
{ {
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
else else
{ {
...@@ -102,7 +110,8 @@ init $$\ order 9000550 ...@@ -102,7 +110,8 @@ init $$\ order 9000550
{ {
Platform.sysDump( Platform.formatText( "Unable to read session ID upon start of transaction.\n(Error=$1 $2)", Platform.errorCode(), Platform.getErrorText() ) ); Platform.sysDump( Platform.formatText( "Unable to read session ID upon start of transaction.\n(Error=$1 $2)", Platform.errorCode(), Platform.getErrorText() ) );
$\sysmod\ssn\inr = "NO"; $\sysmod\ssn\inr = "NO";
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
} }
} }
...@@ -114,7 +123,8 @@ init $$\ order 9000550 ...@@ -114,7 +123,8 @@ init $$\ order 9000550
{ {
Platform.sysDump( Platform.formatText( "Inconsistent session data upon start of transaction.\nThe session record identifies the application server as $1, but it is $2.\nSession not registered.\n(Session INR used: $3)", $\sysmod\ssn\appsrv.getValue(), Platform.getContext( tdContextSERVERID ),$\sysmod\ssn\inr.getValue() ) ); Platform.sysDump( Platform.formatText( "Inconsistent session data upon start of transaction.\nThe session record identifies the application server as $1, but it is $2.\nSession not registered.\n(Session INR used: $3)", $\sysmod\ssn\appsrv.getValue(), Platform.getContext( tdContextSERVERID ),$\sysmod\ssn\inr.getValue() ) );
$\sysmod\ssn\inr = "NO"; $\sysmod\ssn\inr = "NO";
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
} }
else else
...@@ -129,7 +139,8 @@ init $$\ order 9000550 ...@@ -129,7 +139,8 @@ init $$\ order 9000550
{ {
Platform.sysDump( Platform.formatText( "Inconsistent session data upon start of transaction.\nThe session record identifies the application pid as $1, but it is $2.\nSession not registered.\n(Session INR used: $3)", $\sysmod\ssn\apppid.getValue(), Platform.getContext( tdContextSERVERPID ),$\sysmod\ssn\inr.getValue() ) ); Platform.sysDump( Platform.formatText( "Inconsistent session data upon start of transaction.\nThe session record identifies the application pid as $1, but it is $2.\nSession not registered.\n(Session INR used: $3)", $\sysmod\ssn\apppid.getValue(), Platform.getContext( tdContextSERVERPID ),$\sysmod\ssn\inr.getValue() ) );
$\sysmod\ssn\inr = "NO"; $\sysmod\ssn\inr = "NO";
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
} }
else else
...@@ -143,7 +154,8 @@ init $$\ order 9000550 ...@@ -143,7 +154,8 @@ init $$\ order 9000550
{ {
Platform.sysDump( Platform.formatText( "Inconsistent session data upon start of transaction.\nThe session record identifies the user as $1, but it is $2.\nSession not registered.\n(Session INR used: $3)", $\sysmod\ssn\usr.getValue(), Platform.getLoginUser(), $\sysmod\ssn\inr.getValue() ) ); Platform.sysDump( Platform.formatText( "Inconsistent session data upon start of transaction.\nThe session record identifies the user as $1, but it is $2.\nSession not registered.\n(Session INR used: $3)", $\sysmod\ssn\usr.getValue(), Platform.getLoginUser(), $\sysmod\ssn\inr.getValue() ) );
$\sysmod\ssn\inr = "NO"; $\sysmod\ssn\inr = "NO";
return ; // #######TODO 改写 LABEL与GOTO #### goto SSNNew //return ; // #### goto SSNNew
break SSNNew;
} }
// to set an potential foldover user-id // to set an potential foldover user-id
$\sysmod\ssn\usr = Platform.getLoginUser(); $\sysmod\ssn\usr = Platform.getLoginUser();
...@@ -185,9 +197,11 @@ init $$\ order 9000550 ...@@ -185,9 +197,11 @@ init $$\ order 9000550
Platform.sysDump( Platform.formatText( "Unable to update session record upon start of a transaction.\n(Session INR used: $3)\n(Error=$1 $2)", Platform.errorCode(), Platform.getErrorText(), $\sysmod\ssn\inr.getValue() ) ); Platform.sysDump( Platform.formatText( "Unable to update session record upon start of a transaction.\n(Session INR used: $3)\n(Error=$1 $2)", Platform.errorCode(), Platform.getErrorText(), $\sysmod\ssn\inr.getValue() ) );
} }
} }
//return ; // #######TODO 改写 LABEL与GOTO #### goto SSNDone //return ; // #### goto SSNDone
break SSNDone;
}
//------------------------ //------------------------
// #######TODO 改写 LABEL与GOTO #### label SSNNew // #### label SSNNew
// Initial settings of a new session record // Initial settings of a new session record
$\sysmod\ssn\begdattim = Platform.toDay(); $\sysmod\ssn\begdattim = Platform.toDay();
$\sysmod\ssn\dissrv = Platform.getContext( tdContextCLIENTID ) + "-" + Platform.getClientType(); $\sysmod\ssn\dissrv = Platform.getContext( tdContextCLIENTID ) + "-" + Platform.getClientType();
...@@ -257,7 +271,9 @@ init $$\ order 9000550 ...@@ -257,7 +271,9 @@ init $$\ order 9000550
} }
} }
internalSetupSSN(); internalSetupSSN();
// #######TODO 改写 LABEL与GOTO #### label SSNDone break SSNDone;
}
// #### label SSNDone
// Finally commit the database transaction handling the SSN-entry // Finally commit the database transaction handling the SSN-entry
// initialy -> creation of SSN // initialy -> creation of SSN
// all others -> update SSN with current transaction // all others -> update SSN with current transaction
......
script/sysmod.0401.script
...@@ -45,8 +45,10 @@ init $$\ order 9000500 ...@@ -45,8 +45,10 @@ init $$\ order 9000500
Platform.setContext( tdContextBATCHMODE, true ); Platform.setContext( tdContextBATCHMODE, true );
} }
} }
// #######TODO 改写 LABEL与GOTO #### label ChkStk // #### label ChkStk
// Check the stack and remove the own entry if found // Check the stack and remove the own entry if found
ChkStk:
while(true){
String lin = Platform.getLine( $\sysmod\frmstk\stk.getValue(), 1 ); String lin = Platform.getLine( $\sysmod\frmstk\stk.getValue(), 1 );
String frm = Platform.getTransName(); String frm = Platform.getTransName();
int pos = 0; int pos = 0;
...@@ -58,7 +60,9 @@ init $$\ order 9000500 ...@@ -58,7 +60,9 @@ init $$\ order 9000500
$\sysmod\frmstk\curctx = Platform.mid( lin, pos + 1 ); $\sysmod\frmstk\curctx = Platform.mid( lin, pos + 1 );
} }
Platform.streamDelete( $\sysmod\frmstk\stk.getValue(), 1 ); Platform.streamDelete( $\sysmod\frmstk\stk.getValue(), 1 );
return ; // #######TODO 改写 LABEL与GOTO #### goto ChkStk //return ; // #### goto ChkStk
continue ChkStk;
}
break;
} }
} }
\ No newline at end of file
script/syspth.0007.script
...@@ -20,7 +20,7 @@ String getOSAccessibleName(String argfilename) ...@@ -20,7 +20,7 @@ String getOSAccessibleName(String argfilename)
nonDel = "/"; nonDel = "/";
} }
// Loop to replace the wrong delimiter by the correct ones // Loop to replace the wrong delimiter by the correct ones
// #######TODO 改写 LABEL与GOTO #### label NextDel // #### label NextDel
int pos; int pos;
NextDelLabel: NextDelLabel:
while(true){ while(true){
...@@ -28,7 +28,7 @@ String getOSAccessibleName(String argfilename) ...@@ -28,7 +28,7 @@ String getOSAccessibleName(String argfilename)
if( pos > 0 ) if( pos > 0 )
{ {
fil = Platform.mid( fil, 1, pos - 1 ) + del + Platform.mid( fil, pos + 1 ); fil = Platform.mid( fil, 1, pos - 1 ) + del + Platform.mid( fil, pos + 1 );
//return ; // #######TODO 改写 LABEL与GOTO #### goto NextDel //return ; // #### goto NextDel
continue NextDelLabel; continue NextDelLabel;
} }
break; break;
...@@ -44,7 +44,7 @@ String getOSAccessibleName(String argfilename) ...@@ -44,7 +44,7 @@ String getOSAccessibleName(String argfilename)
} }
// Look for included illegal character and remove them // Look for included illegal character and remove them
// single quote, double quote, execute quote // single quote, double quote, execute quote
// #######TODO 改写 LABEL与GOTO #### label quoloop // #### label quoloop
quoloopLabel: quoloopLabel:
while(true){ while(true){
pos = Platform.pos( fil, "'" ); pos = Platform.pos( fil, "'" );
...@@ -59,7 +59,7 @@ String getOSAccessibleName(String argfilename) ...@@ -59,7 +59,7 @@ String getOSAccessibleName(String argfilename)
if( pos > 0 ) if( pos > 0 )
{ {
fil = Platform.mid( fil, 1, pos - 1 ) + Platform.mid( fil, pos + 1 ); fil = Platform.mid( fil, 1, pos - 1 ) + Platform.mid( fil, pos + 1 );
//return ; // #######TODO 改写 LABEL与GOTO #### goto quoloop //return ; // #### goto quoloop
continue quoloopLabel; continue quoloopLabel;
} }
break; break;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment