COBOL प्रोग्रामिंग की बुनियादी जानकारी हासिल करने के बाद, अगला कदम है उन्नत विषयों को समझना जो आपको अधिक जटिल और प्रभावी प्रोग्राम लिखने में मदद करेंगे। इस खंड में, हम COBOL के उन्नत विषयों जैसे सबरूटीन और मॉड्यूल, टेबल्स और इंडेक्सेड डेटा, डेटाबेस कनेक्टिविटी, और इंटरैक्टिव प्रोग्रामिंग पर चर्चा करेंगे। ये विषय आपको प्रोग्रामिंग की उच्चतर तकनीकों को समझने और उन्हें अपने प्रोजेक्ट्स में लागू करने के लिए तैयार करेंगे। उन्नत COBOL टॉपिक्स पर यह गाइड आपकी प्रोग्रामिंग दक्षता को एक नई ऊँचाई पर ले जाएगी।
COBOL में सबरूटीन और मॉड्यूल (Subroutines and Modules)
COBOL में सबरूटीन और मॉड्यूल्स का उपयोग कोड को व्यवस्थित, पुन: प्रयोज्य, और अधिक समझने योग्य बनाने के लिए किया जाता है। सबरूटीन और मॉड्यूल्स बड़े प्रोग्राम्स को छोटे-छोटे लॉजिकल हिस्सों में विभाजित करने में मदद करते हैं, जिससे कोड का रखरखाव और परीक्षण आसान हो जाता है। आइए हम इन्हें विस्तार से समझते हैं।
1. सबरूटीन (Subroutines)
- परिभाषा: सबरूटीन एक प्रोग्राम के भीतर एक स्वतंत्र कोड ब्लॉक होता है जिसे मुख्य प्रोग्राम से अलग किया जा सकता है। इसका उपयोग तब किया जाता है जब किसी विशेष कार्य को बार-बार निष्पादित करने की आवश्यकता होती है। सबरूटीन को कई बार कॉल किया जा सकता है, जिससे कोड को पुन: प्रयोज्य और संरचित बनाया जा सकता है।
- प्रकार:
- Internal Subroutines: ये सबरूटीन मुख्य प्रोग्राम के भीतर ही परिभाषित होते हैं और आमतौर पर एक पैराग्राफ या सेक्शन के रूप में लिखे जाते हैं। इन्हें
PERFORM
स्टेटमेंट का उपयोग करके कॉल किया जाता है। - External Subroutines: ये सबरूटीन अलग फाइल में परिभाषित होते हैं और
CALL
स्टेटमेंट का उपयोग करके मुख्य प्रोग्राम से कॉल किए जाते हैं।
- Internal Subroutines: ये सबरूटीन मुख्य प्रोग्राम के भीतर ही परिभाषित होते हैं और आमतौर पर एक पैराग्राफ या सेक्शन के रूप में लिखे जाते हैं। इन्हें
उदाहरण:
- Internal Subroutine:
PROCEDURE DIVISION. PERFORM CALCULATE-TOTAL. PERFORM DISPLAY-RESULT. STOP RUN. CALCULATE-TOTAL. ADD PRICE TO TOTAL-AMOUNT. DISPLAY-RESULT. DISPLAY 'Total Amount: ' TOTAL-AMOUNT.
- External Subroutine:
CALL 'CALC-MODULE' USING PRICE TOTAL-AMOUNT.
उदाहरण का विवरण:
PERFORM CALCULATE-TOTAL
औरPERFORM DISPLAY-RESULT
इंटरनल सबरूटीन को कॉल करते हैं, जोPRICE
कोTOTAL-AMOUNT
में जोड़ते हैं और परिणाम प्रदर्शित करते हैं।CALL 'CALC-MODULE'
एक एक्सटर्नल सबरूटीन को कॉल करता है, जिसे एक अलग फाइल में परिभाषित किया गया हो सकता है।
2. मॉड्यूल्स (Modules)
- परिभाषा: मॉड्यूल्स एक बड़े प्रोग्राम के हिस्सों को अलग-अलग यूनिट्स में विभाजित करने के लिए उपयोग किए जाते हैं। प्रत्येक मॉड्यूल एक स्वतंत्र रूप से काम करने वाला यूनिट होता है जिसे मुख्य प्रोग्राम के साथ जोड़ा जा सकता है। मॉड्यूलर प्रोग्रामिंग बड़े और जटिल सिस्टम्स में विशेष रूप से उपयोगी होती है, जहाँ कोड का रखरखाव और अद्यतन करना महत्वपूर्ण होता है।
- उपयोग: मॉड्यूल्स का उपयोग तब किया जाता है जब प्रोग्राम को अलग-अलग हिस्सों में विभाजित करने की आवश्यकता होती है, ताकि उन्हें स्वतंत्र रूप से विकसित, परीक्षण, और मेंटेन किया जा सके। एक मॉड्यूल में कई सबरूटीन और फंक्शंस हो सकते हैं।
- कॉलिंग मॉड्यूल: मॉड्यूल्स को
CALL
स्टेटमेंट का उपयोग करके मुख्य प्रोग्राम से कॉल किया जा सकता है। मॉड्यूल्स के बीच डेटा पास करने के लिएUSING
क्लॉज़ का उपयोग किया जाता है।
उदाहरण:
CALL 'PROCESS-TRANSACTION' USING TRANSACTION-ID, TRANSACTION-AMOUNT.
उदाहरण का विवरण:
CALL 'PROCESS-TRANSACTION'
स्टेटमेंटPROCESS-TRANSACTION
नामक एक मॉड्यूल को कॉल करता है, जोTRANSACTION-ID
औरTRANSACTION-AMOUNT
को प्रोसेस करता है।
उदाहरण प्रोग्राम (Example Program using Subroutine and Module):
IDENTIFICATION DIVISION. PROGRAM-ID. MainProgram. DATA DIVISION. WORKING-STORAGE SECTION. 01 PRICE PIC 9(4)V99 VALUE 100.50. 01 TOTAL-AMOUNT PIC 9(7)V99 VALUE 0. PROCEDURE DIVISION. PERFORM CALCULATE-TOTAL. CALL 'DISPLAY-MODULE' USING TOTAL-AMOUNT. STOP RUN. CALCULATE-TOTAL. ADD PRICE TO TOTAL-AMOUNT.
External Module (DISPLAY-MODULE)
IDENTIFICATION DIVISION. PROGRAM-ID. DisplayModule. DATA DIVISION. LINKAGE SECTION. 01 LNK-TOTAL-AMOUNT PIC 9(7)V99. PROCEDURE DIVISION USING LNK-TOTAL-AMOUNT. DISPLAY 'The Total Amount is: ' LNK-TOTAL-AMOUNT. STOP RUN.
प्रोग्राम की व्याख्या (Explanation of the Program):
- Main Program: मुख्य प्रोग्राम
PERFORM CALCULATE-TOTAL
का उपयोग करता है, जो एक इंटरनल सबरूटीन है,PRICE
कोTOTAL-AMOUNT
में जोड़ने के लिए। - External Module:
CALL 'DISPLAY-MODULE' USING TOTAL-AMOUNT
स्टेटमेंटDISPLAY-MODULE
नामक एक्सटर्नल मॉड्यूल को कॉल करता है, जोTOTAL-AMOUNT
को प्रदर्शित करता है।
COBOL में टेबल्स और इंडेक्सेड डेटा (Working with Tables and Indexed Data)
COBOL में टेबल्स और इंडेक्सेड डेटा का उपयोग डेटा को संरचित और कुशल तरीके से संग्रहित करने और प्रोसेस करने के लिए किया जाता है। टेबल्स डेटा के एकत्रीकरण का प्रतिनिधित्व करते हैं, जिसमें समान प्रकार के कई डेटा आइटम्स होते हैं। इंडेक्स का उपयोग टेबल के डेटा तक तेज़ी से पहुंचने के लिए किया जाता है। आइए हम COBOL में टेबल्स और इंडेक्सेड डेटा के साथ काम करने की प्रक्रिया को विस्तार से समझें।
1. टेबल्स की परिभाषा (Defining Tables)
- परिभाषा: COBOL में टेबल्स एक डेटा संरचना है, जिसमें एक ही प्रकार के डेटा आइटम्स की एक सूची होती है। इसे वेरिएबल्स के एक समूह के रूप में समझा जा सकता है, जिसे एक साथ संग्रहित और प्रोसेस किया जा सकता है।
- घोषणा: टेबल्स को WORKING-STORAGE SECTION में घोषित किया जाता है, जहाँ प्रत्येक आइटम को एक सबस्क्रिप्ट (इंडेक्स) के साथ एक्सेस किया जा सकता है।
- उदाहरण:
01 EMPLOYEE-TABLE. 05 EMPLOYEE-RECORD OCCURS 10 TIMES INDEXED BY EMP-INDEX. 10 EMPLOYEE-ID PIC 9(5). 10 EMPLOYEE-NAME PIC X(30). 10 EMPLOYEE-SALARY PIC 9(7)V99.
इस उदाहरण में,
EMPLOYEE-TABLE
एक टेबल है, जिसमें 10EMPLOYEE-RECORD
हो सकते हैं। प्रत्येक रिकॉर्ड मेंEMPLOYEE-ID
,EMPLOYEE-NAME
, औरEMPLOYEE-SALARY
शामिल हैं।
2. टेबल्स के साथ काम करना (Working with Tables)
- डेटा असाइनमेंट: टेबल्स के प्रत्येक आइटम को एक सबस्क्रिप्ट (इंडेक्स) के माध्यम से एक्सेस किया जाता है।
- उदाहरण:
MOVE 101 TO EMPLOYEE-ID (1). MOVE 'John Doe' TO EMPLOYEE-NAME (1). MOVE 50000.00 TO EMPLOYEE-SALARY (1).
इस उदाहरण में, पहले कर्मचारी (
EMPLOYEE-ID (1)
) का डेटा असाइन किया गया है। - टेबल के आइटम्स तक पहुंचना: टेबल के आइटम्स तक पहुंचने के लिए आप सबस्क्रिप्ट का उपयोग कर सकते हैं।
DISPLAY EMPLOYEE-NAME (1). DISPLAY EMPLOYEE-SALARY (1).
3. इंडेक्सेड डेटा के साथ काम करना (Working with Indexed Data)
- परिभाषा: इंडेक्स का उपयोग टेबल में डेटा आइटम्स को तेज़ी से एक्सेस करने के लिए किया जाता है। इंडेक्स को AUTOMATICALLY COBOL द्वारा मैनेज किया जाता है और इसका उपयोग टेबल्स के डेटा को सॉर्ट, सर्च, और एक्सेस करने के लिए किया जा सकता है।
- इंडेक्स की घोषणा: टेबल्स में डेटा आइटम्स को इंडेक्स करने के लिए
INDEXED BY
क्लॉज़ का उपयोग किया जाता है। - इंडेक्स का उपयोग:
SET
औरSEARCH
स्टेटमेंट्स का उपयोग इंडेक्स को मैनेज और उपयोग करने के लिए किया जाता है।
उदाहरण:
- SET इंडेक्स करना:
SET EMP-INDEX TO 1. MOVE 101 TO EMPLOYEE-ID (EMP-INDEX).
- SEARCH इंडेक्सेड डेटा:
SEARCH EMPLOYEE-RECORD AT END DISPLAY 'Employee not found' WHEN EMPLOYEE-ID (EMP-INDEX) = 101 DISPLAY 'Employee Name: ' EMPLOYEE-NAME (EMP-INDEX) END-SEARCH.
उदाहरण का विवरण:
SET
स्टेटमेंट का उपयोग करकेEMP-INDEX
को सेट किया जाता है, जिससेEMPLOYEE-ID
को इंडेक्स के माध्यम से असाइन किया जाता है।SEARCH
स्टेटमेंट का उपयोगEMPLOYEE-ID
के आधार पर टेबल में डेटा को खोजने के लिए किया जाता है।
4. टेबल्स के साथ लूपिंग (Looping through Tables)
- लूपिंग: आप
PERFORM
स्टेटमेंट का उपयोग करके टेबल्स के सभी आइटम्स को प्रोसेस कर सकते हैं। - उदाहरण:
PERFORM VARYING EMP-INDEX FROM 1 BY 1 UNTIL EMP-INDEX > 10 DISPLAY 'Employee ID: ' EMPLOYEE-ID (EMP-INDEX) DISPLAY 'Employee Name: ' EMPLOYEE-NAME (EMP-INDEX) DISPLAY 'Employee Salary: ' EMPLOYEE-SALARY (EMP-INDEX) END-PERFORM.
इस उदाहरण में,
EMP-INDEX
का उपयोग करकेEMPLOYEE-TABLE
के सभी रिकॉर्ड्स को लूप के माध्यम से प्रोसेस किया गया है।
उदाहरण प्रोग्राम (Example Program using Tables and Indexed Data):
IDENTIFICATION DIVISION. PROGRAM-ID. TableExample. DATA DIVISION. WORKING-STORAGE SECTION. 01 EMPLOYEE-TABLE. 05 EMPLOYEE-RECORD OCCURS 5 TIMES INDEXED BY EMP-INDEX. 10 EMPLOYEE-ID PIC 9(5). 10 EMPLOYEE-NAME PIC X(30). 10 EMPLOYEE-SALARY PIC 9(7)V99. PROCEDURE DIVISION. SET EMP-INDEX TO 1. MOVE 101 TO EMPLOYEE-ID (EMP-INDEX). MOVE 'John Doe' TO EMPLOYEE-NAME (EMP-INDEX). MOVE 50000.00 TO EMPLOYEE-SALARY (EMP-INDEX). SET EMP-INDEX TO 2. MOVE 102 TO EMPLOYEE-ID (EMP-INDEX). MOVE 'Jane Smith' TO EMPLOYEE-NAME (EMP-INDEX). MOVE 60000.00 TO EMPLOYEE-SALARY (EMP-INDEX). PERFORM VARYING EMP-INDEX FROM 1 BY 1 UNTIL EMP-INDEX > 2 DISPLAY 'Employee ID: ' EMPLOYEE-ID (EMP-INDEX) DISPLAY 'Employee Name: ' EMPLOYEE-NAME (EMP-INDEX) DISPLAY 'Employee Salary: ' EMPLOYEE-SALARY (EMP-INDEX) END-PERFORM. STOP RUN.
प्रोग्राम की व्याख्या (Explanation of the Program):
- Employee Table:
EMPLOYEE-TABLE
एक टेबल है, जिसमें पांच कर्मचारी रिकॉर्ड्स स्टोर किए जा सकते हैं। प्रत्येक रिकॉर्ड मेंEMPLOYEE-ID
,EMPLOYEE-NAME
, औरEMPLOYEE-SALARY
शामिल हैं। - Indexing:
SET
स्टेटमेंट का उपयोग इंडेक्स को सेट करने के लिए किया गया है, और प्रत्येक इंडेक्स के लिए कर्मचारी डेटा असाइन किया गया है। - Looping:
PERFORM
स्टेटमेंट का उपयोग टेबल में सभी कर्मचारियों के डेटा को प्रदर्शित करने के लिए किया गया है।
COBOL में डेटाबेस कनेक्टिविटी (Database Connectivity with COBOL)
COBOL प्रोग्रामिंग में डेटाबेस कनेक्टिविटी आपको संरचित डेटा को संग्रहीत, पुनः प्राप्त, और प्रबंधित करने की क्षमता प्रदान करती है। COBOL प्रोग्राम्स को डेटाबेस से जोड़ने के लिए कई तरीके हैं, जिनमें प्रमुख हैं Embedded SQL और Call Interface का उपयोग। ये तकनीकें आपको डेटाबेस ऑपरेशन्स जैसे डेटा क्वेरी, अपडेट, और डिलीट को COBOL प्रोग्राम्स के भीतर से ही करने की सुविधा प्रदान करती हैं। आइए हम डेटाबेस कनेक्टिविटी की प्रक्रिया को विस्तार से समझते हैं।
1. Embedded SQL के साथ डेटाबेस कनेक्टिविटी (Database Connectivity with Embedded SQL)
- परिभाषा: Embedded SQL का उपयोग COBOL प्रोग्राम्स में SQL क्वेरीज़ को सीधे एम्बेड करने के लिए किया जाता है। इससे आपको SQL कमांड्स का उपयोग करके डेटाबेस से डेटा एक्सेस और प्रबंधित करने की सुविधा मिलती है।
- EXEC SQL और END-EXEC क्लॉज़: COBOL में SQL स्टेटमेंट्स को
EXEC SQL
औरEND-EXEC
के बीच एम्बेड किया जाता है।
उदाहरण:
EXEC SQL SELECT EMPLOYEE_ID, EMPLOYEE_NAME, EMPLOYEE_SALARY INTO :EMPLOYEE-ID, :EMPLOYEE-NAME, :EMPLOYEE-SALARY FROM EMPLOYEES WHERE EMPLOYEE_ID = 101 END-EXEC.
इस उदाहरण में, SQL क्वेरी का उपयोग करके EMPLOYEES
टेबल से EMPLOYEE_ID
101 का डेटा प्राप्त किया गया है और COBOL वेरिएबल्स में स्टोर किया गया है।
2. डेटाबेस कनेक्शन स्थापित करना (Establishing a Database Connection)
- DATABASE CONNECT: डेटाबेस से कनेक्शन स्थापित करने के लिए
CONNECT
स्टेटमेंट का उपयोग किया जाता है।
उदाहरण:
EXEC SQL CONNECT TO 'DatabaseName' USER 'username' USING 'password' END-EXEC.
इस स्टेटमेंट का उपयोग डेटाबेस से कनेक्शन स्थापित करने के लिए किया जाता है, जहाँ DatabaseName
, username
, और password
को आपके डेटाबेस की जानकारी से बदलना होता है।
3. डेटा क्वेरी और रिट्रीवल (Data Query and Retrieval)
- SELECT स्टेटमेंट: डेटा को डेटाबेस से प्राप्त करने के लिए SQL का
SELECT
स्टेटमेंट उपयोग किया जाता है।
उदाहरण:
EXEC SQL SELECT EMPLOYEE_ID, EMPLOYEE_NAME, EMPLOYEE_SALARY INTO :EMPLOYEE-ID, :EMPLOYEE-NAME, :EMPLOYEE-SALARY FROM EMPLOYEES WHERE EMPLOYEE_ID = 101 END-EXEC.
इस उदाहरण में, EMPLOYEES
टेबल से EMPLOYEE_ID
101 का डेटा क्वेरी किया गया है और परिणाम को COBOL वेरिएबल्स में स्टोर किया गया है।
4. डेटाबेस में डेटा अपडेट करना (Updating Data in the Database)
- UPDATE स्टेटमेंट: डेटाबेस में डेटा अपडेट करने के लिए
UPDATE
स्टेटमेंट का उपयोग किया जाता है।
उदाहरण:
EXEC SQL UPDATE EMPLOYEES SET EMPLOYEE_SALARY = :NEW-SALARY WHERE EMPLOYEE_ID = :EMPLOYEE-ID END-EXEC.
इस उदाहरण में, EMPLOYEES
टेबल में EMPLOYEE_ID
के आधार पर EMPLOYEE_SALARY
को अपडेट किया गया है।
5. डेटाबेस से डेटा डिलीट करना (Deleting Data from the Database)
- DELETE स्टेटमेंट: डेटाबेस से डेटा डिलीट करने के लिए
DELETE
स्टेटमेंट का उपयोग किया जाता है।
उदाहरण:
EXEC SQL DELETE FROM EMPLOYEES WHERE EMPLOYEE_ID = :EMPLOYEE-ID END-EXEC.
इस उदाहरण में, EMPLOYEE_ID
के आधार पर EMPLOYEES
टेबल से रिकॉर्ड डिलीट किया गया है।
6. डेटाबेस कनेक्शन बंद करना (Closing the Database Connection)
- DISCONNECT: डेटाबेस ऑपरेशन्स के बाद कनेक्शन को बंद करना आवश्यक होता है।
उदाहरण:
EXEC SQL DISCONNECT CURRENT END-EXEC.
इस स्टेटमेंट का उपयोग डेटाबेस कनेक्शन को सुरक्षित रूप से बंद करने के लिए किया जाता है।
उदाहरण प्रोग्राम (Example Program with Database Connectivity):
IDENTIFICATION DIVISION. PROGRAM-ID. DatabaseExample. DATA DIVISION. WORKING-STORAGE SECTION. 01 EMPLOYEE-ID PIC 9(5). 01 EMPLOYEE-NAME PIC X(30). 01 EMPLOYEE-SALARY PIC 9(7)V99. 01 NEW-SALARY PIC 9(7)V99 VALUE 55000.00. PROCEDURE DIVISION. EXEC SQL CONNECT TO 'MyDatabase' USER 'dbuser' USING 'dbpassword' END-EXEC. EXEC SQL SELECT EMPLOYEE_ID, EMPLOYEE_NAME, EMPLOYEE_SALARY INTO :EMPLOYEE-ID, :EMPLOYEE-NAME, :EMPLOYEE-SALARY FROM EMPLOYEES WHERE EMPLOYEE_ID = 101 END-EXEC. DISPLAY 'Employee ID: ' EMPLOYEE-ID. DISPLAY 'Employee Name: ' EMPLOYEE-NAME. DISPLAY 'Employee Salary: ' EMPLOYEE-SALARY. EXEC SQL UPDATE EMPLOYEES SET EMPLOYEE_SALARY = :NEW-SALARY WHERE EMPLOYEE_ID = :EMPLOYEE-ID END-EXEC. EXEC SQL DISCONNECT CURRENT END-EXEC. STOP RUN.
प्रोग्राम की व्याख्या (Explanation of the Program):
- CONNECT: डेटाबेस से कनेक्शन स्थापित करने के लिए
CONNECT
स्टेटमेंट का उपयोग किया गया है। - SELECT:
EMPLOYEE_ID
101 के आधार परEMPLOYEES
टेबल से डेटा क्वेरी किया गया है और COBOL वेरिएबल्स में स्टोर किया गया है। - UPDATE:
EMPLOYEE_SALARY
को अपडेट किया गया है और नए सैलरी कोNEW-SALARY
वेरिएबल से सेट किया गया है। - DISCONNECT: सभी डेटाबेस ऑपरेशन्स के बाद कनेक्शन को बंद किया गया है।
COBOL में इंटरैक्टिव प्रोग्राम्स (Interactive Programs and Screen Handling)
COBOL में इंटरैक्टिव प्रोग्राम्स और स्क्रीन हैंडलिंग का उपयोग यूजर इंटरफेस बनाने के लिए किया जाता है, जहाँ प्रोग्राम और यूजर के बीच डेटा का आदान-प्रदान होता है। इन प्रोग्राम्स में यूजर इनपुट प्रदान करता है, और प्रोग्राम उन इनपुट्स के आधार पर प्रतिक्रिया देता है। COBOL में इंटरैक्टिव प्रोग्राम्स का निर्माण करने के लिए विशेष तकनीकों का उपयोग किया जाता है, जिसमें ACCEPT, DISPLAY, और SCREEN SECTION जैसी सुविधाएँ शामिल हैं। आइए हम इन तकनीकों को विस्तार से समझें।
1. ACCEPT और DISPLAY स्टेटमेंट्स (ACCEPT and DISPLAY Statements)
- ACCEPT स्टेटमेंट: ACCEPT स्टेटमेंट का उपयोग यूजर से डेटा इनपुट प्राप्त करने के लिए किया जाता है। यह प्रोग्राम को इंटरैक्टिव बनाता है, जहाँ यूजर किसी वेरिएबल में डेटा इनपुट करता है।
- DISPLAY स्टेटमेंट: DISPLAY स्टेटमेंट का उपयोग यूजर को आउटपुट या संदेश दिखाने के लिए किया जाता है। इसे स्क्रीन पर डेटा प्रदर्शित करने के लिए उपयोग किया जाता है।
उदाहरण:
DISPLAY 'Enter your name: '. ACCEPT USER-NAME. DISPLAY 'Hello, ' USER-NAME ' !'.
इस उदाहरण में, यूजर से उसका नाम इनपुट करने के लिए ACCEPT
स्टेटमेंट का उपयोग किया गया है, और फिर नाम के साथ स्वागत संदेश प्रदर्शित करने के लिए DISPLAY
स्टेटमेंट का उपयोग किया गया है।
2. SCREEN SECTION का उपयोग (Using SCREEN SECTION)
- परिभाषा:
SCREEN SECTION
का उपयोग COBOL में एक इंटरैक्टिव स्क्रीन लेआउट को परिभाषित करने के लिए किया जाता है। यह स्क्रीन पर डेटा इनपुट और आउटपुट को फॉर्मेट करने की सुविधा प्रदान करता है। - SCREEN SECTION की संरचना: SCREEN SECTION को
DATA DIVISION
के अंतर्गत परिभाषित किया जाता है, जहाँ प्रत्येक स्क्रीन आइटम को उचित पोजीशन और फॉर्मेट के साथ निर्दिष्ट किया जाता है।
उदाहरण:
DATA DIVISION. WORKING-STORAGE SECTION. 01 USER-NAME PIC X(20). 01 USER-AGE PIC 99. SCREEN SECTION. 01 MAIN-SCREEN. 05 LINE 1 COLUMN 10 VALUE 'Enter your name: '. 05 LINE 1 COLUMN 30 PIC X(20) TO USER-NAME. 05 LINE 3 COLUMN 10 VALUE 'Enter your age: '. 05 LINE 3 COLUMN 30 PIC 99 TO USER-AGE. PROCEDURE DIVISION. DISPLAY MAIN-SCREEN. ACCEPT MAIN-SCREEN. DISPLAY 'Name: ' USER-NAME. DISPLAY 'Age: ' USER-AGE. STOP RUN.
उदाहरण का विवरण:
SCREEN SECTION
मेंMAIN-SCREEN
नामक एक स्क्रीन लेआउट परिभाषित किया गया है, जहाँ यूजर से नाम और उम्र का इनपुट प्राप्त करने के लिए फील्ड्स हैं।DISPLAY
स्टेटमेंट का उपयोग स्क्रीन को दिखाने के लिए किया गया है, औरACCEPT
स्टेटमेंट का उपयोग यूजर इनपुट को प्राप्त करने के लिए किया गया है।
3. इंटरैक्टिव प्रोग्राम का फ्लो (Flow of an Interactive Program)
- स्टेप 1: यूजर से इनपुट प्राप्त करना
- ACCEPT स्टेटमेंट का उपयोग करके यूजर से इनपुट प्राप्त करें।
- स्टेप 2: यूजर को आउटपुट दिखाना
- DISPLAY स्टेटमेंट का उपयोग करके यूजर को आउटपुट या फीडबैक दिखाएँ।
- स्टेप 3: इंटरैक्टिव स्क्रीन का उपयोग करना
- SCREEN SECTION का उपयोग करके एक इंटरैक्टिव स्क्रीन लेआउट बनाएं, और DISPLAY और ACCEPT स्टेटमेंट्स का उपयोग करके स्क्रीन के माध्यम से डेटा इनपुट और आउटपुट को मैनेज करें।
उदाहरण प्रोग्राम (Example Interactive Program):
IDENTIFICATION DIVISION. PROGRAM-ID. InteractiveExample. DATA DIVISION. WORKING-STORAGE SECTION. 01 USER-NAME PIC X(20). 01 USER-AGE PIC 99. 01 USER-CHOICE PIC X. SCREEN SECTION. 01 MAIN-SCREEN. 05 LINE 1 COLUMN 10 VALUE 'Enter your name: '. 05 LINE 1 COLUMN 30 PIC X(20) TO USER-NAME. 05 LINE 3 COLUMN 10 VALUE 'Enter your age: '. 05 LINE 3 COLUMN 30 PIC 99 TO USER-AGE. 05 LINE 5 COLUMN 10 VALUE 'Do you want to continue (Y/N)? '. 05 LINE 5 COLUMN 40 PIC X TO USER-CHOICE. PROCEDURE DIVISION. DISPLAY MAIN-SCREEN. ACCEPT MAIN-SCREEN. DISPLAY 'Name: ' USER-NAME. DISPLAY 'Age: ' USER-AGE. IF USER-CHOICE = 'Y' DISPLAY 'Thank you! You chose to continue.' ELSE DISPLAY 'Goodbye!' END-IF. STOP RUN.
प्रोग्राम की व्याख्या (Explanation of the Program):
- ACCEPT और DISPLAY: यूजर से नाम, उम्र, और कंटिन्यू करने की पसंद (Y/N) प्राप्त करने के लिए ACCEPT और DISPLAY स्टेटमेंट्स का उपयोग किया गया है।
- SCREEN SECTION:
MAIN-SCREEN
स्क्रीन लेआउट को परिभाषित करता है, जहाँ यूजर इनपुट को फॉर्मेट किया गया है। - कंडीशनल लॉजिक: यूजर के इनपुट के आधार पर प्रोग्राम की प्रतिक्रिया (
IF-ELSE
) दी गई है।