Regarding Sorting a PS file of VB format

bhaskar_kanteti · Posted: Sun Jun 24, 2007 3:30 pm

Hi,

I had a query related to sort.

First i had unloaded the entire table to a file. It is creating a PS file of VB format and record length 569. The table has one field of type varchar.

The file that is generated in the unload job is input for my other job which is doing sorting. When i am submitting the job it is giving abend as S000 U0222.

Should i need to consider anything related to this varchar field. My input and output file will be as follows:

Input file that is generated during unload job:
DSN=Sortin.input.file
Storage class . . . : STANDARD
Volume serial . . . : T0Q1C4 +
Data class . . . . . : COMPRESS
Organization . . . : PS
Record format . . . : VB
Record length . . . : 569
Block size . . . . : 27993
1st extent cylinders: 1
Secondary cylinders : 100
Data set name type : EXTENDED

Output file to be created:
DSN=Sortout.output.file,
DISP=(,CATLG,DELETE),SPACE=(CYL,(500,500),RLSE),
RECFM=FB,LRECL=569,
BLKSIZE=0

It is displaying error as follows:
RECORD TYPE IS V - DATA STARTS IN POSITION 5
INVALID DATA SET ATTRIBUTES SPECIFIED OUDMCSTA RECFM

Tell me what to do in this regard. Is this because i had a varchar field in my table.

Regards,
Bhaskar

expat · Posted: Sun Jun 24, 2007 4:12 pm

Please post the sort cards being used and the output from the failing step.

0d311 · Guest

Hi Bhaskar,

I think you have with your //SYSIN control statements. You may have started the sorting job at position 0 of your file, which is actually still a part of RDW for VB files. I think this problem was already posted in this forum. You may try searching for more info.

BTW, here's an example:

sort fields=copy
outrec fields=(4,565)

Let me know if it worked. Oh, and I don't think the varchar had anything to do with your problem.

expat · Posted: Sun Jun 24, 2007 6:09 pm

Despite what od311 has said, we still need to see your sort control cards.

You are creating an FB file from a VB input, which will need extra attention.

Please do not code BLKSIZE=0, because unless you SMS environment is correctly set up this can actually cause some datasets to really have a BLKSIZE of 0, which then causes problems for DFSMShsm and other ILM software products. Just leave the BLKSIZE= paramter off and let the OS determine the best BLKSIZE for you.

bhaskar_kanteti · Posted: Mon Jun 25, 2007 8:58 am

This is the sort job i am telling. Here input is in VB format.

//SORTJOB JOB 1,CLASS=6,MSGCLASS=0,NOTIFY=&SYSUID
//*
//STEP010 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=C
//SYSPRINT DD SYSOUT=*
//*INPUT FILE
//INPUT DD DSN=INPUT.FILE.BEFORE.SORT,DISP=SHR
//*OUTPUT FILE
//OUTPUT DD DSN=OUTPUT.FILE.AFTER.SORT,
// DISP=(,CATLG,DELETE),SPACE=(CYL,(500,500),RLSE),
// RECFM=FB,LRECL=569
//TOOLIN DD *
COPY FROM(INPUT) TO(OUTPUT) USING(CTL1)
/*
//CTL1CNTL DD *
SORT FIELDS=(1,7,PD,A,40,3,CH,A)
OUTFIL FNAMES=OUDMCSTA,REMOVECC,
OUTREC=(1:1,569)
/*
//CHECKIT IF (STEP010.RC NE 0) THEN
//STEP015 EXEC @SPWARN
//CHECKIT ENDIF
//*

This is my sort job. Here input file is in VB format. When i submit the job it is showing the following error....
END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=OUDMC
ST,SORTOUT=OUDMCSTA,DYNALLOC
SORT FIELDS=COPY
RECORD TYPE IS V - DATA STARTS IN POSITION 5
C5-K90007 C6-K90007 C7-K90000 C8-K90007 E9-K90007 C9-BASE E5-K14794

ibmmainframesyntel · Posted: Mon Jun 25, 2007 11:45 am

To copy data from VB to FB,
u have to change the control card like this,

OUTFIL FNAMES=OUDMCSTA,REMOVECC, VTOF,
OUTREC=(1:5,569)

Output file LRECL=565

Then it will work.......

prasadvrk · Posted: Mon Jun 25, 2007 3:20 pm

bhaskar_kanteti · Posted: Mon Jun 25, 2007 3:38 pm

Thank You So Much.
Its working.