package testpackage;

/************************************************************************

 ** RES generated this file from Cobol program SM201A in source file SM201A.COB

 ** Generated at time 01:16:21.54 on Thursday, 03/25/10

 ************************************************************************/

import testpackage.sm201a.TstTest;

import testpackage.sm201a.TextTest1;

import testpackage.sm201a.Wstr1;

import testpackage.sm201a.Wstr2;

import testpackage.sm201a.Wstr3;

import testpackage.sm201a.Wstr4;

import testpackage.sm201a.Wstr5;

import testpackage.sm201a.TestResults;

import testpackage.sm201a.TestComputed;

import testpackage.sm201a.TestCorrect;

import testpackage.sm201a.CcvsC1;

import testpackage.sm201a.CcvsC2;

import testpackage.sm201a.CcvsH1;

import testpackage.sm201a.CcvsH2a;

import testpackage.sm201a.CcvsH2b;

import testpackage.sm201a.CcvsH3;

import testpackage.sm201a.CcvsE1;

import testpackage.sm201a.CcvsE2;

import testpackage.sm201a.CcvsE3;

import testpackage.sm201a.CcvsE4;

import testpackage.sm201a.Xxinfo;

import testpackage.sm201a.HyphenLine;

import com.res.java.lib.*;

import java.math.BigDecimal;

 

@SuppressWarnings("unused")

public class Sm201a extends Program {

 

      //**************************************************************** 

      //*    VALIDATION FOR:-                                          * 

      //*    "ON-SITE VALIDATION, NATIONAL INSTITUTE OF STD & TECH.     ".

      //*    "COBOL 85 VERSION 4.2, Apr  1993 SSVG                      ".

      //**************************************************************** 

      //*      X-CARDS USED BY THIS PROGRAM ARE :-                     * 

      //*        X-55  - SYSTEM PRINTER NAME.                          * 

      //*        X-83  - OBJECT COMPUTER NAME.                         * 

      //**************************************************************** 

      //*    PROGRAM SM201A TESTS THE "REPLACING" PHRASE OF THE "COPY" * 

      //*    PROCEDURE DIVISION AND PRODUCES A SEQUENTIAL OUTPUT FILE  * 

      //*    SM202A.                                                   * 

      //**************************************************************** 

      //@CobolSourceFile("SM201A.COB",43,8)

      //01  PRINT-REC PICTURE X(120).

    

      public String getPrintRec() {

            return super.toString(0,120);

      }

      public  void setPrintRec(String val) {

            super.valueOf(0,120,val);

      }

      //*                                                              * 

      //*                                                              * 

      //*                                                              * 

      //*        X-82  - SOURCE COMPUTER NAME.                         * 

      //*                                                              * 

      //*    USING "COPY"ED CODE, WHICH IS SUBSEQUENTLY CHECKED BY     * 

      //@CobolSourceFile("SM201A.COB",44,8)

      //01  DUMMY-RECORD PICTURE X(120).

 

      public String getDummyRecord() {

            return super.toString(0,120);

      }

      public  void setDummyRecord(String val) {

            super.valueOf(0,120,val);

      }

      private CobolFile printFile = new CobolFile(__normalizeLiteral("XXXXX055"),120);

      //*                                                              * 

      //*                                                              * 

      //*    STATEMENT IN THE WORKING-STORAGE SECTION AND              * 

      //*                                                                

      //*                                                                

      //*             REPLACING                                          

      //*                                                                 

      //*FD  TEST-FILE                                         COPY K1FDA

      //*             PROOF-REC BY TST-TEST.

      //*    XXXXX074                                                    

      //*    XXXXX075                                                     

      //*********************** END OF COPIED TEXT ***********************

      //*********************** COPY STATEMENT USED **********************

      //*01  TST-TEST                                          COPY K101A

      //*                       TST-FLD-1 BY TF-1.                       

      //******************** COPIED TEXT BEGINS BELOW ********************

      //@CobolSourceFile("SM201A.COB",73,8)

      //01  TST-TEST.

  

      private TstTest tstTest = new TstTest();

      public byte[] getTstTest() {

            return tstTest.getBytes();

      }

      public void setTstTest(byte[] val) {

            tstTest.valueOf(val);

      }

      private CobolFile testFile = new CobolFile(__normalizeLiteral("XXXXP001"),120);

      //*                                                              * 

      //*                                                              * 

      //*FD  TEST-FILE                                         COPY K1FDA

      //******************** COPIED TEXT BEGINS BELOW ********************

      //*    VALUE OF                                                     

      //*    XXXXX069                                                    

      //*                                                                

      //*                                                                

      //*             REPLACING

      //*********************** END OF COPIED TEXT ***********************

      //@CobolSourceFile("SM201A.COB",77,8)

      //77  RCD-1 PICTURE 9(5) VALUE 97532.

    

      private int rcd1;

      public int getRcd1() {

            return rcd1;

      }

      public  void setRcd1(int val) {

            rcd1=(int) super.normalizeBinary(val,5,false);

      }

      //*                                                              * 

      //*             PROOF-REC BY TST-TEST.                             

      //*    IS                                                           

      //*             REPLACING                                          

      //*                       TST-FLD-1 BY TF-1.

      //@CobolSourceFile("SM201A.COB",78,8)

      //77  RCD-2 PICTURE 9(5) VALUE 23479.

    

      private int rcd2;

      public int getRcd2() {

            return rcd2;

      }

      public  void setRcd2(int val) {

            rcd2=(int) super.normalizeBinary(val,5,false);

      }

      //*********************** COPY STATEMENT USED **********************

      //*                                                                 

      //@CobolSourceFile("SM201A.COB",79,8)

      //77  RCD-3 PICTURE 9(5) VALUE 10901.

    

      private int rcd3;

      public int getRcd3() {

            return rcd3;

      }

      public  void setRcd3(int val) {

            rcd3=(int) super.normalizeBinary(val,5,false);

      }

      //*             REPLACING

      //@CobolSourceFile("SM201A.COB",80,8)

      //77  RCD-4 PICTURE 9(5) VALUE 02734.

    

      private int rcd4;

      public int getRcd4() {

            return rcd4;

      }

      public  void setRcd4(int val) {

            rcd4=(int) super.normalizeBinary(val,5,false);

      }

      //*01  TST-TEST                                          COPY K101A

      //@CobolSourceFile("SM201A.COB",81,8)

      //77  RCD-5 PICTURE 9(5) VALUE 14003.

    

      private int rcd5;

      public int getRcd5() {

            return rcd5;

      }

      public  void setRcd5(int val) {

            rcd5=(int) super.normalizeBinary(val,5,false);

      }

      //@CobolSourceFile("SM201A.COB",82,8)

      //77  RCD-6 PICTURE 9(5) VALUE 19922.

    

      private int rcd6;

      public int getRcd6() {

            return rcd6;

      }

      public  void setRcd6(int val) {

            rcd6=(int) super.normalizeBinary(val,5,false);

      }

      //@CobolSourceFile("SM201A.COB",83,8)

      //77  RCD-7 PICTURE 9(5) VALUE 03543.

    

      private int rcd7;

      public int getRcd7() {

            return rcd7;

      }

      public  void setRcd7(int val) {

            rcd7=(int) super.normalizeBinary(val,5,false);

      }

      //*                                                                

      //*                                                                

      //*            REPLACING ==02 TST-FLD-1  PICTURE 9(5). 02 FILLER   

      //*            BY        ==02 FILLER PICTURE X(115).  02 TXT-FLD-1 

      //*                                                                

      //@CobolSourceFile("SM201A.COB",94,8)

      //01  TEXT-TEST-1.

     

      private TextTest1 textTest1 = new TextTest1();

      public byte[] getTextTest1() {

            return textTest1.getBytes();

      }

      public void setTextTest1(byte[] val) {

            textTest1.valueOf(val);

      }

      //*********************** COPY STATEMENT USED **********************

      //*                      PICTURE X(115)==                          

      //******************** COPIED TEXT BEGINS BELOW ********************

