MVSFORUMS.com

ravikumar_sri2001 · Posted: Mon Sep 20, 2004 9:00 am Post subject: Problem in Easytrieve program

Experts,

I have a peculiar problem in a easytrieve program that i have coded.

POINT is sucessfull for a VSAM file. Point gives file status value '00'.
While executing GET statement the program just hangs.
It is not at all displaying DISPLAY statement coded after GET statement.
I submitted a job executing this easytrieve program.
The CPU% of job varies. But EXCP-Cnt not varying. This job took TOTAL CPU TIME=120.01.

Following is the code taken from my program.

kolusu · Posted: Mon Sep 20, 2004 9:35 am Post subject:

Ravikumar,

What type of vsam cluster is QEBEB? As far as I remember POINT statement is valid only on indexed, keyed, or relative-record file.

What does WS-EBEB-KEY contain? Does it match with the key definition of the vsam cluster? Post the vsam attributes and the your code

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

ravikumar_sri2001 · Posted: Mon Sep 20, 2004 10:25 am Post subject:

Kolusu,

Thanks you very much for your immediate response.
The file i am talking about is KSDS file.
WS-EBEB-KEY contains 10 bytes of data (BCBSGA0010) + remainng bytes are low-values.

WS-EBEB-KEY W 36 A
WS-EMPL-GROUP-ID WS-EBEB-KEY 10 A

First i am initializing WS-EBEB-KEY using the following statement
MOVE X'00' TO WS-EBEB-KEY FILL X'00'
After that i am moving value 'BCBSGA0010' to WS-EMPL-GROUP-ID before POINT.
In file QEGEG there is a record with key starting with 'BCBSGA0010'

Please let me know if you need further clarifications.

Thanks,
Ravikumar

kolusu · Posted: Mon Sep 20, 2004 11:00 am Post subject:

Ravikumar,

Try to run the following code and see if it works.
[code:1:3c5d3bd41a]
//STEP0100 EXEC PGM=EZTPA00
//STEPLIB DD DSN=EASYTREV.LOADLIB,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//FVMZCDBR DD DSN=YOUR KSDS VSAM FILE,
// DISP=SHR
//SYSIN DD *

FILE QEBEB VS
EGB-5500-EMPL-GRP-BENEFIT-REC 1 275 A
EGB-4302-EMPL-GROUP-ID 1 10 A
EGB-9358-FUNDING-ARRANGEMENT 130 2 A

WS-EBEB-KEY W 36 A
WS-EMPL-GROUP-ID WS-EBEB-KEY 10 A

JOB INPUT NULL

MOVE X'00' TO WS-EBEB-KEY
MOVE 'BCBSGA0010' TO WS-EMPL-GROUP-ID

POINT QEBEB GE WS-EBEB-KEY

IF FILE-STATUS(QEBEB)
_________________
Kolusu
www.linkedin.com/in/kolusu

ravikumar_sri2001 · Posted: Tue Sep 21, 2004 10:50 am Post subject:

Kolusu,

I tried the way what you said. It works.

Let me clearly explain my problem.

The program sequetially reads a KSDS file (i.e, JOB INPUT QEGEG).
Take a field (10 bytes) from record of QEGEG file and populate key (36 bytes) of another file QEBEB and using POINT, GET statements read a record from QEBEB file. The GET statment is pecfectly working for first 1959 records of QEGEG file.
In the 1960th record of QEGEG file, GET statment for QEBEB file is hanging.

Please help me in resolving this problem.

Thanks,
Ravikumar.