Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Partial Key read VSAM - Status code 92

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
rsangeeth

New User


Joined: 26 Jun 2007
Posts: 7
Location: Chennai

PostPosted: Thu Jul 01, 2010 3:43 pm    Post subject: Partial Key read VSAM - Status code 92
Reply with quote

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
View user's profile Send private message

rsangeeth

New User


Joined: 26 Jun 2007
Posts: 7
Location: Chennai

PostPosted: Thu Jul 01, 2010 3:44 pm    Post subject:
Reply with quote

I forgot to mention i tried the other threads for the solution but nothing is working.
Back to top
View user's profile Send private message
CICS Guy

Senior Member


Joined: 18 Jul 2007
Posts: 2150
Location: At my coffee table

PostPosted: Thu Jul 01, 2010 4:05 pm    Post subject:
Reply with quote

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
View user's profile Send private message
rsangeeth

New User


Joined: 26 Jun 2007
Posts: 7
Location: Chennai

PostPosted: Thu Jul 01, 2010 7:25 pm    Post subject:
Reply with quote

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
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Thu Jul 01, 2010 7:31 pm    Post subject: Reply to: Partial Key read VSAM - Status code 92
Reply with quote

In your START, try -

Code:

START ALS-SNAP-FILE KEY NOT LESS THAN

And see if that helps....

Bill
Back to top
View user's profile Send private message
rsangeeth

New User


Joined: 26 Jun 2007
Posts: 7
Location: Chennai

PostPosted: Thu Jul 01, 2010 7:37 pm    Post subject:
Reply with quote

Nooooooo icon_sad.gif
I still get the same error.

START ALS-SNAP-FILE KEY IS NOT LESS THAN
BSAS-CIN-NO.
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 7997
Location: Bellevue, IA

PostPosted: Thu Jul 01, 2010 7:50 pm    Post subject:
Reply with quote

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
View user's profile Send private message
icemanroh

New User


Joined: 23 Aug 2008
Posts: 25
Location: Mumbai

PostPosted: Thu Jul 08, 2010 6:50 pm    Post subject:
Reply with quote

rsangeeth wrote:
Nooooooo icon_sad.gif
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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Updating a VSAM file with DISP=OLD sheersh JCL & VSAM 8 Tue Mar 14, 2017 6:14 pm
No new posts SORT VSAM file with each field one by... maxsubrat DFSORT/ICETOOL 6 Tue Mar 14, 2017 1:07 pm
No new posts JCL to Set Return code based on DB2 S... vinu78 DB2 17 Mon Mar 13, 2017 9:47 pm
No new posts VSAM RLS=NRI while doing IDCAMS sheersh JCL & VSAM 1 Tue Mar 07, 2017 1:55 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us