      //*            REPLACING ==02 TST-FLD-1  PICTURE 9(5). 02 FILLER

      //@CobolSourceFile("SM201A.COB",97,8)

      //01  WSTR-1.

    

      private Wstr1 wstr1 = new Wstr1();

      public byte[] getWstr1() {

            return wstr1.getBytes();

      }

      public void setWstr1(byte[] val) {

            wstr1.valueOf(val);

      }

      //*                      PIC 9(5)==.                               

      //*                      PIC 9(5)==.

      //@CobolSourceFile("SM201A.COB",104,8)

      //01  WSTR-2.

    

      private Wstr2 wstr2 = new Wstr2();

      public byte[] getWstr2() {

            return wstr2.getBytes();

      }

      public void setWstr2(byte[] val) {

            wstr2.valueOf(val);

      }

      //*                      PICTURE X(115)==

      //*********************** COPY STATEMENT USED **********************

      //*                                                      COPY K1WKA

      //*                                                                

      //*                                                      COPY K1WKA

      //*********************** END OF COPIED TEXT ***********************

      //@CobolSourceFile("SM201A.COB",120,8)

      //01  WSTR-3.

    

      private Wstr3 wstr3 = new Wstr3();

      public byte[] getWstr3() {

            return wstr3.getBytes();

      }

      public void setWstr3(byte[] val) {

            wstr3.valueOf(val);

      }

      //*                                                                

      //*             REPLACING WSTR-2A BY WSTR999.                      

      //*             REPLACING WSTR-2A BY WSTR999.

      //*********************** COPY STATEMENT USED **********************

      //*                                                      COPY K1WKA.

      //******************** COPIED TEXT BEGINS BELOW ********************

      //*********************** END OF COPIED TEXT ***********************

      //*********************** COPY STATEMENT USED **********************

      //*01  WSTR-4.                                           COPY K1WKB

      //*                       WSTR4B BY WSTR92                         

      //*                                                                 

      //@CobolSourceFile("SM201A.COB",144,8)

      //01  WSTR-4.                                         

    

      private Wstr4 wstr4 = new Wstr4();

      public byte[] getWstr4() {

            return wstr4.getBytes();

      }

      public void setWstr4(byte[] val) {

            wstr4.valueOf(val);

      }

      //*                                                                

      //*                                                                

      //*                                                                

      //*                                                                 

      //*             REPLACING WSTR4A BY WSTR91                         

      //******************** COPIED TEXT BEGINS BELOW ********************

      //*             REPLACING WSTR4A BY WSTR91

      //*                       WSTR4C BYWSTR4C BY WSTR93.

      //*                                                                

      //*                                                                

      //*                                                                

      //@CobolSourceFile("SM201A.COB",158,8)

      //01  WSTR-5.                                         

    

      private Wstr5 wstr5 = new Wstr5();

      public byte[] getWstr5() {

            return wstr5.getBytes();

      }

      public void setWstr5(byte[] val) {

            wstr5.valueOf(val);

      }

      //******************** COPIED TEXT BEGINS BELOW ********************

      //*1WKA.

      //*                       WSTR4C BY WSTR93.                        

      //*                       WSTR4B BY WSTR92

      //*********************** COPY STATEMENT USED **********************

      //******************** COPIED TEXT BEGINS BELOW ********************

      //*********************** END OF COPIED TEXT ***********************

      //@CobolSourceFile("SM201A.COB",161,8)

      //01  TEST-RESULTS.

    

      private TestResults testResults = new TestResults();

      public byte[] getTestResults() {

            return testResults.getBytes();

      }

