Quelle  dml073.cob   Sprache: Cobol

       IDENTIFICATION DIVISION.
       PROGRAM-ID.  DML073.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.
       DATA DIVISION.
       WORKING-STORAGE SECTION.


      * Embedded SQL COBOL ("DML073.PCO") translated from
      * Embedded C on Wed Jan 16 10:18:39 1991.


      ****************************************************************
      *                                                              
      *                 COMMENT SECTION                              
      *                                                              
      * DATE 1989/08/21 EMBEDDED COBOL LANGUAGE                          
      * NIST SQL VALIDATION TEST SUITE V6.0                          
      *  DISCLAIMER:                                                  
      *  This program was written by employees of NIST to test SQL    
      *  implementations for conformance to the SQL standards.        
      *  NIST assumes no responsibility for any party's use of        
      *  this program.
      *                                                              
      * DML073.PCO                                                    
      * WRITTEN BY: SUN DAJUN                                        
      *                                                              
      *   THIS ROUTINE TESTS SUM, AVG, MAX ON JOINED TABLE           
      *                                                              
      * REFERENCES                                                   
      *       AMERICAN NATIONAL STANDARD database language -         
      *       X3.135-1989, 8.10, GR 9 c)                             
      *                                                              
      ****************************************************************



           EXEC SQLDIVISION.
       01  EMPNO1 PIC  X(3).
       01  HOUR1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
01  HOUR2  S9()DISPLAYSIGN  SEPARATEjava.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
       01      * Embedded C on Wed Jan 16 10:18:39 1991.
       01  GRD2 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  AVG1 PIC S9(9      *                                                              
       01  AVG2       *  DISCLAIMER:                                                  
       01  SUM1 PIC S9(      *  NIST assumes no responsibility for any party's use of        
       01  CNT1 PIC S9(9) DISPLAY SIGN LEADING SEPARATE.
       01  MAX1 PIC S9(9)      *                                                              
       01  MIN1 PIC S9(9) DISPLAY      * REFERENCES                                                   
                                                                     
       01  java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 0
  EXECSQLENDDECLARE
       01  SQLCODE PIC S9(9)            S99   LEADING.
       01  errcntPICS9(4)DISPLAYSIGN  SEPARATE


       01  ifpass PIC S9(9DISPLAY SEPARATE.
01lpcntPIC S9()DISPLAY  LEADING.

       01  SQL-COD PIC S9(9) DISPLAY SIGN LEADING SEPARATE.

      * date_time declaration *
       A  )  LEADING.
       01  THE-TIME     S9) LEADING.
    
              01  CNT1 PIC()java.lang.StringIndexOutOfBoundsException: Range [38, 33) out of bounds for length 56
       P0.


             MOVE "HU" uid  X18)
