| Quellcodebibliothek Statistik Leitseite products/Sources/formale Sprachen/Fortran/f90gl-1.2.15/ (NIST Fortran ©) Datei vom 5.8.2006 mit Größe 2 kB |
|
Quellcode-Bibliothek 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. ¤ 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.0.12Bemerkung: (vorverarbeitet) ¤*© Formatika GbR, Deutschland |
|
2026-03-28