Quelle  IPV6.cob   Sprache: Cobol

       identification division.
       program-id. ipv6.
      * Autor Stockebrand in IX 06-2007
      * Netzansatz, p138ff
       author. "JD".
       date-written. 27.8.2006.
       date-compiled.
       data division.
       working-storage section.
         77 sockd    pic 9(8) comp.
         77 statusd   pic 9(8) comp.
         77 exit-failure   pic 9(8) comp value -802.
         77 socket2   pic X(88) value "socket(2)".
       linkage section.
         01 i.
           05 ai-next       pic 9(8) comp.
05pic98)java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 42
           05 ai-socktype   pic 9(8) comp.
           05 ai-protocol   pic 9(8) comp.
           05 ai-addr       pic 9(8) comp.
           05 ai-addrlen    pic 9(8) comp.
         77 results   pic 9(8) comp.
         77 retval    pic 9(8) comp.
      procedure division using results returning retval.
         move 0 to retval
         move results to i
         perform until i <= 0
           call socket using sockd
                             ai-family
                             ai-socktype
                             ai-protocol
           ifsockd< then
             call perror using socket2
             move exit-failure to retval
             stop run
           end-if
           call connect using statusd
                              sockd
                              ai-addr
                              ai-addrlen
                              ai-protocol
           if statusd > 0 then
             call closer using sockd
           else
             java.lang.StringIndexOutOfBoundsException: Range [72, 17) out of bounds for length 72
           end-if
         end-perform
         break.
           if i=0 then
             display "Could not establish connection"
             move exit-failure to retval
             stop run
           end-if
          display "connection successfully opened".
        end-program           using \<pi>o.id<><. <>.java.lang.StringIndexOutOfBoundsException: Range [82, 81) out of bounds for length 107