package
testpackage;
/************************************************************************
** RES generated this file from Cobol program
SM201A in source file SM201A.COB
** Generated at time 01:16:21.54 on Thursday,
03/25/10
************************************************************************/
import
testpackage.sm201a.TstTest;
import
testpackage.sm201a.TextTest1;
import
testpackage.sm201a.Wstr1;
import
testpackage.sm201a.Wstr2;
import
testpackage.sm201a.Wstr3;
import
testpackage.sm201a.Wstr4;
import
testpackage.sm201a.Wstr5;
import
testpackage.sm201a.TestResults;
import
testpackage.sm201a.TestComputed;
import
testpackage.sm201a.TestCorrect;
import
testpackage.sm201a.CcvsC1;
import
testpackage.sm201a.CcvsC2;
import
testpackage.sm201a.CcvsH1;
import
testpackage.sm201a.CcvsH2a;
import
testpackage.sm201a.CcvsH2b;
import
testpackage.sm201a.CcvsH3;
import
testpackage.sm201a.CcvsE1;
import
testpackage.sm201a.CcvsE2;
import
testpackage.sm201a.CcvsE3;
import
testpackage.sm201a.CcvsE4;
import
testpackage.sm201a.Xxinfo;
import
testpackage.sm201a.HyphenLine;
import
com.res.java.lib.*;
import
java.math.BigDecimal;
@SuppressWarnings("unused")
public class
Sm201a 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 SM201A TESTS THE "REPLACING" PHRASE OF THE
"COPY" *
//*
PROCEDURE DIVISION AND PRODUCES A SEQUENTIAL OUTPUT FILE *
//*
SM202A. *
//****************************************************************
//@CobolSourceFile("SM201A.COB",43,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. *
//*
*
//*
USING "COPY"ED CODE, WHICH IS SUBSEQUENTLY CHECKED BY *
//@CobolSourceFile("SM201A.COB",44,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);
//*
*
//*
*
//*
STATEMENT IN THE WORKING-STORAGE SECTION AND *
//*
//*
//* REPLACING
//*
//*FD
TEST-FILE COPY
K1FDA
//* PROOF-REC BY TST-TEST.
//*
XXXXX074
//*
XXXXX075
//*********************** END OF COPIED
TEXT ***********************
//*********************** COPY STATEMENT
USED **********************
//*01
TST-TEST COPY
K101A
//* TST-FLD-1 BY TF-1.
//******************** COPIED TEXT BEGINS
BELOW ********************
//@CobolSourceFile("SM201A.COB",73,8)
//01
TST-TEST.
private TstTest tstTest = new TstTest();
public byte[] getTstTest() {
return tstTest.getBytes();
}
public void setTstTest(byte[] val) {
tstTest.valueOf(val);
}
private CobolFile testFile = new
CobolFile(__normalizeLiteral("XXXXP001"),120);
//*
*
//*
*
//*FD
TEST-FILE COPY
K1FDA
//******************** COPIED TEXT BEGINS
BELOW ********************
//*
VALUE OF
//*
XXXXX069
//*
//*
//* REPLACING
//*********************** END OF COPIED
TEXT ***********************
//@CobolSourceFile("SM201A.COB",77,8)
//77
RCD-1 PICTURE 9(5) VALUE 97532.
private int rcd1;
public int getRcd1() {
return rcd1;
}
public
void setRcd1(int val) {
rcd1=(int)
super.normalizeBinary(val,5,false);
}
//*
*
//* PROOF-REC BY TST-TEST.
//*
IS
//* REPLACING
//* TST-FLD-1 BY TF-1.
//@CobolSourceFile("SM201A.COB",78,8)
//77
RCD-2 PICTURE 9(5) VALUE 23479.
private int rcd2;
public int getRcd2() {
return rcd2;
}
public
void setRcd2(int val) {
rcd2=(int)
super.normalizeBinary(val,5,false);
}
//*********************** COPY STATEMENT
USED **********************
//*
//@CobolSourceFile("SM201A.COB",79,8)
//77
RCD-3 PICTURE 9(5) VALUE 10901.
private int rcd3;
public int getRcd3() {
return rcd3;
}
public
void setRcd3(int val) {
rcd3=(int)
super.normalizeBinary(val,5,false);
}
//* REPLACING
//@CobolSourceFile("SM201A.COB",80,8)
//77
RCD-4 PICTURE 9(5) VALUE 02734.
private int rcd4;
public int getRcd4() {
return rcd4;
}
public
void setRcd4(int val) {
rcd4=(int)
super.normalizeBinary(val,5,false);
}
//*01 TST-TEST COPY
K101A
//@CobolSourceFile("SM201A.COB",81,8)
//77
RCD-5 PICTURE 9(5) VALUE 14003.
private int rcd5;
public int getRcd5() {
return rcd5;
}
public
void setRcd5(int val) {
rcd5=(int)
super.normalizeBinary(val,5,false);
}
//@CobolSourceFile("SM201A.COB",82,8)
//77
RCD-6 PICTURE 9(5) VALUE 19922.
private int rcd6;
public int getRcd6() {
return rcd6;
}
public
void setRcd6(int val) {
rcd6=(int) super.normalizeBinary(val,5,false);
}
//@CobolSourceFile("SM201A.COB",83,8)
//77
RCD-7 PICTURE 9(5) VALUE 03543.
private int rcd7;
public int getRcd7() {
return rcd7;
}
public
void setRcd7(int val) {
rcd7=(int)
super.normalizeBinary(val,5,false);
}
//*
//*
//* REPLACING ==02 TST-FLD-1 PICTURE 9(5). 02 FILLER
//* BY ==02 FILLER PICTURE X(115). 02 TXT-FLD-1
//*
//@CobolSourceFile("SM201A.COB",94,8)
//01
TEXT-TEST-1.
private TextTest1 textTest1 = new
TextTest1();
public byte[] getTextTest1() {
return textTest1.getBytes();
}
public void setTextTest1(byte[] val) {
textTest1.valueOf(val);
}
//*********************** COPY STATEMENT
USED **********************
//* PICTURE X(115)==
//******************** COPIED TEXT BEGINS
BELOW ********************
//* REPLACING ==02 TST-FLD-1 PICTURE 9(5). 02 FILLER
//@CobolSourceFile("SM201A.COB",97,8)
//01
WSTR-1.
private Wstr1 wstr1 = new Wstr1();
public byte[] getWstr1() {
return wstr1.getBytes();
}
public void setWstr1(byte[] val) {
wstr1.valueOf(val);
}
//* PIC 9(5)==.
//* PIC 9(5)==.
//@CobolSourceFile("SM201A.COB",104,8)
//01
WSTR-2.
private Wstr2 wstr2 = new Wstr2();
public byte[] getWstr2() {
return wstr2.getBytes();
}
public void setWstr2(byte[] val) {
wstr2.valueOf(val);
}
//* PICTURE X(115)==
//*********************** COPY STATEMENT
USED **********************
//*
COPY K1WKA
//*
//*
COPY K1WKA
//*********************** END OF COPIED
TEXT ***********************
//@CobolSourceFile("SM201A.COB",120,8)
//01
WSTR-3.
private Wstr3 wstr3 = new Wstr3();
public byte[] getWstr3() {
return wstr3.getBytes();
}
public void setWstr3(byte[] val) {
wstr3.valueOf(val);
}
//*
//* REPLACING WSTR-2A BY WSTR999.
//* REPLACING WSTR-2A BY WSTR999.
//*********************** COPY STATEMENT
USED **********************
//*
COPY K1WKA.
//******************** COPIED TEXT BEGINS
BELOW ********************
//*********************** END OF COPIED
TEXT ***********************
//*********************** COPY STATEMENT
USED **********************
//*01
WSTR-4. COPY
K1WKB
//* WSTR4B BY WSTR92
//*
//@CobolSourceFile("SM201A.COB",144,8)
//01
WSTR-4.
private Wstr4 wstr4 = new Wstr4();
public byte[] getWstr4() {
return wstr4.getBytes();
}
public void setWstr4(byte[] val) {
wstr4.valueOf(val);
}
//*
//*
//*
//*
//* REPLACING WSTR4A BY WSTR91
//******************** COPIED TEXT BEGINS
BELOW ********************
//* REPLACING WSTR4A BY WSTR91
//* WSTR4C BYWSTR4C BY WSTR93.
//*
//*
//*
//@CobolSourceFile("SM201A.COB",158,8)
//01
WSTR-5.
private Wstr5 wstr5 = new Wstr5();
public byte[] getWstr5() {
return wstr5.getBytes();
}
public void setWstr5(byte[] val) {
wstr5.valueOf(val);
}
//******************** COPIED TEXT BEGINS
BELOW ********************
//*1WKA.
//* WSTR4C BY WSTR93.
//* WSTR4B BY WSTR92
//*********************** COPY STATEMENT
USED **********************
//******************** COPIED TEXT BEGINS
BELOW ********************
//*********************** END OF COPIED
TEXT ***********************
//@CobolSourceFile("SM201A.COB",161,8)
//01
TEST-RESULTS.
private TestResults testResults = new TestResults();
public byte[] getTestResults() {
return testResults.getBytes();
}
public void setTestResults(byte[] val) {
testResults.valueOf(val);
}
//@CobolSourceFile("SM201A.COB",173,8)
//01
TEST-COMPUTED.
private TestComputed testComputed = new
TestComputed();
public byte[] getTestComputed() {
return testComputed.getBytes();
}
public void setTestComputed(byte[] val) {
testComputed.valueOf(val);
}
//@CobolSourceFile("SM201A.COB",188,8)
//01
TEST-CORRECT.
private TestCorrect testCorrect = new
TestCorrect();
public byte[] getTestCorrect() {
return testCorrect.getBytes();
}
public void setTestCorrect(byte[] val) {
testCorrect.valueOf(val);
}
//@CobolSourceFile("SM201A.COB",202,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("SM201A.COB",208,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("SM201A.COB",215,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("SM201A.COB",216,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("SM201A.COB",217,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("SM201A.COB",218,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("SM201A.COB",219,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("SM201A.COB",221,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("SM201A.COB",223,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("SM201A.COB",224,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("SM201A.COB",225,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("SM201A.COB",230,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("SM201A.COB",239,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("SM201A.COB",251,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("SM201A.COB",258,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("SM201A.COB",263,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("SM201A.COB",271,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("SM201A.COB",280,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("SM201A.COB",286,8)
//01
XXINFO.
private Xxinfo xxinfo = new Xxinfo();
public byte[] getXxinfo() {
return xxinfo.getBytes();
}
public void setXxinfo(byte[] val) {
xxinfo.valueOf(val);
}
//@CobolSourceFile("SM201A.COB",295,8)
//01
HYPHEN-LINE.
private HyphenLine hyphenLine = new
HyphenLine();
public byte[] getHyphenLine() {
return hyphenLine.getBytes();
}
public void setHyphenLine(byte[] val) {
hyphenLine.valueOf(val);
}
//@CobolSourceFile("SM201A.COB",303,8)
//01
CCVS-PGM-ID
PIC X(9) VALUE
//
"SM201A".
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) {
Sm201a instance_ = new Sm201a();
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("SM201A.COB",308,12)
//OPEN OUTPUT PRINT-FILE
inError=false;
try {
printFile.openOutput();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",309,12)
//MOVE CCVS-PGM-ID TO TEST-ID
ccvsH2b.setTestId(getCcvsPgmId());
//@CobolSourceFile("SM201A.COB",309,41)
//MOVE CCVS-PGM-ID TO ID-AGAIN
ccvsE1.setIdAgain(getCcvsPgmId());
//@CobolSourceFile("SM201A.COB",310,12)
//MOVE SPACE TO TEST-RESULTS
setTestResults(__normalizeLiteral("
").getBytes());
//@CobolSourceFile("SM201A.COB",311,12)
//PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE
doCobolPerform(headRoutine,columnNamesRoutine);
//@CobolSourceFile("SM201A.COB",312,12)
//GO TO CCVS1-EXIT
return ccvs1Exit;
}
};
Paragraph closeFiles=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",314,12)
//PERFORM END-ROUTINE THRU
END-ROUTINE-13
doCobolPerform(endRoutine,endRoutine13);
//@CobolSourceFile("SM201A.COB",314,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("SM201A.COB",318,12)
//STOP RUN
System.exit(0);
return doCobolExit();
}
};
Paragraph inspt=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//*TERMINATE-CALL.
//@CobolSourceFile("SM201A.COB",319,15)
//MOVE "INSPT" TO P-OR-F
testResults.setPOrF(__normalizeLiteral("INSPT"));
//@CobolSourceFile("SM201A.COB",319,39)
//ADD 1 TO INSPECT-COUNTER
setInspectCounter(_Math.add(1,getInspectCounter()));
return doCobolExit();
}
};
Paragraph pass=new Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",320,15)
//MOVE "PASS " TO P-OR-F
testResults.setPOrF(__normalizeLiteral("PASS
"));
//@CobolSourceFile("SM201A.COB",320,40)
//ADD 1 TO PASS-COUNTER
setPassCounter(_Math.add(1,getPassCounter()));
return doCobolExit();
}
};
Paragraph fail=new Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",321,15)
//MOVE "FAIL*" TO P-OR-F
testResults.setPOrF(__normalizeLiteral("FAIL*"));
//@CobolSourceFile("SM201A.COB",321,40)
//ADD 1 TO ERROR-COUNTER
setErrorCounter(_Math.add(1,getErrorCounter()));
return doCobolExit();
}
};
Paragraph deLete=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",322,18)
//MOVE "*****" TO P-OR-F
testResults.setPOrF(__normalizeLiteral("*****"));
//@CobolSourceFile("SM201A.COB",322,43)
//ADD 1 TO DELETE-COUNTER
setDeleteCounter(_Math.add(1,getDeleteCounter()));
//@CobolSourceFile("SM201A.COB",323,12)
//MOVE "****TEST
DELETED****" TO RE-MARK
testResults.setReMark(__normalizeLiteral("****TEST
DELETED****"));
return doCobolExit();
}
};
Paragraph printDetail=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",325,12)
//IF REC-CT NOT EQUAL TO ZERO
if(getRecCt() != 0) {
//@CobolSourceFile("SM201A.COB",326,20)
//MOVE "." TO
PARDOT-X
testResults.setPardotX(__normalizeLiteral("."));
//@CobolSourceFile("SM201A.COB",327,20)
//MOVE REC-CT TO DOTVALUE
testResults.setDotvalue(getRecCt());
}
//@CobolSourceFile("SM201A.COB",328,12)
//MOVE TEST-RESULTS TO PRINT-REC
setPrintRec(new String(getTestResults()));
//@CobolSourceFile("SM201A.COB",328,48)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM201A.COB",329,12)
//IF P-OR-F EQUAL TO
"FAIL*"
// ELSE
if(compare(testResults.getPOrF(),__normalizeLiteral("FAIL*"))
== 0) {
//@CobolSourceFile("SM201A.COB",329,40)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM201A.COB",330,15)
//PERFORM FAIL-ROUTINE THRU
FAIL-ROUTINE-EX
doCobolPerform(failRoutine,failRoutineEx);
} else {
//@CobolSourceFile("SM201A.COB",331,22)
//PERFORM BAIL-OUT THRU
BAIL-OUT-EX
doCobolPerform(bailOut,bailOutEx);
}
//@CobolSourceFile("SM201A.COB",332,12)
//MOVE SPACE TO P-OR-F
testResults.setPOrF(__normalizeLiteral("
"));
//@CobolSourceFile("SM201A.COB",332,34)
//MOVE SPACE TO COMPUTED-X
testComputed.setComputedX(__normalizeLiteral("
").getBytes());
//@CobolSourceFile("SM201A.COB",333,12)
//MOVE SPACE TO CORRECT-X
testCorrect.setCorrectX(__normalizeLiteral("
").getBytes());
//@CobolSourceFile("SM201A.COB",334,12)
//IF REC-CT EQUAL TO ZERO
if(getRecCt() == 0) {
//@CobolSourceFile("SM201A.COB",334,41)
//MOVE SPACE TO PAR-NAME
testResults.setParName(__normalizeLiteral("
").getBytes());
}
//@CobolSourceFile("SM201A.COB",335,12)
//MOVE SPACE TO RE-MARK
testResults.setReMark(__normalizeLiteral("
"));
return doCobolExit();
}
};
Paragraph headRoutine=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",337,12)
//MOVE CCVS-H-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH1()));
//@CobolSourceFile("SM201A.COB",337,44)
//PERFORM WRITE-LINE 2 TIMES
for(int i0=0;i0<2;++i0) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM201A.COB",338,12)
//MOVE CCVS-H-2A TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH2a()));
//@CobolSourceFile("SM201A.COB",338,44)
//PERFORM WRITE-LINE 2 TIMES
for(int i1=0;i1<2;++i1) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM201A.COB",339,12)
//MOVE CCVS-H-2B TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH2b()));
//@CobolSourceFile("SM201A.COB",339,44)
//PERFORM WRITE-LINE 3 TIMES
for(int i2=0;i2<3;++i2) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM201A.COB",340,12)
//MOVE CCVS-H-3 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH3()));
//@CobolSourceFile("SM201A.COB",340,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("SM201A.COB",342,12)
//MOVE CCVS-C-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsC1()));
//@CobolSourceFile("SM201A.COB",342,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM201A.COB",343,12)
//MOVE CCVS-C-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsC2()));
//@CobolSourceFile("SM201A.COB",343,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i4=0;i4<2;++i4) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM201A.COB",344,12)
//MOVE HYPHEN-LINE TO DUMMY-RECORD
setDummyRecord(new
String(getHyphenLine()));
//@CobolSourceFile("SM201A.COB",344,46)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",346,12)
//MOVE HYPHEN-LINE TO DUMMY-RECORD
setDummyRecord(new
String(getHyphenLine()));
//@CobolSourceFile("SM201A.COB",346,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("SM201A.COB",348,12)
//MOVE CCVS-E-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE1()));
//@CobolSourceFile("SM201A.COB",348,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("SM201A.COB",350,13)
//ADD ERROR-COUNTER TO ERROR-HOLD
setErrorHold(_Math.add(getErrorCounter(),getErrorHold()));
//@CobolSourceFile("SM201A.COB",350,45)
//ADD INSPECT-COUNTER TO
//ERROR-HOLD
setErrorHold(_Math.add(getInspectCounter(),getErrorHold()));
//@CobolSourceFile("SM201A.COB",351,25)
//ADD DELETE-COUNTER TO ERROR-HOLD
setErrorHold(_Math.add(getDeleteCounter(),getErrorHold()));
//@CobolSourceFile("SM201A.COB",352,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("SM201A.COB",354,13)
//MOVE PASS-COUNTER TO CCVS-E-4-1
ccvsE4.setCcvsE41(passCounterFmt_.format(getPassCounter()));
//@CobolSourceFile("SM201A.COB",355,13)
//MOVE ERROR-HOLD TO CCVS-E-4-2
ccvsE4.setCcvsE42(errorHoldFmt_.format(getErrorHold()));
//@CobolSourceFile("SM201A.COB",356,13)
//MOVE CCVS-E-4 TO CCVS-E-2-2
ccvsE2.setCcvsE22(getCcvsE4());
//@CobolSourceFile("SM201A.COB",357,13)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new String(getCcvsE2()));
//@CobolSourceFile("SM201A.COB",357,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine12=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",359,13)
//MOVE "TEST(S) FAILED" TO
ENDER-DESC
ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S)
FAILED"));
//@CobolSourceFile("SM201A.COB",360,12)
//IF ERROR-COUNTER IS EQUAL TO ZERO
//
ELSE
if(getErrorCounter() == 0) {
//@CobolSourceFile("SM201A.COB",361,16)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal(__normalizeLiteral("NO
"));
} else {
//@CobolSourceFile("SM201A.COB",363,16)
//MOVE ERROR-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(errorCounterFmt_.format(getErrorCounter()));
}
//@CobolSourceFile("SM201A.COB",364,12)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("SM201A.COB",365,12)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine13=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",367,12)
//IF DELETE-COUNTER IS EQUAL TO ZERO
// ELSE
if(getDeleteCounter() == 0) {
//@CobolSourceFile("SM201A.COB",368,16)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal(__normalizeLiteral("NO
"));
} else {
//@CobolSourceFile("SM201A.COB",369,16)
//MOVE DELETE-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(deleteCounterFmt_.format(getDeleteCounter()));
}
//@CobolSourceFile("SM201A.COB",370,12)
//MOVE "TEST(S) DELETED " TO ENDER-DESC
ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S)
DELETED "));
//@CobolSourceFile("SM201A.COB",371,12)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("SM201A.COB",371,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM201A.COB",372,13)
//IF INSPECT-COUNTER EQUAL TO ZERO
//ELSE
if(getInspectCounter() == 0) {
//@CobolSourceFile("SM201A.COB",373,17)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal(__normalizeLiteral("NO
"));
} else {
//@CobolSourceFile("SM201A.COB",374,18)
//MOVE INSPECT-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(inspectCounterFmt_.format(getInspectCounter()));
}
//@CobolSourceFile("SM201A.COB",375,13)
//MOVE "TEST(S) REQUIRE INSPECTION"
TO ENDER-DESC
ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S)
REQUIRE INSPECTION"));
//@CobolSourceFile("SM201A.COB",376,13)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("SM201A.COB",376,44)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM201A.COB",377,12)
//MOVE CCVS-E-3 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE3()));
//@CobolSourceFile("SM201A.COB",377,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph writeLine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",379,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("SM201A.COB",389,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("SM201A.COB",391,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("SM201A.COB",392,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("SM201A.COB",394,12)
//PERFORM WRT-LN
doCobolPerform(wrtLn,null);
return doCobolExit();
}
};
Paragraph failRoutine=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",396,12)
//IF COMPUTED-X NOT EQUAL TO SPACE
if(compare(testComputed.getComputedX(),__normalizeLiteral("
")) !=0) {
//@CobolSourceFile("SM201A.COB",396,47)
//GO
TO FAIL-ROUTINE-WRITE
return failRoutineWrite;
}
//@CobolSourceFile("SM201A.COB",397,12)
//IF CORRECT-X NOT EQUAL TO SPACE
if(compare(testCorrect.getCorrectX(),__normalizeLiteral("
")) !=0) {
//@CobolSourceFile("SM201A.COB",397,48)
//GO TO FAIL-ROUTINE-WRITE
return failRoutineWrite;
}
//@CobolSourceFile("SM201A.COB",398,12)
//MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(getAnsiReference());
//@CobolSourceFile("SM201A.COB",399,12)
//MOVE "NO FURTHER INFORMATION, SEE
PROGRAM." TO INFO-TEXT
xxinfo.setInfoText(__normalizeLiteral("NO
FURTHER INFORMATION, SEE PROGRAM.").getBytes());
//@CobolSourceFile("SM201A.COB",400,12)
//MOVE XXINFO TO DUMMY-RECORD
setDummyRecord(new
String(getXxinfo()));
//@CobolSourceFile("SM201A.COB",400,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i7=0;i7<2;++i7) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM201A.COB",401,12)
//MOVE SPACES TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(__normalizeLiteral("
"));
//@CobolSourceFile("SM201A.COB",402,12)
//GO TO FAIL-ROUTINE-EX
return failRoutineEx;
}
};
Paragraph failRoutineWrite=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",404,12)
//MOVE TEST-COMPUTED TO PRINT-REC
setPrintRec(new
String(getTestComputed()));
//@CobolSourceFile("SM201A.COB",404,46)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("SM201A.COB",405,12)
//MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE
testCorrect.setCorAnsiReference(getAnsiReference());
//@CobolSourceFile("SM201A.COB",406,12)
//MOVE TEST-CORRECT TO PRINT-REC
setPrintRec(new String(getTestCorrect()));
//@CobolSourceFile("SM201A.COB",406,45)
//PERFORM WRITE-LINE 2 TIMES
for(int i8=0;i8<2;++i8) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM201A.COB",407,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("SM201A.COB",410,12)
//IF COMPUTED-A NOT EQUAL TO SPACE
if(compare(testComputed.getComputedA(),__normalizeLiteral("
")) !=0) {
//@CobolSourceFile("SM201A.COB",410,49)
//GO TO BAIL-OUT-WRITE
return bailOutWrite;
}
//@CobolSourceFile("SM201A.COB",411,12)
//IF CORRECT-A EQUAL TO SPACE
if(compare(testCorrect.getCorrectA(),__normalizeLiteral("
")) == 0) {
//@CobolSourceFile("SM201A.COB",411,44)
//GO TO BAIL-OUT-EX
return bailOutEx;
}
return doCobolExit();
}
};
Paragraph bailOutWrite=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",413,12)
//MOVE CORRECT-A TO XXCORRECT
xxinfo.setXxcorrect(testCorrect.getCorrectA());
//@CobolSourceFile("SM201A.COB",413,41)
//MOVE COMPUTED-A TO XXCOMPUTED
xxinfo.setXxcomputed(testComputed.getComputedA());
//@CobolSourceFile("SM201A.COB",414,12)
//MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(getAnsiReference());
//@CobolSourceFile("SM201A.COB",415,12)
//MOVE XXINFO TO DUMMY-RECORD
setDummyRecord(new
String(getXxinfo()));
//@CobolSourceFile("SM201A.COB",415,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i9=0;i9<2;++i9) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("SM201A.COB",416,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 sm201aInit=new
Paragraph(this,initialization) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",422,12)
//OPEN OUTPUT TEST-FILE
inError=false;
try {
testFile.openOutput();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",423,12)
//MOVE "OUTPUT OF SM201A IS USED AS" TO
RE-MARK
testResults.setReMark(__normalizeLiteral("OUTPUT
OF SM201A IS USED AS"));
//@CobolSourceFile("SM201A.COB",424,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM201A.COB",425,12)
//MOVE "INPUT FOR SM202A." TO RE-MARK
testResults.setReMark(__normalizeLiteral("INPUT
FOR SM202A."));
//@CobolSourceFile("SM201A.COB",426,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM201A.COB",427,12)
//MOVE "COPY 01 LEVEL --- " TO FEATURE
testResults.setFeature(__normalizeLiteral("COPY
01 LEVEL --- "));
//@CobolSourceFile("SM201A.COB",428,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Section workingStorageTest=new
Section(this) ;
Paragraph copyTest1=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",431,12)
//IF WSTR-1A EQUAL TO WSTR999
if(compare(wstr1.getWstr1a(),wstr2.getWstr999())
== 0) {
//@CobolSourceFile("SM201A.COB",432,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",432,34)
//GO TO COPY-WRITE-1
return copyWrite1;
}
//* NOTE TESTS COPYING WITH REPLACEMENT IN
WORKING-STORAGE.
//@CobolSourceFile("SM201A.COB",434,12)
//GO TO COPY-FAIL-1
return copyFail1;
}
};
Paragraph copyDelete1=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",436,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",437,12)
//GO TO COPY-WRITE-1
return copyWrite1;
}
};
Paragraph copyFail1=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",439,12)
//MOVE WSTR999 TO COMPUTED-A
testComputed.setComputedA(wstr2.getWstr999());
//@CobolSourceFile("SM201A.COB",440,12)
//MOVE "ABC" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("ABC"));
//@CobolSourceFile("SM201A.COB",441,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite1=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",443,12)
//MOVE "
REPLACING" TO FEATURE
testResults.setFeature(__normalizeLiteral(" REPLACING"));
//@CobolSourceFile("SM201A.COB",444,12)
//MOVE "COPY-TEST-1 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-1
").getBytes());
//@CobolSourceFile("SM201A.COB",445,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest2=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",447,12)
//IF WSTR-2A EQUAL TO "ABC"
if(compare(wstr3.getWstr2a(),__normalizeLiteral("ABC"))
== 0) {
//@CobolSourceFile("SM201A.COB",448,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",448,34)
//GO TO COPY-WRITE-2
return copyWrite2;
}
//* NOTE
TESTS ORDINARY COPY OF ENTRIES WHICH ARE ALSO COPIED
//@CobolSourceFile("SM201A.COB",451,12)
//GO TO COPY-FAIL-2
return copyFail2;
}
};
Paragraph copyDelete2=new Paragraph(this,workingStorageTest)
{
public CobolMethod run() {
//* BY COPY REPLACING.
//@CobolSourceFile("SM201A.COB",453,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",454,12)
//GO TO COPY-WRITE-2
return copyWrite2;
}
};
Paragraph copyFail2=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",456,12)
//MOVE WSTR-2A TO COMPUTED-A
testComputed.setComputedA(wstr3.getWstr2a());
//@CobolSourceFile("SM201A.COB",457,12)
//MOVE "ABC" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("ABC"));
//@CobolSourceFile("SM201A.COB",458,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite2=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",460,12)
//MOVE "
(NO REPLACING)" TO FEATURE
testResults.setFeature(__normalizeLiteral(" (NO REPLACING)"));
//@CobolSourceFile("SM201A.COB",461,12)
//MOVE "COPY-TEST-2 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-2
").getBytes());
//@CobolSourceFile("SM201A.COB",462,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyInitA=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",464,12)
//MOVE "
REPLACING" TO FEATURE
testResults.setFeature(__normalizeLiteral(" REPLACING"));
return doCobolExit();
}
};
Paragraph copyTest3=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",466,12)
//IF WSTR91 EQUAL TO "ABC"
if(compare(wstr4.getWstr91(),__normalizeLiteral("ABC"))
== 0) {
//@CobolSourceFile("SM201A.COB",467,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",467,34)
//GO TO COPY-WRITE-3
return copyWrite3;
}
//* NOTE COPY-TEST-3, 4, AND 5 TEST COPYING
WITH A
//@CobolSourceFile("SM201A.COB",470,12)
//GO TO COPY-FAIL-3
return copyFail3;
}
};
Paragraph copyDelete3=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//* SERIES OF REPLACEMENTS.
//@CobolSourceFile("SM201A.COB",472,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",473,12)
//GO TO COPY-WRITE-3
return copyWrite3;
}
};
Paragraph copyFail3=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",475,12)
//MOVE WSTR91 TO COMPUTED-A
testComputed.setComputedA(wstr4.getWstr91());
//@CobolSourceFile("SM201A.COB",476,12)
//MOVE "ABC" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("ABC"));
//@CobolSourceFile("SM201A.COB",477,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite3=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",479,12)
//MOVE "COPY-TEST-3 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-3
").getBytes());
//@CobolSourceFile("SM201A.COB",480,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest4=new Paragraph(this,workingStorageTest)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",482,12)
//IF WSTR92 EQUAL TO "DEF"
if(compare(wstr4.getWstr92(),__normalizeLiteral("DEF"))
== 0) {
//@CobolSourceFile("SM201A.COB",483,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",483,34)
//GO TO COPY-WRITE-4
return copyWrite4;
}
//@CobolSourceFile("SM201A.COB",484,12)
//GO TO COPY-FAIL-4
return copyFail4;
}
};
Paragraph copyDelete4=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",486,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",487,12)
//GO TO COPY-WRITE-4
return copyWrite4;
}
};
Paragraph copyFail4=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",489,12)
//MOVE WSTR92 TO COMPUTED-A
testComputed.setComputedA(wstr4.getWstr92());
//@CobolSourceFile("SM201A.COB",490,12)
//MOVE "DEF" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("DEF"));
//@CobolSourceFile("SM201A.COB",491,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite4=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",493,12)
//MOVE "COPY-TEST-4 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-4
").getBytes());
//@CobolSourceFile("SM201A.COB",494,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest5=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",496,12)
//IF WSTR93 EQUAL TO "GHI"
if(compare(wstr4.getWstr93(),__normalizeLiteral("GHI"))
== 0) {
//@CobolSourceFile("SM201A.COB",497,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",497,34)
//GO TO COPY-WRITE-5
return copyWrite5;
}
//@CobolSourceFile("SM201A.COB",498,12)
//GO TO COPY-FAIL-5
return copyFail5;
}
};
Paragraph copyDelete5=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",500,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",501,12)
//GO TO COPY-WRITE-5
return copyWrite5;
}
};
Paragraph copyFail5=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",503,12)
//MOVE WSTR93 TO COMPUTED-A
testComputed.setComputedA(wstr4.getWstr93());
//@CobolSourceFile("SM201A.COB",504,12)
//MOVE "GHI" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("GHI"));
//@CobolSourceFile("SM201A.COB",505,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite5=new Paragraph(this,workingStorageTest)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",507,12)
//MOVE "COPY-TEST-5 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-5
").getBytes());
//@CobolSourceFile("SM201A.COB",508,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyInitB=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",510,12)
//MOVE "
(NOT REPLACING)" TO FEATURE
testResults.setFeature(__normalizeLiteral(" (NOT REPLACING)"));
return doCobolExit();
}
};
Paragraph copyTest6=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",512,12)
//IF WSTR4A EQUAL TO "ABC"
if(compare(wstr5.getWstr4a(),__normalizeLiteral("ABC"))
== 0) {
//@CobolSourceFile("SM201A.COB",513,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",513,34)
//GO TO COPY-WRITE-6
return copyWrite6;
}
//* NOTE COPY-TEST-6, 7, AND 8 TEST
ORDINARY COPYING OF
//@CobolSourceFile("SM201A.COB",516,12)
//GO TO COPY-FAIL-6
return copyFail6;
}
};
Paragraph copyDelete6=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//* ENTRIES WHICH ARE ALSO COPIED WITH
REPLACEMENT.
//@CobolSourceFile("SM201A.COB",518,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",519,12)
//GO TO COPY-WRITE-6
return copyWrite6;
}
};
Paragraph copyFail6=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",521,12)
//MOVE WSTR4A TO COMPUTED-A
testComputed.setComputedA(wstr5.getWstr4a());
//@CobolSourceFile("SM201A.COB",522,12)
//MOVE "ABC" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("ABC"));
//@CobolSourceFile("SM201A.COB",523,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite6=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",525,12)
//MOVE "COPY-TEST-6 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-6
").getBytes());
//@CobolSourceFile("SM201A.COB",526,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest7=new Paragraph(this,workingStorageTest)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",528,12)
//IF WSTR4B EQUAL TO "DEF"
if(compare(wstr5.getWstr4b(),__normalizeLiteral("DEF"))
== 0) {
//@CobolSourceFile("SM201A.COB",529,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",529,34)
//GO TO COPY-WRITE-7
return copyWrite7;
}
//@CobolSourceFile("SM201A.COB",530,12)
//GO TO COPY-FAIL-7
return copyFail7;
}
};
Paragraph copyDelete7=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",532,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",533,12)
//GO TO
COPY-WRITE-7
return copyWrite7;
}
};
Paragraph copyFail7=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",535,12)
//MOVE WSTR4B TO COMPUTED-A
testComputed.setComputedA(wstr5.getWstr4b());
//@CobolSourceFile("SM201A.COB",536,12)
//MOVE "DEF" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("DEF"));
//@CobolSourceFile("SM201A.COB",537,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite7=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",539,12)
//MOVE "COPY-TEST-7 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-7
").getBytes());
//@CobolSourceFile("SM201A.COB",540,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph copyTest8=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",542,12)
//IF WSTR4C EQUAL TO "GHI"
if(compare(wstr5.getWstr4c(),__normalizeLiteral("GHI"))
== 0) {
//@CobolSourceFile("SM201A.COB",543,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",543,34)
//GO TO COPY-WRITE-8
return copyWrite8;
}
//@CobolSourceFile("SM201A.COB",544,12)
//GO TO COPY-FAIL-8
return copyFail8;
}
};
Paragraph copyDelete8=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",546,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",547,12)
//GO TO COPY-WRITE-8
return copyWrite8;
}
};
Paragraph copyFail8=new
Paragraph(this,workingStorageTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",549,12)
//MOVE WSTR4C TO COMPUTED-A
testComputed.setComputedA(wstr5.getWstr4c());
//@CobolSourceFile("SM201A.COB",550,12)
//MOVE "GHI" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("GHI"));
//@CobolSourceFile("SM201A.COB",551,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite8=new Paragraph(this,workingStorageTest)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",553,12)
//MOVE "COPY-TEST-8 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-8
").getBytes());
//@CobolSourceFile("SM201A.COB",554,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Section paragraphTest=new Section(this) ;
Paragraph copyTest9=new
Paragraph(this,paragraphTest) {
public CobolMethod run() {
//@CobolSourceFile("K1PRB.CPY",0,12)
//MOVE WSTR4B TO WSTR91
wstr4.setWstr91(wstr5.getWstr4b());
//@CobolSourceFile("K1PRB.CPY",1,12)
//MOVE WSTR4B TO WSTR93
wstr4.setWstr93(wstr5.getWstr4b());
//@CobolSourceFile("K1PRB.CPY",2,12)
//MOVE WSTR4A TO WSTR92
wstr4.setWstr92(wstr5.getWstr4a());
//*
//*
//* REPLACING WSTR4C BY WSTR4B.
//******************** COPIED TEXT
BEGINS BELOW ********************
//* REPLACING WSTR4C BY WSTR4B.
//* NOTE
COPY A PROCEDURE WHICH REFERENCES COPIED DATA.
//@CobolSourceFile("SM201A.COB",573,12)
//IF WSTR-4 EQUAL TO "DEFABCDEF"
if(compare(getWstr4(),__normalizeLiteral("DEFABCDEF"))
== 0) {
//*********************** COPY
STATEMENT USED **********************
//*
//*********************** END
OF COPIED TEXT ***********************
//@CobolSourceFile("SM201A.COB",574,21)
//PERFORM PASS
doCobolPerform(pass,null);
//*
COPY K1PRB
//@CobolSourceFile("SM201A.COB",574,34)
//GO TO COPY-WRITE-9
return copyWrite9;
}
//*
COPY K1PRB
//@CobolSourceFile("SM201A.COB",575,12)
//GO TO COPY-FAIL-9
return copyFail9;
}
};
Paragraph copyDelete9=new
Paragraph(this,paragraphTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",577,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("SM201A.COB",578,12)
//GO TO
COPY-WRITE-9
return copyWrite9;
}
};
Paragraph copyFail9=new
Paragraph(this,paragraphTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",580,12)
//MOVE WSTR-4 TO COMPUTED-A
testComputed.setComputedA(new String(getWstr4()));
//@CobolSourceFile("SM201A.COB",581,12)
//MOVE "DEFABCDEF" TO CORRECT-A
testCorrect.setCorrectA(__normalizeLiteral("DEFABCDEF"));
//@CobolSourceFile("SM201A.COB",582,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph copyWrite9=new
Paragraph(this,paragraphTest) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",584,12)
//MOVE "COPY PARA REPLACING" TO FEATURE
testResults.setFeature(__normalizeLiteral("COPY
PARA REPLACING"));
//@CobolSourceFile("SM201A.COB",585,12)
//MOVE "COPY-TEST-9 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-9
").getBytes());
//@CobolSourceFile("SM201A.COB",586,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Section build=new Section(this) ;
Paragraph copyTest10=new
Paragraph(this,build) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",589,12)
//MOVE RCD-1 TO TF-1
tstTest.setTf1(getRcd1());
//@CobolSourceFile("SM201A.COB",590,12)
//WRITE TST-TEST
inError=false;
try {
testFile.write(getTstTest());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",591,12)
//MOVE RCD-2 TO TF-1
tstTest.setTf1(getRcd2());
//@CobolSourceFile("SM201A.COB",592,12)
//WRITE TST-TEST
inError=false;
try {
testFile.write(getTstTest());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",593,12)
//MOVE RCD-3 TO TF-1
tstTest.setTf1(getRcd3());
//@CobolSourceFile("SM201A.COB",594,12)
//WRITE TST-TEST
inError=false;
try {
testFile.write(getTstTest());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",595,12)
//MOVE RCD-4 TO TF-1
tstTest.setTf1(getRcd4());
//@CobolSourceFile("SM201A.COB",596,12)
//WRITE TST-TEST
inError=false;
try {
testFile.write(getTstTest());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",597,12)
//MOVE RCD-5 TO TF-1
tstTest.setTf1(getRcd5());
//@CobolSourceFile("SM201A.COB",598,12)
//WRITE TST-TEST
inError=false;
try {
testFile.write(getTstTest());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",599,12)
//MOVE RCD-6 TO TF-1
tstTest.setTf1(getRcd6());
//@CobolSourceFile("SM201A.COB",600,12)
//WRITE TST-TEST
inError=false;
try {
testFile.write(getTstTest());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",601,12)
//MOVE RCD-7 TO TF-1
tstTest.setTf1(getRcd7());
//@CobolSourceFile("SM201A.COB",602,12)
//WRITE TST-TEST
inError=false;
try {
testFile.write(getTstTest());
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("SM201A.COB",603,12)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("SM201A.COB",604,12)
//GO TO COPY-WRITE-10
return copyWrite10;
}
};
Paragraph copyDelete10=new Paragraph(this,build)
{
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",606,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph copyWrite10=new
Paragraph(this,build) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",608,12)
//MOVE "COPY FD REPLACING" TO FEATURE
testResults.setFeature(__normalizeLiteral("COPY
FD REPLACING"));
//@CobolSourceFile("SM201A.COB",609,12)
//MOVE "COPY-TEST-10 " TO PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-10
").getBytes());
//@CobolSourceFile("SM201A.COB",610,12)
//MOVE "OUTPUT PASSED ONTO SM202" TO
RE-MARK
testResults.setReMark(__normalizeLiteral("OUTPUT
PASSED ONTO SM202"));
//@CobolSourceFile("SM201A.COB",611,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("SM201A.COB",612,12)
//CLOSE TEST-FILE
inError=false;
try {
testFile.close();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
return doCobolExit();
}
};
Section moreTests=new Section(this) ;
Paragraph copyTest11=new
Paragraph(this,moreTests) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",615,12)
//MOVE SPACES TO TEXT-TEST-1
setTextTest1(__normalizeLiteral("
").getBytes());
//@CobolSourceFile("SM201A.COB",616,12)
//MOVE 12345 TO TXT-FLD-1
textTest1.setTxtFld1(12345);
//@CobolSourceFile("SM201A.COB",617,12)
//IF TEXT-TEST-1 IS EQUAL TO
"12345"
// ... ELSE
if(compare(getTextTest1(),__normalizeLiteral("12345"))
== 0) {
//@CobolSourceFile("SM201A.COB",621,16)
//PERFORM PASS
doCobolPerform(pass,null);
} else {
//@CobolSourceFile("SM201A.COB",621,36)
//PERFORM FAIL
doCobolPerform(fail,null);
}
//@CobolSourceFile("SM201A.COB",622,12)
//GO TO COPY-WRITE-11
return copyWrite11;
}
};
Paragraph copyDelete11=new
Paragraph(this,moreTests) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",624,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph copyWrite11=new
Paragraph(this,moreTests) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",626,12)
//MOVE "PSEUDO TEXT" TO
FEATURE
testResults.setFeature(__normalizeLiteral("PSEUDO
TEXT"));
//@CobolSourceFile("SM201A.COB",627,12)
//MOVE "COPY-TEST-11" TO
PAR-NAME
testResults.setParName(__normalizeLiteral("COPY-TEST-11").getBytes());
//@CobolSourceFile("SM201A.COB",628,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Section ccvsExit=new Section(this) ;
Paragraph ccvs999999=new
Paragraph(this,ccvsExit) {
public CobolMethod run() {
//@CobolSourceFile("SM201A.COB",631,12)
//GO TO CLOSE-FILES
return closeFiles;
}
};
public Sm201a() {
super(new CobolBytes(240));
}
public void initialize() {
setRcd1(97532);
setRcd2(23479);
setRcd3(10901);
setRcd4(2734);
setRcd5(14003);
setRcd6(19922);
setRcd7(3543);
textTest1.initialize();
wstr1.initialize();
wstr2.initialize();
wstr3.initialize();
wstr4.initialize();
wstr5.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("SM201A"));
}
}