      public void setTestResults(byte[] val) {

            testResults.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",173,8)

      //01  TEST-COMPUTED.

   

      private TestComputed testComputed = new TestComputed();

      public byte[] getTestComputed() {

            return testComputed.getBytes();

      }

      public void setTestComputed(byte[] val) {

            testComputed.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",188,8)

      //01  TEST-CORRECT.

    

      private TestCorrect testCorrect = new TestCorrect();

      public byte[] getTestCorrect() {

            return testCorrect.getBytes();

      }

      public void setTestCorrect(byte[] val) {

            testCorrect.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",202,8)

      //01  CCVS-C-1.

  

      private CcvsC1 ccvsC1 = new CcvsC1();

      public byte[] getCcvsC1() {

            return ccvsC1.getBytes();

      }

      public void setCcvsC1(byte[] val) {

            ccvsC1.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",208,8)

      //01  CCVS-C-2.

  

      private CcvsC2 ccvsC2 = new CcvsC2();

      public byte[] getCcvsC2() {

            return ccvsC2.getBytes();

      }

      public void setCcvsC2(byte[] val) {

            ccvsC2.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",215,8)

      //01  REC-CT                        PIC 99       VALUE ZERO.

     

      private int recCt;

      public int getRecCt() {

            return recCt;

      }

      public  void setRecCt(int val) {

            recCt=(int) super.normalizeBinary(val,2,false);

      }

      //@CobolSourceFile("SM201A.COB",216,8)

      //01  DELETE-COUNTER                PIC 999      VALUE ZERO.

     

      private int deleteCounter;

      public int getDeleteCounter() {

            return deleteCounter;

      }

      public  void setDeleteCounter(int val) {

            deleteCounter=(int) super.normalizeBinary(val,3,false);

      }

      public static final FieldFormat deleteCounterFmt_ = new FieldFormat("deleteCounter","999");

      //@CobolSourceFile("SM201A.COB",217,8)

      //01  ERROR-COUNTER                 PIC 999      VALUE ZERO.

     

      private int errorCounter;

      public int getErrorCounter() {

            return errorCounter;

      }

      public  void setErrorCounter(int val) {

            errorCounter=(int) super.normalizeBinary(val,3,false);

      }

      public static final FieldFormat errorCounterFmt_ = new FieldFormat("errorCounter","999");

      //@CobolSourceFile("SM201A.COB",218,8)

      //01  INSPECT-COUNTER               PIC 999      VALUE ZERO.

     

      private int inspectCounter;

      public int getInspectCounter() {

            return inspectCounter;

      }

      public  void setInspectCounter(int val) {

            inspectCounter=(int) super.normalizeBinary(val,3,false);

      }

      public static final FieldFormat inspectCounterFmt_ = new FieldFormat("inspectCounter","999");

      //@CobolSourceFile("SM201A.COB",219,8)

      //01  PASS-COUNTER                  PIC 999      VALUE ZERO.

     

      private int passCounter;

      public int getPassCounter() {

            return passCounter;

      }

      public  void setPassCounter(int val) {

            passCounter=(int) super.normalizeBinary(val,3,false);

      }

      public static final FieldFormat passCounterFmt_ = new FieldFormat("passCounter","999");

      //@CobolSourceFile("SM201A.COB",221,8)

      //01  ERROR-HOLD                    PIC 999      VALUE ZERO.

     

      private int errorHold;

      public int getErrorHold() {

            return errorHold;

      }

      public  void setErrorHold(int val) {

            errorHold=(int) super.normalizeBinary(val,3,false);

      }

      public static final FieldFormat errorHoldFmt_ = new FieldFormat("errorHold","999");

      //@CobolSourceFile("SM201A.COB",223,8)

      //01  RECORD-COUNT                  PIC 9(5)     VALUE ZERO.

     

      private int recordCount;

      public int getRecordCount() {

            return recordCount;

      }

      public  void setRecordCount(int val) {

            recordCount=(int) super.normalizeBinary(val,5,false);

      }

      //@CobolSourceFile("SM201A.COB",224,8)

      //01  ANSI-REFERENCE                PIC X(48)    VALUE SPACES.

   

      private String ansiReference= new String();

      public String getAnsiReference() {

            return ansiReference;

      }

      public  void setAnsiReference(String val) {

            ansiReference=super.normalizeString(val,48);

      }

      //@CobolSourceFile("SM201A.COB",225,8)

      //01  CCVS-H-1.

  

      private CcvsH1 ccvsH1 = new CcvsH1();

      public byte[] getCcvsH1() {

            return ccvsH1.getBytes();

      }

      public void setCcvsH1(byte[] val) {

            ccvsH1.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",230,8)

      //01  CCVS-H-2A.

 

      private CcvsH2a ccvsH2a = new CcvsH2a();

      public byte[] getCcvsH2a() {

            return ccvsH2a.getBytes();

      }

      public void setCcvsH2a(byte[] val) {

            ccvsH2a.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",239,8)

      //01  CCVS-H-2B.

 

      private CcvsH2b ccvsH2b = new CcvsH2b();

      public byte[] getCcvsH2b() {

            return ccvsH2b.getBytes();

      }

      public void setCcvsH2b(byte[] val) {

            ccvsH2b.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",251,8)

      //01  CCVS-H-3.

  

      private CcvsH3 ccvsH3 = new CcvsH3();

      public byte[] getCcvsH3() {

            return ccvsH3.getBytes();

      }

      public void setCcvsH3(byte[] val) {

            ccvsH3.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",258,8)

      //01  CCVS-E-1.

  

      private CcvsE1 ccvsE1 = new CcvsE1();

      public byte[] getCcvsE1() {

            return ccvsE1.getBytes();

      }

      public void setCcvsE1(byte[] val) {

            ccvsE1.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",263,8)

      //01  CCVS-E-2.

  

      private CcvsE2 ccvsE2 = new CcvsE2();

      public byte[] getCcvsE2() {

            return ccvsE2.getBytes();

      }

      public void setCcvsE2(byte[] val) {

            ccvsE2.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",271,8)

      //01  CCVS-E-3.

  

      private CcvsE3 ccvsE3 = new CcvsE3();

      public byte[] getCcvsE3() {

            return ccvsE3.getBytes();

      }

      public void setCcvsE3(byte[] val) {

            ccvsE3.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",280,8)

      //01  CCVS-E-4.

  

      private CcvsE4 ccvsE4 = new CcvsE4();

      public byte[] getCcvsE4() {

            return ccvsE4.getBytes();

      }

      public void setCcvsE4(byte[] val) {

            ccvsE4.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",286,8)

      //01  XXINFO.

    

      private Xxinfo xxinfo = new Xxinfo();

      public byte[] getXxinfo() {

            return xxinfo.getBytes();

      }

      public void setXxinfo(byte[] val) {

            xxinfo.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",295,8)

      //01  HYPHEN-LINE.

     

      private HyphenLine hyphenLine = new HyphenLine();

      public byte[] getHyphenLine() {

            return hyphenLine.getBytes();

      }

      public void setHyphenLine(byte[] val) {

            hyphenLine.valueOf(val);

      }

      //@CobolSourceFile("SM201A.COB",303,8)

      //01  CCVS-PGM-ID                     PIC X(9)   VALUE     

      //    "SM201A".

  

      private String ccvsPgmId= new String();

      public String getCcvsPgmId() {

            return ccvsPgmId;

      }

      public  void setCcvsPgmId(String val) {

            ccvsPgmId=super.normalizeString(val,9);

      }

      public static void main(String[] args) {

            Sm201a instance_ = new Sm201a();

            instance_.execute(); System.exit(0);

      }

      public void execute() {

            initialize();

            doCobolGotoStart();

      }

      Section ccvs1=new Section(this) ;

      Paragraph openFiles=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",308,12)

            //OPEN     OUTPUT PRINT-FILE       

            inError=false;

            try {

                  printFile.openOutput();

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",309,12)

            //MOVE CCVS-PGM-ID TO TEST-ID      

            ccvsH2b.setTestId(getCcvsPgmId());

            //@CobolSourceFile("SM201A.COB",309,41)

            //MOVE CCVS-PGM-ID TO ID-AGAIN           

            ccvsE1.setIdAgain(getCcvsPgmId());

            //@CobolSourceFile("SM201A.COB",310,12)

            //MOVE    SPACE TO TEST-RESULTS          

            setTestResults(__normalizeLiteral(" ").getBytes());

            //@CobolSourceFile("SM201A.COB",311,12)

            //PERFORM  HEAD-ROUTINE THRU COLUMN-NAMES-ROUTINE          

            doCobolPerform(headRoutine,columnNamesRoutine);

            //@CobolSourceFile("SM201A.COB",312,12)

            //GO TO CCVS1-EXIT           

            return ccvs1Exit;

            }

      };

      Paragraph closeFiles=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",314,12)

            //PERFORM END-ROUTINE THRU END-ROUTINE-13      

            doCobolPerform(endRoutine,endRoutine13);

            //@CobolSourceFile("SM201A.COB",314,53)

            //CLOSE PRINT-FILE           

            inError=false;

            try {

                  printFile.close();

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            return doCobolExit();

            }

      };

      Paragraph terminateCcvs=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //*    EXIT PROGRAM.                                               

            //@CobolSourceFile("SM201A.COB",318,12)

            //STOP     RUN         

            System.exit(0);

            return doCobolExit();

            }

      };

      Paragraph inspt=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //*TERMINATE-CALL.                                                 

            //@CobolSourceFile("SM201A.COB",319,15)

            //MOVE "INSPT" TO P-OR-F           

            testResults.setPOrF(__normalizeLiteral("INSPT"));

            //@CobolSourceFile("SM201A.COB",319,39)

            //ADD 1 TO INSPECT-COUNTER         

            setInspectCounter(_Math.add(1,getInspectCounter()));

            return doCobolExit();

            }

      };

      Paragraph pass=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",320,15)

            //MOVE "PASS " TO P-OR-F           

            testResults.setPOrF(__normalizeLiteral("PASS "));

            //@CobolSourceFile("SM201A.COB",320,40)

            //ADD 1 TO PASS-COUNTER      

            setPassCounter(_Math.add(1,getPassCounter()));

            return doCobolExit();

            }

      };

      Paragraph fail=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",321,15)

            //MOVE "FAIL*" TO P-OR-F           

            testResults.setPOrF(__normalizeLiteral("FAIL*"));

            //@CobolSourceFile("SM201A.COB",321,40)

            //ADD 1 TO ERROR-COUNTER           

            setErrorCounter(_Math.add(1,getErrorCounter()));

            return doCobolExit();

            }

      };

      Paragraph deLete=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",322,18)

            //MOVE "*****" TO P-OR-F           

            testResults.setPOrF(__normalizeLiteral("*****"));

            //@CobolSourceFile("SM201A.COB",322,43)

            //ADD 1 TO DELETE-COUNTER          

            setDeleteCounter(_Math.add(1,getDeleteCounter()));

            //@CobolSourceFile("SM201A.COB",323,12)

            //MOVE "****TEST DELETED****" TO RE-MARK       

            testResults.setReMark(__normalizeLiteral("****TEST DELETED****"));

            return doCobolExit();

            }

      };

      Paragraph printDetail=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",325,12)

            //IF REC-CT NOT EQUAL TO ZERO      

            if(getRecCt() != 0) {

                  //@CobolSourceFile("SM201A.COB",326,20)

                  //MOVE "." TO PARDOT-X             

                  testResults.setPardotX(__normalizeLiteral("."));

                  //@CobolSourceFile("SM201A.COB",327,20)

                  //MOVE REC-CT TO DOTVALUE                

                  testResults.setDotvalue(getRecCt());

            }

            //@CobolSourceFile("SM201A.COB",328,12)

            //MOVE     TEST-RESULTS TO PRINT-REC           

            setPrintRec(new String(getTestResults()));

            //@CobolSourceFile("SM201A.COB",328,48)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            //@CobolSourceFile("SM201A.COB",329,12)

            //IF P-OR-F EQUAL TO "FAIL*"       

            //     ELSE      

            if(compare(testResults.getPOrF(),__normalizeLiteral("FAIL*")) == 0) {

                  //@CobolSourceFile("SM201A.COB",329,40)

                  //PERFORM WRITE-LINE               

                  doCobolPerform(writeLine,null);

                  //@CobolSourceFile("SM201A.COB",330,15)

                  //PERFORM FAIL-ROUTINE THRU FAIL-ROUTINE-EX                

                  doCobolPerform(failRoutine,failRoutineEx);

            } else {

                  //@CobolSourceFile("SM201A.COB",331,22)

                  //PERFORM BAIL-OUT THRU BAIL-OUT-EX            

                  doCobolPerform(bailOut,bailOutEx);

            }

            //@CobolSourceFile("SM201A.COB",332,12)

            //MOVE SPACE TO P-OR-F       

            testResults.setPOrF(__normalizeLiteral(" "));

            //@CobolSourceFile("SM201A.COB",332,34)

            //MOVE SPACE TO COMPUTED-X         

            testComputed.setComputedX(__normalizeLiteral(" ").getBytes());

            //@CobolSourceFile("SM201A.COB",333,12)

            //MOVE SPACE TO CORRECT-X          

            testCorrect.setCorrectX(__normalizeLiteral(" ").getBytes());

            //@CobolSourceFile("SM201A.COB",334,12)

            //IF     REC-CT EQUAL TO ZERO      

            if(getRecCt() == 0) {

                  //@CobolSourceFile("SM201A.COB",334,41)

                  //MOVE SPACE TO PAR-NAME                 

                  testResults.setParName(__normalizeLiteral(" ").getBytes());

            }

            //@CobolSourceFile("SM201A.COB",335,12)

            //MOVE     SPACE TO RE-MARK        

            testResults.setReMark(__normalizeLiteral(" "));

            return doCobolExit();

            }

      };

