package
testpackage;
/************************************************************************
** RES generated this file from Cobol program
SM202A in source file SM202A.COB
** Generated at time 01:44:02.87 on Thursday,
03/25/10
************************************************************************/
import
testpackage.sm202a.ProofRec;
import
testpackage.sm202a.TotalArea;
import
testpackage.sm202a.QualifiedData;
import
testpackage.sm202a.SubscriptedData;
import
testpackage.sm202a.TestResults;
import
testpackage.sm202a.TestComputed;
import
testpackage.sm202a.TestCorrect;
import
testpackage.sm202a.CcvsC1;
import
testpackage.sm202a.CcvsC2;
import
testpackage.sm202a.CcvsH1;
import
testpackage.sm202a.CcvsH2a;
import
testpackage.sm202a.CcvsH2b;
import
testpackage.sm202a.CcvsH3;
import
testpackage.sm202a.CcvsE1;
import
testpackage.sm202a.CcvsE2;
import
testpackage.sm202a.CcvsE3;
import
testpackage.sm202a.CcvsE4;
import
testpackage.sm202a.Xxinfo;
import
testpackage.sm202a.HyphenLine;
import
com.res.java.lib.*;
import
java.math.BigDecimal;
@SuppressWarnings("unused")
public class
Sm202a extends Program {
//****************************************************************
//*
VALIDATION FOR:- *
//*
"ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH. ".
//*
"COBOL 85 VERSION 4.2, Apr
1993 SSVG
".
//****************************************************************
//*
X-CARDS USED BY THIS PROGRAM ARE :- *
//*
X-55 - SYSTEM PRINTER NAME. *
//*
X-83 - OBJECT COMPUTER NAME. *
//****************************************************************
//*
PROGRAM SM202A READS THE FILE PRODUCED BY SM201A TO *
//*
STATEMENTS IN SM201A. A NUMBER OF
FURTHER TESTS USING *
//*
DATA NAMES AND MULTIPLE "REPLACING" OPERANDS ARE ALSO *
//* *
//@CobolSourceFile("SM202A.COB",44,8)
//01
PRINT-REC PICTURE X(120).
public String getPrintRec() {
return super.toString(0,120);
}
public
void setPrintRec(String val) {
super.valueOf(0,120,val);
}
//*
*
//*
*
//*
*
//*
X-82 - SOURCE COMPUTER NAME. *
//*
*
//*
VARIOUS NUMERIC AMD ALPHANUMERIC LITERALS, QUALIFIED *
//****************************************************************
//@CobolSourceFile("SM202A.COB",45,8)
//01
DUMMY-RECORD PICTURE X(120).
public String getDummyRecord() {
return super.toString(0,120);
}
public
void setDummyRecord(String val) {
super.valueOf(0,120,val);
}
private CobolFile printFile = new
CobolFile(__normalizeLiteral("XXXXX055"),120);
//*
*
//*
*
//*
VERIFY THE PROPER EXECUTION OF THE "COPY REPLACING" *
//*
VALUE OF
//*
IS
//*
XXXXX069
//@CobolSourceFile("SM202A.COB",54,8)
//01
PROOF-REC.
private ProofRec proofRec = new
ProofRec();
public byte[] getProofRec() {
return proofRec.getBytes();
}
public void setProofRec(byte[] val) {
proofRec.valueOf(val);
}
private CobolFile testFile = new
CobolFile(__normalizeLiteral("XXXXD001"),120);
//*
XXXXX074
//@CobolSourceFile("SM202A.COB",58,8)
//01
COUNTER-16 PICTURE 9 VALUE 1.
private int counter16;
public int getCounter16() {
return counter16;
}
public
void setCounter16(int val) {
counter16=(int)
super.normalizeBinary(val,1,false);
}
//@CobolSourceFile("SM202A.COB",59,8)
//01
TOTAL-AREA.
private TotalArea totalArea = new
TotalArea();
public byte[] getTotalArea() {
return totalArea.getBytes();
}
public void setTotalArea(byte[] val) {
totalArea.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",69,8)
//01
QUALIFIED-DATA.
private QualifiedData qualifiedData = new
QualifiedData();
public byte[] getQualifiedData() {
return qualifiedData.getBytes();
}
public void setQualifiedData(byte[] val) {
qualifiedData.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",80,8)
//01
RE-SUB-DATA PICTURE X(40)
VALUE
//
"ABCDEFGHIJKLMNOPQRST+ 2 =UVWXYZYXWVUTSRQ".
public String getReSubData() {
return super.toString(240,40);
}
public
void setReSubData(String val) {
super.valueOf(240,40,val);
}
//@CobolSourceFile("SM202A.COB",82,8)
//01
SUBSCRIPTED-DATA REDEFINES RE-SUB-DATA.
private SubscriptedData subscriptedData =
new SubscriptedData(this,240,40);
public byte[] getSubscriptedData() {
return subscriptedData.getBytes();
}
public void setSubscriptedData(byte[] val)
{
subscriptedData.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",86,8)
//01
TEST-RESULTS.
private TestResults testResults = new
TestResults();
public byte[] getTestResults() {
return testResults.getBytes();
}
public void setTestResults(byte[] val) {
testResults.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",98,8)
//01
TEST-COMPUTED.
private TestComputed testComputed = new
TestComputed();
public byte[] getTestComputed() {
return testComputed.getBytes();
}
public void setTestComputed(byte[] val) {
testComputed.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",113,8)
//01
TEST-CORRECT.
private TestCorrect testCorrect = new
TestCorrect();
public byte[] getTestCorrect() {
return testCorrect.getBytes();
}
public void setTestCorrect(byte[] val) {
testCorrect.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",127,8)
//01
CCVS-C-1.
private CcvsC1 ccvsC1 = new CcvsC1();
public byte[] getCcvsC1() {
return ccvsC1.getBytes();
}
public void setCcvsC1(byte[] val) {
ccvsC1.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",132,8)
//01
CCVS-C-2.
private CcvsC2 ccvsC2 = new CcvsC2();
public byte[] getCcvsC2() {
return ccvsC2.getBytes();
}
public void setCcvsC2(byte[] val) {
ccvsC2.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",139,8)
//01
REC-CT PIC
99 VALUE ZERO.
private int recCt;
public int getRecCt() {
return recCt;
}
public
void setRecCt(int val) {
recCt=(int)
super.normalizeBinary(val,2,false);
}
//@CobolSourceFile("SM202A.COB",140,8)
//01
DELETE-COUNTER PIC
999 VALUE ZERO.
private int deleteCounter;
public int getDeleteCounter() {
return deleteCounter;
}
public
void setDeleteCounter(int val) {
deleteCounter=(int) super.normalizeBinary(val,3,false);
}
public static final FieldFormat
deleteCounterFmt_ = new FieldFormat("deleteCounter","999");
//@CobolSourceFile("SM202A.COB",141,8)
//01
ERROR-COUNTER PIC
999 VALUE ZERO.
private int errorCounter;
public int getErrorCounter() {
return errorCounter;
}
public
void setErrorCounter(int val) {
errorCounter=(int)
super.normalizeBinary(val,3,false);
}
public static final FieldFormat
errorCounterFmt_ = new FieldFormat("errorCounter","999");
//@CobolSourceFile("SM202A.COB",142,8)
//01
INSPECT-COUNTER PIC
999 VALUE ZERO.
private int inspectCounter;
public int getInspectCounter() {
return inspectCounter;
}
public
void setInspectCounter(int val) {
inspectCounter=(int)
super.normalizeBinary(val,3,false);
}
public static final FieldFormat
inspectCounterFmt_ = new
FieldFormat("inspectCounter","999");
//@CobolSourceFile("SM202A.COB",143,8)
//01
PASS-COUNTER PIC
999 VALUE ZERO.
private int passCounter;
public int getPassCounter() {
return passCounter;
}
public
void setPassCounter(int val) {
passCounter=(int)
super.normalizeBinary(val,3,false);
}
public static final FieldFormat
passCounterFmt_ = new FieldFormat("passCounter","999");
//@CobolSourceFile("SM202A.COB",145,8)
//01
ERROR-HOLD PIC
999 VALUE ZERO.
private int errorHold;
public int getErrorHold() {
return errorHold;
}
public
void setErrorHold(int val) {
errorHold=(int)
super.normalizeBinary(val,3,false);
}
public static final FieldFormat
errorHoldFmt_ = new FieldFormat("errorHold","999");
//@CobolSourceFile("SM202A.COB",147,8)
//01
RECORD-COUNT PIC
9(5) VALUE ZERO.
private int recordCount;
public int getRecordCount() {
return recordCount;
}
public
void setRecordCount(int val) {
recordCount=(int)
super.normalizeBinary(val,5,false);
}
//@CobolSourceFile("SM202A.COB",148,8)
//01
ANSI-REFERENCE PIC
X(48) VALUE SPACES.
private String ansiReference= new
String();
public String getAnsiReference() {
return ansiReference;
}
public
void setAnsiReference(String val) {
ansiReference=super.normalizeString(val,48);
}
//@CobolSourceFile("SM202A.COB",149,8)
//01
CCVS-H-1.
private CcvsH1 ccvsH1 = new CcvsH1();
public byte[] getCcvsH1() {
return ccvsH1.getBytes();
}
public void setCcvsH1(byte[] val) {
ccvsH1.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",154,8)
//01
CCVS-H-2A.
private CcvsH2a ccvsH2a = new CcvsH2a();
public byte[] getCcvsH2a() {
return ccvsH2a.getBytes();
}
public void setCcvsH2a(byte[] val) {
ccvsH2a.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",163,8)
//01
CCVS-H-2B.
private CcvsH2b ccvsH2b = new CcvsH2b();
public byte[] getCcvsH2b() {
return ccvsH2b.getBytes();
}
public void setCcvsH2b(byte[] val) {
ccvsH2b.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",175,8)
//01
CCVS-H-3.
private CcvsH3 ccvsH3 = new CcvsH3();
public byte[] getCcvsH3() {
return ccvsH3.getBytes();
}
public void setCcvsH3(byte[] val) {
ccvsH3.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",182,8)
//01
CCVS-E-1.
private CcvsE1 ccvsE1 = new CcvsE1();
public byte[] getCcvsE1() {
return ccvsE1.getBytes();
}
public void setCcvsE1(byte[] val) {
ccvsE1.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",187,8)
//01
CCVS-E-2.
private CcvsE2 ccvsE2 = new CcvsE2();
public byte[] getCcvsE2() {
return ccvsE2.getBytes();
}
public void setCcvsE2(byte[] val) {
ccvsE2.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",195,8)
//01
CCVS-E-3.
private CcvsE3 ccvsE3 = new CcvsE3();
public byte[] getCcvsE3() {
return ccvsE3.getBytes();
}
public void setCcvsE3(byte[] val) {
ccvsE3.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",204,8)
//01
CCVS-E-4.
private CcvsE4 ccvsE4 = new CcvsE4();
public byte[] getCcvsE4() {
return ccvsE4.getBytes();
}
public void setCcvsE4(byte[] val) {
ccvsE4.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",210,8)
//01
XXINFO.
private Xxinfo xxinfo = new Xxinfo();
public byte[] getXxinfo() {
return xxinfo.getBytes();
}
public void setXxinfo(byte[] val) {
xxinfo.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",219,8)
//01
HYPHEN-LINE.
private HyphenLine hyphenLine = new
HyphenLine();
public byte[] getHyphenLine() {
return hyphenLine.getBytes();
}
public void setHyphenLine(byte[] val) {
hyphenLine.valueOf(val);
}
//@CobolSourceFile("SM202A.COB",227,8)
//01
CCVS-PGM-ID
PIC X(9) VALUE
//
"SM202A".
private String ccvsPgmId= new String();
public String getCcvsPgmId() {
return ccvsPgmId;
}
public
void setCcvsPgmId(String val) {
ccvsPgmId=super.normalizeString(val,9);
}
public static void main(String[] args) {
Sm202a instance_ = new Sm202a();
instance_.execute(); System.exit(0);
}
public void execute() {
initialize();
doCobolGotoStart();
}
Section ccvs1=new Section(this) ;
Paragraph openFiles=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",232,12)
//OPEN OUTPUT PRINT-FILE
inError=false;
try {
printFile.openOutput();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM202A.COB",233,12)
//MOVE CCVS-PGM-ID TO TEST-ID
ccvsH2b.setTestId(getCcvsPgmId());
//@CobolSourceFile("SM202A.COB",233,41)
//MOVE CCVS-PGM-ID TO ID-AGAIN
ccvsE1.setIdAgain(getCcvsPgmId());
//@CobolSourceFile("SM202A.COB",234,12)
//MOVE SPACE TO TEST-RESULTS
setTestResults(__normalizeLiteral("
").getBytes());
//@CobolSourceFile("SM202A.COB",235,12)
//PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE
doCobolPerform(headRoutine,columnNamesRoutine);
//@CobolSourceFile("SM202A.COB",236,12)
//GO TO CCVS1-EXIT
return ccvs1Exit;
}
};
Paragraph closeFiles=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",238,12)
//PERFORM END-ROUTINE THRU
END-ROUTINE-13
doCobolPerform(endRoutine,endRoutine13);
//@CobolSourceFile("SM202A.COB",238,53)
//CLOSE PRINT-FILE
inError=false;
try {
printFile.close();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
return doCobolExit();
}
};
Paragraph terminateCcvs=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//* EXIT PROGRAM.
//@CobolSourceFile("SM202A.COB",242,12)
//STOP RUN
System.exit(0);
return doCobolExit();
}
};
Paragraph inspt=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//*TERMINATE-CALL.
//@CobolSourceFile("SM202A.COB",243,15)
//MOVE "INSPT" TO P-OR-F
testResults.setPOrF(__normalizeLiteral("INSPT"));
//@CobolSourceFile("SM202A.COB",243,39)
//ADD 1 TO INSPECT-COUNTER
setInspectCounter(_Math.add(1,getInspectCounter()));
return doCobolExit();
}
};
Paragraph pass=new Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",244,15)
//MOVE "PASS " TO P-OR-F
testResults.setPOrF(__normalizeLiteral("PASS
"));
//@CobolSourceFile("SM202A.COB",244,40)
//ADD 1 TO PASS-COUNTER
setPassCounter(_Math.add(1,getPassCounter()));
return doCobolExit();
}
};
Paragraph fail=new Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",245,15)
//MOVE "FAIL*" TO P-OR-F
testResults.setPOrF(__normalizeLiteral("FAIL*"));
//@CobolSourceFile("SM202A.COB",245,40)
//ADD 1 TO ERROR-COUNTER
setErrorCounter(_Math.add(1,getErrorCounter()));
return doCobolExit();
}
};
Paragraph deLete=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",246,18)
//MOVE "*****" TO P-OR-F
testResults.setPOrF(__normalizeLiteral("*****"));
//@CobolSourceFile("SM202A.COB",246,43)
//ADD 1 TO DELETE-COUNTER
setDeleteCounter(_Math.add(1,getDeleteCounter()));
//@CobolSourceFile("SM202A.COB",247,12)
//MOVE "****TEST
DELETED****" TO RE-MARK
testResults.setReMark(__normalizeLiteral("****TEST
DELETED****"));
return doCobolExit();
}
};
Paragraph printDetail=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",249,12)
//IF REC-CT NOT EQUAL TO ZERO
if(getRecCt() != 0) {
//@CobolSourceFile("SM202A.COB",250,20)
//MOVE "." TO
PARDOT-X
testResults.setPardotX(__normalizeLiteral("."));
//@CobolSourceFile("SM202A.COB",251,20)
//MOVE REC-CT TO DOTVALUE
testResults.setDotvalue(getRecCt());
}
//@CobolSourceFile("SM202A.COB",252,12)
//MOVE TEST-RESULTS TO PRINT-REC
setPrintRec(new
String(getTestResults()));
//@CobolSourceFile("SM202A.COB",252,48)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM202A.COB",253,12)
//IF P-OR-F EQUAL TO
"FAIL*"
// ELSE
if(compare(testResults.getPOrF(),__normalizeLiteral("FAIL*"))
== 0) {
//@CobolSourceFile("SM202A.COB",253,40)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM202A.COB",254,15)
//PERFORM FAIL-ROUTINE THRU
FAIL-ROUTINE-EX
doCobolPerform(failRoutine,failRoutineEx);
} else {
//@CobolSourceFile("SM202A.COB",255,22)
//PERFORM BAIL-OUT THRU
BAIL-OUT-EX
doCobolPerform(bailOut,bailOutEx);
}
//@CobolSourceFile("SM202A.COB",256,12)
//MOVE SPACE TO P-OR-F
testResults.setPOrF(__normalizeLiteral("
"));
//@CobolSourceFile("SM202A.COB",256,34)
//MOVE SPACE TO COMPUTED-X
testComputed.setComputedX(__normalizeLiteral("
").getBytes());
//@CobolSourceFile("SM202A.COB",257,12)
//MOVE SPACE TO CORRECT-X
testCorrect.setCorrectX(__normalizeLiteral("
").getBytes());
//@CobolSourceFile("SM202A.COB",258,12)
//IF REC-CT EQUAL TO ZERO
if(getRecCt() == 0) {
//@CobolSourceFile("SM202A.COB",258,41)
//MOVE SPACE TO PAR-NAME
testResults.setParName(__normalizeLiteral("
").getBytes());
}
//@CobolSourceFile("SM202A.COB",259,12)
//MOVE SPACE TO RE-MARK
testResults.setReMark(__normalizeLiteral("
"));
return doCobolExit();
}
};
Paragraph headRoutine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",261,12)
//MOVE CCVS-H-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH1()));
//@CobolSourceFile("SM202A.COB",261,44)
//PERFORM WRITE-LINE 2 TIMES
for(int i0=0;i0<2;++i0) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM202A.COB",262,12)
//MOVE CCVS-H-2A TO DUMMY-RECORD
setDummyRecord(new String(getCcvsH2a()));
//@CobolSourceFile("SM202A.COB",262,44)
//PERFORM WRITE-LINE 2 TIMES
for(int i1=0;i1<2;++i1) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM202A.COB",263,12)
//MOVE CCVS-H-2B TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH2b()));
//@CobolSourceFile("SM202A.COB",263,44)
//PERFORM WRITE-LINE 3 TIMES
for(int i2=0;i2<3;++i2) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM202A.COB",264,12)
//MOVE CCVS-H-3 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH3()));
//@CobolSourceFile("SM202A.COB",264,44)
//PERFORM WRITE-LINE 3 TIMES
for(int i3=0;i3<3;++i3) {
doCobolPerform(writeLine,null);
}
return doCobolExit();
}
};
Paragraph columnNamesRoutine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",266,12)
//MOVE CCVS-C-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsC1()));
//@CobolSourceFile("SM202A.COB",266,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM202A.COB",267,12)
//MOVE CCVS-C-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsC2()));
//@CobolSourceFile("SM202A.COB",267,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i4=0;i4<2;++i4) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM202A.COB",268,12)
//MOVE HYPHEN-LINE TO DUMMY-RECORD
setDummyRecord(new
String(getHyphenLine()));
//@CobolSourceFile("SM202A.COB",268,46)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",270,12)
//MOVE HYPHEN-LINE TO DUMMY-RECORD
setDummyRecord(new
String(getHyphenLine()));
//@CobolSourceFile("SM202A.COB",270,46)
//PERFORM WRITE-LINE 5 TIMES
for(int i5=0;i5<5;++i5) {
doCobolPerform(writeLine,null);
}
return doCobolExit();
}
};
Paragraph endRtnExit=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",272,12)
//MOVE CCVS-E-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE1()));
//@CobolSourceFile("SM202A.COB",272,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i6=0;i6<2;++i6) {
doCobolPerform(writeLine,null);
}
return doCobolExit();
}
};
Paragraph endRoutine1=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",274,13)
//ADD ERROR-COUNTER TO ERROR-HOLD
setErrorHold(_Math.add(getErrorCounter(),getErrorHold()));
//@CobolSourceFile("SM202A.COB",274,45)
//ADD INSPECT-COUNTER TO
//ERROR-HOLD
setErrorHold(_Math.add(getInspectCounter(),getErrorHold()));
//@CobolSourceFile("SM202A.COB",275,25)
//ADD DELETE-COUNTER TO ERROR-HOLD
setErrorHold(_Math.add(getDeleteCounter(),getErrorHold()));
//@CobolSourceFile("SM202A.COB",276,13)
//ADD PASS-COUNTER TO ERROR-HOLD
setErrorHold(_Math.add(getPassCounter(),getErrorHold()));
//* IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO
END-ROUTINE-12.
//@CobolSourceFile("SM202A.COB",278,13)
//MOVE PASS-COUNTER TO CCVS-E-4-1
ccvsE4.setCcvsE41(passCounterFmt_.format(getPassCounter()));
//@CobolSourceFile("SM202A.COB",279,13)
//MOVE ERROR-HOLD TO CCVS-E-4-2
ccvsE4.setCcvsE42(errorHoldFmt_.format(getErrorHold()));
//@CobolSourceFile("SM202A.COB",280,13)
//MOVE CCVS-E-4 TO CCVS-E-2-2
ccvsE2.setCcvsE22(getCcvsE4());
//@CobolSourceFile("SM202A.COB",281,13)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("SM202A.COB",281,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine12=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",283,13)
//MOVE "TEST(S) FAILED" TO
ENDER-DESC
ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S)
FAILED"));
//@CobolSourceFile("SM202A.COB",284,12)
//IF ERROR-COUNTER IS EQUAL TO ZERO
//
ELSE
if(getErrorCounter() == 0) {
//@CobolSourceFile("SM202A.COB",285,16)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal(__normalizeLiteral("NO
"));
} else {
//@CobolSourceFile("SM202A.COB",287,16)
//MOVE ERROR-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(errorCounterFmt_.format(getErrorCounter()));
}
//@CobolSourceFile("SM202A.COB",288,12)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new String(getCcvsE2()));
//@CobolSourceFile("SM202A.COB",289,12)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine13=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",291,12)
//IF DELETE-COUNTER IS EQUAL TO ZERO
// ELSE
if(getDeleteCounter() == 0) {
//@CobolSourceFile("SM202A.COB",292,16)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal(__normalizeLiteral("NO
"));
} else {
//@CobolSourceFile("SM202A.COB",293,16)
//MOVE DELETE-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(deleteCounterFmt_.format(getDeleteCounter()));
}
//@CobolSourceFile("SM202A.COB",294,12)
//MOVE "TEST(S) DELETED " TO ENDER-DESC
ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S)
DELETED "));
//@CobolSourceFile("SM202A.COB",295,12)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("SM202A.COB",295,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM202A.COB",296,13)
//IF INSPECT-COUNTER EQUAL TO ZERO
//ELSE
if(getInspectCounter() == 0) {
//@CobolSourceFile("SM202A.COB",297,17)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal(__normalizeLiteral("NO
"));
} else {
//@CobolSourceFile("SM202A.COB",298,18)
//MOVE INSPECT-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(inspectCounterFmt_.format(getInspectCounter()));
}
//@CobolSourceFile("SM202A.COB",299,13)
//MOVE "TEST(S) REQUIRE
INSPECTION" TO ENDER-DESC
ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S)
REQUIRE INSPECTION"));
//@CobolSourceFile("SM202A.COB",300,13)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("SM202A.COB",300,44)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM202A.COB",301,12)
//MOVE CCVS-E-3 TO DUMMY-RECORD
setDummyRecord(new String(getCcvsE3()));
//@CobolSourceFile("SM202A.COB",301,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph writeLine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",303,12)
//ADD 1 TO RECORD-COUNT
setRecordCount(_Math.add(1,getRecordCount()));
//* IF RECORD-COUNT GREATER 50
//* MOVE SPACE TO DUMMY-RECORD
//* MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM
WRT-LN
//* MOVE HYPHEN-LINE TO DUMMY-RECORD
PERFORM WRT-LN
//* MOVE ZERO TO RECORD-COUNT.
//@CobolSourceFile("SM202A.COB",313,12)
//PERFORM
WRT-LN
doCobolPerform(wrtLn,null);
return doCobolExit();
}
};
Paragraph wrtLn=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//* MOVE DUMMY-RECORD TO DUMMY-HOLD
//* MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM
WRT-LN 2 TIMES
//@CobolSourceFile("SM202A.COB",315,12)
//WRITE DUMMY-RECORD AFTER ADVANCING 1 LINES
inError=false;
try {
printFile.write(getDummyRecord().getBytes());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//* WRITE DUMMY-RECORD AFTER ADVANCING
PAGE
//@CobolSourceFile("SM202A.COB",316,12)
//MOVE SPACE TO DUMMY-RECORD
setDummyRecord(__normalizeLiteral("
"));
return doCobolExit();
}
};
Paragraph blankLinePrint=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//* MOVE DUMMY-HOLD TO DUMMY-RECORD
//@CobolSourceFile("SM202A.COB",318,12)
//PERFORM WRT-LN
doCobolPerform(wrtLn,null);
return doCobolExit();
}
};
Paragraph failRoutine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",320,12)
//IF COMPUTED-X NOT EQUAL TO SPACE
if(compare(testComputed.getComputedX(),__normalizeLiteral("
")) !=0) {
//@CobolSourceFile("SM202A.COB",320,47)
//GO TO FAIL-ROUTINE-WRITE
return failRoutineWrite;
}
//@CobolSourceFile("SM202A.COB",321,12)
//IF CORRECT-X NOT EQUAL TO SPACE
if(compare(testCorrect.getCorrectX(),__normalizeLiteral("
")) !=0) {
//@CobolSourceFile("SM202A.COB",321,48)
//GO TO FAIL-ROUTINE-WRITE
return failRoutineWrite;
}
//@CobolSourceFile("SM202A.COB",322,12)
//MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(getAnsiReference());
//@CobolSourceFile("SM202A.COB",323,12)
//MOVE "NO FURTHER INFORMATION, SEE
PROGRAM." TO INFO-TEXT
xxinfo.setInfoText(__normalizeLiteral("NO
FURTHER INFORMATION, SEE PROGRAM.").getBytes());
//@CobolSourceFile("SM202A.COB",324,12)
//MOVE XXINFO TO DUMMY-RECORD
setDummyRecord(new
String(getXxinfo()));
//@CobolSourceFile("SM202A.COB",324,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i7=0;i7<2;++i7) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM202A.COB",325,12)
//MOVE SPACES TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(__normalizeLiteral("
"));
//@CobolSourceFile("SM202A.COB",326,12)
//GO TO FAIL-ROUTINE-EX
return failRoutineEx;
}
};
Paragraph failRoutineWrite=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",328,12)
//MOVE TEST-COMPUTED TO PRINT-REC
setPrintRec(new
String(getTestComputed()));
//@CobolSourceFile("SM202A.COB",328,46)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM202A.COB",329,12)
//MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE
testCorrect.setCorAnsiReference(getAnsiReference());
//@CobolSourceFile("SM202A.COB",330,12)
//MOVE TEST-CORRECT TO PRINT-REC
setPrintRec(new
String(getTestCorrect()));
//@CobolSourceFile("SM202A.COB",330,45)
//PERFORM WRITE-LINE 2 TIMES
for(int i8=0;i8<2;++i8) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM202A.COB",331,12)
//MOVE SPACES TO COR-ANSI-REFERENCE
testCorrect.setCorAnsiReference(__normalizeLiteral("
"));
return doCobolExit();
}
};
Paragraph failRoutineEx=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
return doCobolExit();
}
};
Paragraph bailOut=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",334,12)
//IF COMPUTED-A NOT EQUAL TO SPACE
if(compare(testComputed.getComputedA(),__normalizeLiteral("
")) !=0) {
//@CobolSourceFile("SM202A.COB",334,49)
//GO TO BAIL-OUT-WRITE
return bailOutWrite;
}
//@CobolSourceFile("SM202A.COB",335,12)
//IF CORRECT-A EQUAL TO SPACE
if(compare(testCorrect.getCorrectA(),__normalizeLiteral("
")) == 0) {
//@CobolSourceFile("SM202A.COB",335,44)
//GO TO BAIL-OUT-EX
return bailOutEx;
}
return doCobolExit();
}
};
Paragraph bailOutWrite=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",337,12)
//MOVE CORRECT-A TO XXCORRECT
xxinfo.setXxcorrect(testCorrect.getCorrectA());
//@CobolSourceFile("SM202A.COB",337,41)
//MOVE COMPUTED-A TO XXCOMPUTED
xxinfo.setXxcomputed(testComputed.getComputedA());
//@CobolSourceFile("SM202A.COB",338,12)
//MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(getAnsiReference());
//@CobolSourceFile("SM202A.COB",339,12)
//MOVE XXINFO TO DUMMY-RECORD
setDummyRecord(new String(getXxinfo()));
//@CobolSourceFile("SM202A.COB",339,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i9=0;i9<2;++i9) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM202A.COB",340,12)
//MOVE SPACES TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(__normalizeLiteral("
"));
return doCobolExit();
}
};
Paragraph bailOutEx=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
return doCobolExit();
}
};
Paragraph ccvs1Exit=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
return doCobolExit();
}
};
Section initialization=new Section(this) ;
Paragraph sm202aInit=new
Paragraph(this,initialization) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",346,12)
//OPEN INPUT TEST-FILE
inError=false;
try {
testFile.openInput();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM202A.COB",347,12)
//MOVE "SM202A CHECKS A FILE WHICH" TO
RE-MARK
testResults.setReMark(__normalizeLiteral("SM202A
CHECKS A FILE WHICH"));
//@CobolSourceFile("SM202A.COB",348,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM202A.COB",349,12)
//MOVE "WAS GENERATED IN SM201A." TO RE-MARK
testResults.setReMark(__normalizeLiteral("WAS
GENERATED IN SM201A."));
//@CobolSourceFile("SM202A.COB",350,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM202A.COB",351,12)
//MOVE "COPY FD REPLACING" TO FEATURE
testResults.setFeature(__normalizeLiteral("COPY
FD REPLACING"));
return doCobolExit();
}
};
Section fdTest=new Section(this) ;
Paragraph copyTest11=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",354,12)
//PERFORM READ-TEST-FILE
doCobolPerform(readTestFile,null);
//@CobolSourceFile("SM202A.COB",355,12)
//IF TF-1 EQUAL TO 97532
if(proofRec.getTf1() == 97532) {
//@CobolSourceFile("SM202A.COB",356,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM202A.COB",356,34)
//GO TO COPY-WRITE-11
return copyWrite11;
}
//@CobolSourceFile("SM202A.COB",357,12)
//GO TO COPY-FAIL-11
return copyFail11;
}
};
Paragraph copyDelete11=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",359,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM202A.COB",360,12)
//GO TO
COPY-WRITE-11
return copyWrite11;
}
};
Paragraph copyFail11=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",362,12)
//MOVE TF-1 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(proofRec.getTf1()));
//@CobolSourceFile("SM202A.COB",363,12)
//MOVE 97532 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(97532));
//@CobolSourceFile("SM202A.COB",364,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite11=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",366,12)
//MOVE "COPY-TEST-11 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-11
").getBytes());
//@CobolSourceFile("SM202A.COB",367,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest12=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",369,12)
//PERFORM READ-TEST-FILE
doCobolPerform(readTestFile,null);
//@CobolSourceFile("SM202A.COB",370,12)
//IF TF-1 EQUAL TO 23479
if(proofRec.getTf1() == 23479) {
//@CobolSourceFile("SM202A.COB",371,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM202A.COB",371,34)
//GO TO COPY-WRITE-12
return copyWrite12;
}
//@CobolSourceFile("SM202A.COB",372,12)
//GO TO COPY-FAIL-12
return copyFail12;
}
};
Paragraph copyDelete12=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",374,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM202A.COB",375,12)
//GO TO COPY-WRITE-12
return copyWrite12;
}
};
Paragraph copyFail12=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",377,12)
//MOVE TF-1 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(proofRec.getTf1()));
//@CobolSourceFile("SM202A.COB",378,12)
//MOVE 23479 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(23479));
//@CobolSourceFile("SM202A.COB",379,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite12=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",381,12)
//MOVE "COPY-TEST-12 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-12
").getBytes());
//@CobolSourceFile("SM202A.COB",382,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest13=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",384,12)
//PERFORM READ-TEST-FILE 3 TIMES
for(int i10=0;i10<3;++i10) {
doCobolPerform(readTestFile,null);
}
//@CobolSourceFile("SM202A.COB",385,12)
//IF TF-1 EQUAL TO 14003
if(proofRec.getTf1() == 14003) {
//@CobolSourceFile("SM202A.COB",386,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM202A.COB",386,34)
//GO TO COPY-WRITE-13
return copyWrite13;
}
//@CobolSourceFile("SM202A.COB",387,12)
//GO TO COPY-FAIL-13
return copyFail13;
}
};
Paragraph copyDelete13=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",389,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM202A.COB",390,12)
//GO TO COPY-WRITE-13
return copyWrite13;
}
};
Paragraph copyFail13=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",392,12)
//MOVE TF-1 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(proofRec.getTf1()));
//@CobolSourceFile("SM202A.COB",393,12)
//MOVE 14003 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(14003));
//@CobolSourceFile("SM202A.COB",394,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite13=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",396,12)
//MOVE "COPY-TEST-13 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-13
").getBytes());
//@CobolSourceFile("SM202A.COB",397,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest14=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",399,12)
//PERFORM READ-TEST-FILE 2 TIMES
for(int i11=0;i11<2;++i11) {
doCobolPerform(readTestFile,null);
}
//@CobolSourceFile("SM202A.COB",400,12)
//IF TF-1 EQUAL TO 03543
if(proofRec.getTf1() == 3543) {
//@CobolSourceFile("SM202A.COB",401,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM202A.COB",401,34)
//GO TO COPY-WRITE-14
return copyWrite14;
}
//@CobolSourceFile("SM202A.COB",402,12)
//GO TO COPY-FAIL-14
return copyFail14;
}
};
Paragraph copyDelete14=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",404,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM202A.COB",405,12)
//GO TO COPY-WRITE-14
return copyWrite14;
}
};
Paragraph copyFail14=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",407,12)
//MOVE TF-1 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(proofRec.getTf1()));
//@CobolSourceFile("SM202A.COB",408,12)
//MOVE 03543 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(3543));
//@CobolSourceFile("SM202A.COB",409,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite14=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",411,12)
//MOVE "COPY-TEST-14 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-14
").getBytes());
//@CobolSourceFile("SM202A.COB",412,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyInitA=new
Paragraph(this,fdTest) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",414,12)
//MOVE "COPY REPLACING --- " TO FEATURE
testResults.setFeature(__normalizeLiteral("COPY
REPLACING --- "));
//@CobolSourceFile("SM202A.COB",415,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM202A.COB",416,12)
//MOVE "
PARAGRAPH-NAMES " TO
FEATURE
testResults.setFeature(__normalizeLiteral(" PARAGRAPH-NAMES "));
return doCobolExit();
}
};
Section copyTest15=new Section(this) ;
Paragraph para1=new
Paragraph(this,copyTest15) {
public CobolMethod run() {
//@CobolSourceFile("K2SEA.CPY",1,12)
//ALTER PARA-2 TO PROCEED TO PARA-4
return doCobolExit();
}
};
Paragraph para2=new
Paragraph(this,copyTest15) {
public CobolMethod run() {
//@CobolSourceFile("K2SEA.CPY",3,12)
//GO TO PARA-3
return para3;
}
};
Paragraph para3=new
Paragraph(this,copyTest15) {
public CobolMethod run() {
//@CobolSourceFile("K2SEA.CPY",5,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("K2SEA.CPY",6,12)
//GO TO COPY-WRITE-15
return copyWrite15;
}
};
Paragraph para4=new Paragraph(this,copyTest15)
{
public CobolMethod run() {
//@CobolSourceFile("K2SEA.CPY",8,12)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("K2SEA.CPY",9,12)
//GO TO COPY-WRITE-15
return copyWrite15;
}
};
Section copyA15=new Section(this) ;
Paragraph copyDelete15=new
Paragraph(this,copyA15) {
public CobolMethod run() {
//*
//*
//* REPLACING PARA-X BY PARA-2
//* DUMMY-PASS BY PASS.
//******************** COPIED TEXT
BEGINS BELOW ********************
//* REPLACING PARA-X BY PARA-2
//* DUMMY-PASS BYDUMMY-PASS
BY PASS.
//@CobolSourceFile("SM202A.COB",437,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph copyWrite15=new
Paragraph(this,copyA15) {
public CobolMethod run() {
//*********************** COPY
STATEMENT USED **********************
//* 12345 BY PARA-3
//*
COPY K2SEA
//*********************** END OF
COPIED TEXT ***********************
//@CobolSourceFile("SM202A.COB",439,12)
//MOVE "COPY-TEST-15" TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-15").getBytes());
//* COPY K2SEA
//* 12345 BY PARA-3
//@CobolSourceFile("SM202A.COB",440,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Section copyPara=new Section(this) ;
Paragraph copyInitB=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//*
//@CobolSourceFile("SM202A.COB",443,12)
//MOVE "
BY LITERALS " TO FEATURE
testResults.setFeature(__normalizeLiteral(" BY LITERALS "));
return doCobolExit();
}
};
Paragraph copyTest16=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//@CobolSourceFile("K2PRA.CPY",0,12)
//MOVE "TRUE " TO AREA-1
totalArea.setArea1(__normalizeLiteral("TRUE
"));
//@CobolSourceFile("K2PRA.CPY",1,12)
//MOVE " TWO$" TO AREA-2
totalArea.setArea2(__normalizeLiteral("
TWO$"));
//@CobolSourceFile("K2PRA.CPY",2,12)
//MOVE "+ 2 =" TO AREA-3
totalArea.setArea3(__normalizeLiteral("+
2 ="));
//@CobolSourceFile("K2PRA.CPY",3,12)
//MOVE 4 TO AREA-4
totalArea.setArea4(4);
//@CobolSourceFile("K2PRA.CPY",4,12)
//IF TOTAL-AREA EQUAL TO "TRUE TWO + 2 =
4"
// ELSE
if(compare(getTotalArea(),__normalizeLiteral("TRUE TWO + 2 =
4")) == 0) {
//@CobolSourceFile("K2PRA.CPY",5,21)
//PERFORM PASS
doCobolPerform(pass,null);
} else {
//@CobolSourceFile("K2PRA.CPY",5,39)
//PERFORM FAIL
doCobolPerform(fail,null);
}
//@CobolSourceFile("K2PRA.CPY",6,12)
//GO TO COPY-WRITE-16
return copyWrite16;
}
};
Paragraph copyDelete16=new Paragraph(this,copyPara)
{
public CobolMethod run() {
//*
//*
//* REPLACING FALSE-DATA-1 BY
"TRUE "
//* FALSE-DATA-3 BY "+
2 ="
//*
//*
COPY K2PRA
//* FALSE-DATA-2 BY "
TWO$"
//@CobolSourceFile("SM202A.COB",464,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph copyWrite16=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//*********************** COPY
STATEMENT USED **********************
//* FALSE-DATA-2 BY "
TWO$"
//******************** COPIED TEXT
BEGINS BELOW ********************
//* FALSE-DATA-3 BY "+
2 ="
//*********************** END OF
COPIED TEXT ***********************
//@CobolSourceFile("SM202A.COB",466,12)
//IF COUNTER-16 IS EQUAL TO 0
// ...ELSE
if(getCounter16() == 0) {
//*
COPY K2PRA
//* REPLACING FALSE-DATA-1 BY
"TRUE "
//@CobolSourceFile("SM202A.COB",467,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//* FALSE-DATA-4 BY 4.
//@CobolSourceFile("SM202A.COB",468,16)
//GO TO COPY-WRITE-17
return copyWrite17;
} else {
//* FALSE-DATA-4
BYFALSE-DATA-4 BY 4.
//@CobolSourceFile("SM202A.COB",470,16)
//SUBTRACT 1 FROM COUNTER-16
setCounter16(_Math.subtract(_Math.subtract(1,getCounter16()),1));
}
//@CobolSourceFile("SM202A.COB",471,12)
//IF P-OR-F EQUAL TO "FAIL*"
if(compare(testResults.getPOrF(),__normalizeLiteral("FAIL*"))
== 0) {
//@CobolSourceFile("SM202A.COB",472,21)
//MOVE TOTAL-AREA TO
COMPUTED-A
testComputed.setComputedA(new
String(getTotalArea()));
//@CobolSourceFile("SM202A.COB",473,21)
//MOVE "TRUE TWO + 2 =
4" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("TRUE TWO + 2 =
4"));
}
//@CobolSourceFile("SM202A.COB",474,12)
//MOVE "COPY-TEST-16" TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-16").getBytes());
//@CobolSourceFile("SM202A.COB",475,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyInit17=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",477,12)
//MOVE SPACE TO TOTAL-AREA
setTotalArea(__normalizeLiteral("
").getBytes());
return doCobolExit();
}
};
Paragraph copyTest17=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//@CobolSourceFile("K2PRA.CPY",0,12)
//MOVE TRUE-Q-04 OF TRUE-Q-03 IN TRUE-Q-02 TO AREA-1
totalArea.setArea1(qualifiedData.getTrueQ04());
//@CobolSourceFile("K2PRA.CPY",1,12)
//MOVE " TWO FIVE " TO AREA-2
totalArea.setArea2(__normalizeLiteral("
TWO FIVE "));
//@CobolSourceFile("K2PRA.CPY",2,12)
//MOVE Z (2, 1, 1) TO AREA-3
totalArea.setArea3(subscriptedData.getZ(2,1,1));
//@CobolSourceFile("K2PRA.CPY",3,12)
//MOVE +000004.99 TO AREA-4
totalArea.setArea4((int) (4.99));
//@CobolSourceFile("K2PRA.CPY",4,12)
//IF TOTAL-AREA EQUAL TO "TRUE TWO + 2 =
4"
// ELSE
if(compare(getTotalArea(),__normalizeLiteral("TRUE TWO + 2 =
4")) == 0) {
//@CobolSourceFile("K2PRA.CPY",5,21)
//PERFORM PASS
doCobolPerform(pass,null);
} else {
//@CobolSourceFile("K2PRA.CPY",5,39)
//PERFORM FAIL
doCobolPerform(fail,null);
}
//@CobolSourceFile("K2PRA.CPY",6,12)
//GO TO COPY-WRITE-17
return copyWrite17;
}
};
Paragraph copyDelete17=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//*
//*
//*
REPLACING FALSE-DATA-1
BY TRUE-Q-04 OF TRUE-Q-03
//* COPY-WRITE-16 BY
COPY-WRITE-17
//* FALSE-DATA-3 BY Z(2, 1,
1)
//*
//*
COPY K2PRA
//*
IN TRUE-Q-02
//@CobolSourceFile("SM202A.COB",500,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph copyWrite17=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//*********************** COPY
STATEMENT USED **********************
//*
IN TRUE-Q-02
//* FALSE-DATA-4 BY
+000004.99.
//* REPLACING FALSE-DATA-1 BY
TRUE-Q-04 OF TRUE-Q-03
//* FALSE-DATA-2 BY "
TWO FIVE "
//@CobolSourceFile("SM202A.COB",502,12)
//IF P-OR-F EQUAL TO "FAIL*"
if(compare(testResults.getPOrF(),__normalizeLiteral("FAIL*"))
== 0) {
//*
COPY K2PRA
//******************** COPIED
TEXT BEGINS BELOW ********************
//* FALSE-DATA-3 BY Z (2, 1,
1)
//*********************** END
OF COPIED TEXT ***********************
//@CobolSourceFile("SM202A.COB",503,21)
//MOVE TOTAL-AREA TO
COMPUTED-A
testComputed.setComputedA(new
String(getTotalArea()));
//* FALSE-DATA-2 BY "
TWO FIVE "
//* FALSE-DATA-4
BYFALSE-DATA-4 BY +000004.99.
//@CobolSourceFile("SM202A.COB",504,21)
//MOVE "TRUE TWO + 2 =
4" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("TRUE TWO + 2 =
4"));
}
//* COPY-WRITE-16 BY
COPY-WRITE-17
//@CobolSourceFile("SM202A.COB",505,12)
//MOVE "COPY-TEST-17" TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-17").getBytes());
//@CobolSourceFile("SM202A.COB",506,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM202A.COB",507,12)
//CLOSE TEST-FILE
inError=false;
try {
testFile.close();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM202A.COB",508,12)
//GO TO CCVS-EXIT
return ccvsExit;
}
};
Paragraph readTestFile=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",510,12)
//READ TEST-FILE AT END
inError=false;
try {
if(testFile.read(proofRec)<0)
{
//@CobolSourceFile("SM202A.COB",510,47)
//GO TO BAD-FILE
return badFile;
}
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
return doCobolExit();
}
};
Paragraph badFile=new
Paragraph(this,copyPara) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",512,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("SM202A.COB",513,12)
//MOVE "BAD-FILE" TO PAR-NAME
testResults.setParName(__normalizeLiteral("BAD-FILE").getBytes());
//@CobolSourceFile("SM202A.COB",514,12)
//MOVE "EOF PREMATURELY FOUND" TO
RE-MARK
testResults.setReMark(__normalizeLiteral("EOF
PREMATURELY FOUND"));
//@CobolSourceFile("SM202A.COB",515,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM202A.COB",516,12)
//CLOSE TEST-FILE
inError=false;
try {
testFile.close();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM202A.COB",517,12)
//GO TO CCVS-EXIT
return ccvsExit;
}
};
Section ccvsExit=new Section(this) ;
Paragraph ccvs999999=new
Paragraph(this,ccvsExit) {
public CobolMethod run() {
//@CobolSourceFile("SM202A.COB",520,12)
//GO TO CLOSE-FILES
return closeFiles;
}
};
public Sm202a() {
super(new CobolBytes(280));
}
public void initialize() {
setCounter16(1);
totalArea.initialize();
qualifiedData.initialize();
setReSubData(__normalizeLiteral("ABCDEFGHIJKLMNOPQRST+
2 =UVWXYZYXWVUTSRQ"));
subscriptedData.initialize();
testResults.initialize();
testComputed.initialize();
testCorrect.initialize();
ccvsC1.initialize();
ccvsC2.initialize();
setRecCt(0);
setDeleteCounter(0);
setErrorCounter(0);
setInspectCounter(0);
setPassCounter(0);
setErrorHold(0);
setRecordCount(0);
setAnsiReference(__normalizeLiteral("
"));
ccvsH1.initialize();
ccvsH2a.initialize();
ccvsH2b.initialize();
ccvsH3.initialize();
ccvsE1.initialize();
ccvsE2.initialize();
ccvsE3.initialize();
ccvsE4.initialize();
xxinfo.initialize();
hyphenLine.initialize();
setCcvsPgmId(__normalizeLiteral("SM202A"));
}
}