View previous topic :: View next topic
|
Author |
Message |
rsangeeth
New User
Joined: 26 Jun 2007 Posts: 7 Location: Chennai
|
|
|
|
Hello All,
Can you please help me here with a status code 92 in VSAM read. I just need to read the KSDS file and validate the values. The do not have the full key and the alternate index already defined is also of no use. I do not want to define an alternate index as the file is already in production and defining the alternate index would prove costly in process wise. With the partial key what i have the file can contain duplicates so i use the START and then i use the READ NEXT to read all the records with the partial key. The file opening is fine and start read is successful. but when i tried to read the next record i get a 92 statues code.
Many thanks in advance for the help.
The code i am using is:
Code: |
SELECT ALS-SNAP-FILE ASSIGN TO ALSSNAP
ORGANIZATION IS INDEXED
ACCESS IS DYNAMIC
RECORD KEY IS BSAS-KEY
FILE STATUS IS ALSSNAP-I-STATUS.
FD ALS-SNAP-FILE.
05 BSAS-DETAIL-RECORD.
10 BSAS-KEY.
15 BSAS-CIN-NO PIC X(12).
15 BSAS-PROCESS-DATE PIC X(08).
15 BSAS-CUST-ACCT-NO PIC X(20).
10 BSAS-CUST-RLN-NO PIC X(09).
10 BSAS-IND-ACCT-OWN-TYP PIC X(03).
10 BSAS-CUST-PIL-DLR-ID PIC X(20).
10 BSAS-CUST-PIL-DLR-TYPE PIC X(20).
10 BSAS-CUST-PIL-DLR-COOP PIC X(20).
10 BSAS-CUST-PIL-PRD-TYP PIC X(20).
10 BSAS-CUST-PIL-SUB-PRD PIC X(20).
.
.
.
2000-MAINLINE-PROCESS.
MOVE LOW-VALUES TO BSAS-KEY.
MOVE LOW-VALUES TO BSDS-KEY.
MOVE CIN(1:14) TO BSAS-CIN-NO OF BSAS-SNAPSHOT-RECORD.
MOVE CIN(1:14) TO BSDS-CIN-NO OF BSDS-SNAPSHOT-RECORD.
START ALS-SNAP-FILE KEY IS EQUAL TO
BSAS-CIN-NO.
EVALUATE ALSSNAP-I-STATUS
WHEN "00" DISPLAY "SUCCESSFUL ALS NORMAL PROCESS"
PERFORM 2500-READ-NEXT UNTIL
ALSSNAP-I-STATUS NOT = "00"
WHEN OTHER DISPLAY "UNSUCCESSFUL ALS NORMAL
PROCESSING" ALSSNAP-I-STATUS
END-EVALUATE.
2000-MAINLINE-PROCESS-EXIT.
EXIT.
2500-READ-NEXT.
READ ALS-SNAP-FILE NEXT RECORD.
DISPLAY "ALS NEXT PROCESS CODE" ALSSNAP-I-STATUS.
2500-READ-NEXT-EXIT.
EXIT. |
|
|
Back to top |
|
|
rsangeeth
New User
Joined: 26 Jun 2007 Posts: 7 Location: Chennai
|
|
|
|
I forgot to mention i tried the other threads for the solution but nothing is working. |
|
Back to top |
|
|
CICS Guy
Senior Member
Joined: 18 Jul 2007 Posts: 2146 Location: At my coffee table
|
|
|
|
First off, add data-name-8 to your FILE STATUS clause. Reproduce the error and display the file statuses.
Code: |
| >__ ________________________________________________________ __.______________________________>< |
| |_ ______ __STATUS__ ____ __data-name-1__ _____________ _| |
| |_FILE_| |_IS_| |_data-name-8_| | |
|
|
Back to top |
|
|
rsangeeth
New User
Joined: 26 Jun 2007 Posts: 7 Location: Chennai
|
|
|
|
The extended return code for the same is
The status is 00 on the normal START call
SUCCESSFUL ALS NORMAL PROCESS
When the READ NEXT is executed i get the following.
ALS NEXT PROCESS CODE92
RETURN-CODE 0008
FUNCTION-CODE0000
FEEDBACK-CODE0044
The jcl that i am using is and the JESYSMSG are as follows.
Kindly help here.
Thanks
Code: |
//S020 EXEC PGM=ADFCI70A,COND=(0,LT)
//STEPLIB DD DISP=SHR,DSN=PD.VSEXSIT.EXECLIB
//SYSPRINT DD SYSOUT=*
//SCHUNLD DD DISP=SHR,DSN=IDJ.BCI.SCHCRD.UNLOAD.PART
//ALSSNAP DD DISP=SHR,DSN=IDF.BBS.B01.ALSSNP.VSAM
//DDASNAP DD DISP=SHR,DSN=IDF.BBS.B01.DDASNP.VSAM
//SCHFILT DD DSN=NNPR2E7.SANGEETH.TEST.ADFCI70A,
// DISP=(NEW,CATLG,DELETE),
// SPACE=(CYL,(1,5),RLSE),
// UNIT=(3390,20),
// DATACLAS=DCMULTIC,
// DCB=(RECFM=FB,LRECL=252,BLKSIZE=0)
//SYSTSPRT DD SYSOUT=*
//CEEDUMP DD SYSOUT=*
//SYSOUT DD SYSOUT=(A)
//SYSABEND DD SYSOUT=* |
The JESMSG from the Jcls are
Code: |
STMT NO. MESSAGE
-
12 IGD01008I **********************************
12 IGD01008I ACS CODE MSGID - SC0110
12 IGD01008I CPU4 STORCLAS NOT DECIDED
12 IGD01008I STORCLAS SET TO DEFAULT
12 IGD01008I **********************************
ICH70001I NNPR2E7 LAST ACCESS AT 14:05:23 ON THURSDAY, JULY 1, 2010
IEF236I ALLOC. FOR NNPR2E7C S010
IEF237I JES2 ALLOCATED TO SYSOUT
IEF237I JES2 ALLOCATED TO SYSPRINT
IEF237I JES2 ALLOCATED TO SYSIN
IGD103I SMS ALLOCATED TO DDNAME SYS00001
IGD104I NNPR2E7.SANGEETH.TEST.ADFCI70A RETAINED, DDNAME=SYS00001
IEF142I NNPR2E7C S010 - STEP WAS EXECUTED - COND CODE 0000
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000102.? SYSOUT
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000103.? SYSOUT
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000101.? SYSIN
IEF373I STEP/S010 /START 2010182.1405
IEF374I STEP/S010 /STOP 2010182.1405 CPU 0MIN 00.01SEC SRB 0MIN 00.00S
IEF380I NNPR2E7C S020 ALSSNAP - VOLUME COUNT FOR DD EXCEEDED: SPECIFIC- 2 NON-SP
IEF380I NNPR2E7C S020 DDASNAP - VOLUME COUNT FOR DD EXCEEDED: SPECIFIC- 2 NON-SP
IEF236I ALLOC. FOR NNPR2E7C S020
IEF237I DA14 ALLOCATED TO STEPLIB
IEF237I JES2 ALLOCATED TO SYSPRINT
IGD103I SMS ALLOCATED TO DDNAME SCHUNLD
IGD103I SMS ALLOCATED TO DDNAME ALSSNAP
IGD103I SMS ALLOCATED TO DDNAME DDASNAP
IGD17271I ALLOCATION HAS BEEN ALLOWED TO PROCEED FOR DATA SET
NNPR2E7.SANGEETH.TEST.ADFCI70A
ALTHOUGH VOLUME COUNT REQUIREMENTS COULD NOT BE MET
IGD17070I DATA SET NNPR2E7.SANGEETH.TEST.ADFCI70A
ALLOCATED SUCCESSFULLY WITH 1 STRIPE(S).
IGD17162I RETURN CODE (12) REASON CODE (5F01083F) RECEIVED FROM
COMPRESSION SERVICES WHILE PROCESSING DATA SET
NNPR2E7.SANGEETH.TEST.ADFCI70A , COMPRESSION REQUEST NOT
HONORED BECAUSE DATA SET CHARACTERISTICS DO NOT MEET COMPRESSION CRITERIA,
ALLOCATION CONTINUES
IGD101I SMS ALLOCATED TO DDNAME (SCHFILT )
DSN (NNPR2E7.SANGEETH.TEST.ADFCI70A )
STORCLAS (SCSTOP) MGMTCLAS (MCSTOP) DATACLAS (DCMULTIC)
VOL SER NOS= ETSO03
IEF237I JES2 ALLOCATED TO SYSTSPRT
IEF237I JES2 ALLOCATED TO CEEDUMP
IEF237I JES2 ALLOCATED TO SYSOUT
IEF237I JES2 ALLOCATED TO SYSABEND
IEF142I NNPR2E7C S020 - STEP WAS EXECUTED - COND CODE 0000
IEF285I PD.VSEXSIT.EXECLIB KEPT
IEF285I VOL SER NOS= NDMX90.
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000104.? SYSOUT
IGD104I IDJ.BCI.SCHCRD.UNLOAD.PART RETAINED, DDNAME=SCHUNLD
IGD104I IDF.BBS.B01.ALSSNP.VSAM RETAINED, DDNAME=ALSSNAP
IGD104I IDF.BBS.B01.DDASNP.VSAM RETAINED, DDNAME=DDASNAP
IGD104I NNPR2E7.SANGEETH.TEST.ADFCI70A RETAINED, DDNAME=SCHFILT
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000105.? SYSOUT
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000106.? SYSOUT
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000107.? SYSOUT
IEF285I NNPR2E7.NNPR2E7C.JOB09642.D0000108.? SYSOUT
IEF373I STEP/S020 /START 2010182.1405
IEF374I STEP/S020 /STOP 2010182.1405 CPU 0MIN 00.07SEC SRB 0MIN 00.00S
IEF375I JOB/NNPR2E7C/START 2010182.1405
IEF376I JOB/NNPR2E7C/STOP 2010182.1405 CPU 0MIN 00.08SEC SRB 0MIN 00.00S |
|
|
Back to top |
|
|
Bill O'Boyle
CICS Moderator
Joined: 14 Jan 2008 Posts: 2501 Location: Atlanta, Georgia, USA
|
|
|
|
In your START, try -
Code: |
START ALS-SNAP-FILE KEY NOT LESS THAN
|
And see if that helps....
Bill |
|
Back to top |
|
|
rsangeeth
New User
Joined: 26 Jun 2007 Posts: 7 Location: Chennai
|
|
|
|
Nooooooo
I still get the same error.
START ALS-SNAP-FILE KEY IS NOT LESS THAN
BSAS-CIN-NO. |
|
Back to top |
|
|
Robert Sample
Global Moderator
Joined: 06 Jun 2008 Posts: 8697 Location: Dubuque, Iowa, USA
|
|
|
|
Feedback codes are defined in the manual DFSMS Macro Instructions for Data Sets and yours has the meaning
Quote: |
44(X'2C')
Work area not large enough for the data record or
for the buffer (GET with OPTCD=MVE). |
so start by posting (using the Code button) IDCAMS output for your ALSSNAP file and the COBOL data map for ALSSNAP file as well. |
|
Back to top |
|
|
icemanroh
New User
Joined: 23 Aug 2008 Posts: 25 Location: Mumbai
|
|
|
|
rsangeeth wrote: |
Nooooooo
I still get the same error.
START ALS-SNAP-FILE KEY IS NOT LESS THAN
BSAS-CIN-NO. |
Can u try this?
Code: |
START ALS-SNAP-FILE
KEY IS NOT LESS THAN BSAS-KEY
END-START
|
|
|
Back to top |
|
|
|