      Paragraph headRoutine=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",337,12)

            //MOVE CCVS-H-1  TO DUMMY-RECORD         

            setDummyRecord(new String(getCcvsH1()));

            //@CobolSourceFile("SM201A.COB",337,44)

            //PERFORM WRITE-LINE 2 TIMES       

            for(int i0=0;i0<2;++i0) {

                  doCobolPerform(writeLine,null);

            }

            //@CobolSourceFile("SM201A.COB",338,12)

            //MOVE CCVS-H-2A TO DUMMY-RECORD         

            setDummyRecord(new String(getCcvsH2a()));

            //@CobolSourceFile("SM201A.COB",338,44)

            //PERFORM WRITE-LINE 2 TIMES       

            for(int i1=0;i1<2;++i1) {

                  doCobolPerform(writeLine,null);

            }

            //@CobolSourceFile("SM201A.COB",339,12)

            //MOVE CCVS-H-2B TO DUMMY-RECORD         

            setDummyRecord(new String(getCcvsH2b()));

            //@CobolSourceFile("SM201A.COB",339,44)

            //PERFORM WRITE-LINE 3 TIMES       

            for(int i2=0;i2<3;++i2) {

                  doCobolPerform(writeLine,null);

            }

            //@CobolSourceFile("SM201A.COB",340,12)

            //MOVE CCVS-H-3  TO DUMMY-RECORD         

            setDummyRecord(new String(getCcvsH3()));

            //@CobolSourceFile("SM201A.COB",340,44)

            //PERFORM WRITE-LINE 3 TIMES       

            for(int i3=0;i3<3;++i3) {

                  doCobolPerform(writeLine,null);

            }

