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.
           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.

quality98%

¤ Dauer der Verarbeitung: 0.12 Sekunden (vorverarbeitet) ¤

Wurzel

Suchen

Beweissystem der NASA

Beweissystem Isabelle

NIST Cobol Testsuite

Cephes Mathematical Library

Wiener Entwicklungsmethode

Haftungshinweis

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.

Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.