cobol
तार

STRINGVAL ... मूव-वेवरस- STRING

   IDENTIFICATION DIVISION.
   PROGRAM-ID.  STRINGVAL.
   ENVIRONMENT DIVISION.
   DATA DIVISION.
   WORKING-STORAGE SECTION.

   01  WORK-AREAS.
       05 I-STRING        PIC X(08) VALUE   'STRNGVAL'.

       05 O-STRING        PIC XBXBXBXBXBXBXBX.
          88  O-STRING-IS-EMPTY     VALUE   SPACES.

   PROCEDURE DIVISION.
   GENESIS.

       PERFORM MAINLINE

       PERFORM FINALIZATION

       GOBACK

        .


   MAINLINE.

       DISPLAY 'STRINGVAL EXAMPLE IS STARTING !!!!!!!!!!!!!!'

       DISPLAY '=== USING MOVE STATEMENT ==='
       MOVE I-STRING TO O-STRING
       DISPLAY 'O STRING= ' O-STRING

       DISPLAY '=== USING STRING STATEMENT ==='
       SET O-STRING-IS-EMPTY    TO  TRUE
       STRING I-STRING ( 1 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           I-STRING ( 2 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           I-STRING ( 3 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           I-STRING ( 4 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           I-STRING ( 5 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           I-STRING ( 6 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           I-STRING ( 7 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           I-STRING ( 8 : 1 ) DELIMITED BY SIZE
           ' ' DELIMITED BY SIZE
           INTO O-STRING

       DISPLAY 'O STRING= ' O-STRING

        .


   FINALIZATION.

       DISPLAY 'STRINGVAL EXAMPLE IS COMPLETE !!!!!!!!!!!!!!'

        .

   END PROGRAM STRINGVAL.

एक उदाहरण नहीं, लेकिन…।

टिप्पणी जोड़ने का एकमात्र तरीका लग रहा था। एक बात जो भूलना आसान है, वह यह है कि यदि आप ऊपर दिए गए उदाहरण की तरह कुछ चर स्ट्रिंग करते हैं, और परिणामी लंबाई SHORTER है जो मूल रूप से प्राप्त चर (o- स्ट्रिंग ऊपर) में है तो "अनुगामी" वर्णों को छोड़ दिया जाता है।

उदाहरण के लिए, यदि ओ-स्ट्रिंग में "स्ट्रिंग में यह डेटा होता है" और आप एक साथ "फ़्रेड एंड बर्ट" को स्ट्रिंग करते हैं, तो ओ-स्ट्रिंग में "फ़्रेड एंड बर्टनोट्स इस डेटा को शामिल किया जाएगा" (यदि मैंने सही गणना की है)।

सुमा सारांश, स्ट्रिंग शुरू करने से पहले अपने प्राप्त चर में हमेशा चलने वाले स्थानों की आदत डालें।