MVSFORUMS.com

[edward]

Hi, all:

I have a batch program in COBOL about dealing with some DL/I records. The first statement is "ENTRY 'DLITCBL' USING DB-PCB-SAV". I don't know the meaning of 'DLITCBL' and 'ENTRY'. Can anyone help me?

Thanks in advance.


Edward

[kolusu]

Edward,

When you use DL/I calls in a programming language supported by IMS (assembler language, C language, COBOL, Pascal, or PL/I), you must call the DL/I language interface to initiate the functions specified with the DL/I calls.


IMS gives control to an application program through an entry point. Your entry point must refer to the PCBs in the order in which they are defined in the PSB.

IMS passes the PCB pointers to a PL/I program differently than it passes them to an assembler language, C language, COBOL, or Pascal program. In addition, Pascal requires that IMS pass an integer before passing the PCB pointers. IMS uses the LANG keyword or the PSBGEN statement of PSBGEN to determine the type of program to which it is passing control. Therefore, you must be sure that the language specified during PSBGEN is consistent with the language of the program.

Application interfaces that use the AIB structure (AIBTDLI or CEETDLI) use the PCB name rather than the PCB structure and do not require the PCB list to be passed at entry to the application program.

When you code each DL/I call, you must provide the PCB you want to use for that call. For all IMS TM application programs, the list of PCBs the program can access is passed to the program at its entry point.

Check this link

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/DFSP30F3/1.2?DT=20020906093406

Hope this helps...

Cheers

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

[edward]

Kolusu,

Sorry to come here so late. Now I'm fully understand about Entry statement after reading your reply.
Thank you so much.

Edward