63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. 72 COPY TPRETURN REPLACING ...
If uibfctr is not equal good-return-code then * Insert error diagnostic code 6 Exec CICS return end-Exec End-if. If pcb1-status-code is not equal good-status-code then * Insert error diagnostic code Exec CICS return end-Exec End-if. * Perform segment update activity Move 'aaa' to ...
62 PERFORM DO-USERLOG 63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. ...
62 PERFORM DO-USERLOG 63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. ...
62 PERFORM DO-USERLOG 63 PERFORM EXIT-PROGRAM 64 END-IF. 65 66 INSPECT RECV-STRING CONVERTING 67 "abcdefghijklmnopqrstuvwxyz" TO 68 "ABCDEFGHIJKLMNOPQRSTUVWXYZ". 69 MOVE "Success" TO LOGMSG-TEXT. 70 PERFORM DO-USERLOG. 71 SET TPSUCCESS TO TRUE. ...