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.
           05 ai-family     pic 9(8) comp.
           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
           if sockd<0 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
             goto break
           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 ipv6.