home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerCBL / powercbl.Z / dbaccess.prc < prev    next >
Text File  |  1997-05-14  |  2KB  |  75 lines
  1. @POWER POWSHEET SHEET1 WORKING
  2.  01 CURRENT-RECORD PIC 9(8) COMP-5 GLOBAL EXTERNAL.
  3. * 01 CURRENT-RECORD-NUM REDEFINES CURRENT-RECORD PIC 9(9) GLOBAL EXTERNAL.
  4. @POWER POWPSBTN PUSH1 CLICK
  5.  ENVIRONMENT DIVISION.
  6.  DATA        DIVISION.
  7.  PROCEDURE   DIVISION.
  8. * Connect to the database.
  9.          CALL OPENDB OF ODBC1.
  10.         IF PROGRAM-STATUS < 0 THEN
  11.             EXIT PROGRAM
  12.         END-IF.
  13. * Select the record group.
  14.         CALL SELECTRECORDS OF ODBC1.
  15. * Read the first record.
  16.         CALL READNEXTRECORD OF ODBC1
  17. * EOD ruling.
  18.             IF PROGRAM-STATUS NOT = 1 THEN
  19.                 EXIT PROGRAM
  20.             END-IF
  21. * Display the read record in the edit fields.
  22.          MOVE EmployeeID OF ODBC1 TO CURRENT-RECORD
  23.          MOVE CURRENT-RECORD TO POW-TEXT OF EDIT1
  24.             MOVE FirstName OF ODBC1 TO POW-TEXT OF EDIT2
  25.           MOVE LastName OF ODBC1 TO POW-TEXT OF EDIT3
  26. @POWER POWPSBTN PUSH2 CLICK
  27.  ENVIRONMENT DIVISION.
  28.  DATA        DIVISION.
  29.  PROCEDURE   DIVISION.
  30.         CALL READNEXTRECORD OF ODBC1
  31. * EOD ruling.
  32.             IF PROGRAM-STATUS NOT = 1 THEN
  33.                 EXIT PROGRAM
  34.             END-IF
  35. * Display the next record in the edit fields.
  36.          MOVE EmployeeID OF ODBC1 TO CURRENT-RECORD
  37.          MOVE CURRENT-RECORD TO POW-TEXT OF EDIT1
  38.          MOVE EmployeeID OF ODBC1 TO POW-TEXT OF EDIT1
  39.            MOVE FirstName OF ODBC1 TO POW-TEXT OF EDIT2
  40.           MOVE LastName OF ODBC1 TO POW-TEXT OF EDIT3
  41. @POWER POWPSBTN PUSH4 CLICK
  42.  ENVIRONMENT DIVISION.
  43.  DATA        DIVISION.
  44.  PROCEDURE   DIVISION.
  45. * Close the sample application.
  46.         CALL CLOSESHEET OF SHEET1.
  47. @POWER POWPSBTN PUSH3 CLICK
  48.  ENVIRONMENT DIVISION.
  49.  DATA        DIVISION.
  50.  WORKING-STORAGE SECTION.
  51.  01 SEARCH-STRING.
  52.    02 FILLER       PIC X(14) VALUE IS "EmployeeID >= ".
  53.    02 RECORDNUMBER PIC X(9).
  54. *   02 RECORDNUMBER-NUM REDEFINES RECORDNUMBER PIC 9(8).
  55.  
  56.  PROCEDURE   DIVISION.
  57.      IF CURRENT-RECORD > 1 THEN
  58.          SUBTRACT 1 FROM CURRENT-RECORD
  59.          MOVE CURRENT-RECORD TO RECORDNUMBER
  60.          MOVE SEARCH-STRING TO POW-DBCONDITION OF ODBC1
  61.           CALL SELECTRECORDS OF ODBC1
  62. * Read the first record.
  63.         CALL READNEXTRECORD OF ODBC1
  64. * End of Data check.
  65.              IF PROGRAM-STATUS NOT = 1 THEN
  66.                 EXIT PROGRAM
  67.             END-IF
  68. * Display the read record in the edit fields.
  69.          MOVE EmployeeID OF ODBC1 TO CURRENT-RECORD
  70.          MOVE CURRENT-RECORD TO POW-TEXT OF EDIT1
  71.             MOVE FirstName OF ODBC1 TO POW-TEXT OF EDIT2
  72.           MOVE LastName OF ODBC1 TO POW-TEXT OF EDIT3
  73.          MOVE " " TO POW-DBCONDITION OF ODBC1
  74.      END-IF
  75.