COBOL example – SIOCGPARTNERINFO ioctl call

The following sample COBOL code builds and issues the SIOCGPARTNERINFO ioctl. The SIOCGPARTNERINFO ioctl retrieves the connection routing information and the security credentials of a partner.

⋮
*==============* 
 Data Division.  
*==============* 
*---------------------------------------------------------------*
* Variables used by the SIOCGPARTNERINFO IOCTL call             *
*---------------------------------------------------------------*
 01  partnerinfo-data pic x.                                     
     COPY EZBPINFB.
 01  FIELD-DEFINE           PIC X(4).
 01  FIELD-DEFINEVALUE redefines field-DEFINE.
   02 defineNum             PIC 9(8) Binary.
 01  FIELD-DEFINE1          PIC X(4).
 01  FIELD-DEFINE1VALUE redefines field-DEFINE1.
   02 defineNum1            PIC 9(8) Binary.
⋮
*=============================================*  
 Procedure Division.                    
*=============================================*  
⋮
*****************************************************************
* Issue IOCTL SIOCGPARTNERINFO                                  *
*****************************************************************
 SiocGPartnerInfo-Ioctl.
     move PI-VERSION-1 to PI-VERSION.                
     move PI-TIMEOUT-MAXIMUM to PI-TIMEOUT.
                                                                 
     move PI-FIXED-SIZE to PI-BUFLEN.
     add  PI-UTOKEN-EXT-SIZE to PI-BUFLEN.

     move PI-REQTYPE-PARTNER-USERID to FIELD-DEFINE. 
     move PI-REQTYPE-PARTNER-UTOKEN to FIELD-DEFINE1.
     add defineNum1 to defineNum.
     move FIELD-DEFINE to PI-REQTYPE.

     move soket-ioctl to ezaerror-function.
     Call 'EZASOKET' using soket-ioctl socket-descriptor
         SIOCGPARTNERINFO         
         PARTNERINFO PARTNERINFO
         errno retcode.
 SiocGPartnerInfo-Ioctl-Exit.
          Exit.