CICS Nov title - CBT Tape

More documents

Recommendations

Info

MOVE SPACES TO BUFFER-OUT MOVE LENGTH OF MAIL-HEADER-LINEØ4 TO NBYTE MOVE MAIL-HEADER-LINEØ4 TO BUFFER-OUT PERFORM SEND-SOCKET PERFORM RECEIVE-SOCKET ELSE GO TO SMTP-ERROR END-IF IF SMTP-RETURN-CODE = '354' MOVE SPACES TO BUFFER-OUT MOVE LENGTH OF MAIL-BODY-LINEØ1 TO NBYTE MOVE MAIL-BODY-LINEØ1 TO BUFFER-OUT PERFORM SEND-SOCKET MOVE SPACES TO BUFFER-OUT MOVE LENGTH OF MAIL-BODY-LINEØ2 TO NBYTE MOVE MAIL-BODY-LINEØ2 TO BUFFER-OUT PERFORM SEND-SOCKET MOVE SPACES TO BUFFER-OUT MOVE LENGTH OF MAIL-BODY-LINEØ3 TO NBYTE MOVE MAIL-BODY-LINEØ3 TO BUFFER-OUT PERFORM SEND-SOCKET MOVE SPACES TO BUFFER-OUT MOVE LENGTH OF MAIL-BODY-LINEØ4 TO NBYTE MOVE COMM-MESSAGE TO MAIL-BODY-LINEØ4 MOVE MAIL-BODY-LINEØ4 TO BUFFER-OUT PERFORM SEND-SOCKET MOVE SPACES TO BUFFER-OUT MOVE LENGTH OF MAIL-BODY-END TO NBYTE MOVE MAIL-BODY-END TO BUFFER-OUT PERFORM SEND-SOCKET PERFORM RECEIVE-SOCKET ELSE GO TO SMTP-ERROR END-IF IF SMTP-RETURN-CODE = '25Ø' MOVE SPACES TO BUFFER-OUT MOVE LENGTH OF MAIL-MESSAGE-END TO NBYTE MOVE MAIL-MESSAGE-END TO BUFFER-OUT PERFORM SEND-SOCKET PERFORM RECEIVE-SOCKET ELSE GO TO SMTP-ERROR END-IF CONTINUE. GET-SOCKET. MOVE 'SOCKET ' TO SOC-FUNCTION CALL 'EZASOKET' USING SOC-FUNCTION AF SOCTYPE PROTO 12 © 2000. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (303) 410 9344, fax (303) 438 0290.
ERRNO RETCODE IF RETCODE < Ø MOVE 'TCPIP ' TO ERR-CALL-TYPE MOVE 'GET SOCKET' TO ERR-TYPE MOVE ERRNO TO ERR-NUMBER MOVE RETCODE TO ERR-RETURN-CODE MOVE 'TRANSACTION HAS BEEN RESCHEDULED' TO ERR-TEXT PERFORM WRITEQ-TRANSIENT-DATA GO TO CLEAR-EM-OUT ELSE MOVE RETCODE TO SOCKET-DESC END-IF CONTINUE. CONNECT-SOCKET. MOVE COMM-IP-ADDRESS TO IP-ADDRESS MOVE 'CONNECT ' TO SOC-FUNCTION CALL 'EZASOKET' USING SOC-FUNCTION SOCKET-DESC NAME ERRNO RETCODE IF RETCODE = Ø CONTINUE ELSE MOVE 'TCPIP ' TO ERR-CALL-TYPE MOVE 'CONNECT ' TO ERR-TYPE MOVE ERRNO TO ERR-NUMBER MOVE RETCODE TO ERR-RETURN-CODE MOVE 'TRANSACTION HAS BEEN CANCELLED ' TO ERR-TEXT PERFORM WRITEQ-TRANSIENT-DATA PERFORM CLOSE-SOCKET GO TO CLEAR-EM-OUT END-IF CONTINUE. RECEIVE-SOCKET. MOVE SPACES TO BUFFER-IN MOVE LENGTH OF BUFFER-IN TO NBYTE MOVE 'RECV ' TO SOC-FUNCTION CALL 'EZASOKET' USING SOC-FUNCTION SOCKET-DESC FLAGS NBYTE BUFFER-IN ERRNO RETCODE IF RETCODE < Ø MOVE 'TCPIP ' TO ERR-CALL-TYPE MOVE 'RECEIVE ' TO ERR-TYPE MOVE ERRNO TO ERR-NUMBER © 2000. Reproduction prohibited. Please inform Xephon of any infringement. 13
Page 1 and 2: 180 November 2000 3 Cold start next
Page 3 and 4: Cold start next time - revisited CI
Page 5 and 6: FILE *dfhgcd; /* Input file (DFHGCD
Page 7 and 8: AUTODELETE (YES or NO) specifies wh
Page 9 and 10: destination contains pertinent mess
Page 11: END-PERFORM EXEC CICS ENDBR FILE('T
Page 15 and 16: CONTINUE END-IF CONTINUE. SMTP-ERRO
Page 17 and 18: MOVE 'TRANSACTION HAS BEEN RESCHEDU
Page 19 and 20: Ø5 PORT PIC 9(4) COMP VALUE 25. Ø
Page 21 and 22: Ø1 MAIL-BODY-END. Ø2 FILLER PIC X
Page 23 and 24: MOVE MYR TO MAIL-YR MOVE COMM-PAGE
Page 25 and 26: TO MAIL-RCPT-ENTRY(ADDRESSEE-SS) EN
Page 27 and 28: MOVE ERRNO TO ERR-NUMBER MOVE RETCO
Page 29 and 30: WHEN DFHRESP(FILENOTFOUND) MOVE 'FI
Page 31 and 32: MOVE 'MAIL TRANSMISSION HAS ABENDED
Page 33 and 34: eturn Ø; case WM_DESTROY: PostQuit
Page 35 and 36: #%i.\r\n"),WSAGetLastError ()); WSA
Page 37 and 38: GetTimeFormat (Ø,Ø,Ø,Ø,szTime,3
Page 39 and 40: up the various name/value pairs ret
Page 41 and 42: This can create a major headache fo
Page 43 and 44: SET option added to it. SET when us
Page 45 and 46: It attempts to authenticate the cli
Page 47 and 48: Log stream 180.6-9 Loops 115.14-19

CICS Nov title - CBT Tape

Create successful ePaper yourself

Delete template?

Save as template?