REPRO PS to VSAM issue

[kingo]

Hi

I am trying to copy data from PS to VSAM and I get this error below

Code: Select all

IDC3351I ** VSAM I/O RETURN CODE IS 76  - RPLFDBWD = X'4908004C'
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

I am not quiet sure, how to decipher this because as per manual it says

Code: Select all

76
You issued an addressed or control-interval PUT to add to a key-sequenced data set, or you issued a control-interval PUT to a relative record data set.

Learning Assembler helped me in thinking 4C = 76 something to do with PUT macro could be the return code of PUT

This is what I tried to make out.

Still I am not sure what I need to do to fix this? Could anyone guide me to solve this issue?

Thanks

[Robert Sample]

For a learning exercise, copying from sequential to a VSAM data set in HLASM can be helpful. However, you need to learn how to use IDCAMS for such tasks since it will be much faster and easier overall.

You'll need to post your code (use the Code tag to preserve spacing) before we can do much to help. You don't need to post it all, just the VSAM-related pieces (such as the ACB, OPEN, MODCB, PUT statements).

[kingo]

Hi Robert,

I have not tried to copy using HLASM yet but just with IDCAMS so far

this is the code

Code: Select all

//STEP010  EXEC PGM=IDCAMS
//********************************************************************
//******         REPRO PS TO VSAM FILE                         *******
//********************************************************************
//DDI      DD  DSN=KINGO.TESTDATA,
//             DISP=SHR
//DDO      DD  DSN=KINGO.KSDS.DATA,
//             DISP=SHR
//SYSIN    DD  *
           INFILE(DDI) -
           OUTFILE(DDO)
/*
//SYSOUT   DD  SYSOUT=*
//SYSTSPRT DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSABOUT DD  SYSOUT=*
//SYSDUMP  DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*

and I got the error below

Code: Select all

        REPRO -
           INFILE(DDI) -
           OUTFILE(DDO)
IDC3302I  ACTION ERROR ON KINGO.KSDS.DATA
IDC3351I ** VSAM I/O RETURN CODE IS 76  - RPLFDBWD = X'4908004C'
IDC31467I MAXIMUM ERROR LIMIT REACHED.
IDC0005I NUMBER OF RECORDS PROCESSED WAS 0
IDC3003I FUNCTION TERMINATED. CONDITION CODE IS 12

IDC0002I IDCAMS PROCESSING COMPLETE. MAXIMUM CONDITION CODE WAS 12

I understood what was the actual problem, I changed the DISP of DDIO to OLD and I got the expected results.

But for the first successful REPRO alone I got

Code: Select all

IDC3351I ** VSAM OPEN RETURN CODE IS 108

Code: Select all

108
Attention message: the time stamps of a data component and an index component do not match; this indicates that either the data or the index has been updated separately from the other. Check for possible duplicate VVRs.

I will try this with HLASM now

[Robert Sample]

Yeah, if you're writing records to it then you'll need DISP=OLD. There are cases when you don't use DISP=OLD, but they require knowledge of enqueue / dequeue logic on the VSAM records.

Also, how long are the PS records? And what is the definition of the VSAM data set? I'm not sure a 108 return code makes sense with what you're doing.

[kingo]

Thanks Robert .. I have ordered 2 books to ponder deep into HLASM.. Waiting to be delivered