MVSFORUMS.com

hdagar · Beginner Joined: 18 May 2004 Posts: 5 Topics: 4

I need help on the CICS abend INTR 4038.

I am getting this abend while executing an ACCEPT statement in a Cobol module.ACCEPT is accepting the system date.

kolusu · Posted: Thu Jul 29, 2004 5:46 am Post subject:

hdagar,

You cannot use COBOL statements that require the use of operating system Services. Instead, use CICS commands. You can request the current date and time of day with ASKTIME command.

Check the following links for

ASKTIME

FORMAT TIME

Some of the other COBOL statements you CANNOT code in CICS are :

CURRENT-DATE, DATE, DAY , DISPLAY, EXHIBIT, STOPRUN, TRACE

Any I/0 statements ( OPEN ,CLOSE, READ, WRITE, REWRITE, DELETE, START)

Check this link which explains in detail about the Restrictions.

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFHP3A04/1.4.1.1?SHELF=&DT=20050112153951&CASE=

Hope this helps...

Cheers

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

Mike Chantrey · Posted: Thu Jul 29, 2004 9:03 am Post subject:

There are additional restrictions as well if you are using the old OS/VS COBOL compiler.
In that case, you must not use such statements as INSPECT, STRING, UNSTRING and various others. This is fully documented in Appendix B (OS/VS COBOL) of the CICS Application Programming Guide (at CICS/TS 1.3).