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