package
cobolprogramclasses;
/************************************************************************
** RES generated this file from Cobol program
NC176A in source file NC176A.COB
** Generated at time 00:43:47.23 on Thursday,
03/25/10
************************************************************************/
import
coboldataclasses.nc176a.__42Datanames0;
import
coboldataclasses.nc176a.TestResults;
import
coboldataclasses.nc176a.TestComputed;
import
coboldataclasses.nc176a.TestCorrect;
import coboldataclasses.nc176a.CcvsC1;
import
coboldataclasses.nc176a.CcvsC2;
import
coboldataclasses.nc176a.CcvsH1;
import
coboldataclasses.nc176a.CcvsH2a;
import
coboldataclasses.nc176a.CcvsH2b;
import
coboldataclasses.nc176a.CcvsH3;
import
coboldataclasses.nc176a.CcvsE1;
import
coboldataclasses.nc176a.CcvsE2;
import
coboldataclasses.nc176a.CcvsE3;
import
coboldataclasses.nc176a.CcvsE4;
import
coboldataclasses.nc176a.Xxinfo;
import
coboldataclasses.nc176a.HyphenLine;
import
com.res.java.lib.*;
import java.math.BigDecimal;
@SuppressWarnings("unused")
public class
Nc176a 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 NC176A TESTS FORMAT 1 OF THE ADD STATEMENT.
//*
OPTIONAL PHRASES ARE TESTED.
//@CobolSourceFile("NC176A.COB",38,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. *
//*
//*
//@CobolSourceFile("NC176A.COB",39,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("XXXXX055",120);
//*
*
//*
*
//*
VARIOUS COMBINATINS OF DATA-ITEMS AND ALL
//@CobolSourceFile("NC176A.COB",41,8)
//01
42-DATANAMES.
private __42Datanames0 __42Datanames = new
__42Datanames0();
public byte[] get__42Datanames0() {
return __42Datanames.getBytes();
}
public void set__42Datanames0(byte[] val)
{
__42Datanames.valueOf(val);
}
//@CobolSourceFile("NC176A.COB",84,8)
//77
SIZE-ERR
PICTURE X VALUE SPACE.
private String sizeErr= new String();
public String getSizeErr() {
return sizeErr;
}
public
void setSizeErr(String val) {
sizeErr=super.normalizeString(val,1);
}
//@CobolSourceFile("NC176A.COB",85,8)
//77
SIZE-ERR2
PICTURE X VALUE SPACE.
private String sizeErr2= new String();
public String getSizeErr2() {
return sizeErr2;
}
public
void setSizeErr2(String val) {
sizeErr2=super.normalizeString(val,1);
}
//@CobolSourceFile("NC176A.COB",86,8)
//77
SIZE-ERR3
PICTURE X VALUE SPACE.
private String sizeErr3= new String();
public String getSizeErr3() {
return sizeErr3;
}
public
void setSizeErr3(String val) {
sizeErr3=super.normalizeString(val,1);
}
//@CobolSourceFile("NC176A.COB",87,8)
//77
SIZE-ERR4
PICTURE X VALUE SPACE.
private String sizeErr4= new String();
public String getSizeErr4() {
return sizeErr4;
}
public
void setSizeErr4(String val) {
sizeErr4=super.normalizeString(val,1);
}
//@CobolSourceFile("NC176A.COB",88,8)
//77
A18TWOS-DS-18V00
PICTURE S9(18)
// VALUE 222222222222222222.
private long a18twosDs18v00;
public long getA18twosDs18v00() {
return a18twosDs18v00;
}
public
void setA18twosDs18v00(long val) {
a18twosDs18v00=super.normalizeBinary(val,18,true);
}
//@CobolSourceFile("NC176A.COB",90,8)
//77
A18ONES-DS-18V00
PICTURE S9(18)
// VALUE
111111111111111111.
private long a18onesDs18v00;
public long getA18onesDs18v00() {
return a18onesDs18v00;
}
public
void setA18onesDs18v00(long val) {
a18onesDs18v00=super.normalizeBinary(val,18,true);
}
//@CobolSourceFile("NC176A.COB",92,8)
//77
WRK-DS-10V00
PICTURE S9(10).
private long wrkDs10v00;
public long getWrkDs10v00() {
return wrkDs10v00;
}
public
void setWrkDs10v00(long val) {
wrkDs10v00=super.normalizeBinary(val,10,true);
}
//@CobolSourceFile("NC176A.COB",93,8)
//77
A17TWOS-DS-17V00
PICTURE S9(17)
// VALUE
22222222222222222.
private long a17twosDs17v00;
public long getA17twosDs17v00() {
return a17twosDs17v00;
}
public
void setA17twosDs17v00(long val) {
a17twosDs17v00=super.normalizeBinary(val,17,true);
}
//@CobolSourceFile("NC176A.COB",95,8)
//77
A10ONES-DS-10V00
PICTURE S9(10)
// VALUE
1111111111.
private long a10onesDs10v00;
public long getA10onesDs10v00() {
return a10onesDs10v00;
}
public
void setA10onesDs10v00(long val) {
a10onesDs10v00=super.normalizeBinary(val,10,true);
}
//@CobolSourceFile("NC176A.COB",97,8)
//77
A05ONES-DS-05V00
PICTURE S9(5)
// VALUE 11111.
private int a05onesDs05v00;
public int getA05onesDs05v00() {
return a05onesDs05v00;
}
public
void setA05onesDs05v00(int val) {
a05onesDs05v00=(int)
super.normalizeBinary(val,5,true);
}
//@CobolSourceFile("NC176A.COB",99,8)
//77
A02ONES-DS-02V00
PICTURE S99
// VALUE 11.
private int a02onesDs02v00;
public int getA02onesDs02v00() {
return a02onesDs02v00;
}
public
void setA02onesDs02v00(int val) {
a02onesDs02v00=(int)
super.normalizeBinary(val,2,true);
}
//@CobolSourceFile("NC176A.COB",101,8)
//77
WRK-DS-09V09
PICTURE S9(9)V9(9).
public BigDecimal getWrkDs09v09() {
return
super.getDisplayBigDecimal(240,19,9,true,false,false);
}
public
void setWrkDs09v09(BigDecimal val) {
super.setDisplayBigDecimal(240,19,val,9,true,false,false);
}
//@CobolSourceFile("NC176A.COB",102,8)
//77
WRK-DS-18V00 REDEFINES WRK-DS-09V09
// PICTURE
S9(18).
public long getWrkDs18v00() {
return
super.getDisplayLong(240,19,true,false,false);
}
public
void setWrkDs18v00(long val) {
super.setDisplayLong(240,19,val,true,false,false);
}
//@CobolSourceFile("NC176A.COB",104,8)
//77
A06THREES-DS-03V03
PICTURE S999V999
// VALUE 333.333.
private BigDecimal a06threesDs03v03 =
BigDecimal.ZERO;
public BigDecimal getA06threesDs03v03() {
return a06threesDs03v03;
}
public
void setA06threesDs03v03(BigDecimal val) {
a06threesDs03v03=super.normalizeDecimal(val,7,3,true);
}
//@CobolSourceFile("NC176A.COB",106,8)
//77
A12THREES-DS-06V06
PICTURE S9(6)V9(6)
// VALUE
333333.333333.
private BigDecimal a12threesDs06v06 =
BigDecimal.ZERO;
public BigDecimal getA12threesDs06v06() {
return
a12threesDs06v06;
}
public
void setA12threesDs06v06(BigDecimal val) {
a12threesDs06v06=super.normalizeDecimal(val,13,6,true);
}
//@CobolSourceFile("NC176A.COB",108,8)
//77
WRK-DS-06V06
PICTURE S9(6)V9(6).
public BigDecimal getWrkDs06v06() {
return
super.getDisplayBigDecimal(278,13,6,true,false,false);
}
public
void setWrkDs06v06(BigDecimal val) {
super.setDisplayBigDecimal(278,13,val,6,true,false,false);
}
//@CobolSourceFile("NC176A.COB",113,8)
//77
WRK-DS-05V00
PICTURE S9(5).
private int wrkDs05v00;
public int getWrkDs05v00() {
return wrkDs05v00;
}
public
void setWrkDs05v00(int val) {
wrkDs05v00=(int)
super.normalizeBinary(val,5,true);
}
//@CobolSourceFile("NC176A.COB",114,8)
//77
WRK-DS-02V00
PICTURE S99.
private int wrkDs02v00;
public int getWrkDs02v00() {
return wrkDs02v00;
}
public
void setWrkDs02v00(int val) {
wrkDs02v00=(int)
super.normalizeBinary(val,2,true);
}
//@CobolSourceFile("NC176A.COB",130,8)
//77
WRK-CS-18V00
PICTURE S9(18) COMPUTATIONAL.
private long wrkCs18v00;
public long getWrkCs18v00() {
return wrkCs18v00;
}
public
void setWrkCs18v00(long val) {
wrkCs18v00=super.normalizeBinary(val,18,true);
}
//@CobolSourceFile("NC176A.COB",131,8)
//77
A18ONES-CS-18V00
PICTURE S9(18) COMPUTATIONAL
// VALUE
111111111111111111.
private long a18onesCs18v00;
public long getA18onesCs18v00() {
return a18onesCs18v00;
}
public
void setA18onesCs18v00(long val) {
a18onesCs18v00=super.normalizeBinary(val,18,true);
}
//@CobolSourceFile("NC176A.COB",133,8)
//77
WRK-CS-02V02
PICTURE S99V99 COMPUTATIONAL.
private BigDecimal wrkCs02v02 =
BigDecimal.ZERO;
public BigDecimal getWrkCs02v02() {
return wrkCs02v02;
}
public
void setWrkCs02v02(BigDecimal val) {
wrkCs02v02=super.normalizeDecimal(val,2,2,true);
}
//@CobolSourceFile("NC176A.COB",134,8)
//77
A99-CS-02V00
PICTURE S99 COMPUTATIONAL
// VALUE 99.
private int a99Cs02v00;
public int getA99Cs02v00() {
return a99Cs02v00;
}
public
void setA99Cs02v00(int val) {
a99Cs02v00=(int)
super.normalizeBinary(val,2,true);
}
//@CobolSourceFile("NC176A.COB",145,8)
//77
WRK-XN-00001
PICTURE X.
private String wrkXn00001= new String();
public String getWrkXn00001() {
return wrkXn00001;
}
public
void setWrkXn00001(String val) {
wrkXn00001=super.normalizeString(val,1);
}
//@CobolSourceFile("NC176A.COB",151,8)
//01
WRK-DU-1V1-1 PIC 9V9 VALUE 1.1.
private BigDecimal wrkDu1v11 =
BigDecimal.ZERO;
public BigDecimal getWrkDu1v11() {
return wrkDu1v11;
}
public
void setWrkDu1v11(BigDecimal val) {
wrkDu1v11=super.normalizeDecimal(val,2,1,false);
}
//@CobolSourceFile("NC176A.COB",152,8)
//01
WRK-DU-1V1-2 PIC 9V9 VALUE 2.4.
private BigDecimal wrkDu1v12 =
BigDecimal.ZERO;
public BigDecimal getWrkDu1v12() {
return wrkDu1v12;
}
public
void setWrkDu1v12(BigDecimal val) {
wrkDu1v12=super.normalizeDecimal(val,2,1,false);
}
//@CobolSourceFile("NC176A.COB",158,8)
//01
WRK-DU-2V0-1 PIC 99.
private int wrkDu2v01;
public int getWrkDu2v01() {
return wrkDu2v01;
}
public
void setWrkDu2v01(int val) {
wrkDu2v01=(int)
super.normalizeBinary(val,2,false);
}
//@CobolSourceFile("NC176A.COB",159,8)
//01
WRK-DU-2V0-2 PIC 99.
private int wrkDu2v02;
public int getWrkDu2v02() {
return wrkDu2v02;
}
public
void setWrkDu2v02(int val) {
wrkDu2v02=(int)
super.normalizeBinary(val,2,false);
}
//@CobolSourceFile("NC176A.COB",160,8)
//01
WRK-DU-2V0-3 PIC 99.
private int wrkDu2v03;
public int getWrkDu2v03() {
return wrkDu2v03;
}
public
void setWrkDu2v03(int val) {
wrkDu2v03=(int)
super.normalizeBinary(val,2,false);
}
//@CobolSourceFile("NC176A.COB",161,8)
//01
WRK-DU-2V1-1 PIC 99V9.
private BigDecimal wrkDu2v11 = BigDecimal.ZERO;
public BigDecimal getWrkDu2v11() {
return wrkDu2v11;
}
public
void setWrkDu2v11(BigDecimal val) {
wrkDu2v11=super.normalizeDecimal(val,3,1,false);
}
//@CobolSourceFile("NC176A.COB",162,8)
//01
WRK-DU-2V1-2 PIC 99V9.
private BigDecimal wrkDu2v12 =
BigDecimal.ZERO;
public BigDecimal getWrkDu2v12() {
return wrkDu2v12;
}
public
void setWrkDu2v12(BigDecimal val) {
wrkDu2v12=super.normalizeDecimal(val,3,1,false);
}
//@CobolSourceFile("NC176A.COB",163,8)
//01
WRK-DU-2V1-3 PIC 99V9.
private BigDecimal wrkDu2v13 =
BigDecimal.ZERO;
public BigDecimal getWrkDu2v13() {
return wrkDu2v13;
}
public
void setWrkDu2v13(BigDecimal val) {
wrkDu2v13=super.normalizeDecimal(val,3,1,false);
}
//@CobolSourceFile("NC176A.COB",166,8)
//77
A14TWOS-CS-18V00 PICTURE S9(18)
VALUE -000022222222222222
// COMPUTATIONAL.
private long a14twosCs18v00;
public long getA14twosCs18v00() {
return a14twosCs18v00;
}
public
void setA14twosCs18v00(long val) {
a14twosCs18v00=super.normalizeBinary(val,18,true);
}
//@CobolSourceFile("NC176A.COB",172,8)
//77
A18FIVES-CS-18V00 PICTURE S9(18) VALUE -555555555555555555
// COMPUTATIONAL.
private long a18fivesCs18v00;
public long getA18fivesCs18v00() {
return a18fivesCs18v00;
}
public
void setA18fivesCs18v00(long val) {
a18fivesCs18v00=super.normalizeBinary(val,18,true);
}
//@CobolSourceFile("NC176A.COB",174,8)
//77
A18SIXES-CS-18V00 PICTURE S9(18) VALUE 666666666666666666
// COMPUTATIONAL.
private long a18sixesCs18v00;
public long getA18sixesCs18v00() {
return a18sixesCs18v00;
}
public
void setA18sixesCs18v00(long val) {
a18sixesCs18v00=super.normalizeBinary(val,18,true);
}
//@CobolSourceFile("NC176A.COB",176,8)
//77
A12SEVENS-CU-18V00 PICTURE 9(18) VALUE 000000777777777777
// COMPUTATIONAL.
private long a12sevensCu18v00;
public long getA12sevensCu18v00() {
return a12sevensCu18v00;
}
public
void setA12sevensCu18v00(long val) {
a12sevensCu18v00=super.normalizeBinary(val,18,false);
}
//@CobolSourceFile("NC176A.COB",178,8)
//77
WRK-DU-18V00 PICTURE 9(18)
VALUE ZERO.
private long wrkDu18v00;
public long getWrkDu18v00() {
return wrkDu18v00;
}
public
void setWrkDu18v00(long val) {
wrkDu18v00=super.normalizeBinary(val,18,false);
}
//@CobolSourceFile("NC176A.COB",181,8)
//77
WRK-CS-03V00 PICTURE S999 COMPUTATIONAL SYNCHRONIZED RIGHT.
private int wrkCs03v00;
public int getWrkCs03v00() {
return wrkCs03v00;
}
public
void setWrkCs03v00(int val) {
wrkCs03v00=(int)
super.normalizeBinary(val,3,true);
}
//@CobolSourceFile("NC176A.COB",196,8)
//01
N-5
PICTURE IS S9(9)V99
//
VALUE IS 000000001.00.
private BigDecimal n5 = BigDecimal.ZERO;
public BigDecimal getN5() {
return n5;
}
public
void setN5(BigDecimal val) {
n5=super.normalizeDecimal(val,12,2,true);
}
//@CobolSourceFile("NC176A.COB",198,8)
//01
N-7
PICTURE IS S9(7)V9(4)
//
VALUE IS 0000001.0000.
public BigDecimal getN7() {
return
super.getDisplayBigDecimal(332,12,4,true,false,false);
}
public
void setN7(BigDecimal val) {
super.setDisplayBigDecimal(332,12,val,4,true,false,false);
}
//@CobolSourceFile("NC176A.COB",201,8)
//01
N-10
PICTURE IS S99999V
//
VALUE IS -00001.
private BigDecimal n10 = BigDecimal.ZERO;
public BigDecimal getN10() {
return n10;
}
public
void setN10(BigDecimal val) {
n10=super.normalizeDecimal(val,6,0,true);
}
//@CobolSourceFile("NC176A.COB",203,8)
//01
N-11
PICTURE IS 9 VALUE IS 9.
private int n11;
public int getN11() {
return n11;
}
public
void setN11(int val) {
n11=(int)
super.normalizeBinary(val,1,false);
}
//@CobolSourceFile("NC176A.COB",204,8)
//01
N-12
PICTURE IS 9 VALUE IS 9.
private int n12;
public int getN12() {
return n12;
}
public
void setN12(int val) {
n12=(int)
super.normalizeBinary(val,1,false);
}
//@CobolSourceFile("NC176A.COB",205,8)
//01
N-13
PICTURE IS 9(5)
//
VALUE IS 99999.
private int n13;
public int getN13() {
return n13;
}
public
void setN13(int val) {
n13=(int)
super.normalizeBinary(val,5,false);
}
//@CobolSourceFile("NC176A.COB",249,8)
//01
TEST-RESULTS.
private TestResults testResults = new
TestResults();
public byte[] getTestResults() {
return testResults.getBytes();
}
public void setTestResults(byte[] val) {
testResults.valueOf(val);
}
//@CobolSourceFile("NC176A.COB",261,8)
//01
TEST-COMPUTED.
private TestComputed testComputed = new
TestComputed();
public byte[] getTestComputed() {
return testComputed.getBytes();
}
public void setTestComputed(byte[] val) {
testComputed.valueOf(val);
}
//@CobolSourceFile("NC176A.COB",276,8)
//01
TEST-CORRECT.
private TestCorrect testCorrect = new
TestCorrect();
public byte[] getTestCorrect() {
return testCorrect.getBytes();
}
public void setTestCorrect(byte[] val) {
testCorrect.valueOf(val);
}
//@CobolSourceFile("NC176A.COB",290,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("NC176A.COB",295,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("NC176A.COB",302,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("NC176A.COB",303,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("NC176A.COB",304,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("NC176A.COB",305,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("NC176A.COB",306,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("NC176A.COB",308,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("NC176A.COB",310,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("NC176A.COB",311,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("NC176A.COB",312,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("NC176A.COB",317,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("NC176A.COB",326,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("NC176A.COB",338,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("NC176A.COB",345,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("NC176A.COB",350,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("NC176A.COB",358,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("NC176A.COB",367,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("NC176A.COB",373,8)
//01
XXINFO.
private Xxinfo xxinfo = new Xxinfo();
public byte[] getXxinfo() {
return xxinfo.getBytes();
}
public void setXxinfo(byte[] val) {
xxinfo.valueOf(val);
}
//@CobolSourceFile("NC176A.COB",382,8)
//01
HYPHEN-LINE.
private HyphenLine hyphenLine = new
HyphenLine();
public byte[] getHyphenLine() {
return hyphenLine.getBytes();
}
public void setHyphenLine(byte[] val) {
hyphenLine.valueOf(val);
}
//@CobolSourceFile("NC176A.COB",390,8)
//01
CCVS-PGM-ID
PIC X(9) VALUE
//
"NC176A".
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) {
Nc176a instance_ = new Nc176a();
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("NC176A.COB",395,12)
//OPEN OUTPUT PRINT-FILE
inError=false;
try {
printFile.openOutput();
} catch(java.io.IOException ioe) {
ioe.printStackTrace(); }
//@CobolSourceFile("NC176A.COB",396,12)
//MOVE CCVS-PGM-ID TO TEST-ID
ccvsH2b.setTestId(getCcvsPgmId());
//@CobolSourceFile("NC176A.COB",396,41)
//MOVE CCVS-PGM-ID TO ID-AGAIN
ccvsE1.setIdAgain(getCcvsPgmId());
//@CobolSourceFile("NC176A.COB",397,12)
//MOVE SPACE TO TEST-RESULTS
setTestResults("
".getBytes());
//@CobolSourceFile("NC176A.COB",398,12)
//PERFORM HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE
doCobolPerform(headRoutine,columnNamesRoutine);
//@CobolSourceFile("NC176A.COB",399,12)
//GO TO CCVS1-EXIT
return ccvs1Exit;
}
};
Paragraph closeFiles=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",401,12)
//PERFORM END-ROUTINE THRU END-ROUTINE-13
doCobolPerform(endRoutine,endRoutine13);
//@CobolSourceFile("NC176A.COB",401,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("NC176A.COB",405,12)
//STOP RUN
System.exit(0);
return doCobolExit();
}
};
Paragraph inspt=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//*TERMINATE-CALL.
//@CobolSourceFile("NC176A.COB",406,15)
//MOVE "INSPT" TO P-OR-F
testResults.setPOrF("INSPT");
//@CobolSourceFile("NC176A.COB",406,39)
//ADD 1 TO INSPECT-COUNTER
setInspectCounter(_Math.add(1,getInspectCounter()));
return doCobolExit();
}
};
Paragraph pass=new Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",407,15)
//MOVE "PASS " TO P-OR-F
testResults.setPOrF("PASS
");
//@CobolSourceFile("NC176A.COB",407,40)
//ADD 1 TO PASS-COUNTER
setPassCounter(_Math.add(1,getPassCounter()));
return doCobolExit();
}
};
Paragraph fail=new Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",408,15)
//MOVE "FAIL*" TO P-OR-F
testResults.setPOrF("FAIL*");
//@CobolSourceFile("NC176A.COB",408,40)
//ADD
1 TO ERROR-COUNTER
setErrorCounter(_Math.add(1,getErrorCounter()));
return doCobolExit();
}
};
Paragraph deLete=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",409,18)
//MOVE "*****" TO P-OR-F
testResults.setPOrF("*****");
//@CobolSourceFile("NC176A.COB",409,43)
//ADD 1 TO DELETE-COUNTER
setDeleteCounter(_Math.add(1,getDeleteCounter()));
//@CobolSourceFile("NC176A.COB",410,12)
//MOVE "****TEST
DELETED****" TO RE-MARK
testResults.setReMark("****TEST
DELETED****");
return doCobolExit();
}
};
Paragraph printDetail=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",412,12)
//IF REC-CT NOT EQUAL TO ZERO
if(getRecCt() != 0) {
//@CobolSourceFile("NC176A.COB",413,20)
//MOVE "." TO
PARDOT-X
testResults.setPardotX(".");
//@CobolSourceFile("NC176A.COB",414,20)
//MOVE REC-CT TO DOTVALUE
testResults.setDotvalue(getRecCt());
}
//@CobolSourceFile("NC176A.COB",415,12)
//MOVE TEST-RESULTS TO PRINT-REC
setPrintRec(new
String(getTestResults()));
//@CobolSourceFile("NC176A.COB",415,48)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("NC176A.COB",416,12)
//IF P-OR-F EQUAL TO
"FAIL*"
// ELSE
if(compare(testResults.getPOrF(),"FAIL*")
== 0) {
//@CobolSourceFile("NC176A.COB",416,40)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("NC176A.COB",417,15)
//PERFORM FAIL-ROUTINE THRU
FAIL-ROUTINE-EX
doCobolPerform(failRoutine,failRoutineEx);
} else {
//@CobolSourceFile("NC176A.COB",418,22)
//PERFORM BAIL-OUT THRU
BAIL-OUT-EX
doCobolPerform(bailOut,bailOutEx);
}
//@CobolSourceFile("NC176A.COB",419,12)
//MOVE SPACE TO P-OR-F
testResults.setPOrF(" ");
//@CobolSourceFile("NC176A.COB",419,34)
//MOVE SPACE TO COMPUTED-X
testComputed.setComputedX("
".getBytes());
//@CobolSourceFile("NC176A.COB",420,12)
//MOVE SPACE TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",421,12)
//IF REC-CT EQUAL TO ZERO
if(getRecCt() == 0) {
//@CobolSourceFile("NC176A.COB",421,41)
//MOVE SPACE TO PAR-NAME
testResults.setParName("
".getBytes());
}
//@CobolSourceFile("NC176A.COB",422,12)
//MOVE SPACE TO RE-MARK
testResults.setReMark("
");
return doCobolExit();
}
};
Paragraph headRoutine=new Paragraph(this,ccvs1)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",424,12)
//MOVE CCVS-H-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH1()));
//@CobolSourceFile("NC176A.COB",424,44)
//PERFORM WRITE-LINE 2 TIMES
for(int i0=0;i0<2;++i0) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("NC176A.COB",425,12)
//MOVE CCVS-H-2A TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH2a()));
//@CobolSourceFile("NC176A.COB",425,44)
//PERFORM WRITE-LINE 2 TIMES
for(int i1=0;i1<2;++i1) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("NC176A.COB",426,12)
//MOVE CCVS-H-2B TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH2b()));
//@CobolSourceFile("NC176A.COB",426,44)
//PERFORM WRITE-LINE 3 TIMES
for(int i2=0;i2<3;++i2) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("NC176A.COB",427,12)
//MOVE CCVS-H-3 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsH3()));
//@CobolSourceFile("NC176A.COB",427,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("NC176A.COB",429,12)
//MOVE CCVS-C-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsC1()));
//@CobolSourceFile("NC176A.COB",429,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("NC176A.COB",430,12)
//MOVE CCVS-C-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsC2()));
//@CobolSourceFile("NC176A.COB",430,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i4=0;i4<2;++i4) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("NC176A.COB",431,12)
//MOVE HYPHEN-LINE TO DUMMY-RECORD
setDummyRecord(new
String(getHyphenLine()));
//@CobolSourceFile("NC176A.COB",431,46)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",433,12)
//MOVE HYPHEN-LINE TO DUMMY-RECORD
setDummyRecord(new
String(getHyphenLine()));
//@CobolSourceFile("NC176A.COB",433,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("NC176A.COB",435,12)
//MOVE CCVS-E-1 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE1()));
//@CobolSourceFile("NC176A.COB",435,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("NC176A.COB",437,13)
//ADD ERROR-COUNTER TO ERROR-HOLD
setErrorHold(_Math.add(getErrorCounter(),getErrorHold()));
//@CobolSourceFile("NC176A.COB",437,45)
//ADD INSPECT-COUNTER TO
//ERROR-HOLD
setErrorHold(_Math.add(getInspectCounter(),getErrorHold()));
//@CobolSourceFile("NC176A.COB",438,25)
//ADD DELETE-COUNTER TO ERROR-HOLD
setErrorHold(_Math.add(getDeleteCounter(),getErrorHold()));
//@CobolSourceFile("NC176A.COB",439,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("NC176A.COB",441,13)
//MOVE PASS-COUNTER TO CCVS-E-4-1
ccvsE4.setCcvsE41(passCounterFmt_.format(getPassCounter()));
//@CobolSourceFile("NC176A.COB",442,13)
//MOVE ERROR-HOLD TO CCVS-E-4-2
ccvsE4.setCcvsE42(errorHoldFmt_.format(getErrorHold()));
//@CobolSourceFile("NC176A.COB",443,13)
//MOVE CCVS-E-4 TO CCVS-E-2-2
ccvsE2.setCcvsE22(getCcvsE4());
//@CobolSourceFile("NC176A.COB",444,13)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("NC176A.COB",444,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine12=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",446,13)
//MOVE "TEST(S) FAILED" TO
ENDER-DESC
ccvsE2.setEnderDesc("TEST(S)
FAILED");
//@CobolSourceFile("NC176A.COB",447,12)
//IF ERROR-COUNTER IS EQUAL TO ZERO
//
ELSE
if(getErrorCounter() == 0) {
//@CobolSourceFile("NC176A.COB",448,16)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal("NO
");
} else {
//@CobolSourceFile("NC176A.COB",450,16)
//MOVE ERROR-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(errorCounterFmt_.format(getErrorCounter()));
}
//@CobolSourceFile("NC176A.COB",451,12)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("NC176A.COB",452,12)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph endRoutine13=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",454,12)
//IF DELETE-COUNTER IS EQUAL TO ZERO
// ELSE
if(getDeleteCounter() == 0) {
//@CobolSourceFile("NC176A.COB",455,16)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal("NO
");
} else {
//@CobolSourceFile("NC176A.COB",456,16)
//MOVE DELETE-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(deleteCounterFmt_.format(getDeleteCounter()));
}
//@CobolSourceFile("NC176A.COB",457,12)
//MOVE "TEST(S) DELETED " TO ENDER-DESC
ccvsE2.setEnderDesc("TEST(S)
DELETED ");
//@CobolSourceFile("NC176A.COB",458,12)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("NC176A.COB",458,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("NC176A.COB",459,13)
//IF INSPECT-COUNTER EQUAL TO ZERO
//ELSE
if(getInspectCounter() == 0) {
//@CobolSourceFile("NC176A.COB",460,17)
//MOVE "NO " TO
ERROR-TOTAL
ccvsE2.setErrorTotal("NO
");
} else {
//@CobolSourceFile("NC176A.COB",461,18)
//MOVE INSPECT-COUNTER TO
ERROR-TOTAL
ccvsE2.setErrorTotal(inspectCounterFmt_.format(getInspectCounter()));
}
//@CobolSourceFile("NC176A.COB",462,13)
//MOVE "TEST(S) REQUIRE
INSPECTION" TO ENDER-DESC
ccvsE2.setEnderDesc("TEST(S)
REQUIRE INSPECTION");
//@CobolSourceFile("NC176A.COB",463,13)
//MOVE CCVS-E-2 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE2()));
//@CobolSourceFile("NC176A.COB",463,44)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("NC176A.COB",464,12)
//MOVE CCVS-E-3 TO DUMMY-RECORD
setDummyRecord(new
String(getCcvsE3()));
//@CobolSourceFile("NC176A.COB",464,43)
//PERFORM WRITE-LINE
doCobolPerform(writeLine,null);
return doCobolExit();
}
};
Paragraph writeLine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",466,12)
//ADD 1 TO RECORD-COUNT
setRecordCount(_Math.add(1,getRecordCount()));
//* IF RECORD-COUNT GREATER 42
//* MOVE SPACE TO DUMMY-RECORD
//* MOVE CCVS-H-1 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES
//* MOVE CCVS-H-2B TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES
//* 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("NC176A.COB",480,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-H-2A TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES
//* MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN
//@CobolSourceFile("NC176A.COB",482,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
//* MOVE DUMMY-HOLD TO DUMMY-RECORD
//@CobolSourceFile("NC176A.COB",483,12)
//MOVE SPACE TO DUMMY-RECORD
setDummyRecord(" ");
return doCobolExit();
}
};
Paragraph blankLinePrint=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//* MOVE CCVS-H-3 TO DUMMY-RECORD PERFORM WRT-LN 3 TIMES
//@CobolSourceFile("NC176A.COB",485,12)
//PERFORM WRT-LN
doCobolPerform(wrtLn,null);
return doCobolExit();
}
};
Paragraph failRoutine=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",487,12)
//IF COMPUTED-X NOT EQUAL TO SPACE
if(compare(testComputed.getComputedX(),"
") !=0) {
//@CobolSourceFile("NC176A.COB",488,19)
//GO TO FAIL-ROUTINE-WRITE
return failRoutineWrite;
}
//@CobolSourceFile("NC176A.COB",489,12)
//IF CORRECT-X NOT EQUAL TO SPACE
if(compare(testCorrect.getCorrectX(),"
") !=0) {
//@CobolSourceFile("NC176A.COB",489,48)
//GO TO FAIL-ROUTINE-WRITE
return failRoutineWrite;
}
//@CobolSourceFile("NC176A.COB",490,12)
//MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(getAnsiReference());
//@CobolSourceFile("NC176A.COB",491,12)
//MOVE "NO FURTHER INFORMATION, SEE
PROGRAM." TO INFO-TEXT
xxinfo.setInfoText("NO FURTHER
INFORMATION, SEE PROGRAM.".getBytes());
//@CobolSourceFile("NC176A.COB",492,12)
//MOVE XXINFO TO DUMMY-RECORD
setDummyRecord(new
String(getXxinfo()));
//@CobolSourceFile("NC176A.COB",492,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i7=0;i7<2;++i7) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("NC176A.COB",493,12)
//MOVE SPACES TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference("
");
//@CobolSourceFile("NC176A.COB",494,12)
//GO TO FAIL-ROUTINE-EX
return failRoutineEx;
}
};
Paragraph failRoutineWrite=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",496,12)
//MOVE TEST-COMPUTED TO PRINT-REC
setPrintRec(new
String(getTestComputed()));
//@CobolSourceFile("NC176A.COB",496,46)
//PERFORM
WRITE-LINE
doCobolPerform(writeLine,null);
//@CobolSourceFile("NC176A.COB",497,12)
//MOVE ANSI-REFERENCE TO COR-ANSI-REFERENCE
testCorrect.setCorAnsiReference(getAnsiReference());
//@CobolSourceFile("NC176A.COB",498,12)
//MOVE TEST-CORRECT TO PRINT-REC
setPrintRec(new
String(getTestCorrect()));
//@CobolSourceFile("NC176A.COB",498,45)
//PERFORM WRITE-LINE 2 TIMES
for(int i8=0;i8<2;++i8) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("NC176A.COB",499,12)
//MOVE SPACES TO COR-ANSI-REFERENCE
testCorrect.setCorAnsiReference("
");
return doCobolExit();
}
};
Paragraph failRoutineEx=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
return doCobolExit();
}
};
Paragraph bailOut=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",502,12)
//IF COMPUTED-A NOT EQUAL TO SPACE
if(compare(testComputed.getComputedA(),"
") !=0) {
//@CobolSourceFile("NC176A.COB",502,49)
//GO TO BAIL-OUT-WRITE
return bailOutWrite;
}
//@CobolSourceFile("NC176A.COB",503,12)
//IF CORRECT-A EQUAL TO SPACE
if(compare(testCorrect.getCorrectA(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",503,44)
//GO TO BAIL-OUT-EX
return bailOutEx;
}
return doCobolExit();
}
};
Paragraph bailOutWrite=new
Paragraph(this,ccvs1) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",505,12)
//MOVE CORRECT-A TO XXCORRECT
xxinfo.setXxcorrect(testCorrect.getCorrectA());
//@CobolSourceFile("NC176A.COB",505,41)
//MOVE COMPUTED-A TO XXCOMPUTED
xxinfo.setXxcomputed(testComputed.getComputedA());
//@CobolSourceFile("NC176A.COB",506,12)
//MOVE ANSI-REFERENCE TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference(getAnsiReference());
//@CobolSourceFile("NC176A.COB",507,12)
//MOVE XXINFO TO DUMMY-RECORD
setDummyRecord(new
String(getXxinfo()));
//@CobolSourceFile("NC176A.COB",507,43)
//PERFORM WRITE-LINE 2 TIMES
for(int i9=0;i9<2;++i9) {
doCobolPerform(writeLine,null);
}
//@CobolSourceFile("NC176A.COB",508,12)
//MOVE SPACES TO INF-ANSI-REFERENCE
xxinfo.setInfAnsiReference("
");
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 sectNc176a001=new Section(this) ;
Paragraph addInitF11=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",514,12)
//MOVE "ADD" TO FEATURE
testResults.setFeature("ADD");
//@CobolSourceFile("NC176A.COB",515,12)
//MOVE "VI-74 6.6.4 GR4"
TO ANSI-REFERENCE
setAnsiReference("VI-74 6.6.4
GR4");
return doCobolExit();
}
};
Paragraph addTestF11=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",517,12)
//ADD N-5
TO N-7
setN7(_Math.add(getN5(),getN7()));
//@CobolSourceFile("NC176A.COB",518,12)
//IF N-7 IS EQUAL TO 2
if(getN7().intValue() == 2) {
//@CobolSourceFile("NC176A.COB",519,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",520,21)
//GO TO ADD-WRITE-F1-1
return addWriteF11;
}
//@CobolSourceFile("NC176A.COB",521,12)
//GO TO ADD-FAIL-F1-1
return addFailF11;
}
};
Paragraph addDeleteF11=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",523,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",524,12)
//GO TO ADD-WRITE-F1-1
return addWriteF11;
}
};
Paragraph addFailF11=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",526,12)
//MOVE N-7 TO COMPUTED-N
testComputed.setComputedN(getN7());
//@CobolSourceFile("NC176A.COB",527,12)
//MOVE 2 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(2));
//@CobolSourceFile("NC176A.COB",528,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF11=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",530,12)
//MOVE "ADD-TEST-F1-1 " TO
PAR-NAME
testResults.setParName("ADD-TEST-F1-1
".getBytes());
//@CobolSourceFile("NC176A.COB",531,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF12=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",533,12)
//ADD -.6 TO N-10 ROUNDED
setN10(_Math.add(__round(-0.6,0),getN10()));
//@CobolSourceFile("NC176A.COB",534,12)
//IF N-10 EQUAL TO -2
if(getN10().intValue() == -2) {
//@CobolSourceFile("NC176A.COB",535,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",536,21)
//GO TO ADD-WRITE-F1-2
return addWriteF12;
}
//@CobolSourceFile("NC176A.COB",537,12)
//GO TO ADD-FAIL-F1-2
return addFailF12;
}
};
Paragraph addDeleteF12=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",539,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",540,12)
//GO TO ADD-WRITE-F1-2
return addWriteF12;
}
};
Paragraph addFailF12=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",542,12)
//MOVE N-10 TO COMPUTED-N
testComputed.setComputedN(getN10());
//@CobolSourceFile("NC176A.COB",543,12)
//MOVE -2 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(-2));
//@CobolSourceFile("NC176A.COB",544,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF12=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",546,12)
//MOVE "ADD-TEST-F1-2 " TO
PAR-NAME
testResults.setParName("ADD-TEST-F1-2
".getBytes());
//@CobolSourceFile("NC176A.COB",547,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",548,12)
//MOVE -2 TO N-10
setN10(new BigDecimal(-2));
return doCobolExit();
}
};
Paragraph addTestF130=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",550,12)
//ADD N-11 TO N-12 ON SIZE ERROR
inError=false;
try {
setN12(_Math.add(getN11(),getN12()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",551,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",552,21)
//GO TO ADD-WRITE-F1-3
return addWriteF13;
}
//@CobolSourceFile("NC176A.COB",553,12)
//GO TO ADD-FAIL-F1-3
return addFailF13;
}
};
Paragraph addDeleteF13=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",555,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",556,12)
//GO TO ADD-WRITE-F1-3
return addWriteF13;
}
};
Paragraph addFailF13=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",558,12)
//MOVE N-12 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getN12()));
//@CobolSourceFile("NC176A.COB",559,12)
//MOVE "ON SIZE ERROR NOT
EXECUTED" TO RE-MARK
testResults.setReMark("ON SIZE
ERROR NOT EXECUTED");
//@CobolSourceFile("NC176A.COB",560,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF13=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",562,12)
//MOVE "ADD-TEST-F1-3 " TO
PAR-NAME
testResults.setParName("ADD-TEST-F1-3
".getBytes());
//@CobolSourceFile("NC176A.COB",563,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF141=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",565,12)
//ADD 1.5 TO N-13 ROUNDED ON SIZE ERROR
inError=false;
try {
setN13(_Math.add(__round(1.5,0),new
BigDecimal(getN13())).intValue());
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",566,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",567,21)
//GO TO ADD-WRITE-F1-4-1
return addWriteF141;
}
//* NOTE WHEN SIZE ERROR CONDITION OCCURS,
VALUE OF
//@CobolSourceFile("NC176A.COB",570,12)
//GO TO ADD-FAIL-F1-4-1
return addFailF141;
}
};
Paragraph addDeleteF141=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//* N-13 SHOULD NOT BE CHANGED.
//@CobolSourceFile("NC176A.COB",572,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",573,12)
//GO TO ADD-WRITE-F1-4-1
return addWriteF141;
}
};
Paragraph addFailF141=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",575,12)
//MOVE N-13 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getN13()));
//@CobolSourceFile("NC176A.COB",576,12)
//MOVE "ON SIZE ERROR NOT
EXECUTED" TO RE-MARK
testResults.setReMark("ON SIZE
ERROR NOT EXECUTED");
//@CobolSourceFile("NC176A.COB",577,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF141=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",579,12)
//MOVE "ADD-TEST-F1-4-1 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-4-1
".getBytes());
//@CobolSourceFile("NC176A.COB",580,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF142=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",582,12)
//IF N-13 IS EQUAL TO 99999
if(getN13() == 99999) {
//@CobolSourceFile("NC176A.COB",583,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",584,21)
//GO TO ADD-WRITE-F1-4-2
return addWriteF142;
}
//@CobolSourceFile("NC176A.COB",585,12)
//GO TO ADD-FAIL-F1-4-2
return addFailF142;
}
};
Paragraph addDeleteF142=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",587,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",588,12)
//GO TO ADD-WRITE-F1-4-2
return addWriteF142;
}
};
Paragraph addFailF142=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",590,12)
//MOVE N-13 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getN13()));
//@CobolSourceFile("NC176A.COB",591,12)
//MOVE 99999 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(99999));
//@CobolSourceFile("NC176A.COB",592,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF142=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",594,12)
//MOVE "ADD-TEST-F1-4-2 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-4-2
".getBytes());
//@CobolSourceFile("NC176A.COB",595,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF15=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",597,12)
//MOVE "ADD ---" TO
FEATURE
testResults.setFeature("ADD
---");
//@CobolSourceFile("NC176A.COB",598,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",599,12)
//MOVE " TO" TO FEATURE
testResults.setFeature(" TO");
return doCobolExit();
}
};
Paragraph addTestF15=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",601,12)
//MOVE A18TWOS-DS-18V00 TO WRK-DS-18V00
setWrkDs18v00(getA18twosDs18v00());
//@CobolSourceFile("NC176A.COB",602,12)
//ADD A18ONES-DS-18V00 TO WRK-DS-18V00
setWrkDs18v00(_Math.add(getA18onesDs18v00(),getWrkDs18v00()));
//@CobolSourceFile("NC176A.COB",603,12)
//IF WRK-DS-18V00 EQUAL TO 333333333333333333
if(getWrkDs18v00() ==
333333333333333333L) {
//@CobolSourceFile("NC176A.COB",604,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",604,34)
//GO TO ADD-WRITE-F1-5
return addWriteF15;
}
//@CobolSourceFile("NC176A.COB",605,12)
//GO TO ADD-FAIL-F1-5
return addFailF15;
}
};
Paragraph addDeleteF15=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",607,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",608,12)
//GO TO ADD-WRITE-F1-5
return addWriteF15;
}
};
Paragraph addFailF15=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",610,12)
//MOVE WRK-DS-18V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkDs18v00());
//@CobolSourceFile("NC176A.COB",611,12)
//MOVE 333333333333333333 TO CORRECT-18V0
testCorrect.setCorrect18v0(333333333333333333L);
//@CobolSourceFile("NC176A.COB",612,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF15=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",614,12)
//MOVE "ADD-TEST-F1-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-5".getBytes());
//@CobolSourceFile("NC176A.COB",615,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF16=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",617,12)
//MOVE ZERO TO WRK-DS-10V00
setWrkDs10v00(0);
//@CobolSourceFile("NC176A.COB",618,12)
//ADD A10ONES-DS-10V00 A05ONES-DS-05V00 TO
WRK-DS-10V00
long temp10 =
_Math.add(getA10onesDs10v00(),getA05onesDs05v00());
setWrkDs10v00(_Math.add(temp10,getWrkDs10v00()));
//@CobolSourceFile("NC176A.COB",619,12)
//IF WRK-DS-10V00 EQUAL TO 1111122222
if(getWrkDs10v00() == 1111122222) {
//@CobolSourceFile("NC176A.COB",620,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",620,34)
//GO TO ADD-WRITE-F1-6
return addWriteF16;
}
//@CobolSourceFile("NC176A.COB",621,12)
//GO TO ADD-FAIL-F1-6
return addFailF16;
}
};
Paragraph addDeleteF16=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",623,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",624,12)
//GO TO ADD-WRITE-F1-6
return addWriteF16;
}
};
Paragraph addFailF16=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",626,12)
//MOVE WRK-DS-10V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkDs10v00());
//@CobolSourceFile("NC176A.COB",627,12)
//MOVE 1111122222 TO CORRECT-18V0
testCorrect.setCorrect18v0(1111122222);
//@CobolSourceFile("NC176A.COB",628,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF16=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",630,12)
//MOVE "ADD-TEST-F1-6" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-6".getBytes());
//@CobolSourceFile("NC176A.COB",631,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF17=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",633,12)
//MOVE ZERO TO WRK-DS-10V00
setWrkDs10v00(0);
//@CobolSourceFile("NC176A.COB",634,12)
//ADD A02ONES-DS-02V00
// A10ONES-DS-10V00
// A05ONES-DS-05V00 TO WRK-DS-10V00
long temp11 =
_Math.add(_Math.add(getA02onesDs02v00(),getA10onesDs10v00()),getA05onesDs05v00());
setWrkDs10v00(_Math.add(temp11,getWrkDs10v00()));
//@CobolSourceFile("NC176A.COB",637,12)
//IF WRK-DS-10V00 EQUAL TO 1111122233
if(getWrkDs10v00() == 1111122233) {
//@CobolSourceFile("NC176A.COB",638,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",638,34)
//GO TO ADD-WRITE-F1-7
return addWriteF17;
}
//@CobolSourceFile("NC176A.COB",639,12)
//GO TO ADD-FAIL-F1-7
return addFailF17;
}
};
Paragraph addDeleteF17=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",641,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",642,12)
//GO TO ADD-WRITE-F1-7
return addWriteF17;
}
};
Paragraph addFailF17=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",644,12)
//MOVE WRK-DS-10V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkDs10v00());
//@CobolSourceFile("NC176A.COB",645,12)
//MOVE 1111122233 TO CORRECT-18V0
testCorrect.setCorrect18v0(1111122233);
//@CobolSourceFile("NC176A.COB",646,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF17=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",648,12)
//MOVE "ADD-TEST-F1-7" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-7".getBytes());
//@CobolSourceFile("NC176A.COB",649,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF18=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",651,12)
//MOVE " ROUNDED" TO FEATURE
testResults.setFeature(" ROUNDED");
return doCobolExit();
}
};
Paragraph addTestF18=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",653,12)
//MOVE ZERO TO WRK-DS-05V00
setWrkDs05v00(0);
//@CobolSourceFile("NC176A.COB",654,12)
//ADD 55554.5 TO WRK-DS-05V00 ROUNDED
setWrkDs05v00(_Math.add(__round(55554.5,0),new
BigDecimal(getWrkDs05v00())).intValue());
//@CobolSourceFile("NC176A.COB",655,12)
//IF WRK-DS-05V00 EQUAL TO 55555
if(getWrkDs05v00() == 55555) {
//@CobolSourceFile("NC176A.COB",656,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",656,34)
//GO TO ADD-WRITE-F1-8
return addWriteF18;
}
//@CobolSourceFile("NC176A.COB",657,12)
//GO TO ADD-FAIL-F1-8
return addFailF18;
}
};
Paragraph addDeleteF18=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",659,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",660,12)
//GO TO ADD-WRITE-F1-8
return addWriteF18;
}
};
Paragraph addFailF18=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",662,12)
//MOVE WRK-DS-05V00 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDs05v00()));
//@CobolSourceFile("NC176A.COB",663,12)
//MOVE 55555 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(55555));
//@CobolSourceFile("NC176A.COB",664,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF18=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",666,12)
//MOVE "ADD-TEST-F1-8" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-8".getBytes());
//@CobolSourceFile("NC176A.COB",667,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF191=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",669,12)
//MOVE " SIZE ERROR" TO FEATURE
testResults.setFeature(" SIZE ERROR");
//@CobolSourceFile("NC176A.COB",670,12)
//MOVE -11 TO WRK-DS-02V00
setWrkDs02v00(-11);
return doCobolExit();
}
};
Paragraph addTestF191=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",672,12)
//ADD -99 TO WRK-DS-02V00 ON SIZE ERROR
inError=false;
try {
setWrkDs02v00(_Math.add(-99,getWrkDs02v00()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",673,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",673,34)
//GO TO ADD-WRITE-F1-9-1
return addWriteF191;
}
//@CobolSourceFile("NC176A.COB",674,12)
//GO TO ADD-FAIL-F1-9-1
return addFailF191;
}
};
Paragraph addDeleteF191=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",676,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",677,12)
//GO TO ADD-WRITE-F1-9-1
return addWriteF191;
}
};
Paragraph addFailF191=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",679,12)
//MOVE "ON SIZE ERROR NOT EXECUTED" TO
RE-MARK
testResults.setReMark("ON SIZE
ERROR NOT EXECUTED");
//@CobolSourceFile("NC176A.COB",680,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF191=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",682,12)
//MOVE "ADD-TEST-F1-9-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-9-1".getBytes());
//@CobolSourceFile("NC176A.COB",683,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF192=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",685,12)
//IF WRK-DS-02V00 EQUAL TO -11
if(getWrkDs02v00() == -11) {
//@CobolSourceFile("NC176A.COB",686,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",686,34)
//GO TO ADD-WRITE-F1-9-2
return addWriteF192;
}
//* THIS TEST DEPENDS ON THE RESULTS OF
TEST-F1-9-1 ABOVE.
//@CobolSourceFile("NC176A.COB",688,12)
//GO TO ADD-FAIL-F1-9-2
return addFailF192;
}
};
Paragraph addDeleteF192=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",690,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",691,12)
//GO TO ADD-WRITE-F1-9-2
return addWriteF192;
}
};
Paragraph addFailF192=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",693,12)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",694,12)
//MOVE WRK-DS-02V00 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDs02v00()));
//@CobolSourceFile("NC176A.COB",695,12)
//MOVE -11 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(-11));
//@CobolSourceFile("NC176A.COB",696,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF192=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",698,12)
//MOVE "ADD-TEST-F1-9-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-9-2".getBytes());
//@CobolSourceFile("NC176A.COB",699,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF1101=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",701,12)
//MOVE " ROUNDED,SIZE ERROR" TO FEATURE
testResults.setFeature(" ROUNDED,SIZE ERROR");
return doCobolExit();
}
};
Paragraph addTestF1101=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",703,12)
//MOVE ZERO TO WRK-DS-05V00
setWrkDs05v00(0);
//@CobolSourceFile("NC176A.COB",704,12)
//ADD 33333
// A06THREES-DS-03V03
// A12THREES-DS-06V06
// TO WRK-DS-05V00 ROUNDED ON SIZE ERROR
inError=false;
try {
BigDecimal temp12 =
_Math.add(_Math.add(new
BigDecimal(33333),getA06threesDs03v03()),getA12threesDs06v06());
setWrkDs05v00(_Math.add(__round(temp12,0),new
BigDecimal(getWrkDs05v00())).intValue());
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",708,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",708,34)
//GO TO ADD-WRITE-F1-10-1
return addWriteF1101;
}
//@CobolSourceFile("NC176A.COB",709,12)
//GO TO ADD-FAIL-F1-10-1
return addFailF1101;
}
};
Paragraph addDeleteF1101=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",711,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",712,12)
//GO TO ADD-WRITE-F1-10-1
return addWriteF1101;
}
};
Paragraph addFailF1101=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",714,12)
//MOVE "ON SIZE ERROR NOT EXECUTED" TO
RE-MARK
testResults.setReMark("ON SIZE
ERROR NOT EXECUTED");
//@CobolSourceFile("NC176A.COB",715,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF1101=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",717,12)
//MOVE "ADD-TEST-F1-10-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-10-1".getBytes());
//@CobolSourceFile("NC176A.COB",718,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF1102=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",720,12)
//IF WRK-DS-05V00 EQUAL TO ZERO
if(getWrkDs05v00() == 0) {
//@CobolSourceFile("NC176A.COB",721,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",721,34)
//GO TO ADD-WRITE-F1-10-2
return addWriteF1102;
}
//* NOTE: THIS TEST DEPENDS UPON THE RESULT OF
ADD-TEST-F1-10-1
//@CobolSourceFile("NC176A.COB",723,12)
//GO TO ADD-FAIL-F1-10-2
return addFailF1102;
}
};
Paragraph addDeleteF1102=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",725,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",726,12)
//GO TO ADD-WRITE-F1-10-2
return addWriteF1102;
}
};
Paragraph addFailF1102=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",728,12)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",729,12)
//MOVE WRK-DS-05V00 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDs05v00()));
//@CobolSourceFile("NC176A.COB",730,12)
//MOVE ZERO TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",731,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF1102=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",733,12)
//MOVE "ADD-TEST-F1-10-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-10-2".getBytes());
//@CobolSourceFile("NC176A.COB",734,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF1111=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",736,12)
//MOVE ZERO TO WRK-DS-06V06
setWrkDs06v06(new BigDecimal(0));
//@CobolSourceFile("NC176A.COB",737,12)
//ADD A12THREES-DS-06V06
// 333333
// A06THREES-DS-03V03
// TO WRK-DS-06V06 ROUNDED ON SIZE ERROR
inError=false;
try {
BigDecimal temp13 =
_Math.add(_Math.add(getA12threesDs06v06(),new
BigDecimal(333333)),getA06threesDs03v03());
setWrkDs06v06(_Math.add(__round(temp13,6),getWrkDs06v06()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",741,21)
//GO TO ADD-FAIL-F1-11-1
return addFailF1111;
}
//@CobolSourceFile("NC176A.COB",742,12)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",743,12)
//GO TO ADD-WRITE-F1-11-1
return addWriteF1111;
}
};
Paragraph addDeleteF1111=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",745,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",746,12)
//GO TO ADD-WRITE-F1-11-1
return addWriteF1111;
}
};
Paragraph addFailF1111=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",748,12)
//MOVE "SIZE ERR SHOULD NOT EXECUTE" TO
RE-MARK
testResults.setReMark("SIZE ERR
SHOULD NOT EXECUTE");
//@CobolSourceFile("NC176A.COB",749,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF1111=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",751,12)
//MOVE "ADD-TEST-F1-11-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-11-1".getBytes());
//@CobolSourceFile("NC176A.COB",752,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF1112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",754,12)
//IF WRK-DS-06V06 EQUAL TO 666999.666333
if(compare(getWrkDs06v06(),new
BigDecimal(666999.666333)) == 0) {
//@CobolSourceFile("NC176A.COB",755,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",755,34)
//GO TO ADD-WRITE-F1-11-2
return addWriteF1112;
}
//* NOTE: THIS TEST DEPENDS UPON THE RESULT OF
ADD-TEST-F1-11-1
//@CobolSourceFile("NC176A.COB",757,12)
//GO TO ADD-FAIL-F1-11-2
return addFailF1112;
}
};
Paragraph addDeleteF1112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",759,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",760,12)
//GO TO ADD-WRITE-F1-11-2
return addWriteF1112;
}
};
Paragraph addFailF1112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",762,12)
//MOVE WRK-DS-06V06 TO COMPUTED-N
testComputed.setComputedN(getWrkDs06v06());
//@CobolSourceFile("NC176A.COB",763,12)
//MOVE 666999.666333 TO CORRECT-N
testCorrect.setCorrectN(new BigDecimal(666999.666333));
//@CobolSourceFile("NC176A.COB",764,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF1112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",766,12)
//MOVE "ADD-TEST-F1-11-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-11-2".getBytes());
//@CobolSourceFile("NC176A.COB",767,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",769,12)
//MOVE " COMP VS. DISPLAY" TO FEATURE
testResults.setFeature(" COMP VS. DISPLAY");
return doCobolExit();
}
};
Paragraph addTestF112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",771,12)
//MOVE A18ONES-DS-18V00 TO WRK-CS-18V00
setWrkCs18v00(getA18onesDs18v00());
//@CobolSourceFile("NC176A.COB",772,12)
//ADD A18ONES-DS-18V00 TO WRK-CS-18V00
setWrkCs18v00(_Math.add(getA18onesDs18v00(),getWrkCs18v00()));
//@CobolSourceFile("NC176A.COB",773,12)
//IF WRK-CS-18V00 EQUAL TO 222222222222222222
if(getWrkCs18v00() ==
222222222222222222L) {
//@CobolSourceFile("NC176A.COB",774,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",774,34)
//GO TO ADD-WRITE-F1-12
return addWriteF112;
}
//@CobolSourceFile("NC176A.COB",775,12)
//GO TO ADD-FAIL-F1-12
return addFailF112;
}
};
Paragraph addDeleteF112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",777,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",778,12)
//GO TO ADD-WRITE-F1-12
return addWriteF112;
}
};
Paragraph addFailF112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",780,12)
//MOVE WRK-CS-18V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkCs18v00());
//@CobolSourceFile("NC176A.COB",781,12)
//MOVE 222222222222222222 TO CORRECT-18V0
testCorrect.setCorrect18v0(222222222222222222L);
//@CobolSourceFile("NC176A.COB",782,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF112=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",784,12)
//MOVE "ADD-TEST-F1-12" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-12".getBytes());
//@CobolSourceFile("NC176A.COB",785,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF113=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",787,12)
//MOVE A18ONES-DS-18V00 TO WRK-DS-18V00
setWrkDs18v00(getA18onesDs18v00());
//@CobolSourceFile("NC176A.COB",788,12)
//ADD A18ONES-CS-18V00 TO WRK-DS-18V00
setWrkDs18v00(_Math.add(getA18onesCs18v00(),getWrkDs18v00()));
//@CobolSourceFile("NC176A.COB",789,12)
//IF WRK-DS-18V00 EQUAL TO 222222222222222222
if(getWrkDs18v00() ==
222222222222222222L) {
//@CobolSourceFile("NC176A.COB",790,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",790,34)
//GO TO ADD-WRITE-F1-13
return addWriteF113;
}
//@CobolSourceFile("NC176A.COB",791,12)
//GO TO ADD-FAIL-F1-13
return addFailF113;
}
};
Paragraph addDeleteF113=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",793,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",794,12)
//GO TO ADD-WRITE-F1-13
return addWriteF113;
}
};
Paragraph addFailF113=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",796,12)
//MOVE WRK-DS-18V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkDs18v00());
//@CobolSourceFile("NC176A.COB",797,12)
//MOVE 222222222222222222 TO CORRECT-18V0
testCorrect.setCorrect18v0(222222222222222222L);
//@CobolSourceFile("NC176A.COB",798,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF113=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",800,12)
//MOVE "ADD-TEST-F1-13" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-13".getBytes());
//@CobolSourceFile("NC176A.COB",801,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF114=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",803,12)
//MOVE ZERO TO WRK-CS-02V02
setWrkCs02v02(new BigDecimal(0));
//@CobolSourceFile("NC176A.COB",804,12)
//ADD A99-CS-02V00 TO WRK-CS-02V02
setWrkCs02v02(_Math.add(new
BigDecimal(getA99Cs02v00()),getWrkCs02v02()));
//@CobolSourceFile("NC176A.COB",805,12)
//IF WRK-CS-02V02 EQUAL TO 99.00
if(compare(getWrkCs02v02(),new BigDecimal(99.00))
== 0) {
//@CobolSourceFile("NC176A.COB",806,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",806,34)
//GO TO ADD-WRITE-F1-14
return addWriteF114;
}
//@CobolSourceFile("NC176A.COB",807,12)
//GO TO ADD-FAIL-F1-14
return addFailF114;
}
};
Paragraph addDeleteF114=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",809,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",810,12)
//GO TO ADD-WRITE-F1-14
return addWriteF114;
}
};
Paragraph addFailF114=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",812,12)
//MOVE WRK-CS-02V02 TO COMPUTED-N
testComputed.setComputedN(getWrkCs02v02());
//@CobolSourceFile("NC176A.COB",813,12)
//MOVE 99.00 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(99.00));
//@CobolSourceFile("NC176A.COB",814,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF114=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",816,12)
//MOVE "ADD-TEST-F1-14" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-14".getBytes());
//@CobolSourceFile("NC176A.COB",817,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF1151=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",819,12)
//MOVE A99-CS-02V00 TO WRK-CS-02V02
setWrkCs02v02(new
BigDecimal(getA99Cs02v00()));
//@CobolSourceFile("NC176A.COB",820,12)
//ADD A99-CS-02V00 TO WRK-CS-02V02 ON SIZE
ERROR
inError=false;
try {
setWrkCs02v02(_Math.add(new
BigDecimal(getA99Cs02v00()),getWrkCs02v02()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",821,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",821,34)
//GO TO ADD-WRITE-F1-15-1
return addWriteF1151;
}
//@CobolSourceFile("NC176A.COB",822,12)
//GO TO ADD-FAIL-F1-15-1
return addFailF1151;
}
};
Paragraph addDeleteF1151=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",824,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",825,12)
//GO TO ADD-WRITE-F1-15-1
return addWriteF1151;
}
};
Paragraph addFailF1151=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",827,12)
//MOVE "ON SIZE ERROR NOT EXECUTED" TO RE-MARK
testResults.setReMark("ON SIZE
ERROR NOT EXECUTED");
//@CobolSourceFile("NC176A.COB",828,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF1151=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",830,12)
//MOVE "ADD-TEST-F1-15-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-15-1".getBytes());
//@CobolSourceFile("NC176A.COB",831,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF1152=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",833,12)
//IF WRK-CS-02V02 EQUAL TO 99.00
if(compare(getWrkCs02v02(),new
BigDecimal(99.00)) == 0) {
//@CobolSourceFile("NC176A.COB",834,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",834,34)
//GO TO ADD-WRITE-F1-15-2
return addWriteF1152;
}
//* NOTE: THIS TEST DEPENDS UPON THE RESULT OF
ADD-TEST-F1-15-1
//@CobolSourceFile("NC176A.COB",836,12)
//GO TO ADD-FAIL-F1-15-2
return addFailF1152;
}
};
Paragraph addDeleteF1152=new
Paragraph(this,sectNc176a001) {
public
CobolMethod run() {
//@CobolSourceFile("NC176A.COB",838,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",839,12)
//GO TO ADD-WRITE-F1-15-2
return addWriteF1152;
}
};
Paragraph addFailF1152=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",841,12)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",842,12)
//MOVE WRK-CS-02V02 TO COMPUTED-N
testComputed.setComputedN(getWrkCs02v02());
//@CobolSourceFile("NC176A.COB",843,12)
//MOVE 99.00 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(99.00));
//@CobolSourceFile("NC176A.COB",844,12)
//PERFORM FAIL
doCobolPerform(fail,null);
return doCobolExit();
}
};
Paragraph addWriteF1152=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",846,12)
//MOVE "ADD-TEST-F1-15-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-15-2".getBytes());
//@CobolSourceFile("NC176A.COB",847,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF116=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",849,12)
//MOVE A14TWOS-CS-18V00 TO
WRK-CS-18V00
setWrkCs18v00(getA14twosCs18v00());
//@CobolSourceFile("NC176A.COB",850,12)
//ADD A18FIVES-CS-18V00 TO
WRK-CS-18V00
setWrkCs18v00(_Math.add(getA18fivesCs18v00(),getWrkCs18v00()));
//@CobolSourceFile("NC176A.COB",851,12)
//IF WRK-CS-18V00 EQUAL TO
-555577777777777777
if(getWrkCs18v00() ==
-555577777777777777L) {
//@CobolSourceFile("NC176A.COB",852,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",853,16)
//GO TO ADD-WRITE-F1-16
return addWriteF116;
}
//@CobolSourceFile("NC176A.COB",854,12)
//MOVE WRK-CS-18V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkCs18v00());
//@CobolSourceFile("NC176A.COB",855,12)
//MOVE -555577777777777777 TO
CORRECT-18V0
testCorrect.setCorrect18v0(-555577777777777777L);
//@CobolSourceFile("NC176A.COB",856,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",857,12)
//GO TO ADD-WRITE-F1-16
return addWriteF116;
}
};
Paragraph addDeleteF116=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",859,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF116=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",861,12)
//MOVE "ADD-TEST-F1-16 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-16
".getBytes());
//@CobolSourceFile("NC176A.COB",862,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF117=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",864,12)
//MOVE A12SEVENS-CU-18V00 TO
WRK-CS-18V00
setWrkCs18v00(getA12sevensCu18v00());
//@CobolSourceFile("NC176A.COB",865,12)
//ADD A18SIXES-CS-18V00 TO
WRK-CS-18V00
setWrkCs18v00(_Math.add(getA18sixesCs18v00(),getWrkCs18v00()));
//@CobolSourceFile("NC176A.COB",866,12)
//IF WRK-CS-18V00 EQUAL TO
+666667444444444443
if(getWrkCs18v00() ==
666667444444444443L) {
//@CobolSourceFile("NC176A.COB",867,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",868,16)
//GO TO ADD-WRITE-F1-17
return addWriteF117;
}
//@CobolSourceFile("NC176A.COB",869,12)
//MOVE +666667444444444443 TO
CORRECT-18V0
testCorrect.setCorrect18v0(666667444444444443L);
//@CobolSourceFile("NC176A.COB",870,12)
//MOVE WRK-CS-18V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkCs18v00());
//@CobolSourceFile("NC176A.COB",871,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",872,12)
//GO TO ADD-WRITE-F1-17
return addWriteF117;
}
};
Paragraph addDeleteF117=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",874,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF117=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",876,12)
//MOVE "ADD-TEST-F1-17 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-17
".getBytes());
//@CobolSourceFile("NC176A.COB",877,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF118=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",879,12)
//MOVE A12SEVENS-CU-18V00 TO
WRK-DU-18V00
setWrkDu18v00(getA12sevensCu18v00());
//@CobolSourceFile("NC176A.COB",880,12)
//ADD A18FIVES-CS-18V00 TO
WRK-DU-18V00
setWrkDu18v00(_Math.add(getA18fivesCs18v00(),getWrkDu18v00()));
//@CobolSourceFile("NC176A.COB",881,12)
//IF WRK-DU-18V00 EQUAL TO
555554777777777778
if(getWrkDu18v00() ==
555554777777777778L) {
//@CobolSourceFile("NC176A.COB",882,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",883,16)
//GO TO ADD-WRITE-F1-18
return addWriteF118;
}
//@CobolSourceFile("NC176A.COB",884,12)
//MOVE WRK-DU-18V00 TO COMPUTED-18V0
testComputed.setComputed18v0(getWrkDu18v00());
//@CobolSourceFile("NC176A.COB",885,12)
//MOVE 555554777777777778 TO
CORRECT-18V0
testCorrect.setCorrect18v0(555554777777777778L);
//@CobolSourceFile("NC176A.COB",886,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",887,12)
//GO TO ADD-WRITE-F1-18
return addWriteF118;
}
};
Paragraph addDeleteF118=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",889,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF118=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",891,12)
//MOVE "ADD-TEST-F1-18 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-18
".getBytes());
//@CobolSourceFile("NC176A.COB",892,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF119=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",894,12)
//MOVE +980 TO WRK-CS-03V00
setWrkCs03v00(980);
//@CobolSourceFile("NC176A.COB",895,12)
//MOVE SPACE TO SIZE-ERR
setSizeErr(" ");
//* NOTE IN THIS TEST, 1 IS ADDED TO A
3-DIGIT COMP SYNC
//* THE FIELD REACHES 1180 WITHOUT A
SIZE ERROR THE
//@CobolSourceFile("NC176A.COB",900,12)
//PERFORM ADD-A-F1-19 THRU ADD-B-F1-19 200 TIMES
for(int i14=0;i14<200;++i14) {
doCobolPerform(addAF119,addBF119);
}
//* FIELD UNTIL A SIZE ERROR OCCURS
--- IF THE VALUE OF
//@CobolSourceFile("NC176A.COB",901,12)
//IF SIZE-ERR EQUAL TO SPACE
if(compare(getSizeErr(),"
") == 0) {
//* ATTEMPTED ADDITIONS ARE
TERMINATED.
//@CobolSourceFile("NC176A.COB",902,21)
//MOVE "SIZE ERROR NOT
ENCOUNTERED" TO RE-MARK
testResults.setReMark("SIZE
ERROR NOT ENCOUNTERED");
//@CobolSourceFile("NC176A.COB",903,21)
//MOVE "AT LEAST
1180" TO COMPUTED-A
testComputed.setComputedA("AT
LEAST 1180");
//@CobolSourceFile("NC176A.COB",904,21)
//MOVE "999 IN PIC 999
FIELD" TO CORRECT-A
testCorrect.setCorrectA("999
IN PIC 999 FIELD");
//@CobolSourceFile("NC176A.COB",905,21)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",906,21)
//GO TO ADD-WRITE-F1-19
return addWriteF119;
}
//@CobolSourceFile("NC176A.COB",907,12)
//IF WRK-CS-03V00 EQUAL TO 999
if(getWrkCs03v00() == 999) {
//@CobolSourceFile("NC176A.COB",908,21)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",908,34)
//GO TO ADD-WRITE-F1-19
return addWriteF119;
}
//@CobolSourceFile("NC176A.COB",909,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",910,12)
//MOVE WRK-CS-03V00 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkCs03v00()));
//@CobolSourceFile("NC176A.COB",911,12)
//MOVE 999 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(999));
//@CobolSourceFile("NC176A.COB",912,12)
//GO TO ADD-WRITE-F1-19
return addWriteF119;
}
};
Paragraph addDeleteF119=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",914,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",915,12)
//GO TO ADD-WRITE-F1-19
return addWriteF119;
}
};
Paragraph addAF119=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",917,12)
//IF SIZE-ERR EQUAL TO "E"
if(compare(getSizeErr(),"E")
== 0) {
//@CobolSourceFile("NC176A.COB",917,43)
//GO TO ADD-B-F1-19
return addBF119;
}
//@CobolSourceFile("NC176A.COB",918,12)
//ADD 1 TO WRK-CS-03V00 ON SIZE ERROR
inError=false;
try {
setWrkCs03v00(_Math.add(1,getWrkCs03v00()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",919,21)
//MOVE "E" TO
SIZE-ERR
setSizeErr("E");
}
return doCobolExit();
}
};
Paragraph addBF119=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
return doCobolExit();
}
};
Paragraph addWriteF119=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",923,12)
//MOVE "ADD, COMP, SIZE ERR" TO FEATURE
testResults.setFeature("ADD,
COMP, SIZE ERR");
//@CobolSourceFile("NC176A.COB",924,12)
//MOVE "ADD-TEST-F1-19" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-19".getBytes());
//@CobolSourceFile("NC176A.COB",925,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF120=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",929,12)
//MOVE "V1-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("V1-67
6.4.2");
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",930,12)
//MOVE -11 TO WRK-DS-02V00
setWrkDs02v00(-11);
return doCobolExit();
}
};
Paragraph addTestF120=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",932,12)
//ADD -99 TO WRK-DS-02V00
//
NOT ON SIZE ERROR
inError=false;
try {
setWrkDs02v00(_Math.add(-99,getWrkDs02v00()));
} catch(ArithmeticException e) {
inError=true;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",934,20)
//MOVE "NOT ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",936,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",937,20)
//GO TO ADD-WRITE-F1-20
return addWriteF120;
}
//@CobolSourceFile("NC176A.COB",938,12)
//GO TO ADD-PASS-F1-20
return addPassF120;
}
};
Paragraph addDeleteF120=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",940,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",941,12)
//GO TO ADD-WRITE-F1-20
return addWriteF120;
}
};
Paragraph addPassF120=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",943,12)
//PERFORM PASS
doCobolPerform(pass,null);
return doCobolExit();
}
};
Paragraph addWriteF120=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",945,12)
//MOVE "ADD-TEST-F1-20" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-20".getBytes());
//@CobolSourceFile("NC176A.COB",946,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF121=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",950,12)
//MOVE "V1-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("V1-67
6.4.2");
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",951,12)
//MOVE ZERO TO WRK-DS-06V06
setWrkDs06v06(new BigDecimal(0));
return doCobolExit();
}
};
Paragraph addTestF1210=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",953,12)
//ADD A12THREES-DS-06V06
// 333333
// A06THREES-DS-03V03
// TO WRK-DS-06V06 ROUNDED
// NOT ON SIZE ERROR
inError=false;
try {
BigDecimal temp15 =
_Math.add(_Math.add(getA12threesDs06v06(),new BigDecimal(333333)),getA06threesDs03v03());
setWrkDs06v06(_Math.add(__round(temp15,6),getWrkDs06v06()));
} catch(ArithmeticException e) {
inError=true;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",958,20)
//GO TO ADD-PASS-F1-21
return addPassF121;
}
//@CobolSourceFile("NC176A.COB",959,12)
//MOVE "NOT ON SIZE ERROR SHOULD BE
EXECUTED" TO RE-MARK
testResults.setReMark("NOT ON
SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",960,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",961,12)
//GO TO ADD-WRITE-F1-21
return addWriteF121;
}
};
Paragraph addDeleteF121=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",963,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",964,12)
//GO TO ADD-WRITE-F1-21
return addWriteF121;
}
};
Paragraph addPassF121=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",966,12)
//PERFORM PASS
doCobolPerform(pass,null);
return doCobolExit();
}
};
Paragraph addWriteF121=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",968,12)
//MOVE "ADD-TEST-F1-21" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-21".getBytes());
//@CobolSourceFile("NC176A.COB",969,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF122=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",973,12)
//MOVE "V1-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("V1-67
6.4.2");
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",974,12)
//MOVE -11 TO WRK-DS-02V00
setWrkDs02v00(-11);
return doCobolExit();
}
};
Paragraph addTestF1220=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",976,12)
//ADD -99 TO WRK-DS-02V00
// ON SIZE ERROR
// ...
NOT ON SIZE ERROR
inError=false;
try {
setWrkDs02v00(_Math.add(-99,getWrkDs02v00()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",978,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",979,20)
//GO TO ADD-WRITE-F1-22
return addWriteF122;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",981,20)
//MOVE "NOT ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",983,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",984,20)
//GO TO ADD-WRITE-F1-22
return addWriteF122;
}
return doCobolExit();
}
};
Paragraph addDeleteF122=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",986,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF122=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",988,12)
//MOVE "ADD-TEST-F1-22" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-22".getBytes());
//@CobolSourceFile("NC176A.COB",989,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF123=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",993,12)
//MOVE "V1-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("V1-67
6.4.2");
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",994,12)
//MOVE ZERO TO WRK-DS-06V06
setWrkDs06v06(new BigDecimal(0));
return doCobolExit();
}
};
Paragraph addTestF1230=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",996,12)
//ADD A12THREES-DS-06V06
// 333333
// A06THREES-DS-03V03
// TO WRK-DS-06V06 ROUNDED
// ON SIZE ERROR
// ...
NOT ON SIZE ERROR
inError=false;
try {
BigDecimal temp16 =
_Math.add(_Math.add(getA12threesDs06v06(),new BigDecimal(333333)),getA06threesDs03v03());
setWrkDs06v06(_Math.add(__round(temp16,6),getWrkDs06v06()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",1001,20)
//MOVE "ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1003,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1004,20)
//GO TO ADD-WRITE-F1-23
return addWriteF123;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",1006,20)
//GO TO ADD-PASS-F1-23
return addPassF123;
}
return doCobolExit();
}
};
Paragraph addDeleteF123=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1008,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1009,12)
//GO TO ADD-WRITE-F1-23
return addWriteF123;
}
};
Paragraph addPassF123=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1011,12)
//PERFORM PASS
doCobolPerform(pass,null);
return doCobolExit();
}
};
Paragraph addWriteF123=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1013,12)
//MOVE "ADD-TEST-F1-23" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-23".getBytes());
//@CobolSourceFile("NC176A.COB",1014,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF124=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",1018,12)
//MOVE "V1-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("V1-67
6.4.2");
//* ==-->
MULTIPLE OPERANDS <--==
//@CobolSourceFile("NC176A.COB",1019,12)
//MOVE "ADD LIMIT TESTS " TO FEATURE
testResults.setFeature("ADD
LIMIT TESTS ");
//@CobolSourceFile("NC176A.COB",1020,12)
//MOVE 1 TO
DNAME1 DNAME2 DNAME3
DNAME4 DNAME5
__42Datanames.setDname1(1);
__42Datanames.setDname2(1);
__42Datanames.setDname3(1);
__42Datanames.setDname4(1);
__42Datanames.setDname5(1);
//@CobolSourceFile("NC176A.COB",1021,12)
//MOVE 1 TO
DNAME6 DNAME7 DNAME8
DNAME9 DNAME10
__42Datanames.setDname6(1);
__42Datanames.setDname7(1);
__42Datanames.setDname8(1);
__42Datanames.setDname9(1);
__42Datanames.setDname10(1);
//@CobolSourceFile("NC176A.COB",1022,12)
//MOVE 1 TO
DNAME11 DNAME12 DNAME13 DNAME14 DNAME15
__42Datanames.setDname11(1);
__42Datanames.setDname12(1);
__42Datanames.setDname13(1);
__42Datanames.setDname14(1);
__42Datanames.setDname15(1);
//@CobolSourceFile("NC176A.COB",1023,12)
//MOVE 1 TO
DNAME16 DNAME17 DNAME18 DNAME19 DNAME20
__42Datanames.setDname16(1);
__42Datanames.setDname17(1);
__42Datanames.setDname18(1);
__42Datanames.setDname19(1);
__42Datanames.setDname20(1);
//@CobolSourceFile("NC176A.COB",1024,12)
//MOVE 1 TO
DNAME21
__42Datanames.setDname21(1);
//@CobolSourceFile("NC176A.COB",1025,12)
//MOVE 0 TO
DNAME22
__42Datanames.setDname22(0);
//* THE FOLLOWING 22 TESTS VERIFY THE ABILITY
OF THE COMPILER
//* PARAGRAPH WILL SKIP THE LIMIT TESTS.
//@CobolSourceFile("NC176A.COB",1029,12)
//GO TO ADD-TEST-F1-24
return addTestF124;
}
};
Paragraph addInitDelete=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//* TO HANDLE A MAXIMUM OF 42 OPERANDS. A DELETION IN THIS
//@CobolSourceFile("NC176A.COB",1031,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1032,12)
//MOVE "ADD-TEST-F1-24 TO
F1-45" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-24
TO F1-45".getBytes());
//@CobolSourceFile("NC176A.COB",1033,12)
//MOVE "ADD LIMIT TESTS "
TO FEATURE
testResults.setFeature("ADD
LIMIT TESTS ");
//@CobolSourceFile("NC176A.COB",1034,12)
//ADD 21 TO DELETE-COUNTER
setDeleteCounter(_Math.add(21,getDeleteCounter()));
//@CobolSourceFile("NC176A.COB",1035,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1036,12)
//GO TO ADD-INIT-F1-46
return addInitF146;
}
};
Paragraph addTestF124=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1038,12)
//ADD DNAME1
//
DNAME2
//
DNAME3
//
DNAME4
//
DNAME5
//
DNAME6
//
DNAME7
//
DNAME8
//
DNAME9
//
DNAME10
//
DNAME11
//
DNAME12
//
DNAME13
//
DNAME14
//
DNAME15
//
DNAME16
//
DNAME17
//
DNAME18
//
DNAME19
//
DNAME20
//
DNAME21
// TO DNAME22
long temp17 = _Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(__42Datanames.getDname1(),__42Datanames.getDname2()),__42Datanames.getDname3()),__42Datanames.getDname4()),__42Datanames.getDname5()),__42Datanames.getDname6()),__42Datanames.getDname7()),__42Datanames.getDname8()),__42Datanames.getDname9()),__42Datanames.getDname10()),__42Datanames.getDname11()),__42Datanames.getDname12()),__42Datanames.getDname13()),__42Datanames.getDname14()),__42Datanames.getDname15()),__42Datanames.getDname16()),__42Datanames.getDname17()),__42Datanames.getDname18()),__42Datanames.getDname19()),__42Datanames.getDname20()),__42Datanames.getDname21());
__42Datanames.setDname22(_Math.add(temp17,__42Datanames.getDname22()));
//* THE NUMBER OF OPERANDS CAPABLE OF BEING
ADDED TO ONE
//@CobolSourceFile("NC176A.COB",1062,12)
//IF DNAME22 EQUAL TO 21
if(__42Datanames.getDname22() == 21)
{
//* DATANAME WILL BE REFLECTED BY THE
COMPUTED-ANSWER.
//@CobolSourceFile("NC176A.COB",1063,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1064,16)
//GO TO ADD-WRITE-F1-24
return addWriteF124;
}
//@CobolSourceFile("NC176A.COB",1065,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1066,12)
//MOVE DNAME22 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname22());
//@CobolSourceFile("NC176A.COB",1067,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1068,12)
//GO TO ADD-WRITE-F1-24
return addWriteF124;
}
};
Paragraph addDeleteF124=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1070,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF124=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1072,12)
//MOVE "ADD-TEST-F1-24 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-24
".getBytes());
//@CobolSourceFile("NC176A.COB",1073,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF125=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1075,12)
//MOVE ZERO TO DNAME22 DNAME23
DNAME24 DNAME25 DNAME26
__42Datanames.setDname22(0);
__42Datanames.setDname23(0);
__42Datanames.setDname24(0);
__42Datanames.setDname25(0);
__42Datanames.setDname26(0);
//@CobolSourceFile("NC176A.COB",1076,12)
//MOVE ZERO TO DNAME27 DNAME28
DNAME29 DNAME30 DNAME31
__42Datanames.setDname27(0);
__42Datanames.setDname28(0);
__42Datanames.setDname29(0);
__42Datanames.setDname30(0);
__42Datanames.setDname31(0);
//@CobolSourceFile("NC176A.COB",1077,12)
//MOVE ZERO TO DNAME32 DNAME33
DNAME34 DNAME35 DNAME36
__42Datanames.setDname32(0);
__42Datanames.setDname33(0);
__42Datanames.setDname34(0);
__42Datanames.setDname35(0);
__42Datanames.setDname36(0);
//@CobolSourceFile("NC176A.COB",1078,12)
//MOVE ZERO TO DNAME37 DNAME38
DNAME39 DNAME40 DNAME41
__42Datanames.setDname37(0);
__42Datanames.setDname38(0);
__42Datanames.setDname39(0);
__42Datanames.setDname40(0);
__42Datanames.setDname41(0);
//@CobolSourceFile("NC176A.COB",1079,12)
//MOVE ZERO TO DNAME42
__42Datanames.setDname42(0);
return doCobolExit();
}
};
Paragraph addTestF125=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1081,12)
//ADD DNAME1
//
DNAME2
//
DNAME3
//
DNAME4
//
DNAME5
//
DNAME6
//
DNAME7
//
DNAME8
//
DNAME9
//
DNAME10
//
DNAME11
//
DNAME12
//
DNAME13
//
DNAME14
//
DNAME15
//
DNAME16
// DNAME17
//
DNAME18
//
DNAME19
//
DNAME20
//
DNAME21
// TO DNAME22
// DNAME23
// DNAME24
// DNAME25
// DNAME26
// DNAME27
// DNAME28
// DNAME29
// DNAME30
// DNAME31
// DNAME32
// DNAME33
// DNAME34
// DNAME35
// DNAME36
// DNAME37
// DNAME38
// DNAME39
// DNAME40
// DNAME41
// DNAME42
long temp18 =
_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(_Math.add(__42Datanames.getDname1(),__42Datanames.getDname2()),__42Datanames.getDname3()),__42Datanames.getDname4()),__42Datanames.getDname5()),__42Datanames.getDname6()),__42Datanames.getDname7()),__42Datanames.getDname8()),__42Datanames.getDname9()),__42Datanames.getDname10()),__42Datanames.getDname11()),__42Datanames.getDname12()),__42Datanames.getDname13()),__42Datanames.getDname14()),__42Datanames.getDname15()),__42Datanames.getDname16()),__42Datanames.getDname17()),__42Datanames.getDname18()),__42Datanames.getDname19()),__42Datanames.getDname20()),__42Datanames.getDname21());
__42Datanames.setDname22(_Math.add(temp18,__42Datanames.getDname22()));
__42Datanames.setDname23(_Math.add(temp18,__42Datanames.getDname23()));
__42Datanames.setDname24(_Math.add(temp18,__42Datanames.getDname24()));
__42Datanames.setDname25(_Math.add(temp18,__42Datanames.getDname25()));
__42Datanames.setDname26(_Math.add(temp18,__42Datanames.getDname26()));
__42Datanames.setDname27(_Math.add(temp18,__42Datanames.getDname27()));
__42Datanames.setDname28(_Math.add(temp18,__42Datanames.getDname28()));
__42Datanames.setDname29(_Math.add(temp18,__42Datanames.getDname29()));
__42Datanames.setDname30(_Math.add(temp18,__42Datanames.getDname30()));
__42Datanames.setDname31(_Math.add(temp18,__42Datanames.getDname31()));
__42Datanames.setDname32(_Math.add(temp18,__42Datanames.getDname32()));
__42Datanames.setDname33(_Math.add(temp18,__42Datanames.getDname33()));
__42Datanames.setDname34(_Math.add(temp18,__42Datanames.getDname34()));
__42Datanames.setDname35(_Math.add(temp18,__42Datanames.getDname35()));
__42Datanames.setDname36(_Math.add(temp18,__42Datanames.getDname36()));
__42Datanames.setDname37(_Math.add(temp18,__42Datanames.getDname37()));
__42Datanames.setDname38(_Math.add(temp18,__42Datanames.getDname38()));
__42Datanames.setDname39(_Math.add(temp18,__42Datanames.getDname39()));
__42Datanames.setDname40(_Math.add(temp18,__42Datanames.getDname40()));
__42Datanames.setDname41(_Math.add(temp18,__42Datanames.getDname41()));
__42Datanames.setDname42(_Math.add(temp18,__42Datanames.getDname42()));
//@CobolSourceFile("NC176A.COB",1123,12)
//IF DNAME22 EQUAL TO 21
if(__42Datanames.getDname22() == 21)
{
//@CobolSourceFile("NC176A.COB",1124,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1125,16)
//GO TO ADD-WRITE-F1-25
return addWriteF125;
}
//@CobolSourceFile("NC176A.COB",1126,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1127,12)
//MOVE DNAME22 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname22());
//@CobolSourceFile("NC176A.COB",1128,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1129,12)
//GO TO ADD-WRITE-F1-25
return addWriteF125;
}
};
Paragraph addDeleteF125=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1131,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF125=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1133,12)
//MOVE "ADD-TEST-F1-25 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-25
".getBytes());
//@CobolSourceFile("NC176A.COB",1134,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF126=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1136,12)
//IF DNAME23 EQUAL TO 21
if(__42Datanames.getDname23() == 21)
{
//@CobolSourceFile("NC176A.COB",1137,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1138,16)
//GO TO ADD-WRITE-F1-26
return addWriteF126;
}
//@CobolSourceFile("NC176A.COB",1139,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1140,12)
//MOVE DNAME23 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname23());
//@CobolSourceFile("NC176A.COB",1141,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1142,12)
//GO TO ADD-WRITE-F1-26
return addWriteF126;
}
};
Paragraph addDeleteF126=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1144,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF126=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1146,12)
//MOVE "ADD-TEST-F1-26 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-26
".getBytes());
//@CobolSourceFile("NC176A.COB",1147,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF127=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1149,12)
//IF DNAME24 EQUAL TO 21
if(__42Datanames.getDname24() == 21)
{
//@CobolSourceFile("NC176A.COB",1150,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1151,16)
//GO TO ADD-WRITE-F1-27
return addWriteF127;
}
//@CobolSourceFile("NC176A.COB",1152,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1153,12)
//MOVE DNAME24 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname24());
//@CobolSourceFile("NC176A.COB",1154,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1155,12)
//GO TO ADD-WRITE-F1-27
return addWriteF127;
}
};
Paragraph addDeleteF127=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1157,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF127=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1159,12)
//MOVE "ADD-TEST-F1-27 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-27
".getBytes());
//@CobolSourceFile("NC176A.COB",1160,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF128=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1162,12)
//IF DNAME25 EQUAL TO 21
if(__42Datanames.getDname25() == 21)
{
//@CobolSourceFile("NC176A.COB",1163,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1164,16)
//GO TO ADD-WRITE-F1-28
return addWriteF128;
}
//@CobolSourceFile("NC176A.COB",1165,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1166,12)
//MOVE DNAME25 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname25());
//@CobolSourceFile("NC176A.COB",1167,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1168,12)
//GO TO ADD-WRITE-F1-28
return addWriteF128;
}
};
Paragraph addDeleteF128=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1170,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF128=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1172,12)
//MOVE "ADD-TEST-F1-28 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-28
".getBytes());
//@CobolSourceFile("NC176A.COB",1173,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF129=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1175,12)
//IF DNAME26 EQUAL TO 21
if(__42Datanames.getDname26() == 21)
{
//@CobolSourceFile("NC176A.COB",1176,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1177,16)
//GO TO ADD-WRITE-F1-29
return addWriteF129;
}
//@CobolSourceFile("NC176A.COB",1178,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1179,12)
//MOVE DNAME26 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname26());
//@CobolSourceFile("NC176A.COB",1180,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1181,12)
//GO TO ADD-WRITE-F1-29
return addWriteF129;
}
};
Paragraph addDeleteF129=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1183,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF129=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1185,12)
//MOVE "ADD-TEST-F1-29 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-29
".getBytes());
//@CobolSourceFile("NC176A.COB",1186,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF13056=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1188,12)
//IF DNAME27 EQUAL TO 21
if(__42Datanames.getDname27() == 21)
{
//@CobolSourceFile("NC176A.COB",1189,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1190,16)
//GO TO ADD-WRITE-F1-30
return addWriteF130;
}
//@CobolSourceFile("NC176A.COB",1191,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1192,12)
//MOVE DNAME27 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname27());
//@CobolSourceFile("NC176A.COB",1193,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1194,12)
//GO TO ADD-WRITE-F1-30
return addWriteF130;
}
};
Paragraph addDeleteF130=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1196,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF130=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1198,12)
//MOVE "ADD-TEST-F1-30 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-30
".getBytes());
//@CobolSourceFile("NC176A.COB",1199,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF131=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1201,12)
//IF DNAME28 EQUAL TO 21
if(__42Datanames.getDname28() == 21)
{
//@CobolSourceFile("NC176A.COB",1202,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1203,16)
//GO TO ADD-WRITE-F1-31
return addWriteF131;
}
//@CobolSourceFile("NC176A.COB",1204,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1205,12)
//MOVE DNAME28 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname28());
//@CobolSourceFile("NC176A.COB",1206,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1207,12)
//GO TO ADD-WRITE-F1-31
return addWriteF131;
}
};
Paragraph addDeleteF131=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1209,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF131=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1211,12)
//MOVE "ADD-TEST-F1-31 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-31
".getBytes());
//@CobolSourceFile("NC176A.COB",1212,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF132=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1214,12)
//IF DNAME29 EQUAL TO 21
if(__42Datanames.getDname29() == 21)
{
//@CobolSourceFile("NC176A.COB",1215,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1216,16)
//GO TO ADD-WRITE-F1-32
return addWriteF132;
}
//@CobolSourceFile("NC176A.COB",1217,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1218,12)
//MOVE DNAME29 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname29());
//@CobolSourceFile("NC176A.COB",1219,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1220,12)
//GO TO ADD-WRITE-F1-32
return addWriteF132;
}
};
Paragraph addDeleteF132=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1222,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF132=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1224,12)
//MOVE "ADD-TEST-F1-32 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-32
".getBytes());
//@CobolSourceFile("NC176A.COB",1225,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF133=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1227,12)
//IF DNAME30 EQUAL TO 21
if(__42Datanames.getDname30() == 21)
{
//@CobolSourceFile("NC176A.COB",1228,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1229,16)
//GO TO ADD-WRITE-F1-33
return addWriteF133;
}
//@CobolSourceFile("NC176A.COB",1230,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1231,12)
//MOVE DNAME30 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname30());
//@CobolSourceFile("NC176A.COB",1232,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1233,12)
//GO TO ADD-WRITE-F1-33
return addWriteF133;
}
};
Paragraph addDeleteF133=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1235,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF133=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1237,12)
//MOVE "ADD-TEST-F1-33 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-33
".getBytes());
//@CobolSourceFile("NC176A.COB",1238,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF134=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1240,12)
//IF DNAME31 EQUAL TO 21
if(__42Datanames.getDname31() == 21)
{
//@CobolSourceFile("NC176A.COB",1241,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1242,16)
//GO TO ADD-WRITE-F1-34
return addWriteF134;
}
//@CobolSourceFile("NC176A.COB",1243,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1244,12)
//MOVE DNAME31 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname31());
//@CobolSourceFile("NC176A.COB",1245,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1246,12)
//GO TO ADD-WRITE-F1-34
return addWriteF134;
}
};
Paragraph addDeleteF134=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1248,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF134=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1250,12)
//MOVE "ADD-TEST-F1-34 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-34
".getBytes());
//@CobolSourceFile("NC176A.COB",1251,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF135=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1253,12)
//IF DNAME32 EQUAL TO 21
if(__42Datanames.getDname32() == 21)
{
//@CobolSourceFile("NC176A.COB",1254,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1255,16)
//GO TO ADD-WRITE-F1-35
return addWriteF135;
}
//@CobolSourceFile("NC176A.COB",1256,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1257,12)
//MOVE DNAME32 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname32());
//@CobolSourceFile("NC176A.COB",1258,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1259,12)
//GO TO ADD-WRITE-F1-35
return addWriteF135;
}
};
Paragraph addDeleteF135=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1261,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF135=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1263,12)
//MOVE "ADD-TEST-F1-35 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-35
".getBytes());
//@CobolSourceFile("NC176A.COB",1264,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF136=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1266,12)
//IF DNAME33 EQUAL TO 21
if(__42Datanames.getDname33() == 21)
{
//@CobolSourceFile("NC176A.COB",1267,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1268,16)
//GO TO ADD-WRITE-F1-36
return addWriteF136;
}
//@CobolSourceFile("NC176A.COB",1269,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1270,12)
//MOVE DNAME33 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname33());
//@CobolSourceFile("NC176A.COB",1271,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1272,12)
//GO TO ADD-WRITE-F1-36
return addWriteF136;
}
};
Paragraph addDeleteF136=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1274,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF136=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1276,12)
//MOVE "ADD-TEST-F1-36 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-36
".getBytes());
//@CobolSourceFile("NC176A.COB",1277,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF137=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1279,12)
//IF DNAME34 EQUAL TO 21
if(__42Datanames.getDname34() == 21)
{
//@CobolSourceFile("NC176A.COB",1280,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1281,16)
//GO TO ADD-WRITE-F1-37
return addWriteF137;
}
//@CobolSourceFile("NC176A.COB",1282,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1283,12)
//MOVE DNAME34 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname34());
//@CobolSourceFile("NC176A.COB",1284,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1285,12)
//GO TO ADD-WRITE-F1-37
return addWriteF137;
}
};
Paragraph addDeleteF137=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1287,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF137=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1289,12)
//MOVE "ADD-TEST-F1-37 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-37
".getBytes());
//@CobolSourceFile("NC176A.COB",1290,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF138=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1292,12)
//IF DNAME35 EQUAL TO 21
if(__42Datanames.getDname35() == 21)
{
//@CobolSourceFile("NC176A.COB",1293,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1294,16)
//GO TO ADD-WRITE-F1-38
return addWriteF138;
}
//@CobolSourceFile("NC176A.COB",1295,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1296,12)
//MOVE DNAME35 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname35());
//@CobolSourceFile("NC176A.COB",1297,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1298,12)
//GO TO ADD-WRITE-F1-38
return addWriteF138;
}
};
Paragraph addDeleteF138=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1300,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF138=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1302,12)
//MOVE "ADD-TEST-F1-38 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-38
".getBytes());
//@CobolSourceFile("NC176A.COB",1303,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF139=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1305,12)
//IF DNAME36 EQUAL TO 21
if(__42Datanames.getDname36() == 21)
{
//@CobolSourceFile("NC176A.COB",1306,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1307,16)
//GO TO ADD-WRITE-F1-39
return addWriteF139;
}
//@CobolSourceFile("NC176A.COB",1308,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1309,12)
//MOVE DNAME36 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname36());
//@CobolSourceFile("NC176A.COB",1310,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1311,12)
//GO TO ADD-WRITE-F1-39
return addWriteF139;
}
};
Paragraph addDeleteF139=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1313,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF139=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1315,12)
//MOVE "ADD-TEST-F1-39 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-39
".getBytes());
//@CobolSourceFile("NC176A.COB",1316,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF140=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1318,12)
//IF DNAME37 EQUAL TO 21
if(__42Datanames.getDname37() == 21)
{
//@CobolSourceFile("NC176A.COB",1319,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1320,16)
//GO TO ADD-WRITE-F1-40
return addWriteF140;
}
//@CobolSourceFile("NC176A.COB",1321,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1322,12)
//MOVE DNAME37 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname37());
//@CobolSourceFile("NC176A.COB",1323,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1324,12)
//GO TO ADD-WRITE-F1-40
return addWriteF140;
}
};
Paragraph addDeleteF140=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1326,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF140=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1328,12)
//MOVE "ADD-TEST-F1-40 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-40
".getBytes());
//@CobolSourceFile("NC176A.COB",1329,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF14158=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1331,12)
//IF DNAME38 EQUAL TO 21
if(__42Datanames.getDname38() == 21)
{
//@CobolSourceFile("NC176A.COB",1332,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1333,16)
//GO TO ADD-WRITE-F1-41
return addWriteF14162;
}
//@CobolSourceFile("NC176A.COB",1334,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1335,12)
//MOVE DNAME38 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname38());
//@CobolSourceFile("NC176A.COB",1336,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1337,12)
//GO TO ADD-WRITE-F1-41
return addWriteF14162;
}
};
Paragraph addDeleteF14160=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1339,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF14162=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1341,12)
//MOVE "ADD-TEST-F1-41 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-41
".getBytes());
//@CobolSourceFile("NC176A.COB",1342,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF14264=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1344,12)
//IF DNAME39 EQUAL TO 21
if(__42Datanames.getDname39() == 21)
{
//@CobolSourceFile("NC176A.COB",1345,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1346,16)
//GO TO ADD-WRITE-F1-42
return addWriteF14268;
}
//@CobolSourceFile("NC176A.COB",1347,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1348,12)
//MOVE DNAME39 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname39());
//@CobolSourceFile("NC176A.COB",1349,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1350,12)
//GO TO ADD-WRITE-F1-42
return addWriteF14268;
}
};
Paragraph addDeleteF14266=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1352,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF14268=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1354,12)
//MOVE "ADD-TEST-F1-42 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-42
".getBytes());
//@CobolSourceFile("NC176A.COB",1355,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF143=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1357,12)
//IF DNAME40 EQUAL TO 21
if(__42Datanames.getDname40() == 21)
{
//@CobolSourceFile("NC176A.COB",1358,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1359,16)
//GO TO ADD-WRITE-F1-43
return addWriteF143;
}
//@CobolSourceFile("NC176A.COB",1360,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1361,12)
//MOVE DNAME40 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname40());
//@CobolSourceFile("NC176A.COB",1362,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1363,12)
//GO TO ADD-WRITE-F1-43
return addWriteF143;
}
};
Paragraph addDeleteF143=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1365,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF143=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1367,12)
//MOVE "ADD-TEST-F1-43 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-43
".getBytes());
//@CobolSourceFile("NC176A.COB",1368,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF144=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1370,12)
//IF DNAME41 EQUAL TO 21
if(__42Datanames.getDname41() == 21)
{
//@CobolSourceFile("NC176A.COB",1371,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1372,16)
//GO TO ADD-WRITE-F1-44
return addWriteF144;
}
//@CobolSourceFile("NC176A.COB",1373,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1374,12)
//MOVE DNAME41 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname41());
//@CobolSourceFile("NC176A.COB",1375,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1376,12)
//GO TO ADD-WRITE-F1-44
return addWriteF144;
}
};
Paragraph addDeleteF144=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1378,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF144=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1380,12)
//MOVE "ADD-TEST-F1-44 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-44
".getBytes());
//@CobolSourceFile("NC176A.COB",1381,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addTestF145=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1383,12)
//IF DNAME42 EQUAL TO 21
if(__42Datanames.getDname42() == 21)
{
//@CobolSourceFile("NC176A.COB",1384,16)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1385,16)
//GO TO ADD-WRITE-F1-45
return addWriteF145;
}
//@CobolSourceFile("NC176A.COB",1386,12)
//MOVE 21 TO CORRECT-18V0
testCorrect.setCorrect18v0(21);
//@CobolSourceFile("NC176A.COB",1387,12)
//MOVE DNAME42 TO COMPUTED-18V0
testComputed.setComputed18v0(__42Datanames.getDname42());
//@CobolSourceFile("NC176A.COB",1388,12)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1389,12)
//GO TO ADD-WRITE-F1-45
return addWriteF145;
}
};
Paragraph addDeleteF145=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1391,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
return doCobolExit();
}
};
Paragraph addWriteF145=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1393,12)
//MOVE "ADD-TEST-F1-45 "
TO PAR-NAME
testResults.setParName("ADD-TEST-F1-45
".getBytes());
//@CobolSourceFile("NC176A.COB",1394,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
return doCobolExit();
}
};
Paragraph addInitF146=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",1398,12)
//MOVE "VI-74 6.6.4 GR1" TO
ANSI-REFERENCE
setAnsiReference("VI-74 6.6.4
GR1");
//* ==-->
MULTIPLE RESULT FIELDS
<--==
//@CobolSourceFile("NC176A.COB",1399,12)
//MOVE "ADD-TEST-F1-46" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-46".getBytes());
//@CobolSourceFile("NC176A.COB",1400,12)
//MOVE "ADD-TO-SERIES" TO FEATURE
testResults.setFeature("ADD-TO-SERIES");
//@CobolSourceFile("NC176A.COB",1401,12)
//MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1
WRK-DU-2V1-2
// WRK-DU-2V0-2 WRK-DU-2V1-3 WRK-DU-2V0-3
setWrkDu2v11(new BigDecimal(0));
setWrkDu2v01(0);
setWrkDu2v12(new BigDecimal(0));
setWrkDu2v02(0);
setWrkDu2v13(new BigDecimal(0));
setWrkDu2v03(0);
//@CobolSourceFile("NC176A.COB",1403,12)
//MOVE 1.1 TO WRK-DU-1V1-1
setWrkDu1v11(new BigDecimal(1.1));
//@CobolSourceFile("NC176A.COB",1404,12)
//MOVE 2.4 TO WRK-DU-1V1-2
setWrkDu1v12(new BigDecimal(2.4));
//@CobolSourceFile("NC176A.COB",1405,12)
//MOVE 1 TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1460=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1407,12)
//ADD WRK-DU-1V1-1 WRK-DU-1V1-2
6 TO WRK-DU-2V1-1,
//
WRK-DU-2V0-1 ROUNDED
WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED
//
WRK-DU-2V1-3 WRK-DU-2V0-3
BigDecimal temp19 =
_Math.add(_Math.add(getWrkDu1v11(),getWrkDu1v12()),new BigDecimal(6));
setWrkDu2v11(_Math.add(temp19,getWrkDu2v11()));
setWrkDu2v01(_Math.add(__round(temp19,0),new
BigDecimal(getWrkDu2v01())).intValue());
setWrkDu2v12(_Math.add(temp19,getWrkDu2v12()));
setWrkDu2v02(_Math.add(__round(temp19,0),new
BigDecimal(getWrkDu2v02())).intValue());
setWrkDu2v13(_Math.add(temp19,getWrkDu2v13()));
setWrkDu2v03(_Math.add(temp19,new
BigDecimal(getWrkDu2v03())).intValue());
//@CobolSourceFile("NC176A.COB",1410,12)
//GO TO ADD-TEST-F1-46-1
return addTestF1461;
}
};
Paragraph addDeleteF146=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1412,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1413,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1414,12)
//GO TO ADD-INIT-F1-47
return addInitF147;
}
};
Paragraph addTestF1461=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1416,12)
//IF WRK-DU-2V1-1 = 9.5
//
ELSE
if(compare(getWrkDu2v11(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1416,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1416,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1418,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1418,29)
//MOVE WRK-DU-2V1-1 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v11());
//@CobolSourceFile("NC176A.COB",1418,61)
//MOVE 9.5
//TOCORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1419,29)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1420,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1462=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1422,12)
//IF WRK-DU-2V0-1 = 10
//
ELSE
if(getWrkDu2v01() == 10) {
//@CobolSourceFile("NC176A.COB",1422,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1422,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1424,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1424,29)
//MOVE WRK-DU-2V0-1 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v01()));
//@CobolSourceFile("NC176A.COB",1424,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1425,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1426,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1463=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1428,12)
//IF WRK-DU-2V1-2 = 9.5
//
ELSE
if(compare(getWrkDu2v12(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1428,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1428,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1430,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1430,29)
//MOVE WRK-DU-2V1-2 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v12());
//@CobolSourceFile("NC176A.COB",1430,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1431,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1432,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1464=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1434,12)
//IF WRK-DU-2V0-2 = 10
//
ELSE
if(getWrkDu2v02() == 10) {
//@CobolSourceFile("NC176A.COB",1434,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1434,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1436,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1436,29)
//MOVE WRK-DU-2V0-2 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v02()));
//@CobolSourceFile("NC176A.COB",1436,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1437,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1438,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1465=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1440,12)
//IF WRK-DU-2V1-3 = 9.5
//
ELSE
if(compare(getWrkDu2v13(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1440,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1440,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1442,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1442,29)
//MOVE WRK-DU-2V1-3 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v13());
//@CobolSourceFile("NC176A.COB",1442,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1443,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1444,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1466=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1446,12)
//IF WRK-DU-2V0-3 = 9
//
ELSE
if(getWrkDu2v03() == 9) {
//@CobolSourceFile("NC176A.COB",1446,32)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1446,45)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1448,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1448,29)
//MOVE WRK-DU-2V0-3 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v03()));
//@CobolSourceFile("NC176A.COB",1448,61)
//MOVE 9 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9));
//@CobolSourceFile("NC176A.COB",1449,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF147=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",1454,12)
//MOVE "VI-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("VI-67
6.4.2");
//* ==-->
MULTIPLE RESULT FIELDS
<--==
//@CobolSourceFile("NC176A.COB",1455,12)
//MOVE "ADD-TEST-F1-47" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47".getBytes());
//@CobolSourceFile("NC176A.COB",1456,12)
//MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1
WRK-DU-2V1-2
// WRK-DU-2V0-2 WRK-DU-2V1-3 WRK-DU-2V0-3
setWrkDu2v11(new BigDecimal(0));
setWrkDu2v01(0);
setWrkDu2v12(new BigDecimal(0));
setWrkDu2v02(0);
setWrkDu2v13(new BigDecimal(0));
setWrkDu2v03(0);
//@CobolSourceFile("NC176A.COB",1458,12)
//MOVE 1.1 TO WRK-DU-1V1-1
setWrkDu1v11(new BigDecimal(1.1));
//@CobolSourceFile("NC176A.COB",1459,12)
//MOVE 2.4 TO WRK-DU-1V1-2
setWrkDu1v12(new BigDecimal(2.4));
//@CobolSourceFile("NC176A.COB",1460,12)
//MOVE "0" TO WRK-XN-00001
setWrkXn00001("0");
//@CobolSourceFile("NC176A.COB",1461,12)
//MOVE 1 TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1470=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1463,12)
//ADD WRK-DU-1V1-1 WRK-DU-1V1-2
6 TO WRK-DU-2V1-1,
//
WRK-DU-2V0-1 ROUNDED
WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED
//
WRK-DU-2V1-3 WRK-DU-2V0-3
// ON SIZE ERROR
inError=false;
try {
BigDecimal temp20 =
_Math.add(_Math.add(getWrkDu1v11(),getWrkDu1v12()),new BigDecimal(6));
setWrkDu2v11(_Math.add(temp20,getWrkDu2v11()));
setWrkDu2v01(_Math.add(__round(temp20,0),new
BigDecimal(getWrkDu2v01())).intValue());
setWrkDu2v12(_Math.add(temp20,getWrkDu2v12()));
setWrkDu2v02(_Math.add(__round(temp20,0),new
BigDecimal(getWrkDu2v02())).intValue());
setWrkDu2v13(_Math.add(temp20,getWrkDu2v13()));
setWrkDu2v03(_Math.add(temp20,new
BigDecimal(getWrkDu2v03())).intValue());
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",1467,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
//@CobolSourceFile("NC176A.COB",1468,12)
//GO TO ADD-TEST-F1-47-1
return addTestF1471;
}
};
Paragraph addDeleteF147=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1470,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1471,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1472,12)
//GO TO ADD-INIT-F1-48
return addInitF148;
}
};
Paragraph addTestF1471=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1474,12)
//MOVE "ADD-TEST-F1-47-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47-1".getBytes());
//@CobolSourceFile("NC176A.COB",1475,12)
//IF WRK-DU-2V1-1 = 9.5
//
ELSE
if(compare(getWrkDu2v11(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1475,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1475,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1477,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1477,29)
//MOVE WRK-DU-2V1-1 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v11());
//@CobolSourceFile("NC176A.COB",1477,61)
//MOVE 9.5
//TOCORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1478,29)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1479,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1472=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1481,12)
//MOVE "ADD-TEST-F1-47-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47-2".getBytes());
//@CobolSourceFile("NC176A.COB",1482,12)
//IF WRK-DU-2V0-1 = 10
//
ELSE
if(getWrkDu2v01() == 10) {
//@CobolSourceFile("NC176A.COB",1482,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1482,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1484,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1484,29)
//MOVE WRK-DU-2V0-1 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v01()));
//@CobolSourceFile("NC176A.COB",1484,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1485,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1486,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1473=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1488,12)
//MOVE "ADD-TEST-F1-47-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47-3".getBytes());
//@CobolSourceFile("NC176A.COB",1489,12)
//IF WRK-DU-2V1-2 = 9.5
//
ELSE
if(compare(getWrkDu2v12(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1489,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1489,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1491,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1491,29)
//MOVE WRK-DU-2V1-2 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v12());
//@CobolSourceFile("NC176A.COB",1491,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1492,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1493,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1474=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1495,12)
//MOVE "ADD-TEST-F1-47-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47-4".getBytes());
//@CobolSourceFile("NC176A.COB",1496,12)
//IF WRK-DU-2V0-2 = 10
//
ELSE
if(getWrkDu2v02() == 10) {
//@CobolSourceFile("NC176A.COB",1496,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1496,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1498,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1498,29)
//MOVE WRK-DU-2V0-2 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v02()));
//@CobolSourceFile("NC176A.COB",1498,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1499,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1500,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1475=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1502,12)
//MOVE "ADD-TEST-F1-47-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47-5".getBytes());
//@CobolSourceFile("NC176A.COB",1503,12)
//IF WRK-DU-2V1-3 = 9.5
//
ELSE
if(compare(getWrkDu2v13(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1503,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1503,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1505,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1505,29)
//MOVE WRK-DU-2V1-3 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v13());
//@CobolSourceFile("NC176A.COB",1505,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1506,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1507,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1476=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1509,12)
//MOVE "ADD-TEST-F1-47-6" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47-6".getBytes());
//@CobolSourceFile("NC176A.COB",1510,12)
//IF WRK-DU-2V0-3 = 9
//
ELSE
if(getWrkDu2v03() == 9) {
//@CobolSourceFile("NC176A.COB",1510,32)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1510,45)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1512,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1512,29)
//MOVE WRK-DU-2V0-3 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v03()));
//@CobolSourceFile("NC176A.COB",1512,61)
//MOVE 9 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9));
//@CobolSourceFile("NC176A.COB",1513,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1514,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1477=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1516,12)
//MOVE "ADD-TEST-F1-47-7" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-47-7".getBytes());
//@CobolSourceFile("NC176A.COB",1517,12)
//IF WRK-XN-00001 = "0"
// ...ELSE
if(compare(getWrkXn00001(),"0")
== 0) {
//@CobolSourceFile("NC176A.COB",1518,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1519,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1521,20)
//MOVE "SIZE ERROR SHOULD NOT BE EXECUTED"
// TO RE-MARK
testResults.setReMark("SIZE
ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1523,20)
//MOVE "0" TO CORRECT-X
testCorrect.setCorrectX("0".getBytes());
//@CobolSourceFile("NC176A.COB",1524,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",1525,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1526,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF148=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",1531,12)
//MOVE "VI-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("VI-67 6.4.2");
//* ==-->
MULTIPLE RESULT FIELDS
<--==
//@CobolSourceFile("NC176A.COB",1532,12)
//MOVE "ADD-TEST-F1-48" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48".getBytes());
//@CobolSourceFile("NC176A.COB",1533,12)
//MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1
WRK-DU-2V1-2
// WRK-DU-2V0-2 WRK-DU-2V1-3 WRK-DU-2V0-3
setWrkDu2v11(new BigDecimal(0));
setWrkDu2v01(0);
setWrkDu2v12(new BigDecimal(0));
setWrkDu2v02(0);
setWrkDu2v13(new BigDecimal(0));
setWrkDu2v03(0);
//@CobolSourceFile("NC176A.COB",1535,12)
//MOVE 1.1 TO WRK-DU-1V1-1
setWrkDu1v11(new BigDecimal(1.1));
//@CobolSourceFile("NC176A.COB",1536,12)
//MOVE 2.4 TO WRK-DU-1V1-2
setWrkDu1v12(new BigDecimal(2.4));
//@CobolSourceFile("NC176A.COB",1537,12)
//MOVE "0" TO WRK-XN-00001
setWrkXn00001("0");
//@CobolSourceFile("NC176A.COB",1538,12)
//MOVE 1 TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1480=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1540,12)
//ADD A17TWOS-DS-17V00
// WRK-DU-1V1-2 6
// TO WRK-DU-2V1-1
// WRK-DU-2V0-1 ROUNDED
// WRK-DU-2V1-2
// WRK-DU-2V0-2 ROUNDED
// WRK-DU-2V1-3
// WRK-DU-2V0-3
// ON SIZE ERROR
inError=false;
try {
BigDecimal temp21 =
_Math.add(_Math.add(new BigDecimal(getA17twosDs17v00()),getWrkDu1v12()),new
BigDecimal(6));
setWrkDu2v11(_Math.add(temp21,getWrkDu2v11()));
setWrkDu2v01(_Math.add(__round(temp21,0),new
BigDecimal(getWrkDu2v01())).intValue());
setWrkDu2v12(_Math.add(temp21,getWrkDu2v12()));
setWrkDu2v02(_Math.add(__round(temp21,0),new
BigDecimal(getWrkDu2v02())).intValue());
setWrkDu2v13(_Math.add(temp21,getWrkDu2v13()));
setWrkDu2v03(_Math.add(temp21,new
BigDecimal(getWrkDu2v03())).intValue());
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",1549,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
//@CobolSourceFile("NC176A.COB",1550,12)
//GO TO ADD-TEST-F1-48-1
return addTestF1481;
}
};
Paragraph addDeleteF148=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1552,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1553,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1554,12)
//GO TO ADD-INIT-F1-49
return addInitF149;
}
};
Paragraph addTestF1481=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1556,12)
//MOVE "ADD-TEST-F1-48-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48-1".getBytes());
//@CobolSourceFile("NC176A.COB",1557,12)
//IF WRK-DU-2V1-1 = ZERO
//
ELSE
if(getWrkDu2v11().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1557,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1557,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1559,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1559,29)
//MOVE WRK-DU-2V1-1 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v11());
//@CobolSourceFile("NC176A.COB",1559,61)
//MOVE 0
//TOCORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1560,29)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1561,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1482=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1563,12)
//MOVE "ADD-TEST-F1-48-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48-2".getBytes());
//@CobolSourceFile("NC176A.COB",1564,12)
//IF WRK-DU-2V0-1 = ZERO
//
ELSE
if(getWrkDu2v01() == 0) {
//@CobolSourceFile("NC176A.COB",1564,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1564,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1566,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1566,29)
//MOVE WRK-DU-2V0-1 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v01()));
//@CobolSourceFile("NC176A.COB",1566,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1567,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1568,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1483=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1570,12)
//MOVE "ADD-TEST-F1-48-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48-3".getBytes());
//@CobolSourceFile("NC176A.COB",1571,12)
//IF WRK-DU-2V1-2 = ZERO
//
ELSE
if(getWrkDu2v12().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1571,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1571,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1573,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1573,29)
//MOVE WRK-DU-2V1-2 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v12());
//@CobolSourceFile("NC176A.COB",1573,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1574,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1575,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1484=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1577,12)
//MOVE "ADD-TEST-F1-48-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48-4".getBytes());
//@CobolSourceFile("NC176A.COB",1578,12)
//IF WRK-DU-2V0-2 = ZERO
//
ELSE
if(getWrkDu2v02() == 0) {
//@CobolSourceFile("NC176A.COB",1578,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1578,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1580,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1580,29)
//MOVE WRK-DU-2V0-2 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v02()));
//@CobolSourceFile("NC176A.COB",1580,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1581,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1582,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1485=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1584,12)
//MOVE "ADD-TEST-F1-48-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48-5".getBytes());
//@CobolSourceFile("NC176A.COB",1585,12)
//IF WRK-DU-2V1-3 = ZERO
//
ELSE
if(getWrkDu2v13().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1585,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1585,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1587,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1587,29)
//MOVE WRK-DU-2V1-3 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v13());
//@CobolSourceFile("NC176A.COB",1587,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1588,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1589,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1486=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1591,12)
//MOVE "ADD-TEST-F1-48-6" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48-6".getBytes());
//@CobolSourceFile("NC176A.COB",1592,12)
//IF WRK-DU-2V0-3 = ZERO
//
ELSE
if(getWrkDu2v03() == 0) {
//@CobolSourceFile("NC176A.COB",1592,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1592,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1594,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1594,29)
//MOVE WRK-DU-2V0-3 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v03()));
//@CobolSourceFile("NC176A.COB",1594,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1595,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1596,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1487=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1598,12)
//MOVE "ADD-TEST-F1-48-7" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-48-7".getBytes());
//@CobolSourceFile("NC176A.COB",1599,12)
//IF WRK-XN-00001 = "1"
// ...ELSE
if(compare(getWrkXn00001(),"1")
== 0) {
//@CobolSourceFile("NC176A.COB",1600,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1601,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1603,20)
//MOVE "SIZE ERROR NOT EXECUTED" TO
RE-MARK
testResults.setReMark("SIZE
ERROR NOT EXECUTED");
//@CobolSourceFile("NC176A.COB",1604,20)
//MOVE "1" TO CORRECT-X
testCorrect.setCorrectX("1".getBytes());
//@CobolSourceFile("NC176A.COB",1605,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",1606,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1607,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return
doCobolExit();
}
};
Paragraph addInitF149=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",1612,12)
//MOVE "VI-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("VI-67
6.4.2");
//* ==-->
MULTIPLE RESULT FIELDS
<--==
//@CobolSourceFile("NC176A.COB",1613,12)
//MOVE "ADD-TEST-F1-49" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49".getBytes());
//@CobolSourceFile("NC176A.COB",1614,12)
//MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1
WRK-DU-2V1-2
// WRK-DU-2V0-2 WRK-DU-2V1-3 WRK-DU-2V0-3
setWrkDu2v11(new BigDecimal(0));
setWrkDu2v01(0);
setWrkDu2v12(new BigDecimal(0));
setWrkDu2v02(0);
setWrkDu2v13(new BigDecimal(0));
setWrkDu2v03(0);
//@CobolSourceFile("NC176A.COB",1616,12)
//MOVE 1.1 TO WRK-DU-1V1-1
setWrkDu1v11(new BigDecimal(1.1));
//@CobolSourceFile("NC176A.COB",1617,12)
//MOVE 2.4 TO WRK-DU-1V1-2
setWrkDu1v12(new BigDecimal(2.4));
//@CobolSourceFile("NC176A.COB",1618,12)
//MOVE "0" TO WRK-XN-00001
setWrkXn00001("0");
//@CobolSourceFile("NC176A.COB",1619,12)
//MOVE 1 TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1490=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1621,12)
//ADD WRK-DU-1V1-1 WRK-DU-1V1-2
6 TO WRK-DU-2V1-1,
//
WRK-DU-2V0-1 ROUNDED
WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED
//
WRK-DU-2V1-3 WRK-DU-2V0-3
// NOT ON SIZE ERROR
inError=false;
try {
BigDecimal temp22 =
_Math.add(_Math.add(getWrkDu1v11(),getWrkDu1v12()),new BigDecimal(6));
setWrkDu2v11(_Math.add(temp22,getWrkDu2v11()));
setWrkDu2v01(_Math.add(__round(temp22,0),new
BigDecimal(getWrkDu2v01())).intValue());
setWrkDu2v12(_Math.add(temp22,getWrkDu2v12()));
setWrkDu2v02(_Math.add(__round(temp22,0),new
BigDecimal(getWrkDu2v02())).intValue());
setWrkDu2v13(_Math.add(temp22,getWrkDu2v13()));
setWrkDu2v03(_Math.add(temp22,new
BigDecimal(getWrkDu2v03())).intValue());
} catch(ArithmeticException e) {
inError=true;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",1625,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
//@CobolSourceFile("NC176A.COB",1626,12)
//GO TO ADD-TEST-F1-49-1
return addTestF1491;
}
};
Paragraph addDeleteF149=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1628,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1629,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1630,12)
//GO TO ADD-INIT-F1-50
return addInitF150;
}
};
Paragraph addTestF1491=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1632,12)
//MOVE "ADD-TEST-F1-49-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49-1".getBytes());
//@CobolSourceFile("NC176A.COB",1633,12)
//IF WRK-DU-2V1-1 = 9.5
//
ELSE
if(compare(getWrkDu2v11(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1633,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1633,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1635,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1635,29)
//MOVE WRK-DU-2V1-1 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v11());
//@CobolSourceFile("NC176A.COB",1635,61)
//MOVE 9.5
//TOCORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1636,29)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1637,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1492=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1639,12)
//MOVE "ADD-TEST-F1-49-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49-2".getBytes());
//@CobolSourceFile("NC176A.COB",1640,12)
//IF WRK-DU-2V0-1 = 10
//
ELSE
if(getWrkDu2v01() == 10) {
//@CobolSourceFile("NC176A.COB",1640,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1640,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1642,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1642,29)
//MOVE WRK-DU-2V0-1 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v01()));
//@CobolSourceFile("NC176A.COB",1642,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1643,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1644,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1493=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1646,12)
//MOVE "ADD-TEST-F1-49-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49-3".getBytes());
//@CobolSourceFile("NC176A.COB",1647,12)
//IF WRK-DU-2V1-2 = 9.5
//
ELSE
if(compare(getWrkDu2v12(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1647,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1647,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1649,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1649,29)
//MOVE WRK-DU-2V1-2 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v12());
//@CobolSourceFile("NC176A.COB",1649,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1650,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1651,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1494=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1653,12)
//MOVE "ADD-TEST-F1-49-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49-4".getBytes());
//@CobolSourceFile("NC176A.COB",1654,12)
//IF WRK-DU-2V0-2 = 10
//
ELSE
if(getWrkDu2v02() == 10) {
//@CobolSourceFile("NC176A.COB",1654,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1654,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1656,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1656,29)
//MOVE WRK-DU-2V0-2 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v02()));
//@CobolSourceFile("NC176A.COB",1656,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1657,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1658,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1495=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1660,12)
//MOVE "ADD-TEST-F1-49-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49-5".getBytes());
//@CobolSourceFile("NC176A.COB",1661,12)
//IF WRK-DU-2V1-3 = 9.5
//
ELSE
if(compare(getWrkDu2v13(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1661,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1661,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1663,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1663,29)
//MOVE WRK-DU-2V1-3 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v13());
//@CobolSourceFile("NC176A.COB",1663,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1664,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1665,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1496=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1667,12)
//MOVE "ADD-TEST-F1-49-6" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49-6".getBytes());
//@CobolSourceFile("NC176A.COB",1668,12)
//IF WRK-DU-2V0-3 = 9
//
ELSE
if(getWrkDu2v03() == 9) {
//@CobolSourceFile("NC176A.COB",1668,32)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1668,45)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1670,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1670,29)
//MOVE WRK-DU-2V0-3 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v03()));
//@CobolSourceFile("NC176A.COB",1670,61)
//MOVE 9 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9));
//@CobolSourceFile("NC176A.COB",1671,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1672,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1497=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1674,12)
//MOVE "ADD-TEST-F1-49-7" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-49-7".getBytes());
//@CobolSourceFile("NC176A.COB",1675,12)
//IF WRK-XN-00001 = "1"
// ...ELSE
if(compare(getWrkXn00001(),"1")
== 0) {
//@CobolSourceFile("NC176A.COB",1676,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1677,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1679,20)
//MOVE "NOT ON SIZE ERROR SHOULD BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1681,20)
//MOVE "1" TO CORRECT-X
testCorrect.setCorrectX("1".getBytes());
//@CobolSourceFile("NC176A.COB",1682,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",1683,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1684,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF150=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",1689,12)
//MOVE "VI-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("VI-67
6.4.2");
//* ==-->
MULTIPLE RESULT FIELDS
<--==
//@CobolSourceFile("NC176A.COB",1690,12)
//MOVE "ADD-TEST-F1-50" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50".getBytes());
//@CobolSourceFile("NC176A.COB",1691,12)
//MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1
WRK-DU-2V1-2
// WRK-DU-2V0-2 WRK-DU-2V1-3 WRK-DU-2V0-3
setWrkDu2v11(new BigDecimal(0));
setWrkDu2v01(0);
setWrkDu2v12(new BigDecimal(0));
setWrkDu2v02(0);
setWrkDu2v13(new BigDecimal(0));
setWrkDu2v03(0);
//@CobolSourceFile("NC176A.COB",1693,12)
//MOVE 1.1 TO WRK-DU-1V1-1
setWrkDu1v11(new BigDecimal(1.1));
//@CobolSourceFile("NC176A.COB",1694,12)
//MOVE 2.4 TO WRK-DU-1V1-2
setWrkDu1v12(new BigDecimal(2.4));
//@CobolSourceFile("NC176A.COB",1695,12)
//MOVE "0" TO WRK-XN-00001
setWrkXn00001("0");
//@CobolSourceFile("NC176A.COB",1696,12)
//MOVE 1 TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1500=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1698,12)
//ADD A17TWOS-DS-17V00
// WRK-DU-1V1-2 6
// TO WRK-DU-2V1-1
//
WRK-DU-2V0-1 ROUNDED
// WRK-DU-2V1-2
// WRK-DU-2V0-2 ROUNDED
// WRK-DU-2V1-3
// WRK-DU-2V0-3
// NOT ON SIZE ERROR
inError=false;
try {
BigDecimal temp23 =
_Math.add(_Math.add(new BigDecimal(getA17twosDs17v00()),getWrkDu1v12()),new
BigDecimal(6));
setWrkDu2v11(_Math.add(temp23,getWrkDu2v11()));
setWrkDu2v01(_Math.add(__round(temp23,0),new
BigDecimal(getWrkDu2v01())).intValue());
setWrkDu2v12(_Math.add(temp23,getWrkDu2v12()));
setWrkDu2v02(_Math.add(__round(temp23,0),new
BigDecimal(getWrkDu2v02())).intValue());
setWrkDu2v13(_Math.add(temp23,getWrkDu2v13()));
setWrkDu2v03(_Math.add(temp23,new
BigDecimal(getWrkDu2v03())).intValue());
} catch(ArithmeticException e) {
inError=true;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",1707,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
//@CobolSourceFile("NC176A.COB",1708,12)
//GO TO ADD-TEST-F1-50-1
return addTestF1501;
}
};
Paragraph addDeleteF150=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1710,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1711,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1712,12)
//GO TO ADD-INIT-F1-51
return addInitF151;
}
};
Paragraph addTestF1501=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1714,12)
//MOVE "ADD-TEST-F1-50-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50-1".getBytes());
//@CobolSourceFile("NC176A.COB",1715,12)
//IF WRK-DU-2V1-1 = ZERO
//
ELSE
if(getWrkDu2v11().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1715,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1715,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1717,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1717,29)
//MOVE WRK-DU-2V1-1 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v11());
//@CobolSourceFile("NC176A.COB",1717,61)
//MOVE 0
//TOCORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1718,29)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1719,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1502=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1721,12)
//MOVE "ADD-TEST-F1-50-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50-2".getBytes());
//@CobolSourceFile("NC176A.COB",1722,12)
//IF WRK-DU-2V0-1 = ZERO
//
ELSE
if(getWrkDu2v01() == 0) {
//@CobolSourceFile("NC176A.COB",1722,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1722,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1724,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1724,29)
//MOVE WRK-DU-2V0-1 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v01()));
//@CobolSourceFile("NC176A.COB",1724,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1725,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1726,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1503=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1728,12)
//MOVE "ADD-TEST-F1-50-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50-3".getBytes());
//@CobolSourceFile("NC176A.COB",1729,12)
//IF WRK-DU-2V1-2 = ZERO
//
ELSE
if(getWrkDu2v12().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1729,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1729,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1731,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1731,29)
//MOVE WRK-DU-2V1-2 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v12());
//@CobolSourceFile("NC176A.COB",1731,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1732,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1733,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1504=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1735,12)
//MOVE "ADD-TEST-F1-50-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50-4".getBytes());
//@CobolSourceFile("NC176A.COB",1736,12)
//IF WRK-DU-2V0-2 = ZERO
//
ELSE
if(getWrkDu2v02() == 0) {
//@CobolSourceFile("NC176A.COB",1736,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1736,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1738,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1738,29)
//MOVE WRK-DU-2V0-2 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v02()));
//@CobolSourceFile("NC176A.COB",1738,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1739,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1740,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1505=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1742,12)
//MOVE "ADD-TEST-F1-50-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50-5".getBytes());
//@CobolSourceFile("NC176A.COB",1743,12)
//IF WRK-DU-2V1-3 = ZERO
// ELSE
if(getWrkDu2v13().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1743,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1743,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1745,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1745,29)
//MOVE WRK-DU-2V1-3 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v13());
//@CobolSourceFile("NC176A.COB",1745,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1746,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1747,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1506=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1749,12)
//MOVE "ADD-TEST-F1-50-6" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50-6".getBytes());
//@CobolSourceFile("NC176A.COB",1750,12)
//IF WRK-DU-2V0-3 = ZERO
//
ELSE
if(getWrkDu2v03() == 0) {
//@CobolSourceFile("NC176A.COB",1750,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1750,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1752,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1752,29)
//MOVE WRK-DU-2V0-3 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v03()));
//@CobolSourceFile("NC176A.COB",1752,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1753,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1754,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1507=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1756,12)
//MOVE "ADD-TEST-F1-50-7" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-50-7".getBytes());
//@CobolSourceFile("NC176A.COB",1757,12)
//IF WRK-XN-00001 = "0"
// ...ELSE
if(compare(getWrkXn00001(),"0")
== 0) {
//@CobolSourceFile("NC176A.COB",1758,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1759,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1761,20)
//MOVE "NOT ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1763,20)
//MOVE "0" TO CORRECT-X
testCorrect.setCorrectX("0".getBytes());
//@CobolSourceFile("NC176A.COB",1764,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",1765,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1766,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF151=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",1771,12)
//MOVE "VI-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("VI-67
6.4.2");
//*
==--> MULTIPLE RESULT FIELDS <--==
//@CobolSourceFile("NC176A.COB",1772,12)
//MOVE "ADD-TEST-F1-51" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51".getBytes());
//@CobolSourceFile("NC176A.COB",1773,12)
//MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1
WRK-DU-2V1-2
// WRK-DU-2V0-2 WRK-DU-2V1-3 WRK-DU-2V0-3
setWrkDu2v11(new BigDecimal(0));
setWrkDu2v01(0);
setWrkDu2v12(new BigDecimal(0));
setWrkDu2v02(0);
setWrkDu2v13(new BigDecimal(0));
setWrkDu2v03(0);
//@CobolSourceFile("NC176A.COB",1775,12)
//MOVE 1.1 TO WRK-DU-1V1-1
setWrkDu1v11(new BigDecimal(1.1));
//@CobolSourceFile("NC176A.COB",1776,12)
//MOVE 2.4 TO WRK-DU-1V1-2
setWrkDu1v12(new BigDecimal(2.4));
//@CobolSourceFile("NC176A.COB",1777,12)
//MOVE "0" TO WRK-XN-00001
setWrkXn00001("0");
//@CobolSourceFile("NC176A.COB",1778,12)
//MOVE 1 TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1510=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1780,12)
//ADD WRK-DU-1V1-1 WRK-DU-1V1-2
6 TO WRK-DU-2V1-1,
//
WRK-DU-2V0-1 ROUNDED
WRK-DU-2V1-2 WRK-DU-2V0-2 ROUNDED
//
WRK-DU-2V1-3 WRK-DU-2V0-3
// ON SIZE ERROR
// NOT ON SIZE ERROR
inError=false;
try {
BigDecimal temp24 =
_Math.add(_Math.add(getWrkDu1v11(),getWrkDu1v12()),new BigDecimal(6));
setWrkDu2v11(_Math.add(temp24,getWrkDu2v11()));
setWrkDu2v01(_Math.add(__round(temp24,0),new
BigDecimal(getWrkDu2v01())).intValue());
setWrkDu2v12(_Math.add(temp24,getWrkDu2v12()));
setWrkDu2v02(_Math.add(__round(temp24,0),new
BigDecimal(getWrkDu2v02())).intValue());
setWrkDu2v13(_Math.add(temp24,getWrkDu2v13()));
setWrkDu2v03(_Math.add(temp24,new
BigDecimal(getWrkDu2v03())).intValue());
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",1784,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",1786,20)
//MOVE "2" TO WRK-XN-00001
setWrkXn00001("2");
}
//@CobolSourceFile("NC176A.COB",1787,12)
//GO TO ADD-TEST-F1-51-1
return addTestF1511;
}
};
Paragraph addDeleteF151=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1789,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1790,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1791,12)
//GO TO ADD-INIT-F1-52
return addInitF152;
}
};
Paragraph addTestF1511=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1793,12)
//MOVE "ADD-TEST-F1-51-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51-1".getBytes());
//@CobolSourceFile("NC176A.COB",1794,12)
//IF WRK-DU-2V1-1 = 9.5
//
ELSE
if(compare(getWrkDu2v11(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1794,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1794,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1796,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1796,29)
//MOVE WRK-DU-2V1-1 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v11());
//@CobolSourceFile("NC176A.COB",1796,61)
//MOVE 9.5
//TOCORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1797,29)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1798,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1512=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1800,12)
//MOVE "ADD-TEST-F1-51-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51-2".getBytes());
//@CobolSourceFile("NC176A.COB",1801,12)
//IF WRK-DU-2V0-1 = 10
//
ELSE
if(getWrkDu2v01() == 10) {
//@CobolSourceFile("NC176A.COB",1801,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1801,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1803,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1803,29)
//MOVE WRK-DU-2V0-1 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v01()));
//@CobolSourceFile("NC176A.COB",1803,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1804,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1805,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1513=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1807,12)
//MOVE "ADD-TEST-F1-51-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51-3".getBytes());
//@CobolSourceFile("NC176A.COB",1808,12)
//IF WRK-DU-2V1-2 = 9.5
//
ELSE
if(compare(getWrkDu2v12(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1808,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1808,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1810,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1810,29)
//MOVE WRK-DU-2V1-2 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v12());
//@CobolSourceFile("NC176A.COB",1810,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1811,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1812,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1514=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1814,12)
//MOVE "ADD-TEST-F1-51-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51-4".getBytes());
//@CobolSourceFile("NC176A.COB",1815,12)
//IF WRK-DU-2V0-2 = 10
//
ELSE
if(getWrkDu2v02() == 10) {
//@CobolSourceFile("NC176A.COB",1815,33)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1815,46)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1817,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1817,29)
//MOVE WRK-DU-2V0-2 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v02()));
//@CobolSourceFile("NC176A.COB",1817,61)
//MOVE 10 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(10));
//@CobolSourceFile("NC176A.COB",1818,26)
//PERFORM
PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1819,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1515=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1821,12)
//MOVE "ADD-TEST-F1-51-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51-5".getBytes());
//@CobolSourceFile("NC176A.COB",1822,12)
//IF WRK-DU-2V1-3 = 9.5
//
ELSE
if(compare(getWrkDu2v13(),new
BigDecimal(9.5)) == 0) {
//@CobolSourceFile("NC176A.COB",1822,34)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1822,47)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1824,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1824,29)
//MOVE WRK-DU-2V1-3 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v13());
//@CobolSourceFile("NC176A.COB",1824,61)
//MOVE 9.5 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9.5));
//@CobolSourceFile("NC176A.COB",1825,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1826,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1516=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1828,12)
//MOVE "ADD-TEST-F1-51-6" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51-6".getBytes());
//@CobolSourceFile("NC176A.COB",1829,12)
//IF WRK-DU-2V0-3 = 9
//
ELSE
if(getWrkDu2v03() == 9) {
//@CobolSourceFile("NC176A.COB",1829,32)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1829,45)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1831,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1831,29)
//MOVE WRK-DU-2V0-3 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v03()));
//@CobolSourceFile("NC176A.COB",1831,61)
//MOVE 9 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(9));
//@CobolSourceFile("NC176A.COB",1832,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1833,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1517=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1835,12)
//MOVE "ADD-TEST-F1-51-7" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-51-7".getBytes());
//@CobolSourceFile("NC176A.COB",1836,12)
//IF WRK-XN-00001 = "2"
// ...ELSE
if(compare(getWrkXn00001(),"2")
== 0) {
//@CobolSourceFile("NC176A.COB",1837,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1838,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1840,20)
//MOVE "NOT ON SIZE ERROR SHOULD BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1842,20)
//MOVE "2" TO CORRECT-X
testCorrect.setCorrectX("2".getBytes());
//@CobolSourceFile("NC176A.COB",1843,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",1844,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1845,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF152=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//* ==-->
NEW SIZE ERROR TESTS
<--==
//@CobolSourceFile("NC176A.COB",1850,12)
//MOVE "VI-67 6.4.2" TO ANSI-REFERENCE
setAnsiReference("VI-67
6.4.2");
//* ==-->
MULTIPLE RESULT FIELDS
<--==
//@CobolSourceFile("NC176A.COB",1851,12)
//MOVE "ADD-TEST-F1-52" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52".getBytes());
//@CobolSourceFile("NC176A.COB",1852,12)
//MOVE ZERO TO WRK-DU-2V1-1 WRK-DU-2V0-1
WRK-DU-2V1-2
// WRK-DU-2V0-2 WRK-DU-2V1-3 WRK-DU-2V0-3
setWrkDu2v11(new BigDecimal(0));
setWrkDu2v01(0);
setWrkDu2v12(new BigDecimal(0));
setWrkDu2v02(0);
setWrkDu2v13(new BigDecimal(0));
setWrkDu2v03(0);
//@CobolSourceFile("NC176A.COB",1854,12)
//MOVE 1.1 TO WRK-DU-1V1-1
setWrkDu1v11(new BigDecimal(1.1));
//@CobolSourceFile("NC176A.COB",1855,12)
//MOVE 2.4 TO WRK-DU-1V1-2
setWrkDu1v12(new BigDecimal(2.4));
//@CobolSourceFile("NC176A.COB",1856,12)
//MOVE "0" TO WRK-XN-00001
setWrkXn00001("0");
//@CobolSourceFile("NC176A.COB",1857,12)
//MOVE 1 TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1520=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1859,12)
//ADD A17TWOS-DS-17V00
// WRK-DU-1V1-2 6
// TO WRK-DU-2V1-1
// WRK-DU-2V0-1 ROUNDED
// WRK-DU-2V1-2
// WRK-DU-2V0-2 ROUNDED
// WRK-DU-2V1-3
// WRK-DU-2V0-3
// ON SIZE ERROR
// NOT ON SIZE ERROR
inError=false;
try {
BigDecimal temp25 =
_Math.add(_Math.add(new BigDecimal(getA17twosDs17v00()),getWrkDu1v12()),new
BigDecimal(6));
setWrkDu2v11(_Math.add(temp25,getWrkDu2v11()));
setWrkDu2v01(_Math.add(__round(temp25,0),new
BigDecimal(getWrkDu2v01())).intValue());
setWrkDu2v12(_Math.add(temp25,getWrkDu2v12()));
setWrkDu2v02(_Math.add(__round(temp25,0),new
BigDecimal(getWrkDu2v02())).intValue());
setWrkDu2v13(_Math.add(temp25,getWrkDu2v13()));
setWrkDu2v03(_Math.add(temp25,new
BigDecimal(getWrkDu2v03())).intValue());
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",1868,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",1870,20)
//MOVE "2" TO WRK-XN-00001
setWrkXn00001("2");
}
//@CobolSourceFile("NC176A.COB",1871,12)
//GO TO ADD-TEST-F1-52-1
return addTestF1521;
}
};
Paragraph addDeleteF152=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1873,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1874,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1875,12)
//GO TO ADD-INIT-F1-53
return addInitF153;
}
};
Paragraph addTestF1521=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1877,12)
//MOVE "ADD-TEST-F1-52-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52-1".getBytes());
//@CobolSourceFile("NC176A.COB",1878,12)
//IF WRK-DU-2V1-1 = ZERO
//
ELSE
if(getWrkDu2v11().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1878,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1878,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1880,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1880,29)
//MOVE WRK-DU-2V1-1 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v11());
//@CobolSourceFile("NC176A.COB",1880,61)
//MOVE 0
//TOCORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1881,29)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1882,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1522=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1884,12)
//MOVE "ADD-TEST-F1-52-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52-2".getBytes());
//@CobolSourceFile("NC176A.COB",1885,12)
//IF WRK-DU-2V0-1 = ZERO
//
ELSE
if(getWrkDu2v01() == 0) {
//@CobolSourceFile("NC176A.COB",1885,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1885,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1887,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1887,29)
//MOVE WRK-DU-2V0-1 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v01()));
//@CobolSourceFile("NC176A.COB",1887,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1888,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1889,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1523=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1891,12)
//MOVE "ADD-TEST-F1-52-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52-3".getBytes());
//@CobolSourceFile("NC176A.COB",1892,12)
//IF WRK-DU-2V1-2 = ZERO
//
ELSE
if(getWrkDu2v12().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1892,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1892,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1894,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1894,29)
//MOVE WRK-DU-2V1-2 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v12());
//@CobolSourceFile("NC176A.COB",1894,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1895,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1896,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1524=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1898,12)
//MOVE "ADD-TEST-F1-52-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52-4".getBytes());
//@CobolSourceFile("NC176A.COB",1899,12)
//IF WRK-DU-2V0-2 = ZERO
//
ELSE
if(getWrkDu2v02() == 0) {
//@CobolSourceFile("NC176A.COB",1899,35)
//PERFORM
PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1899,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1901,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1901,29)
//MOVE WRK-DU-2V0-2 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v02()));
//@CobolSourceFile("NC176A.COB",1901,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1902,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1903,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1525=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1905,12)
//MOVE "ADD-TEST-F1-52-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52-5".getBytes());
//@CobolSourceFile("NC176A.COB",1906,12)
//IF WRK-DU-2V1-3 = ZERO
//
ELSE
if(getWrkDu2v13().intValue() == 0) {
//@CobolSourceFile("NC176A.COB",1906,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1906,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1908,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1908,29)
//MOVE WRK-DU-2V1-3 TO
COMPUTED-N
testComputed.setComputedN(getWrkDu2v13());
//@CobolSourceFile("NC176A.COB",1908,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1909,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1910,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1526=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1912,12)
//MOVE "ADD-TEST-F1-52-6" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52-6".getBytes());
//@CobolSourceFile("NC176A.COB",1913,12)
//IF WRK-DU-2V0-3 = ZERO
//
ELSE
if(getWrkDu2v03() == 0) {
//@CobolSourceFile("NC176A.COB",1913,35)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1913,48)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1915,16)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1915,29)
//MOVE WRK-DU-2V0-3 TO
COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDu2v03()));
//@CobolSourceFile("NC176A.COB",1915,61)
//MOVE 0 TO
//CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(0));
//@CobolSourceFile("NC176A.COB",1916,26)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1917,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1527=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1919,12)
//MOVE "ADD-TEST-F1-52-7" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-52-7".getBytes());
//@CobolSourceFile("NC176A.COB",1920,12)
//IF WRK-XN-00001 = "1"
// ...ELSE
if(compare(getWrkXn00001(),"1")
== 0) {
//@CobolSourceFile("NC176A.COB",1921,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1922,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1924,20)
//MOVE "ON SIZE ERROR SHOULD BE EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1926,20)
//MOVE "1" TO CORRECT-X
testCorrect.setCorrectX("1".getBytes());
//@CobolSourceFile("NC176A.COB",1927,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",1928,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1929,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF153=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",1933,12)
//MOVE "IV-41 6.4.3" TO ANSI-REFERENCE
setAnsiReference("IV-41
6.4.3");
//* ==--> EXPLICIT SCOPE
TERMINATOR<--==
//@CobolSourceFile("NC176A.COB",1934,12)
//MOVE "ADD-TEST-F1-53" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-53".getBytes());
//@CobolSourceFile("NC176A.COB",1935,12)
//MOVE SPACE TO WRK-XN-00001
setWrkXn00001(" ");
//@CobolSourceFile("NC176A.COB",1936,12)
//MOVE SPACE TO SIZE-ERR2
setSizeErr2(" ");
//@CobolSourceFile("NC176A.COB",1937,12)
//MOVE SPACE TO SIZE-ERR3
setSizeErr3(" ");
//@CobolSourceFile("NC176A.COB",1938,12)
//MOVE SPACE TO SIZE-ERR4
setSizeErr4(" ");
//@CobolSourceFile("NC176A.COB",1939,12)
//MOVE -11 TO WRK-DS-02V00
setWrkDs02v00(-11);
//@CobolSourceFile("NC176A.COB",1940,12)
//MOVE 1 TO
REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1530=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1942,12)
//ADD -99 TO WRK-DS-02V00
// ON SIZE ERROR
// ...END-ADD
inError=false;
try {
setWrkDs02v00(_Math.add(-99,getWrkDs02v00()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",1944,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
//@CobolSourceFile("NC176A.COB",1945,20)
//MOVE "A" TO SIZE-ERR2
setSizeErr2("A");
//@CobolSourceFile("NC176A.COB",1946,20)
//MOVE "B" TO SIZE-ERR3
setSizeErr3("B");
}
//@CobolSourceFile("NC176A.COB",1948,12)
//MOVE "C" TO SIZE-ERR4
setSizeErr4("C");
//@CobolSourceFile("NC176A.COB",1949,12)
//GO TO ADD-TEST-F1-53-1
return addTestF1531;
}
};
Paragraph addDeleteF153=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1951,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",1952,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",1953,12)
//GO TO ADD-INIT-F1-54
return addInitF154;
}
};
Paragraph addTestF1531=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1955,12)
//MOVE "ADD-TEST-F1-53-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-53-1".getBytes());
//@CobolSourceFile("NC176A.COB",1956,12)
//IF WRK-XN-00001 = "1"
// ...ELSE
if(compare(getWrkXn00001(),"1")
== 0) {
//@CobolSourceFile("NC176A.COB",1957,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1958,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1960,20)
//MOVE "ON SIZE ERROR SHOULD BE EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1962,20)
//MOVE "1" TO CORRECT-X
testCorrect.setCorrectX("1".getBytes());
//@CobolSourceFile("NC176A.COB",1963,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",1964,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1965,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1966,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1532=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1968,12)
//MOVE "ADD-TEST-F1-53-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-53-2".getBytes());
//@CobolSourceFile("NC176A.COB",1969,12)
//IF SIZE-ERR2 = "A"
// ...ELSE
if(compare(getSizeErr2(),"A")
== 0) {
//@CobolSourceFile("NC176A.COB",1970,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1971,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1973,20)
//MOVE "ON SIZE ERROR SHOULD BE EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1975,20)
//MOVE "A" TO CORRECT-X
testCorrect.setCorrectX("A".getBytes());
//@CobolSourceFile("NC176A.COB",1976,20)
//MOVE SIZE-ERR2 TO COMPUTED-X
testComputed.setComputedX(getSizeErr2().getBytes());
//@CobolSourceFile("NC176A.COB",1977,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1978,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1979,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1533=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1981,12)
//MOVE "ADD-TEST-F1-53-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-53-3".getBytes());
//@CobolSourceFile("NC176A.COB",1982,12)
//IF SIZE-ERR3 = "B"
// ...ELSE
if(compare(getSizeErr3(),"B")
== 0) {
//@CobolSourceFile("NC176A.COB",1983,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1984,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1986,20)
//MOVE "ON SIZE ERROR SHOULD BE EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",1988,20)
//MOVE "B" TO CORRECT-X
testCorrect.setCorrectX("B".getBytes());
//@CobolSourceFile("NC176A.COB",1989,20)
//MOVE SIZE-ERR3 TO COMPUTED-X
testComputed.setComputedX(getSizeErr3().getBytes());
//@CobolSourceFile("NC176A.COB",1990,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",1991,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",1992,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1534=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",1994,12)
//MOVE "ADD-TEST-F1-53-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-53-4".getBytes());
//@CobolSourceFile("NC176A.COB",1995,12)
//IF SIZE-ERR4 = "C"
// ...ELSE
if(compare(getSizeErr4(),"C")
== 0) {
//@CobolSourceFile("NC176A.COB",1996,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",1997,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",1999,20)
//MOVE "SCOPE TERMINATOR IGNORED"
// TO RE-MARK
testResults.setReMark("SCOPE
TERMINATOR IGNORED");
//@CobolSourceFile("NC176A.COB",2001,20)
//MOVE "C" TO CORRECT-X
testCorrect.setCorrectX("C".getBytes());
//@CobolSourceFile("NC176A.COB",2002,20)
//MOVE SIZE-ERR4 TO COMPUTED-X
testComputed.setComputedX(getSizeErr4().getBytes());
//@CobolSourceFile("NC176A.COB",2003,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2004,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2005,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1535=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2007,12)
//MOVE "ADD-TEST-F1-53-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-53-5".getBytes());
//@CobolSourceFile("NC176A.COB",2008,12)
//IF WRK-DS-02V00 = -11
// ...ELSE
if(getWrkDs02v00() == -11) {
//@CobolSourceFile("NC176A.COB",2009,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2010,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2012,20)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
// TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",2014,20)
//MOVE -11
TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(-11));
//@CobolSourceFile("NC176A.COB",2015,20)
//MOVE WRK-DS-02V00 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDs02v00()));
//@CobolSourceFile("NC176A.COB",2016,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2017,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF154=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",2021,12)
//MOVE "IV-41 6.4.3" TO ANSI-REFERENCE
setAnsiReference("IV-41
6.4.3");
//* ==--> EXPLICIT SCOPE TERMINATOR<--==
//@CobolSourceFile("NC176A.COB",2022,12)
//MOVE "ADD-TEST-F1-54" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-54".getBytes());
//@CobolSourceFile("NC176A.COB",2023,12)
//MOVE SPACE TO WRK-XN-00001
setWrkXn00001(" ");
//@CobolSourceFile("NC176A.COB",2024,12)
//MOVE SPACE TO SIZE-ERR2
setSizeErr2(" ");
//@CobolSourceFile("NC176A.COB",2025,12)
//MOVE SPACE TO SIZE-ERR3
setSizeErr3(" ");
//@CobolSourceFile("NC176A.COB",2026,12)
//MOVE SPACE TO SIZE-ERR4
setSizeErr4(" ");
//@CobolSourceFile("NC176A.COB",2027,12)
//MOVE ZERO TO WRK-DS-06V06
setWrkDs06v06(new BigDecimal(0));
//@CobolSourceFile("NC176A.COB",2028,12)
//MOVE 1
TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1540=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2030,12)
//ADD A12THREES-DS-06V06
// 333333
// A06THREES-DS-03V03
// TO WRK-DS-06V06 ROUNDED
// ON SIZE ERROR
// ...END-ADD
inError=false;
try {
BigDecimal temp26 =
_Math.add(_Math.add(getA12threesDs06v06(),new
BigDecimal(333333)),getA06threesDs03v03());
setWrkDs06v06(_Math.add(__round(temp26,6),getWrkDs06v06()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",2035,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
//@CobolSourceFile("NC176A.COB",2036,20)
//MOVE "A" TO SIZE-ERR2
setSizeErr2("A");
//@CobolSourceFile("NC176A.COB",2037,20)
//MOVE "B" TO SIZE-ERR3
setSizeErr3("B");
}
//@CobolSourceFile("NC176A.COB",2039,12)
//MOVE "C" TO SIZE-ERR4
setSizeErr4("C");
//@CobolSourceFile("NC176A.COB",2040,12)
//GO TO ADD-TEST-F1-54-1
return addTestF1541;
}
};
Paragraph addDeleteF154=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2042,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",2043,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",2044,12)
//GO TO ADD-INIT-F1-55
return addInitF155;
}
};
Paragraph addTestF1541=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2046,12)
//MOVE "ADD-TEST-F1-54-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-54-1".getBytes());
//@CobolSourceFile("NC176A.COB",2047,12)
//IF WRK-XN-00001 = SPACE
// ...ELSE
if(compare(getWrkXn00001(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",2048,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2049,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2051,20)
//MOVE "ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2053,20)
//MOVE SPACE
TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",2054,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",2055,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2056,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2057,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1542=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2059,12)
//MOVE "ADD-TEST-F1-54-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-54-2".getBytes());
//@CobolSourceFile("NC176A.COB",2060,12)
//IF SIZE-ERR2 = SPACE
// ...ELSE
if(compare(getSizeErr2(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",2061,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2062,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2064,20)
//MOVE "ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2066,20)
//MOVE SPACE
TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",2067,20)
//MOVE SIZE-ERR2 TO COMPUTED-X
testComputed.setComputedX(getSizeErr2().getBytes());
//@CobolSourceFile("NC176A.COB",2068,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2069,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2070,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1543=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2072,12)
//MOVE "ADD-TEST-F1-54-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-54-3".getBytes());
//@CobolSourceFile("NC176A.COB",2073,12)
//IF SIZE-ERR3 = SPACE
// ...ELSE
if(compare(getSizeErr3(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",2074,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2075,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2077,20)
//MOVE "NOT ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2079,20)
//MOVE SPACE
TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",2080,20)
//MOVE SIZE-ERR3 TO COMPUTED-X
testComputed.setComputedX(getSizeErr3().getBytes());
//@CobolSourceFile("NC176A.COB",2081,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2082,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2083,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1544=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2085,12)
//MOVE "ADD-TEST-F1-54-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-54-4".getBytes());
//@CobolSourceFile("NC176A.COB",2086,12)
//IF SIZE-ERR4 = "C"
// ...ELSE
if(compare(getSizeErr4(),"C")
== 0) {
//@CobolSourceFile("NC176A.COB",2087,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2088,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2090,20)
//MOVE "SCOPE TERMINATOR IGNORED"
// TO RE-MARK
testResults.setReMark("SCOPE
TERMINATOR IGNORED");
//@CobolSourceFile("NC176A.COB",2092,20)
//MOVE "C" TO CORRECT-X
testCorrect.setCorrectX("C".getBytes());
//@CobolSourceFile("NC176A.COB",2093,20)
//MOVE SIZE-ERR4 TO COMPUTED-X
testComputed.setComputedX(getSizeErr4().getBytes());
//@CobolSourceFile("NC176A.COB",2094,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2095,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",2096,20)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
}
return doCobolExit();
}
};
Paragraph addTestF1545=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2098,12)
//MOVE "ADD-TEST-F1-54-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-54-5".getBytes());
//@CobolSourceFile("NC176A.COB",2099,12)
//IF WRK-DS-06V06 = 666999.666333
// ...ELSE
if(compare(getWrkDs06v06(),new
BigDecimal(666999.666333)) == 0) {
//@CobolSourceFile("NC176A.COB",2100,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2101,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2103,20)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
// TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",2105,20)
//MOVE 666999.666333 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(666999.666333));
//@CobolSourceFile("NC176A.COB",2106,20)
//MOVE WRK-DS-06V06 TO COMPUTED-N
testComputed.setComputedN(getWrkDs06v06());
//@CobolSourceFile("NC176A.COB",2107,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2108,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF155=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",2112,12)
//MOVE "IV-41 6.4.3" TO ANSI-REFERENCE
setAnsiReference("IV-41
6.4.3");
//* ==--> EXPLICIT SCOPE
TERMINATOR<--==
//@CobolSourceFile("NC176A.COB",2113,12)
//MOVE "ADD-TEST-F1-55" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-55".getBytes());
//@CobolSourceFile("NC176A.COB",2114,12)
//MOVE SPACE TO WRK-XN-00001
setWrkXn00001(" ");
//@CobolSourceFile("NC176A.COB",2115,12)
//MOVE SPACE TO SIZE-ERR2
setSizeErr2(" ");
//@CobolSourceFile("NC176A.COB",2116,12)
//MOVE SPACE TO SIZE-ERR3
setSizeErr3(" ");
//@CobolSourceFile("NC176A.COB",2117,12)
//MOVE SPACE TO SIZE-ERR4
setSizeErr4(" ");
//@CobolSourceFile("NC176A.COB",2118,12)
//MOVE -11 TO WRK-DS-02V00
setWrkDs02v00(-11);
//@CobolSourceFile("NC176A.COB",2119,12)
//MOVE 1
TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1550=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2121,12)
//ADD -99 TO WRK-DS-02V00
// NOT ON SIZE ERROR
// ...END-ADD
inError=false;
try {
setWrkDs02v00(_Math.add(-99,getWrkDs02v00()));
} catch(ArithmeticException e) {
inError=true;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",2123,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
//@CobolSourceFile("NC176A.COB",2124,20)
//MOVE "A" TO SIZE-ERR2
setSizeErr2("A");
//@CobolSourceFile("NC176A.COB",2125,20)
//MOVE "B" TO SIZE-ERR3
setSizeErr3("B");
}
//@CobolSourceFile("NC176A.COB",2127,12)
//MOVE "C" TO SIZE-ERR4
setSizeErr4("C");
//@CobolSourceFile("NC176A.COB",2128,12)
//GO TO ADD-TEST-F1-55-1
return addTestF1551;
}
};
Paragraph addDeleteF155=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2130,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",2131,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",2132,12)
//GO TO ADD-INIT-F1-56
return addInitF156;
}
};
Paragraph addTestF1551=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2134,12)
//MOVE "ADD-TEST-F1-55-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-55-1".getBytes());
//@CobolSourceFile("NC176A.COB",2135,12)
//IF WRK-XN-00001 = SPACE
// ...ELSE
if(compare(getWrkXn00001(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",2136,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2137,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2139,20)
//MOVE "NOT ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2141,20)
//MOVE SPACE
TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",2142,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",2143,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2144,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2145,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1552=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2147,12)
//MOVE "ADD-TEST-F1-55-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-55-2".getBytes());
//@CobolSourceFile("NC176A.COB",2148,12)
//IF SIZE-ERR2 = SPACE
// ...ELSE
if(compare(getSizeErr2(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",2149,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2150,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2152,20)
//MOVE "NOT ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2154,20)
//MOVE SPACE
TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",2155,20)
//MOVE SIZE-ERR2 TO COMPUTED-X
testComputed.setComputedX(getSizeErr2().getBytes());
//@CobolSourceFile("NC176A.COB",2156,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2157,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2158,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1553=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2160,12)
//MOVE "ADD-TEST-F1-55-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-55-3".getBytes());
//@CobolSourceFile("NC176A.COB",2161,12)
//IF SIZE-ERR3 = SPACE
// ...ELSE
if(compare(getSizeErr3(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",2162,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2163,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2165,20)
//MOVE "NOT ON SIZE ERROR SHOULD NOT BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD NOT BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2167,20)
//MOVE SPACE
TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",2168,20)
//MOVE SIZE-ERR3 TO COMPUTED-X
testComputed.setComputedX(getSizeErr3().getBytes());
//@CobolSourceFile("NC176A.COB",2169,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2170,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2171,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1554=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2173,12)
//MOVE "ADD-TEST-F1-55-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-55-4".getBytes());
//@CobolSourceFile("NC176A.COB",2174,12)
//IF SIZE-ERR4 = "C"
// ...ELSE
if(compare(getSizeErr4(),"C")
== 0) {
//@CobolSourceFile("NC176A.COB",2175,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2176,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2178,20)
//MOVE "SCOPE TERMINATOR IGNORED"
// TO RE-MARK
testResults.setReMark("SCOPE
TERMINATOR IGNORED");
//@CobolSourceFile("NC176A.COB",2180,20)
//MOVE "C" TO CORRECT-X
testCorrect.setCorrectX("C".getBytes());
//@CobolSourceFile("NC176A.COB",2181,20)
//MOVE SIZE-ERR4 TO COMPUTED-X
testComputed.setComputedX(getSizeErr4().getBytes());
//@CobolSourceFile("NC176A.COB",2182,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2183,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2184,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1555=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2186,12)
//MOVE "ADD-TEST-F1-55-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-55-5".getBytes());
//@CobolSourceFile("NC176A.COB",2187,12)
//IF WRK-DS-02V00 = -11
// ...ELSE
if(getWrkDs02v00() == -11) {
//@CobolSourceFile("NC176A.COB",2188,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2189,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2191,20)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
// TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",2193,20)
//MOVE -11
TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(-11));
//@CobolSourceFile("NC176A.COB",2194,20)
//MOVE WRK-DS-02V00 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDs02v00()));
//@CobolSourceFile("NC176A.COB",2195,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2196,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF156=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",2200,12)
//MOVE "IV-41 6.4.3" TO ANSI-REFERENCE
setAnsiReference("IV-41
6.4.3");
//* ==--> EXPLICIT SCOPE
TERMINATOR<--==
//@CobolSourceFile("NC176A.COB",2201,12)
//MOVE "ADD-TEST-F1-56" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-56".getBytes());
//@CobolSourceFile("NC176A.COB",2202,12)
//MOVE SPACE TO WRK-XN-00001
setWrkXn00001(" ");
//@CobolSourceFile("NC176A.COB",2203,12)
//MOVE SPACE TO SIZE-ERR2
setSizeErr2(" ");
//@CobolSourceFile("NC176A.COB",2204,12)
//MOVE SPACE TO SIZE-ERR3
setSizeErr3(" ");
//@CobolSourceFile("NC176A.COB",2205,12)
//MOVE SPACE TO SIZE-ERR4
setSizeErr4(" ");
//@CobolSourceFile("NC176A.COB",2206,12)
//MOVE ZERO
TO WRK-DS-06V06
setWrkDs06v06(new BigDecimal(0));
//@CobolSourceFile("NC176A.COB",2207,12)
//MOVE 1
TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1560=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2209,12)
//ADD A12THREES-DS-06V06
// 333333
// A06THREES-DS-03V03
// TO WRK-DS-06V06 ROUNDED
//
NOT ON SIZE ERROR
// ...END-ADD
inError=false;
try {
BigDecimal temp27 =
_Math.add(_Math.add(getA12threesDs06v06(),new
BigDecimal(333333)),getA06threesDs03v03());
setWrkDs06v06(_Math.add(__round(temp27,6),getWrkDs06v06()));
} catch(ArithmeticException e) {
inError=true;
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",2214,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
//@CobolSourceFile("NC176A.COB",2215,20)
//MOVE "A" TO SIZE-ERR2
setSizeErr2("A");
//@CobolSourceFile("NC176A.COB",2216,20)
//MOVE "B" TO SIZE-ERR3
setSizeErr3("B");
}
//@CobolSourceFile("NC176A.COB",2218,12)
//MOVE "C" TO SIZE-ERR4
setSizeErr4("C");
//@CobolSourceFile("NC176A.COB",2219,12)
//GO TO ADD-TEST-F1-56-1
return addTestF1561;
}
};
Paragraph addDeleteF156=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2221,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",2222,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",2223,12)
//GO TO ADD-INIT-F1-57
return addInitF157;
}
};
Paragraph addTestF1561=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2225,12)
//MOVE "ADD-TEST-F1-56-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-56-1".getBytes());
//@CobolSourceFile("NC176A.COB",2226,12)
//IF WRK-XN-00001 = "1"
// ...ELSE
if(compare(getWrkXn00001(),"1")
== 0) {
//@CobolSourceFile("NC176A.COB",2227,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2228,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2230,20)
//MOVE "NOT ON SIZE ERROR SHOULD BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2232,20)
//MOVE "1" TO CORRECT-X
testCorrect.setCorrectX("1".getBytes());
//@CobolSourceFile("NC176A.COB",2233,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",2234,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2235,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2236,20)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1562=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2238,12)
//MOVE "ADD-TEST-F1-56-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-56-2".getBytes());
//@CobolSourceFile("NC176A.COB",2239,12)
//IF SIZE-ERR2 = "A"
// ...ELSE
if(compare(getSizeErr2(),"A")
== 0) {
//@CobolSourceFile("NC176A.COB",2240,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2241,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2243,20)
//MOVE "NOT ON SIZE ERROR SHOULD BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2245,20)
//MOVE "A" TO CORRECT-X
testCorrect.setCorrectX("A".getBytes());
//@CobolSourceFile("NC176A.COB",2246,20)
//MOVE SIZE-ERR2 TO COMPUTED-X
testComputed.setComputedX(getSizeErr2().getBytes());
//@CobolSourceFile("NC176A.COB",2247,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2248,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2249,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1563=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2251,12)
//MOVE "ADD-TEST-F1-56-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-56-3".getBytes());
//@CobolSourceFile("NC176A.COB",2252,12)
//IF SIZE-ERR3 = "B"
// ...ELSE
if(compare(getSizeErr3(),"B")
== 0) {
//@CobolSourceFile("NC176A.COB",2253,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2254,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2256,20)
//MOVE "NOT ON SIZE ERROR SHOULD BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2258,20)
//MOVE "B" TO CORRECT-X
testCorrect.setCorrectX("B".getBytes());
//@CobolSourceFile("NC176A.COB",2259,20)
//MOVE SIZE-ERR3 TO COMPUTED-X
testComputed.setComputedX(getSizeErr3().getBytes());
//@CobolSourceFile("NC176A.COB",2260,20)
//PERFORM
FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2261,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2262,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1564=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2264,12)
//MOVE "ADD-TEST-F1-56-4" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-56-4".getBytes());
//@CobolSourceFile("NC176A.COB",2265,12)
//IF SIZE-ERR4 = "C"
// ...ELSE
if(compare(getSizeErr4(),"C")
== 0) {
//@CobolSourceFile("NC176A.COB",2266,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2267,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2269,20)
//MOVE "SCOPE TERMINATOR IGNORED"
// TO RE-MARK
testResults.setReMark("SCOPE
TERMINATOR IGNORED");
//@CobolSourceFile("NC176A.COB",2271,20)
//MOVE "C" TO CORRECT-X
testCorrect.setCorrectX("C".getBytes());
//@CobolSourceFile("NC176A.COB",2272,20)
//MOVE SIZE-ERR4 TO COMPUTED-X
testComputed.setComputedX(getSizeErr4().getBytes());
//@CobolSourceFile("NC176A.COB",2273,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2274,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2275,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1565=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2277,12)
//MOVE "ADD-TEST-F1-56-5" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-56-5".getBytes());
//@CobolSourceFile("NC176A.COB",2278,12)
//IF WRK-DS-06V06 = 666999.666333
// ...ELSE
if(compare(getWrkDs06v06(),new
BigDecimal(666999.666333)) == 0) {
//@CobolSourceFile("NC176A.COB",2279,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2280,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2282,20)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
// TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",2284,20)
//MOVE 666999.666333 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(666999.666333));
//@CobolSourceFile("NC176A.COB",2285,20)
//MOVE WRK-DS-06V06 TO COMPUTED-N
testComputed.setComputedN(getWrkDs06v06());
//@CobolSourceFile("NC176A.COB",2286,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2287,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF157=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",2291,12)
//MOVE "IV-41 6.4.3" TO ANSI-REFERENCE
setAnsiReference("IV-41
6.4.3");
//* ==--> EXPLICIT SCOPE
TERMINATOR<--==
//@CobolSourceFile("NC176A.COB",2292,12)
//MOVE "ADD-TEST-F1-57" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-57".getBytes());
//@CobolSourceFile("NC176A.COB",2293,12)
//MOVE "0" TO WRK-XN-00001
setWrkXn00001("0");
//@CobolSourceFile("NC176A.COB",2294,12)
//MOVE "0" TO SIZE-ERR2
setSizeErr2("0");
//@CobolSourceFile("NC176A.COB",2295,12)
//MOVE
"0" TO SIZE-ERR3
setSizeErr3("0");
//@CobolSourceFile("NC176A.COB",2296,12)
//MOVE "0" TO SIZE-ERR4
setSizeErr4("0");
//@CobolSourceFile("NC176A.COB",2297,12)
//MOVE -11
TO WRK-DS-02V00
setWrkDs02v00(-11);
//@CobolSourceFile("NC176A.COB",2298,12)
//MOVE 1
TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1570=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2300,12)
//ADD -99 TO WRK-DS-02V00
// ON SIZE ERROR
// NOT ON SIZE ERROR
//END-ADD
inError=false;
try {
setWrkDs02v00(_Math.add(-99,getWrkDs02v00()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",2302,20)
//MOVE SPACE TO WRK-XN-00001
setWrkXn00001(" ");
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",2304,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
//@CobolSourceFile("NC176A.COB",2306,12)
//MOVE "C" TO SIZE-ERR4
setSizeErr4("C");
//@CobolSourceFile("NC176A.COB",2307,12)
//GO TO ADD-TEST-F1-57-1
return addTestF1571;
}
};
Paragraph addDeleteF157=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2309,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",2310,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",2311,12)
//GO TO ADD-INIT-F1-58
return addInitF158;
}
};
Paragraph addTestF1571=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2313,12)
//MOVE "ADD-TEST-F1-57-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-57-1".getBytes());
//@CobolSourceFile("NC176A.COB",2314,12)
//IF WRK-XN-00001 = SPACE
// ...ELSE
if(compare(getWrkXn00001(),"
") == 0) {
//@CobolSourceFile("NC176A.COB",2315,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2316,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2318,20)
//MOVE "ON SIZE ERROR SHOULD BE EXECUTED"
// TO RE-MARK
testResults.setReMark("ON
SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2320,20)
//MOVE SPACE
TO CORRECT-X
testCorrect.setCorrectX("
".getBytes());
//@CobolSourceFile("NC176A.COB",2321,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",2322,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2323,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2324,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1572=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2326,12)
//MOVE "ADD-TEST-F1-57-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-57-2".getBytes());
//@CobolSourceFile("NC176A.COB",2327,12)
//IF SIZE-ERR4 = "C"
// ...ELSE
if(compare(getSizeErr4(),"C")
== 0) {
//@CobolSourceFile("NC176A.COB",2328,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2329,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2331,20)
//MOVE "SCOPE TERMINATOR IGNORED"
// TO RE-MARK
testResults.setReMark("SCOPE
TERMINATOR IGNORED");
//@CobolSourceFile("NC176A.COB",2333,20)
//MOVE "C" TO CORRECT-X
testCorrect.setCorrectX("C".getBytes());
//@CobolSourceFile("NC176A.COB",2334,20)
//MOVE SIZE-ERR4 TO COMPUTED-X
testComputed.setComputedX(getSizeErr4().getBytes());
//@CobolSourceFile("NC176A.COB",2335,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2336,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2337,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1573=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2339,12)
//MOVE "ADD-TEST-F1-57-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-57-3".getBytes());
//@CobolSourceFile("NC176A.COB",2340,12)
//IF WRK-DS-02V00 = -11
// ...ELSE
if(getWrkDs02v00() == -11) {
//@CobolSourceFile("NC176A.COB",2341,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2342,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2344,20)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
// TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",2346,20)
//MOVE -11
TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(-11));
//@CobolSourceFile("NC176A.COB",2347,20)
//MOVE WRK-DS-02V00 TO COMPUTED-N
testComputed.setComputedN(new
BigDecimal(getWrkDs02v00()));
//@CobolSourceFile("NC176A.COB",2348,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2349,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Paragraph addInitF158=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",2353,12)
//MOVE "IV-41 6.4.3" TO ANSI-REFERENCE
setAnsiReference("IV-41
6.4.3");
//* ==--> EXPLICIT SCOPE
TERMINATOR<--==
//@CobolSourceFile("NC176A.COB",2354,12)
//MOVE "ADD-TEST-F1-58" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-58".getBytes());
//@CobolSourceFile("NC176A.COB",2355,12)
//MOVE SPACE TO WRK-XN-00001
setWrkXn00001(" ");
//@CobolSourceFile("NC176A.COB",2356,12)
//MOVE SPACE TO SIZE-ERR2
setSizeErr2(" ");
//@CobolSourceFile("NC176A.COB",2357,12)
//MOVE SPACE TO SIZE-ERR3
setSizeErr3(" ");
//@CobolSourceFile("NC176A.COB",2358,12)
//MOVE SPACE TO SIZE-ERR4
setSizeErr4(" ");
//@CobolSourceFile("NC176A.COB",2359,12)
//MOVE ZERO
TO WRK-DS-06V06
setWrkDs06v06(new BigDecimal(0));
//@CobolSourceFile("NC176A.COB",2360,12)
//MOVE 1
TO REC-CT
setRecCt(1);
return doCobolExit();
}
};
Paragraph addTestF1580=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2362,12)
//ADD A12THREES-DS-06V06
// 333333
// A06THREES-DS-03V03
//
TO WRK-DS-06V06 ROUNDED
// ON SIZE ERROR
//
NOT ON SIZE ERROR
//END-ADD
inError=false;
try {
BigDecimal temp28 =
_Math.add(_Math.add(getA12threesDs06v06(),new
BigDecimal(333333)),getA06threesDs03v03());
setWrkDs06v06(_Math.add(__round(temp28,6),getWrkDs06v06()));
} catch(ArithmeticException e) {
inError=true;
//@CobolSourceFile("NC176A.COB",2367,20)
//MOVE "X" TO WRK-XN-00001
setWrkXn00001("X");
}
if(!inError) {
//@CobolSourceFile("NC176A.COB",2369,20)
//MOVE "1" TO WRK-XN-00001
setWrkXn00001("1");
}
//@CobolSourceFile("NC176A.COB",2371,12)
//MOVE "C" TO SIZE-ERR4
setSizeErr4("C");
//@CobolSourceFile("NC176A.COB",2372,12)
//GO TO ADD-TEST-F1-58-1
return addTestF1581;
}
};
Paragraph addDeleteF158=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2374,12)
//PERFORM DE-LETE
doCobolPerform(deLete,null);
//@CobolSourceFile("NC176A.COB",2375,12)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
//@CobolSourceFile("NC176A.COB",2376,12)
//GO TO CCVS-EXIT
return ccvsExit;
}
};
Paragraph addTestF1581=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2378,12)
//MOVE "ADD-TEST-F1-58-1" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-58-1".getBytes());
//@CobolSourceFile("NC176A.COB",2379,12)
//IF WRK-XN-00001 = "1"
// ...ELSE
if(compare(getWrkXn00001(),"1")
== 0) {
//@CobolSourceFile("NC176A.COB",2380,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2381,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2383,20)
//MOVE "NOT ON SIZE ERROR SHOULD BE
EXECUTED"
// TO RE-MARK
testResults.setReMark("NOT
ON SIZE ERROR SHOULD BE EXECUTED");
//@CobolSourceFile("NC176A.COB",2385,20)
//MOVE "1" TO CORRECT-X
testCorrect.setCorrectX("1".getBytes());
//@CobolSourceFile("NC176A.COB",2386,20)
//MOVE WRK-XN-00001 TO COMPUTED-X
testComputed.setComputedX(getWrkXn00001().getBytes());
//@CobolSourceFile("NC176A.COB",2387,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2388,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2389,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1582=new
Paragraph(this,sectNc176a001) {
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2391,12)
//MOVE "ADD-TEST-F1-58-2" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-58-2".getBytes());
//@CobolSourceFile("NC176A.COB",2392,12)
//IF SIZE-ERR4 = "C"
// ...ELSE
if(compare(getSizeErr4(),"C")
== 0) {
//@CobolSourceFile("NC176A.COB",2393,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2394,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2396,20)
//MOVE "SCOPE TERMINATOR IGNORED"
// TO RE-MARK
testResults.setReMark("SCOPE
TERMINATOR IGNORED");
//@CobolSourceFile("NC176A.COB",2398,20)
//MOVE "C" TO CORRECT-X
testCorrect.setCorrectX("C".getBytes());
//@CobolSourceFile("NC176A.COB",2399,20)
//MOVE SIZE-ERR4 TO COMPUTED-X
testComputed.setComputedX(getSizeErr4().getBytes());
//@CobolSourceFile("NC176A.COB",2400,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2401,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
//@CobolSourceFile("NC176A.COB",2402,12)
//ADD 1 TO REC-CT
setRecCt(_Math.add(1,getRecCt()));
return doCobolExit();
}
};
Paragraph addTestF1583=new Paragraph(this,sectNc176a001)
{
public CobolMethod run() {
//@CobolSourceFile("NC176A.COB",2404,12)
//MOVE "ADD-TEST-F1-58-3" TO PAR-NAME
testResults.setParName("ADD-TEST-F1-58-3".getBytes());
//@CobolSourceFile("NC176A.COB",2405,12)
//IF WRK-DS-06V06 = 666999.666333
// ...ELSE
if(compare(getWrkDs06v06(),new
BigDecimal(666999.666333)) == 0) {
//@CobolSourceFile("NC176A.COB",2406,20)
//PERFORM PASS
doCobolPerform(pass,null);
//@CobolSourceFile("NC176A.COB",2407,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
} else {
//@CobolSourceFile("NC176A.COB",2409,20)
//MOVE "WRONGLY AFFECTED BY SIZE ERROR"
// TO RE-MARK
testResults.setReMark("WRONGLY
AFFECTED BY SIZE ERROR");
//@CobolSourceFile("NC176A.COB",2411,20)
//MOVE 666999.666333 TO CORRECT-N
testCorrect.setCorrectN(new
BigDecimal(666999.666333));
//@CobolSourceFile("NC176A.COB",2412,20)
//MOVE WRK-DS-06V06 TO COMPUTED-N
testComputed.setComputedN(getWrkDs06v06());
//@CobolSourceFile("NC176A.COB",2413,20)
//PERFORM FAIL
doCobolPerform(fail,null);
//@CobolSourceFile("NC176A.COB",2414,20)
//PERFORM PRINT-DETAIL
doCobolPerform(printDetail,null);
}
return doCobolExit();
}
};
Section ccvsExit=new Section(this) ;
Paragraph ccvs999999=new
Paragraph(this,ccvsExit) {
public CobolMethod run() {
//*
//@CobolSourceFile("NC176A.COB",2418,12)
//GO TO CLOSE-FILES
return closeFiles;
}
};
public Nc176a() {
super(new CobolBytes(356));
}
public void initialize() {
__42Datanames.initialize();
setSizeErr(" ");
setSizeErr2(" ");
setSizeErr3(" ");
setSizeErr4(" ");
setA18twosDs18v00(222222222222222222L);
setA18onesDs18v00(111111111111111111L);
setA17twosDs17v00(22222222222222222L);
setA10onesDs10v00(1111111111);
setA05onesDs05v00(11111);
setA02onesDs02v00(11);
setA06threesDs03v03(new
BigDecimal(333.333));
setA12threesDs06v06(new
BigDecimal(333333.333333));
setA18onesCs18v00(111111111111111111L);
setA99Cs02v00(99);
setWrkDu1v11(new BigDecimal(1.1));
setWrkDu1v12(new BigDecimal(2.4));
setA14twosCs18v00(-22222222222222L);
setA18fivesCs18v00(-555555555555555555L);
setA18sixesCs18v00(666666666666666666L);
setA12sevensCu18v00(777777777777L);
setWrkDu18v00(0);
setN5(new BigDecimal(1.00));
setN7(new BigDecimal(1.0000));
setN10(new BigDecimal(-1));
setN11(9);
setN12(9);
setN13(99999);
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(" ");
ccvsH1.initialize();
ccvsH2a.initialize();
ccvsH2b.initialize();
ccvsH3.initialize();
ccvsE1.initialize();
ccvsE2.initialize();
ccvsE3.initialize();
ccvsE4.initialize();
xxinfo.initialize();
hyphenLine.initialize();
setCcvsPgmId("NC176A");
}
}