giteaadmin/DUTAS
4
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Johan's change, QR-56

Browse Source
This commit is contained in:
faizana
2025-09-17 04:43:28 -04:00
parent e2e5d14e27
commit 2bdc775648
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
CICS/RCSIGNON.cob
View File

@ -66,7 +66,7 @@
RESP(WS-RESP) RESP(WS-RESP)
RESP2(WS-RESP2) RESP2(WS-RESP2)
END-EXEC END-EXEC
IF WS-RESP NOT = DFHRESP(NORMAL) IF WS-RESP NOT = DFHRESP(NORMAL)
*Should be replaced with better error-handling *Should be replaced with better error-handling
DISPLAY '=== RECEIVE FAILED' DISPLAY '=== RECEIVE FAILED'
EXEC CICS RETURN END-EXEC EXEC CICS RETURN END-EXEC
@ -116,7 +116,7 @@
EXEC CICS EXEC CICS
SET TERMINAL(EIBTRMID) SET TERMINAL(EIBTRMID)
UCTRANST('UCTRAN') UCTRANST(DFHVALUE(UCTRAN))
END-EXEC END-EXEC
EXEC CICS EXEC CICS