* AS WRITTEN, THIS PROGRAM REQUIRES THE FOLLOWING CBL OPTIONS.
      *   CBL MAP,XREF(SHORT),OFFSET,TEST(ALL,SYM),APOST,LIB
      *   CBL TRUNC(BIN),NOZWB
      *   CBL DATA(31),RMODE(ANY)
       IDENTIFICATION DIVISION.
       PROGRAM-ID.
           BSTTEZ03.
      *
      *    COPYRIGHT TEI 2001-2011
      *
      *    BASED ON FIGURE 38 IN MVS TCP/IP SOCKETS RED BOOK.
      *      GG24-2561-00
      *
      *    SEE COMMENTS IN BSTTEZ01.
      *
      *  CHANGE LOG:
      *    AUG 19, 2009 TT REPLACE EZA CALLS WITH COPYBOOK BSTTEZAP
      *                 TT = TONY THIGPEN TONY@VSE2PDF.COM
      *    SEP 04, 2010 TT REMOVED BSTTEZA8 COPYBOOK
 
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
 
       01  PROGRAM-INFOMATION.
           05  PROGRAM-NAME            PIC X(08)      VALUE 'BSTTEZ03'.
           05  PROGRAM-TITLE           PIC X(23)
               VALUE 'EZA SERVER SUBTASK  '.
 
       01  WS-AREA.
           05  WS-STOP                 PIC X(01)      VALUE SPACE.
           05  WS-SOCKET-ORIGINAL      PIC S9(04)     COMP.
           05  WS-SOCKET-ACCEPT        PIC S9(04)     COMP.
           05  WS-SOCKET-TAKE          PIC S9(04)     COMP.
           05  WS-IPADDRESS            PIC X(04)      VALUE LOW-VALUES.
           05  WS-IPPORT               PIC S9(04)     COMP VALUE +4321.
           05  WS-COUNT                PIC S9(04)     COMP VALUE +0.
           05  WS-OURCLIENT            PIC X(40)      VALUE LOW-VALUES.
           05  WS-LOOPS                PIC S9(04)     COMP VALUE +3.
 
       01  ABEND-INFORMATION.
           03  CURRENT-FUNCTION        PIC X(20)      VALUE SPACES.
           03  CURRENT-ERROR           PIC 9(05)      VALUE ZEROES.
           03  ABEND-CODE              PIC 9(04)      VALUE ZEROS.
           03  ABEND-SPACE.
               05  ABEND-NUMBER        PIC S9(04)     VALUE ZEROS.
 
       01  BUFFER-IN                   PIC X(80)      VALUE SPACES.
       01  BUFFER-OUT                  PIC X(80)      VALUE SPACES.
       01  RSNDMSK                     PIC X(08)      VALUE LOW-VALUES.
       01  WSNDMSK                     PIC X(08)      VALUE LOW-VALUES.
       01  ESNDMSK                     PIC X(08)      VALUE LOW-VALUES.
       01  RRETMSK                     PIC X(08)      VALUE LOW-VALUES.
       01  WRETMSK                     PIC X(08)      VALUE LOW-VALUES.
       01  ERETMSK                     PIC X(08)      VALUE LOW-VALUES.
 
       01  EZA-CALL-DATA.          COPY BSTTEZA.
 
       01  EZACIC06-DATA.          COPY BSTTEZA6.
 
       PROCEDURE DIVISION.
 
       MAINLINE SECTION.
       ML-START.
       ML-INITAPI.
           MOVE +0 TO EZA-MAXSOC.
           MOVE SPACES TO EZA-IDENT.
           MOVE SPACES TO EZA-SUBTASK.
           PERFORM EZA-INITAPI.
           IF EZA-RETCODE IS LESS THAN +0
               GO TO AR-0001.
       ML-TAKESOCKET.
           ACCEPT EZA-CLIENT FROM SYSIPT.
           ACCEPT EZA-S-X FROM SYSIPT.
           MOVE EZA-S TO EZA-SOCRECV.
           PERFORM EZA-TAKESOCKET.
           IF EZA-RETCODE IS LESS THAN +0
               GO TO AR-0002.
           MOVE EZA-RETCODE TO EZA-S.
       ML-RECV.
           PERFORM EZA-RECV.
           IF EZA-RETCODE IS LESS THAN +0
               GO TO AR-0003.
       ML-SEND.
           MOVE 'JUST JUNK' TO BUFFER-OUT.
           MOVE +9 TO EZA-NBYTE.
           PERFORM EZA-SEND.
           IF EZA-RETCODE IS LESS THAN +0
               GO TO AR-0004.
       ML-COUNTER.
           SUBTRACT +1 FROM WS-LOOPS.
           IF WS-LOOPS IS GREATER THAN +0
               GO TO ML-RECV.
       ML-CLOSE.
           PERFORM EZA-CLOSE.
           IF EZA-RETCODE IS LESS THAN +0
               GO TO AR-0005.
       ML-TERMAPI.
           PERFORM EZA-TERMAPI.
       ML-EXIT.
           GOBACK.
 
      * COPY IN ALL THE EZA SECTIONS
                                   COPY BSTTEZAP.
 
       CONSOLE-TRACE SECTION.
      * COMMENT OUT THE DISPLAY IF IT IS NOT WANTED
       CT-START.
           DISPLAY PROGRAM-NAME ' ' EZA-FUNCTION UPON CONSOLE.
       CT-EXIT.
           EXIT.
 
       ABEND SECTION.
       AR-0001.
           MOVE 0001 TO ABEND-CODE.
           GO TO AR-ABEND.
       AR-0002.
           MOVE 0002 TO ABEND-CODE.
           GO TO AR-ABEND.
       AR-0003.
           MOVE 0003 TO ABEND-CODE.
           GO TO AR-ABEND.
       AR-0004.
           MOVE 0004 TO ABEND-CODE.
           GO TO AR-ABEND.
       AR-0005.
           MOVE 0005 TO ABEND-CODE.
           GO TO AR-ABEND.
       AR-ABEND.
           DISPLAY '*ABEND* ' PROGRAM-INFOMATION UPON CONSOLE.
           DISPLAY 'PROGRAM ABEND=' ABEND-CODE UPON CONSOLE.
           DISPLAY 'FUNCTION=' CURRENT-FUNCTION UPON CONSOLE.
           DISPLAY 'ERROR=' CURRENT-ERROR UPON CONSOLE.
           MOVE SPACES TO ABEND-SPACE.
           ADD +1 TO ABEND-NUMBER.
       AR-EXIT.
           EXIT.