mainframegurukul.com

Hi
I got VSAM Sequence error File status 21 for a job in production.

I am just reading a sequential file.

Any solutions to solve file status 21.


Thanks

Hi,

Please let me know focus cobol langauge reference manuals.

Focus cobol is language and programs are written in the language to access data from mainframe (VSAM files,DB2 tables) and creates output reports in distributed system.

Thanks in Advance

Sorry typo error in below post

IF WS-FILE-STATUS ='00'
CONTINUE
ELSE
ABEND ROUTINE
END-IF

Hi Dbz, I have modified the SPACE parameter as below UNIT=UNIT,SPACE=(TRK,(12050,600),RLSE), DCB=(RECFM=FB,LRECL=285,BLKSIZE=0) and i have modified code in program as below IF WS-FILE-STATUS ='00' CONTINUE ABEND ROUTINE END-IF I have run the job. Job got abended with user abend U230 and file status ...

Hi Dbz,

This issue is resolved

File status 23 was issued because access mode specified in the SELECT clause is wrong.

I have given DYNAMIC for a sequential read

Now i am able to read the file

Thanks

Agreed Dbz

Have continued the thread in VSAM.

Hi All

Please refer VSAM forum for this thread


Thanks

Hi Dbz, For the first run and second run the dcb parameters are same. The dcb parameters are //SUB DD DSN=ABC.TEST.UNIT.SECPOS.EXTRACT, // DISP=(NEW,CATLG), // UNIT=DISK,SPACE=(CYL,(10200,600),), // DCB=(RECFM=FB,LRECL=285,BLKSIZE=0) The file status is 34 and in the first run job abended with a user...

Hi,

I am reading a VSAM file sequentially and writing records into sequential dataset.

After 12000 records i am getting S0C1 abend.

I have increased the output file size but still getting the abend at the same record.

Any ideas ??

Thanks

Hi,

I am reading a VSAM file sequentially and writing records into an sequential file.

The job is getting abended with a file status 34.

I have increased the space of the output file still it is abending at the same record.

Please share your thoughts on this?

Thanks dbZ

I have modified the select clause.

Access mode was given dynamic instead of sequential.

Now I am able to read records.

Hi, I am reading a VSAM file and writing all the records into output file. But my job is running without completion. I am getting file status 23 but records are present in the input file. Please find the psedo code below 1000-INITIALIZATION PERFORM OPEN 1200-VSAM-FILE THRU 1200-EXIT. PERFORM 1250-RE...

Thanks Frank and Vamsi. I have more condition suppose ; is not in a fixed position in the input file for example AAA ; AUSTRALIA DOLLARS BSW BOTSWANA;SOUTH AFRICA EXE UNITED KINGDOM;POUNDS TXT UNITED STATES DOLLARS output file should have all the first 3 records since they are having semi colons.

Thanks a lot all for the info.

Yes the data is not junk value it is numeric value in binary format.

I have used DB2 function CAST and converted the numeric data into char.
Now the data is available.

Thanks once again to all your responses.

Hi, Please find the details below I am using DSNTIAUL unload utility I have given query like this select * from emp; i have sysrec output file standard output format COL1COL2COL3COL4 output file details AAMRAMESHEURX'0000000000' i need to get like this AAMRAMESHEUR90899 character fields are fetched ...

I want to Unload data from table into a standard output file using utility
DSNTIAUL.

The load utility is successful and all data for all fields is populated correctly except numeric data.For Numeric data fields i am getting junk values in the output file.

How to get Numeric data into output file