            return doCobolExit();

            }

      };

      Paragraph columnNamesRoutine=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",342,12)

            //MOVE CCVS-C-1 TO DUMMY-RECORD          

            setDummyRecord(new String(getCcvsC1()));

            //@CobolSourceFile("SM201A.COB",342,43)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            //@CobolSourceFile("SM201A.COB",343,12)

            //MOVE CCVS-C-2 TO DUMMY-RECORD          

            setDummyRecord(new String(getCcvsC2()));

            //@CobolSourceFile("SM201A.COB",343,43)

            //PERFORM WRITE-LINE 2 TIMES       

            for(int i4=0;i4<2;++i4) {

                  doCobolPerform(writeLine,null);

            }

            //@CobolSourceFile("SM201A.COB",344,12)

            //MOVE HYPHEN-LINE TO DUMMY-RECORD       

            setDummyRecord(new String(getHyphenLine()));

            //@CobolSourceFile("SM201A.COB",344,46)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            return doCobolExit();

            }

      };

      Paragraph endRoutine=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",346,12)

            //MOVE HYPHEN-LINE TO DUMMY-RECORD       

            setDummyRecord(new String(getHyphenLine()));

            //@CobolSourceFile("SM201A.COB",346,46)

            //PERFORM WRITE-LINE 5 TIMES       

            for(int i5=0;i5<5;++i5) {

                  doCobolPerform(writeLine,null);

            }

            return doCobolExit();

            }

      };

      Paragraph endRtnExit=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",348,12)

            //MOVE CCVS-E-1 TO DUMMY-RECORD          

            setDummyRecord(new String(getCcvsE1()));

            //@CobolSourceFile("SM201A.COB",348,43)

            //PERFORM WRITE-LINE 2 TIMES       

            for(int i6=0;i6<2;++i6) {

                  doCobolPerform(writeLine,null);

            }

            return doCobolExit();

            }

      };

      Paragraph endRoutine1=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",350,13)

            //ADD ERROR-COUNTER TO ERROR-HOLD        

            setErrorHold(_Math.add(getErrorCounter(),getErrorHold()));

            //@CobolSourceFile("SM201A.COB",350,45)

            //ADD INSPECT-COUNTER TO           

            //ERROR-HOLD           

            setErrorHold(_Math.add(getInspectCounter(),getErrorHold()));

            //@CobolSourceFile("SM201A.COB",351,25)

            //ADD DELETE-COUNTER TO ERROR-HOLD       

            setErrorHold(_Math.add(getDeleteCounter(),getErrorHold()));

            //@CobolSourceFile("SM201A.COB",352,13)

            //ADD PASS-COUNTER TO ERROR-HOLD         

            setErrorHold(_Math.add(getPassCounter(),getErrorHold()));

            //*     IF PASS-COUNTER EQUAL TO ERROR-HOLD GO TO END-ROUTINE-12.  

            //@CobolSourceFile("SM201A.COB",354,13)

            //MOVE PASS-COUNTER TO CCVS-E-4-1        

            ccvsE4.setCcvsE41(passCounterFmt_.format(getPassCounter()));

            //@CobolSourceFile("SM201A.COB",355,13)

            //MOVE ERROR-HOLD TO CCVS-E-4-2          

            ccvsE4.setCcvsE42(errorHoldFmt_.format(getErrorHold()));

            //@CobolSourceFile("SM201A.COB",356,13)

            //MOVE CCVS-E-4 TO CCVS-E-2-2      

            ccvsE2.setCcvsE22(getCcvsE4());

            //@CobolSourceFile("SM201A.COB",357,13)

            //MOVE CCVS-E-2 TO DUMMY-RECORD          

            setDummyRecord(new String(getCcvsE2()));

            //@CobolSourceFile("SM201A.COB",357,43)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            return doCobolExit();

            }

      };

      Paragraph endRoutine12=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",359,13)

            //MOVE "TEST(S) FAILED" TO ENDER-DESC          

            ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S) FAILED"));

            //@CobolSourceFile("SM201A.COB",360,12)

            //IF       ERROR-COUNTER IS EQUAL TO ZERO      

            //    ELSE       

            if(getErrorCounter() == 0) {

                  //@CobolSourceFile("SM201A.COB",361,16)

                  //MOVE "NO " TO ERROR-TOTAL              

                  ccvsE2.setErrorTotal(__normalizeLiteral("NO "));

            } else {

                  //@CobolSourceFile("SM201A.COB",363,16)

                  //MOVE ERROR-COUNTER TO ERROR-TOTAL            

                  ccvsE2.setErrorTotal(errorCounterFmt_.format(getErrorCounter()));

            }

            //@CobolSourceFile("SM201A.COB",364,12)

            //MOVE     CCVS-E-2 TO DUMMY-RECORD      

            setDummyRecord(new String(getCcvsE2()));

            //@CobolSourceFile("SM201A.COB",365,12)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            return doCobolExit();

            }

      };

      Paragraph endRoutine13=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",367,12)

            //IF DELETE-COUNTER IS EQUAL TO ZERO           

            //                               ELSE          

            if(getDeleteCounter() == 0) {

                  //@CobolSourceFile("SM201A.COB",368,16)

                  //MOVE "NO " TO ERROR-TOTAL              

                  ccvsE2.setErrorTotal(__normalizeLiteral("NO "));

            } else {

                  //@CobolSourceFile("SM201A.COB",369,16)

                  //MOVE DELETE-COUNTER TO ERROR-TOTAL                 

                  ccvsE2.setErrorTotal(deleteCounterFmt_.format(getDeleteCounter()));

            }

            //@CobolSourceFile("SM201A.COB",370,12)

            //MOVE "TEST(S) DELETED     " TO ENDER-DESC          

            ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S) DELETED     "));

            //@CobolSourceFile("SM201A.COB",371,12)

            //MOVE CCVS-E-2 TO DUMMY-RECORD          

            setDummyRecord(new String(getCcvsE2()));

            //@CobolSourceFile("SM201A.COB",371,43)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            //@CobolSourceFile("SM201A.COB",372,13)

            //IF   INSPECT-COUNTER EQUAL TO ZERO           

            //ELSE           

            if(getInspectCounter() == 0) {

                  //@CobolSourceFile("SM201A.COB",373,17)

                  //MOVE "NO " TO ERROR-TOTAL              

                  ccvsE2.setErrorTotal(__normalizeLiteral("NO "));

            } else {

                  //@CobolSourceFile("SM201A.COB",374,18)

                  //MOVE INSPECT-COUNTER TO ERROR-TOTAL                

                  ccvsE2.setErrorTotal(inspectCounterFmt_.format(getInspectCounter()));

            }

            //@CobolSourceFile("SM201A.COB",375,13)

            //MOVE "TEST(S) REQUIRE INSPECTION" TO ENDER-DESC          

            ccvsE2.setEnderDesc(__normalizeLiteral("TEST(S) REQUIRE INSPECTION"));

            //@CobolSourceFile("SM201A.COB",376,13)

            //MOVE CCVS-E-2 TO DUMMY-RECORD          

            setDummyRecord(new String(getCcvsE2()));

            //@CobolSourceFile("SM201A.COB",376,44)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            //@CobolSourceFile("SM201A.COB",377,12)

            //MOVE CCVS-E-3 TO DUMMY-RECORD          

            setDummyRecord(new String(getCcvsE3()));

            //@CobolSourceFile("SM201A.COB",377,43)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            return doCobolExit();

            }

      };

      Paragraph writeLine=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",379,12)

            //ADD 1 TO RECORD-COUNT      

            setRecordCount(_Math.add(1,getRecordCount()));

            //*    IF RECORD-COUNT GREATER 50                                  

            //*        MOVE SPACE TO DUMMY-RECORD                              

            //*        MOVE CCVS-C-1 TO DUMMY-RECORD PERFORM WRT-LN            

            //*        MOVE HYPHEN-LINE TO DUMMY-RECORD PERFORM WRT-LN         

            //*        MOVE ZERO TO RECORD-COUNT.                              

            //@CobolSourceFile("SM201A.COB",389,12)

            //PERFORM WRT-LN       

            doCobolPerform(wrtLn,null);

            return doCobolExit();

            }

      };

      Paragraph wrtLn=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //*        MOVE DUMMY-RECORD TO DUMMY-HOLD                         

            //*        MOVE CCVS-C-2 TO DUMMY-RECORD PERFORM WRT-LN 2 TIMES    

            //@CobolSourceFile("SM201A.COB",391,12)

            //WRITE    DUMMY-RECORD AFTER ADVANCING 1 LINES      

            inError=false;

            try {

                  printFile.write(getDummyRecord().getBytes());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //*        WRITE DUMMY-RECORD AFTER ADVANCING PAGE                 

            //@CobolSourceFile("SM201A.COB",392,12)

            //MOVE SPACE TO DUMMY-RECORD       

            setDummyRecord(__normalizeLiteral(" "));

            return doCobolExit();

            }

      };

      Paragraph blankLinePrint=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //*        MOVE DUMMY-HOLD TO DUMMY-RECORD                         

            //@CobolSourceFile("SM201A.COB",394,12)

            //PERFORM WRT-LN       

            doCobolPerform(wrtLn,null);

            return doCobolExit();

            }

      };

      Paragraph failRoutine=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",396,12)

            //IF   COMPUTED-X NOT EQUAL TO SPACE           

            if(compare(testComputed.getComputedX(),__normalizeLiteral(" ")) !=0) {

                  //@CobolSourceFile("SM201A.COB",396,47)

                  //GO TO FAIL-ROUTINE-WRITE               

                  return failRoutineWrite;

            }

            //@CobolSourceFile("SM201A.COB",397,12)

            //IF     CORRECT-X NOT EQUAL TO SPACE          

            if(compare(testCorrect.getCorrectX(),__normalizeLiteral(" ")) !=0) {

                  //@CobolSourceFile("SM201A.COB",397,48)

                  //GO TO FAIL-ROUTINE-WRITE               

                  return failRoutineWrite;

            }

            //@CobolSourceFile("SM201A.COB",398,12)

            //MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE        

            xxinfo.setInfAnsiReference(getAnsiReference());

            //@CobolSourceFile("SM201A.COB",399,12)

            //MOVE  "NO FURTHER INFORMATION, SEE PROGRAM." TO INFO-TEXT      

            xxinfo.setInfoText(__normalizeLiteral("NO FURTHER INFORMATION, SEE PROGRAM.").getBytes());

            //@CobolSourceFile("SM201A.COB",400,12)

            //MOVE   XXINFO TO DUMMY-RECORD          

            setDummyRecord(new String(getXxinfo()));

            //@CobolSourceFile("SM201A.COB",400,43)

            //PERFORM WRITE-LINE 2 TIMES       

            for(int i7=0;i7<2;++i7) {

                  doCobolPerform(writeLine,null);

            }

            //@CobolSourceFile("SM201A.COB",401,12)

            //MOVE   SPACES TO INF-ANSI-REFERENCE          

            xxinfo.setInfAnsiReference(__normalizeLiteral(" "));

            //@CobolSourceFile("SM201A.COB",402,12)

            //GO TO  FAIL-ROUTINE-EX           

            return failRoutineEx;

            }

      };

      Paragraph failRoutineWrite=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",404,12)

            //MOVE   TEST-COMPUTED TO PRINT-REC      

            setPrintRec(new String(getTestComputed()));

            //@CobolSourceFile("SM201A.COB",404,46)

            //PERFORM WRITE-LINE         

            doCobolPerform(writeLine,null);

            //@CobolSourceFile("SM201A.COB",405,12)

            //MOVE   ANSI-REFERENCE TO COR-ANSI-REFERENCE        

            testCorrect.setCorAnsiReference(getAnsiReference());

            //@CobolSourceFile("SM201A.COB",406,12)

            //MOVE   TEST-CORRECT TO PRINT-REC       

            setPrintRec(new String(getTestCorrect()));

            //@CobolSourceFile("SM201A.COB",406,45)

            //PERFORM WRITE-LINE 2 TIMES       

            for(int i8=0;i8<2;++i8) {

                  doCobolPerform(writeLine,null);

            }

            //@CobolSourceFile("SM201A.COB",407,12)

            //MOVE   SPACES TO COR-ANSI-REFERENCE          

            testCorrect.setCorAnsiReference(__normalizeLiteral(" "));

            return doCobolExit();

            }

      };

      Paragraph failRoutineEx=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            return doCobolExit();

            }

      };

      Paragraph bailOut=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",410,12)

            //IF     COMPUTED-A NOT EQUAL TO SPACE         

            if(compare(testComputed.getComputedA(),__normalizeLiteral(" ")) !=0) {

                  //@CobolSourceFile("SM201A.COB",410,49)

                  //GO TO BAIL-OUT-WRITE             

                  return bailOutWrite;

            }

            //@CobolSourceFile("SM201A.COB",411,12)

            //IF     CORRECT-A EQUAL TO SPACE        

            if(compare(testCorrect.getCorrectA(),__normalizeLiteral(" ")) == 0) {

                  //@CobolSourceFile("SM201A.COB",411,44)

                  //GO TO BAIL-OUT-EX                

                  return bailOutEx;

            }

            return doCobolExit();

            }

      };

      Paragraph bailOutWrite=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",413,12)

            //MOVE CORRECT-A TO XXCORRECT      

            xxinfo.setXxcorrect(testCorrect.getCorrectA());

            //@CobolSourceFile("SM201A.COB",413,41)

            //MOVE COMPUTED-A TO XXCOMPUTED          

            xxinfo.setXxcomputed(testComputed.getComputedA());

            //@CobolSourceFile("SM201A.COB",414,12)

            //MOVE   ANSI-REFERENCE TO INF-ANSI-REFERENCE        

            xxinfo.setInfAnsiReference(getAnsiReference());

            //@CobolSourceFile("SM201A.COB",415,12)

            //MOVE   XXINFO TO DUMMY-RECORD          

            setDummyRecord(new String(getXxinfo()));

            //@CobolSourceFile("SM201A.COB",415,43)

            //PERFORM WRITE-LINE 2 TIMES       

            for(int i9=0;i9<2;++i9) {

                  doCobolPerform(writeLine,null);

            }

            //@CobolSourceFile("SM201A.COB",416,12)

            //MOVE   SPACES TO INF-ANSI-REFERENCE          

            xxinfo.setInfAnsiReference(__normalizeLiteral(" "));

            return doCobolExit();

            }

      };

      Paragraph bailOutEx=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            return doCobolExit();

            }

      };

      Paragraph ccvs1Exit=new Paragraph(this,ccvs1) {

            public CobolMethod run() {

            return doCobolExit();

            }

      };

      Section initialization=new Section(this) ;

      Paragraph sm201aInit=new Paragraph(this,initialization) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",422,12)

            //OPEN     OUTPUT TEST-FILE        

            inError=false;

            try {

                  testFile.openOutput();

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",423,12)

            //MOVE     "OUTPUT OF SM201A IS USED AS" TO RE-MARK        

            testResults.setReMark(__normalizeLiteral("OUTPUT OF SM201A IS USED AS"));

            //@CobolSourceFile("SM201A.COB",424,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            //@CobolSourceFile("SM201A.COB",425,12)

            //MOVE     "INPUT FOR SM202A."           TO RE-MARK        

            testResults.setReMark(__normalizeLiteral("INPUT FOR SM202A."));

            //@CobolSourceFile("SM201A.COB",426,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            //@CobolSourceFile("SM201A.COB",427,12)

            //MOVE     "COPY 01 LEVEL --- " TO FEATURE           

            testResults.setFeature(__normalizeLiteral("COPY 01 LEVEL --- "));

            //@CobolSourceFile("SM201A.COB",428,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Section workingStorageTest=new Section(this) ;

      Paragraph copyTest1=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",431,12)

            //IF       WSTR-1A EQUAL TO WSTR999      

            if(compare(wstr1.getWstr1a(),wstr2.getWstr999()) == 0) {

                  //@CobolSourceFile("SM201A.COB",432,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",432,34)

                  //GO TO COPY-WRITE-1               

                  return copyWrite1;

            }

            //*        NOTE TESTS COPYING WITH REPLACEMENT IN WORKING-STORAGE. 

            //@CobolSourceFile("SM201A.COB",434,12)

            //GO       TO COPY-FAIL-1          

            return copyFail1;

            }

      };

      Paragraph copyDelete1=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",436,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",437,12)

            //GO       TO COPY-WRITE-1         

            return copyWrite1;

            }

      };

      Paragraph copyFail1=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",439,12)

            //MOVE     WSTR999 TO COMPUTED-A         

            testComputed.setComputedA(wstr2.getWstr999());

            //@CobolSourceFile("SM201A.COB",440,12)

            //MOVE     "ABC" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("ABC"));

            //@CobolSourceFile("SM201A.COB",441,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite1=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",443,12)

            //MOVE     "  REPLACING" TO FEATURE      

            testResults.setFeature(__normalizeLiteral("  REPLACING"));

            //@CobolSourceFile("SM201A.COB",444,12)

            //MOVE     "COPY-TEST-1 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-1 ").getBytes());

            //@CobolSourceFile("SM201A.COB",445,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Paragraph copyTest2=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",447,12)

            //IF       WSTR-2A EQUAL TO "ABC"        

            if(compare(wstr3.getWstr2a(),__normalizeLiteral("ABC")) == 0) {

                  //@CobolSourceFile("SM201A.COB",448,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",448,34)

                  //GO TO COPY-WRITE-2               

                  return copyWrite2;

            }

            //*    NOTE     TESTS ORDINARY COPY OF ENTRIES WHICH ARE ALSO COPIED

            //@CobolSourceFile("SM201A.COB",451,12)

            //GO       TO COPY-FAIL-2          

            return copyFail2;

            }

      };

      Paragraph copyDelete2=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //*             BY COPY REPLACING.                                 

            //@CobolSourceFile("SM201A.COB",453,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",454,12)

            //GO       TO COPY-WRITE-2         

            return copyWrite2;

            }

      };

      Paragraph copyFail2=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",456,12)

            //MOVE     WSTR-2A TO COMPUTED-A         

            testComputed.setComputedA(wstr3.getWstr2a());

            //@CobolSourceFile("SM201A.COB",457,12)

            //MOVE     "ABC" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("ABC"));

            //@CobolSourceFile("SM201A.COB",458,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite2=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",460,12)

            //MOVE     "  (NO REPLACING)" TO FEATURE       

            testResults.setFeature(__normalizeLiteral("  (NO REPLACING)"));

            //@CobolSourceFile("SM201A.COB",461,12)

            //MOVE     "COPY-TEST-2 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-2 ").getBytes());

            //@CobolSourceFile("SM201A.COB",462,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Paragraph copyInitA=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",464,12)

            //MOVE     "  REPLACING" TO FEATURE      

            testResults.setFeature(__normalizeLiteral("  REPLACING"));

            return doCobolExit();

            }

      };

      Paragraph copyTest3=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",466,12)

            //IF       WSTR91 EQUAL TO "ABC"         

            if(compare(wstr4.getWstr91(),__normalizeLiteral("ABC")) == 0) {

                  //@CobolSourceFile("SM201A.COB",467,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",467,34)

                  //GO TO COPY-WRITE-3               

                  return copyWrite3;

            }

            //*        NOTE COPY-TEST-3, 4, AND 5 TEST COPYING WITH A          

            //@CobolSourceFile("SM201A.COB",470,12)

            //GO       TO COPY-FAIL-3          

            return copyFail3;

            }

      };

      Paragraph copyDelete3=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //*             SERIES OF REPLACEMENTS.                            

            //@CobolSourceFile("SM201A.COB",472,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",473,12)

            //GO       TO COPY-WRITE-3         

            return copyWrite3;

            }

      };

      Paragraph copyFail3=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",475,12)

            //MOVE     WSTR91 TO COMPUTED-A          

            testComputed.setComputedA(wstr4.getWstr91());

            //@CobolSourceFile("SM201A.COB",476,12)

            //MOVE     "ABC" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("ABC"));

            //@CobolSourceFile("SM201A.COB",477,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite3=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",479,12)

            //MOVE     "COPY-TEST-3 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-3 ").getBytes());

            //@CobolSourceFile("SM201A.COB",480,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Paragraph copyTest4=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",482,12)

            //IF       WSTR92 EQUAL TO "DEF"         

            if(compare(wstr4.getWstr92(),__normalizeLiteral("DEF")) == 0) {

                  //@CobolSourceFile("SM201A.COB",483,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",483,34)

                  //GO TO COPY-WRITE-4               

                  return copyWrite4;

            }

            //@CobolSourceFile("SM201A.COB",484,12)

            //GO       TO COPY-FAIL-4          

            return copyFail4;

            }

      };

      Paragraph copyDelete4=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",486,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",487,12)

            //GO       TO COPY-WRITE-4         

            return copyWrite4;

            }

      };

      Paragraph copyFail4=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",489,12)

            //MOVE     WSTR92 TO COMPUTED-A          

            testComputed.setComputedA(wstr4.getWstr92());

            //@CobolSourceFile("SM201A.COB",490,12)

            //MOVE     "DEF" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("DEF"));

            //@CobolSourceFile("SM201A.COB",491,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite4=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",493,12)

            //MOVE     "COPY-TEST-4 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-4 ").getBytes());

            //@CobolSourceFile("SM201A.COB",494,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Paragraph copyTest5=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",496,12)

            //IF       WSTR93 EQUAL TO "GHI"         

            if(compare(wstr4.getWstr93(),__normalizeLiteral("GHI")) == 0) {

                  //@CobolSourceFile("SM201A.COB",497,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",497,34)

                  //GO TO COPY-WRITE-5               

                  return copyWrite5;

            }

            //@CobolSourceFile("SM201A.COB",498,12)

            //GO       TO COPY-FAIL-5          

            return copyFail5;

            }

      };

      Paragraph copyDelete5=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",500,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",501,12)

            //GO       TO COPY-WRITE-5         

            return copyWrite5;

            }

      };

      Paragraph copyFail5=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",503,12)

            //MOVE     WSTR93 TO COMPUTED-A          

            testComputed.setComputedA(wstr4.getWstr93());

            //@CobolSourceFile("SM201A.COB",504,12)

            //MOVE     "GHI" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("GHI"));

            //@CobolSourceFile("SM201A.COB",505,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite5=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",507,12)

            //MOVE     "COPY-TEST-5 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-5 ").getBytes());

            //@CobolSourceFile("SM201A.COB",508,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Paragraph copyInitB=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",510,12)

            //MOVE     "  (NOT REPLACING)" TO FEATURE      

            testResults.setFeature(__normalizeLiteral("  (NOT REPLACING)"));

            return doCobolExit();

            }

      };

      Paragraph copyTest6=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",512,12)

            //IF       WSTR4A EQUAL TO "ABC"         

            if(compare(wstr5.getWstr4a(),__normalizeLiteral("ABC")) == 0) {

                  //@CobolSourceFile("SM201A.COB",513,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",513,34)

                  //GO TO COPY-WRITE-6               

                  return copyWrite6;

            }

            //*        NOTE COPY-TEST-6, 7, AND 8 TEST ORDINARY COPYING OF     

            //@CobolSourceFile("SM201A.COB",516,12)

            //GO       TO COPY-FAIL-6          

            return copyFail6;

            }

      };

      Paragraph copyDelete6=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //*             ENTRIES WHICH ARE ALSO COPIED WITH REPLACEMENT.    

            //@CobolSourceFile("SM201A.COB",518,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",519,12)

            //GO       TO COPY-WRITE-6         

            return copyWrite6;

            }

      };

      Paragraph copyFail6=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",521,12)

            //MOVE     WSTR4A TO COMPUTED-A          

            testComputed.setComputedA(wstr5.getWstr4a());

            //@CobolSourceFile("SM201A.COB",522,12)

            //MOVE     "ABC" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("ABC"));

            //@CobolSourceFile("SM201A.COB",523,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite6=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",525,12)

            //MOVE     "COPY-TEST-6 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-6 ").getBytes());

            //@CobolSourceFile("SM201A.COB",526,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Paragraph copyTest7=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",528,12)

            //IF       WSTR4B EQUAL TO "DEF"         

            if(compare(wstr5.getWstr4b(),__normalizeLiteral("DEF")) == 0) {

                  //@CobolSourceFile("SM201A.COB",529,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",529,34)

                  //GO TO COPY-WRITE-7               

                  return copyWrite7;

            }

            //@CobolSourceFile("SM201A.COB",530,12)

            //GO       TO COPY-FAIL-7          

            return copyFail7;

            }

      };

      Paragraph copyDelete7=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",532,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",533,12)

            //GO       TO COPY-WRITE-7         

            return copyWrite7;

            }

      };

      Paragraph copyFail7=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",535,12)

            //MOVE     WSTR4B TO COMPUTED-A          

            testComputed.setComputedA(wstr5.getWstr4b());

            //@CobolSourceFile("SM201A.COB",536,12)

            //MOVE     "DEF" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("DEF"));

            //@CobolSourceFile("SM201A.COB",537,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite7=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",539,12)

            //MOVE     "COPY-TEST-7 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-7 ").getBytes());

            //@CobolSourceFile("SM201A.COB",540,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Paragraph copyTest8=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",542,12)

            //IF       WSTR4C EQUAL TO "GHI"         

            if(compare(wstr5.getWstr4c(),__normalizeLiteral("GHI")) == 0) {

                  //@CobolSourceFile("SM201A.COB",543,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //@CobolSourceFile("SM201A.COB",543,34)

                  //GO TO COPY-WRITE-8               

                  return copyWrite8;

            }

            //@CobolSourceFile("SM201A.COB",544,12)

            //GO       TO COPY-FAIL-8          

            return copyFail8;

            }

      };

      Paragraph copyDelete8=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",546,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",547,12)

            //GO       TO COPY-WRITE-8         

            return copyWrite8;

            }

      };

      Paragraph copyFail8=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",549,12)

            //MOVE     WSTR4C TO COMPUTED-A          

            testComputed.setComputedA(wstr5.getWstr4c());

            //@CobolSourceFile("SM201A.COB",550,12)

            //MOVE     "GHI" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("GHI"));

            //@CobolSourceFile("SM201A.COB",551,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite8=new Paragraph(this,workingStorageTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",553,12)

            //MOVE     "COPY-TEST-8 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-8 ").getBytes());

            //@CobolSourceFile("SM201A.COB",554,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Section paragraphTest=new Section(this) ;

      Paragraph copyTest9=new Paragraph(this,paragraphTest) {

            public CobolMethod run() {

            //@CobolSourceFile("K1PRB.CPY",0,12)

            //MOVE WSTR4B TO WSTR91      

            wstr4.setWstr91(wstr5.getWstr4b());

            //@CobolSourceFile("K1PRB.CPY",1,12)

            //MOVE WSTR4B TO WSTR93      

            wstr4.setWstr93(wstr5.getWstr4b());

            //@CobolSourceFile("K1PRB.CPY",2,12)

            //MOVE WSTR4A TO WSTR92      

            wstr4.setWstr92(wstr5.getWstr4a());

            //*                                                                

            //*                                                                

            //*             REPLACING WSTR4C BY WSTR4B.                         

            //******************** COPIED TEXT BEGINS BELOW ********************

            //*             REPLACING WSTR4C BY WSTR4B.

            //*    NOTE     COPY A PROCEDURE WHICH REFERENCES COPIED DATA.     

            //@CobolSourceFile("SM201A.COB",573,12)

            //IF       WSTR-4 EQUAL TO "DEFABCDEF"         

            if(compare(getWstr4(),__normalizeLiteral("DEFABCDEF")) == 0) {

                  //*********************** COPY STATEMENT USED **********************

                  //*                                                                 

                  //*********************** END OF COPIED TEXT ***********************

                  //@CobolSourceFile("SM201A.COB",574,21)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

                  //*                                                      COPY K1PRB

                  //@CobolSourceFile("SM201A.COB",574,34)

                  //GO TO COPY-WRITE-9               

                  return copyWrite9;

            }

            //*                                                      COPY K1PRB

            //@CobolSourceFile("SM201A.COB",575,12)

            //GO       TO COPY-FAIL-9          

            return copyFail9;

            }

      };

      Paragraph copyDelete9=new Paragraph(this,paragraphTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",577,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            //@CobolSourceFile("SM201A.COB",578,12)

            //GO       TO COPY-WRITE-9         

            return copyWrite9;

            }

      };

      Paragraph copyFail9=new Paragraph(this,paragraphTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",580,12)

            //MOVE     WSTR-4 TO COMPUTED-A          

            testComputed.setComputedA(new String(getWstr4()));

            //@CobolSourceFile("SM201A.COB",581,12)

            //MOVE     "DEFABCDEF" TO CORRECT-A      

            testCorrect.setCorrectA(__normalizeLiteral("DEFABCDEF"));

            //@CobolSourceFile("SM201A.COB",582,12)

            //PERFORM  FAIL        

            doCobolPerform(fail,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite9=new Paragraph(this,paragraphTest) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",584,12)

            //MOVE     "COPY PARA REPLACING" TO FEATURE          

            testResults.setFeature(__normalizeLiteral("COPY PARA REPLACING"));

            //@CobolSourceFile("SM201A.COB",585,12)

            //MOVE     "COPY-TEST-9 " TO PAR-NAME          

            testResults.setParName(__normalizeLiteral("COPY-TEST-9 ").getBytes());

            //@CobolSourceFile("SM201A.COB",586,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Section build=new Section(this) ;

      Paragraph copyTest10=new Paragraph(this,build) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",589,12)

            //MOVE     RCD-1 TO TF-1           

            tstTest.setTf1(getRcd1());

            //@CobolSourceFile("SM201A.COB",590,12)

            //WRITE    TST-TEST          

            inError=false;

            try {

                  testFile.write(getTstTest());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",591,12)

            //MOVE     RCD-2 TO TF-1           

            tstTest.setTf1(getRcd2());

            //@CobolSourceFile("SM201A.COB",592,12)

            //WRITE    TST-TEST          

            inError=false;

            try {

                  testFile.write(getTstTest());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",593,12)

            //MOVE     RCD-3 TO TF-1           

            tstTest.setTf1(getRcd3());

            //@CobolSourceFile("SM201A.COB",594,12)

            //WRITE    TST-TEST          

            inError=false;

            try {

                  testFile.write(getTstTest());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",595,12)

            //MOVE     RCD-4 TO TF-1           

            tstTest.setTf1(getRcd4());

            //@CobolSourceFile("SM201A.COB",596,12)

            //WRITE    TST-TEST          

            inError=false;

            try {

                  testFile.write(getTstTest());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",597,12)

            //MOVE     RCD-5 TO TF-1           

            tstTest.setTf1(getRcd5());

            //@CobolSourceFile("SM201A.COB",598,12)

            //WRITE    TST-TEST          

            inError=false;

            try {

                  testFile.write(getTstTest());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",599,12)

            //MOVE     RCD-6 TO TF-1           

            tstTest.setTf1(getRcd6());

            //@CobolSourceFile("SM201A.COB",600,12)

            //WRITE    TST-TEST          

            inError=false;

            try {

                  testFile.write(getTstTest());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",601,12)

            //MOVE     RCD-7 TO TF-1           

            tstTest.setTf1(getRcd7());

            //@CobolSourceFile("SM201A.COB",602,12)

            //WRITE    TST-TEST          

            inError=false;

            try {

                  testFile.write(getTstTest());

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            //@CobolSourceFile("SM201A.COB",603,12)

            //PERFORM  PASS        

            doCobolPerform(pass,null);

            //@CobolSourceFile("SM201A.COB",604,12)

            //GO       TO COPY-WRITE-10        

            return copyWrite10;

            }

      };

      Paragraph copyDelete10=new Paragraph(this,build) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",606,12)

            //PERFORM  DE-LETE           

            doCobolPerform(deLete,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite10=new Paragraph(this,build) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",608,12)

            //MOVE     "COPY FD REPLACING" TO FEATURE      

            testResults.setFeature(__normalizeLiteral("COPY FD REPLACING"));

            //@CobolSourceFile("SM201A.COB",609,12)

            //MOVE     "COPY-TEST-10 " TO PAR-NAME         

            testResults.setParName(__normalizeLiteral("COPY-TEST-10 ").getBytes());

            //@CobolSourceFile("SM201A.COB",610,12)

            //MOVE     "OUTPUT PASSED ONTO SM202" TO RE-MARK           

            testResults.setReMark(__normalizeLiteral("OUTPUT PASSED ONTO SM202"));

            //@CobolSourceFile("SM201A.COB",611,12)

            //PERFORM  PRINT-DETAIL      

            doCobolPerform(printDetail,null);

            //@CobolSourceFile("SM201A.COB",612,12)

            //CLOSE    TEST-FILE         

            inError=false;

            try {

                  testFile.close();

            } catch(java.io.IOException ioe) {

                  ioe.printStackTrace(); }

            return doCobolExit();

            }

      };

      Section moreTests=new Section(this) ;

      Paragraph copyTest11=new Paragraph(this,moreTests) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",615,12)

            //MOVE SPACES TO TEXT-TEST-1       

            setTextTest1(__normalizeLiteral(" ").getBytes());

            //@CobolSourceFile("SM201A.COB",616,12)

            //MOVE 12345 TO TXT-FLD-1          

            textTest1.setTxtFld1(12345);

            //@CobolSourceFile("SM201A.COB",617,12)

            //IF TEXT-TEST-1 IS EQUAL TO "12345"           

            //          ...                  ELSE          

            if(compare(getTextTest1(),__normalizeLiteral("12345")) == 0) {

                  //@CobolSourceFile("SM201A.COB",621,16)

                  //PERFORM PASS               

                  doCobolPerform(pass,null);

            } else {

                  //@CobolSourceFile("SM201A.COB",621,36)

                  //PERFORM FAIL               

                  doCobolPerform(fail,null);

            }

            //@CobolSourceFile("SM201A.COB",622,12)

            //GO TO COPY-WRITE-11        

            return copyWrite11;

            }

      };

      Paragraph copyDelete11=new Paragraph(this,moreTests) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",624,12)

            //PERFORM DE-LETE      

            doCobolPerform(deLete,null);

            return doCobolExit();

            }

      };

      Paragraph copyWrite11=new Paragraph(this,moreTests) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",626,12)

            //MOVE "PSEUDO TEXT" TO FEATURE          

            testResults.setFeature(__normalizeLiteral("PSEUDO TEXT"));

            //@CobolSourceFile("SM201A.COB",627,12)

            //MOVE "COPY-TEST-11" TO PAR-NAME        

            testResults.setParName(__normalizeLiteral("COPY-TEST-11").getBytes());

            //@CobolSourceFile("SM201A.COB",628,12)

            //PERFORM PRINT-DETAIL       

            doCobolPerform(printDetail,null);

            return doCobolExit();

            }

      };

      Section ccvsExit=new Section(this) ;

      Paragraph ccvs999999=new Paragraph(this,ccvsExit) {

            public CobolMethod run() {

            //@CobolSourceFile("SM201A.COB",631,12)

            //GO TO CLOSE-FILES          

            return closeFiles;

            }

      };

      public Sm201a() {

            super(new CobolBytes(240));

      }

      public void initialize() {

            setRcd1(97532);

            setRcd2(23479);

            setRcd3(10901);

            setRcd4(2734);

            setRcd5(14003);

            setRcd6(19922);

            setRcd7(3543);

            textTest1.initialize();

            wstr1.initialize();

            wstr2.initialize();

            wstr3.initialize();

            wstr4.initialize();

            wstr5.initialize();

            testResults.initialize();

            testComputed.initialize();

            testCorrect.initialize();

            ccvsC1.initialize();

            ccvsC2.initialize();

            setRecCt(0);

            setDeleteCounter(0);

            setErrorCounter(0);

            setInspectCounter(0);

            setPassCounter(0);

            setErrorHold(0);

            setRecordCount(0);

            setAnsiReference(__normalizeLiteral(" "));

            ccvsH1.initialize();

            ccvsH2a.initialize();

            ccvsH2b.initialize();

            ccvsH3.initialize();

            ccvsE1.initialize();

            ccvsE2.initialize();

            ccvsE3.initialize();

            ccvsE4.initialize();

            xxinfo.initialize();

            hyphenLine.initialize();

            setCcvsPgmId(__normalizeLiteral("SM201A"));

      }

}