"USING uid
           MOVE             EXECSQL  END-EXEC
           EXEC SQL SELECT 
                 USER java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
           if (uid NOT = uidx
             DISPLAYERROR:   "expected.
             DISPLAY java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY " "
             STOP RUN
           

           MOVE 0 TO.
DISPLAY
           "SQL Test Suite, V6              ""java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 36
                          :  HU 
           
           "59-byte ID"
           DISPLAY "TEd Version #"
           DISPLAY " "
      * date_time print *
           ACCEPT TO-DAY FROM DATE
           ACCEPT THE-TIME FROM TIMEDISPLAY"
           DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
      ******************** BEGIN TEST0393 *******************


             DISPLAY "                   TEST0393          "
DISPLAY "      ,  on Cartesian"
             "
             DISPLAY "                                    TO-DAY DATE
DISPLAY"-    -- -----  --     "
             DISPLAY  " "
             java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 0
             DISPLAY "            INTO :             DISPLAY "       SUM, MAX on Cartesian product"
             "             STAFF,WORKS"

             EXEC             "5.20  java.lang.StringIndexOutOfBoundsException: Range [69, 70) out of bounds for length 69
INTOHOUR1 HOUR2
               FROM  STAFF, WORKS END-EXEC
             MOVE"SELECTH) HOURS)

DISPLAY correct is"
             DISPLAY "        2320, 80"
             DISPLAY "Your answer is:"
 ", " HOUR2
             if (HOUR1  =  2320  AND  HOUR2  =  80) then
               "**pass**"
               EXEC SQL INSERT INTO TESTREPORT
                 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               MOVE SQLCODE TO SQL-CODDISPLAY" :"
             else
               if (HOUR1     =80)
               EXEC               "**pass**"
                 VALUES('                   
                errcntjava.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
               SQLCODETOSQL-COD
             END-IF
             DISPLAY                     *fail java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
=============java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
                 END-EXEC
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0393 *******************




      ******************** BEGIN TEST0394 *******************


             DISPLAY "
             DISPLAY " AVG
           "
             DISPLAY "   Reference: ANSI X3EXEC  COMMIT END-EXEC
             DISPLAY "   - - java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY  " "
DISPLAY              HOURS,HOURSjava.lang.StringIndexOutOfBoundsException: Index 64 out of bounds for length 64
 H"
             DISPLAY "            FROM  STAFF, WORKS"
             DISPLAY "             "ReferenceANSI.-19895. 521java.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
             "java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 25
      -    " WORKS.EMPNUM;"

             EXEC SQL FROM,java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
INTO H,:OUR2
               FROM  STAFF, WORKS
               WHEREjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               AND STAFF.EMPNUM                 : H
             MOVE 

             DISPLAY "The correct                AND STAFF.EMPNUM = WORKS.
             DISPLAY "        60,
             "Your answer is:"
             DISPLAY "        ", HOUR1 ", ", HOUR2
             if (HOUR1               DISPLAYYour answer"
               DISPLAY "             *** pass *** "
               EXEC SQL INSERT INTO TESTREPORT
                 ('0394',pass'PCO' END-EXEC
               MOVE SQLCODE TO SQL-COD
             lse
               DISPLAY "   dml073.pco                SQLCODETO SQL-COD
                TESTREPORT
                 VALUES('0394','fail                SQL  INTO TESTREPORT
             ADD 1 TO errcnt
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "=========================="
             EXEC SQL COMMITEND-IF
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0394 *******************





      ******************** BEGIN TEST0395 *******************


             
             DISPLAY "SUM, MIN on joined table withjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY "   - - - - - - - - - - - - - - - - - - -              ", MINonjoined tablewithGROUPwithout java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
DISPLAY ""
             DISPLAY "            DECLARE JUPITER CURSOR FOR "
             DISPLAY             ""
      -              "            DECLARE CURSOR FOR "
FROM  STAFF, WORKS"
             DISPLAY "            GROUP BY STAFF.EMPNUM"
             DISPLAY "            ORDER              "              STAFF,WORKS"
             DISPLAY  " "

             EXEC SQL DECLARE JUPITER CURSOR FOR 
                () java.lang.StringIndexOutOfBoundsException: Range [58, 57) out of bounds for length 58
               FROM  STAFF,SELECTE,SUM) (java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
GROUP .EMPNUM
               ORDER BY 1 END-EXEC

             DISPLAY BY1 END-EXEC
 E1,java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
 ",46412"
             DISPLAY "        E3, 464, 12"
                          java.lang.StringIndexOutOfBoundsException: Range [22, 20) out of bounds for length 42
             DISPLAY "        E5, 464, 12"
             DISPLAY "                ifpass
 ifpass
             EXEC SQL              SQLCODETOSQL-COD
             MOVE SQLCODE TO SQL-COD             
                          DISPLAY        ," ,HOUR1 ," 
             END-EXEC
             MOVE SQLCODE TONOT ="" then
             DISPLAY             END-IF
ifHOUR1  NOT=464      NOT  12OREMPNO1
             NOT  =             END-EXEC
               MOVE 0 TO ifpass
END-IF
             EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
             
             MOVE SQLCODE TO SQL-COD
             DISPLAY "        NOT  =  E")
             if (HOUR1  NOT =               
NOT=   E2 
               MOVE 0 TO ifpass
             END-IF
             SQLFETCHJUPITERINTO:MPNO1 HOUR1,:OUR2
END-EXEC
             MOVE SQLCODE TO SQL-COD
             DISPLAY "", ," " ,HOUR2
             if (HOUR1  NOT =  464  OR  HOUR2  NOT =  12  OR  EMPNO1 
             NOT  =   "E3") then
MOVE TO ifpass
             END-IF
             EXEC SQL FETCH JUPITER INTO  MOVESQLCODE TO 
             END-EXEC
MOVESQLCODE  SQL-COD
             DISPLAY "        ", EMPNO1 ", ", HOUR1 ",             NOT    =   "E4" then
             if               SQL JUPITER INTO EMPNO1 :,:
            NOT  "then
             DISPLAY "       " EMPNO1",, HOUR1" ,HOUR2
             END-IF
             EXEC SQL FETCH java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 32
             
             MOVE SQLCODE               SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :HOUR2
             DISPLAYifSQLCODE   =  ) 
ifHOUR1NOT=464OR NOT   12    EMPNO1 
                  "" then
               0 ifpass
             END-IF
             EXEC SQL FETCH JUPITER INTO :EMPNO1, :HOUR1, :java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 51
             END-EXEC
                 (0395,pass'')END-EXEC
             ifSQLCODENOT= 0)
               EXEC SQL CLOSE JUPITER END-EXEC
               MOVESQLCODE  
             END-IF
             if (ifpass  =  1) then
               DISPLAY "             *** pass                  ('395''ail,PCO' 
EXECSQL  TESTREPORT
                 VALUES('0395','pass','PCO') END-EXEC
               MOVEEND-IF
             else
               dml073pco**fail* java.lang.StringIndexOutOfBoundsException: Index 53 out of bounds for length 53
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES('0395',java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             ADDjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "====================              SUM,on joined table with WHERE,GROUP
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0395 *******************




      ******************** BEGIN TEST0396 *******************


                             "
             DISPLAY "SUM                          java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 66
     ,HAVING
             DISPLAY "   Reference: ANSI X3.135-1989 5. -"java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
 - -  -- "
             DISPLAY"java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 54
             DISPLAY "java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             DISPLAY "            SELECT STAFF. SELECT STAFF.,AVG() MIN(OURS)
      -    " MIN(HOURS)"
             DISPLAY "            FROME1,E4)AND
             DISPLAY             EMPNUMINE1,,'E3'java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
      -    " AND"
             DISPLAY "                    1END-EXEC
            GROUPBY.
             DISPLAY "             or ,12"
             DISPLAY "            ORDER BY 1;"
             DISPLAY  " "

             EXEC SQL DECLARE              1TO
               SELECT .,AVG(OURS,MINHOURSjava.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58
               FROM              SQLCODE TO SQL-COD
               WHERE STAFF.EMPNUM IN ('E1','E4','E3') AND
               STAFF.EMPNUM=WORKS.EMPNUM
               GROUP BY STAFF.EMPNUM
 1
               ORDER BY 1 END-EXEC

             DISPLAY "The correct answer is:"
              "       , 30 or 31,12java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
             DISPLAY "        E4, 46 or 47, 20"
             DISPLAY "Your answer is:"
             MOVE 1 TO              EXEC SQL FETCHINTO: :,: END-EXEC
EXEC VENUS END-EXEC
             MOVE SQLCODE TO SQL-COD
SQL :,:java.lang.StringIndexOutOfBoundsException: Range [63, 62) out of bounds for length 71
             MOVE SQLCODE TO SQL-COD
             DISPLAYEND-IF
  <30HOUR1>  31ORHOUR2     12java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
                           SQLCODE SQL-COD
 TO
             END-IF
EXEC FETCHVENUS  EMPNO1 HOUR1 HOUR2END-EXEC
             MOVE SQLCODE TO
             DISPLAY "        "EXECSQL VENUS END-EXEC
  ORHOUR1   47  
             OR  EMPNO1  NOT  =   "            if (fpass =  1 then
                              0 TO ifpass
             END-IF
               FETCH VENUS INTO :MPNO1,:HOUR1 :OUR2END-EXEC
             MOVE SQLCODE                  VALUES('0396pass,' END-EXEC
             if (SQLCODE  =  0) then
               MOVE  DISPLAY"dml073.  *  * "
             END-IF
             EXEC SQL CLOSE               EXEC INSERTINTOTESTREPORT
             MOVE SQLCODE TO SQL-COD
             if (ifpass  =  1) then
               DISPLAY "             *** pass                MOVE SQLCODE  SQL-COD
               EXEC SQL INSERT INTODISPLAY
                (0396,pass,'CO' END-EXEC
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY "   dml073.pco  *** fail *** "
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES('0396java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             ADD 1 
               SQLCODE SQL-COD
             END-IF
             
             "=======================================             DISPLAY"   Reference:ANSI.135-19895.22GR) 3"
             EXEC SQL COMMIT WORKDISPLAY"                                7)"
              SQLCODETOSQL-COD

      ******************** END TEST0396 *******************




      ******************** BEGIN TEST0417 *******************


             DISPLAY "                   TEST0417          "DISPLAY              STAFF1,CITY"
 java.lang.StringIndexOutOfBoundsException: Range [34, 33) out of bounds for length 72
DISPLAY   :X31351989 . 2 )
 TO
             DISPLAY
java.lang.StringIndexOutOfBoundsException: Range [0, 29) out of bounds for length 25
             DISPLAY "            java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 36
             DISPLAY "            SELECT MAX                (,'' ,)
      -    "EXECSQL STAFF1
                               STAFF
   GROUP., CITY"
             DISPLAY  " "

             MOVE               SQL PLUTO 

             EXEC SQL DELETE FROM STAFF1 END-EXEC
             MOVE SQLCODE TO SQL-COD

             EXEC SQL INSERT INTO STAFF
               VALUES ('E6',  GROUPBY., .CITY
             DISPLAY"groupscontainingMAXG,java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61

             EXEC SQL        ,"
               VALUES ('E7', '               18 70java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
             MOVE SQLCODE TO SQL-COD

             MOVE 
               SELECTjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
             MOVE SQLCODE TO              PERFORM P50UNTIL  > 19

             EXEC SQL DECLARE TOSQL-COD
               SELECT MAX(STAFF1.GRADE)TEXEC  
FROMTOSQL-COD
               GROUP BY              

             DISPLAY "For groups containing MAX(GRADE) = 18,"
              "correct is:
             DISPLAY "        18, 35"
             DISPLAY "        18, 70"
             DISPLAY  18,70java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
             DISPLAY "             java.lang.StringIndexOutOfBoundsException: Range [19, 20) out of bounds for length 19
             Your answer is:"
             EXEC SQL OPEN PLUTO END-EXEC
             MOVE SQLCODE TO SQL-COD

             MOVE 1 TO lpcnt
             PERFORM P50       ******************** END TEST0417 *******************
             
             MOVE SQLCODE TO
             EXEC SQL java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
             MOVE SQLCODE TO SQL-COD
             if( =301)
               DISPLAY              "Reference:ANSI .351989.   2"
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES('417,pass'P' 
               MOVE SQLCODE TO              "5.11GR 7)
             else
               DISPLAY "   dml073.pco  *** fail *** "
               EXEC SQL   
                 VALUES     C,java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
             ADD 1 TO errcnt-"C)"
               MOVE SQLCODE TO                       A,: S,:java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
             END-IF
             DISPLAY
             "=============================
EXECSQLCOMMIT END-EXEC
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0417 *******************





      ******************** BEGIN TEST0418 *******************


             DISPLAY "                   TEST0418          "
             DISPLAY "  AVG, SUM, COUNT on Cartesian product with NULL"
             DISPLAY "      Reference: ANSI X3.135-1989 5.8  GR 2)"
             DISPLAY "                                  5.9  GR 1)"
             DISPLAY "                                  5.11 GR 7)"
             DISPLAY "   -                0 
             if (ifpass)
             DISPLAY "          DISPLAY"**  **"
-"T2.)"
             DISPLAY "                SUM(T2.COL4), COUNT(DISTINCT
      -    " T1.COL4)"
             DISPLAY                 
             DISPLAY "         DISPLAY "   dml073.pco * 
             DISPLAY  " "

C  SELECT(.COL4) (.COL4  T2.COL4,
               SUM(T2.COL4), COUNT(DISTINCT T1.java.lang.StringIndexOutOfBoundsException: Range [0, 51) out of bounds for length 38
               INTO :AVG1             
               FROM VTABLE T1 VTABLE T2 END-EXEC
             MOVE SQLCODE TO SQL-COD

             DISPLAY"The correct answer is:"
             DISPLAY "        147 or 148, 295 or 296, 1772, 3"
              answeris"
             DISPLAY "        ", 
             MOVE 1 TO ifpass
             if (CNT1  NOT =
               MOVE      ******************** BEGIN TEST0419 *******************
             END-IF
             if (AVG1  <  147  OR  AVG1  >  148) then
               MOVE 0 TO              DISPLAY "      Ref:ANSI.13519895.  GR2"
             
             if (AVG2  <  295  OR  AVG2  >  296) then                     -----  --------java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
MOVE ifpass
             END-IF
             if (ifpass  =  1) then
               DISPLAY "             *** java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                SQLINTO 
                 VALUES('              TO 
             DISPLAY Thecorrect is:java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
             else
               DISPLAY "   dml073.pco  *** fail *** "
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES(              (   = 3488 
             ADD 1 TO errcnt
               MOVE SQLCODE   960)then
             END-IF
             DISPLAY
             "=============================               java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 31
             EXEC SQL COMMIT                DISPLAY "         ***"
             MOVE   

      ******************** END TEST0418 *******************





      ******************** BEGIN TEST0419 *******************


        TEST0419
             DISPLAY "      SUM,MAX,MIN on joined table view "
             DISPLAY "      Reference: ANSI X3.135-1989               1TO 
             DISPLAY "                                  6.9  GR 1)java.lang.StringIndexOutOfBoundsException: Index 66 out of bounds for length 19
             DISPLAY "- - ----- ---   -----java.lang.StringIndexOutOfBoundsException: Index 71 out of bounds for length 71
               ""
             DISPLAY "         SELECT SUM(COST), MAX(COST), MIN(COST)"
             DISPLAY "          SUM1,:, MIN1"
             DISPLAY "         FROM       ******************** END TEST0419 *******************
             DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

             EXEC SQL java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 0
               INTO :SUM1, :MAX1,            RUN
               FROM STAFF_WORKS_DESIGN END-EXEC
             MOVE SQLCODE TO SQL-COD        .

             DISPLAY "The correct               EXEC   PLUTO  :RD1,: 
             DISPLAY"3488   960,  288"
             DISPLAY "Your answer is:"
             DISPLAY "        ", SUM1 ",  ", MAX1 ", ", MIN1
MOVE1TO java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
             if (SUM1  NOT =                  ifpass=ifpass  1
               MOVE 0 TO ifpass
             END-IF
              (AX1NOT= 960)then
               MOVE 0 TO ifpass
             END-IF
             if (MIN1                            ,GRD1" " 
               MOVE 0 TO ifpass
             END-IF
             if (ifpass  =  1) then
               DISPLAY "             *** pass *** "
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES('0419','pass','PCO') END-EXEC
               MOVE SQLCODE TO SQL-COD
             else
               DISPLAY "   dml073.pco  *** fail *** "
               EXEC SQL INSERT INTO TESTREPORT
                 VALUES('0419','fail','PCO') END-EXEC
             ADD 1 TO errcnt
               MOVE SQLCODE TO SQL-COD
             END-IF
             DISPLAY
             "===================================================="
             EXEC SQL COMMIT WORK END-EXEC
             MOVE SQLCODE TO SQL-COD

      ******************** END TEST0419 *******************






      **** TESTER MAY CHOOSE TO INSERT CODE FOR errcnt > 0
           STOP RUN.

      *    ****  Procedures for PERFORM statements

        P50.
               MOVE 0 TO GRD1
               EXEC SQL FETCH PLUTO INTO :GRD1, :GRD2 END-EXEC
               MOVE SQLCODE TO SQL-COD
               if (GRD1  =  18  AND  GRD2  =  35) then
                 COMPUTE ifpass = ifpass + 1
                 DISPLAY "        ", GRD1 ", ", GRD2
               END-IF
               if (GRD1  =  18  AND  GRD2  =  70) then
                 COMPUTE ifpass = ifpass + 100
                 DISPLAY "        ", GRD1 ", ", GRD2
               END-IF

             ADD 1 TO lpcnt
           .