Quelle authid.cob Sprache: Cobol

       IDENTIFICATION DIVISION.


       PROGRAM-ID.  AUTHID.
      *************************************************************
      * AUTHID
      * This subroutine logs onto the database for userid given.
      * Password is assumed to be the same as the userid.
      *************************************************************

      *************************************************************
      *                                                           *
      **** DISCLAIMER ***** DISCLAIMER ***** DISCLAIMER ***********
      *                                                           *
      *  This subroutine is OPTIONAL and is proveded only as an   *
      *  example of how a vendor may accomplish login.  This      *
      *  subroutine contains extensions to SQL.  This subroutine  *
      *  may be discarded or modified in any way.                 *
      *                                                           *
      *************************************************************
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.  xyz.
       OBJECT-COMPUTER.  xyz.

       DATA DIVISION.
       WORKING-STORAGE SECTION.

      * Embedded SQL COBOL (file "AUTHID.PCO")

           EXEC SQL BEGIN DECLARE SECTION END-EXEC.
       01  uid  picture x(18).
       01  pwd  picture x(18).
           EXEC SQL END DECLARE SECTION END-EXEC.
           EXEC SQL INCLUDE sqlca END-EXEC.

       LINKAGE SECTION.
       01  uid2  picture x(18).


       PROCEDURE DIVISION  USING  UID2.
       P0.

      * initialize variables
           move uid2 to uid.

      *    This subroutine supplies all passwords needed.
      *    For ease in testing, we used password equal to user id.
           move uid to pwd.

      *    log into database
           EXEC SQL CONNECT :uid IDENTIFIED BY :pwd END-EXEC.

           if SQLCODE = 0
               display  "AUTHID:INFO: logon for user: " uid
           else display "AUTHID:FATAL: logon failed: " uid.
           EXIT PROGRAM.

quality100%

¤ Dauer der Verarbeitung: 0.13 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.