Grouping and editing using DFSORT

wanderer · Posted: Mon Feb 19, 2007 11:02 am

Hi,

I have a file(FBA 133) that looks like this.

Frank Yaeger · Posted: Mon Feb 19, 2007 9:30 pm

Am I correct that 'DATA' starts in position 2 (after the ANSI carriage control character), 'TYPE' starts in position 7 and NUM starts in position 13?

What do you want for the RECFM and LRECL of the output file?

wanderer · Posted: Mon Feb 19, 2007 10:43 pm

Frank,

Yes, DATA starts in position 2(after ANSI CC caracter). And TYPE, NUM start at 7 and 13 respectively.

LRECL of 80 and RECFM of FB would be great.

Thanks!

wanderer · Posted: Mon Feb 19, 2007 11:27 pm

Frank,

The input file is actually VBA with LRECL 133
Sorry for the confusion.

Thanks!

dineshness · Posted: Tue Feb 20, 2007 1:12 am

You could use the below ICETOOL job to sort the records,

[img]//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//INFILE DD DSN=INPUT FILE 1(VBA File/133)
//TEMP DD DSN = TEMP FILE(FB file/80)
//OUTF DD DSN = OUT FILE 1(FB file/80)
//TOOLIN DD *
COPY FROM INFILE USING CTL1
SPLICE FROM TEMP ON (34,8,ZD) WITHEACH USING CTL2
//CTL1CNTL DD *
*Reformat the records and add sequence numbers
OUTFIL FNAMES=TEMP,
IFTHEN=(WHEN=(6,4,CH,EQ,C'DATA'), BUILD =(1:11,19,34:SEQNUM,8,ZD))
IFTHEN=(WHEN=(10,5,CH,EQ,C'TYPE='), BUILD =(21:15,2,34:SEQNUM,8,ZD))
IFTHEN=(WHEN=(16,4,CH,EQ,C'NUM='), BUILD =(24:20,9,34:SEQNUM,8,ZD))
/*
//CTL2CNTL DD *
OUTFIL FNAMES = OUTF, BUILD = (1,32)
/*[/img]

wanderer · Posted: Tue Feb 20, 2007 2:01 am

Dinesh,

yes, 'aaaaa' was a typo.

I get a SYNTAX error with '$' under IFTHEN and BUILD. I suppose I don't have the appropriate PTFs installed. And so out of luck!

Thanks anyway for your effort.

Frank Yaeger · Posted: Tue Feb 20, 2007 2:07 am

wanderer,

Dinesh had the right idea, but the job he supplied has many errors and won't run. Here's a DFSORT/ICETOOL job that will do what you asked for:

wanderer · Posted: Tue Feb 20, 2007 3:25 am

Frank,

I keep getting
ICE005A 0 STATEMENT DEFINER ERROR

for IFTHEN and BUILD. I suppose I don't have proper PTF installed and out of luck!

Thanks for the help!

Frank Yaeger · Posted: Tue Feb 20, 2007 3:55 am

Do you have at least one space before each line in CTL1CNTL? If not, add the spaces. If you get the ICE005A with the spaces, then your site is way behind on DFSORT service; IFTHEN and BUILD have been available since Dec, 2004. Ask your System Programmer to z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006). That will get you all of the latest DFSORT/ICETOOL functions.

wanderer · Posted: Tue Feb 20, 2007 6:09 am

Frank,

No I did not have one space on one line. Now it is working fine. Thanks very much!

I have another problem though. Sometimes the file contains other records in the file that are smaller than these records. I need to ignore these extra records if they come in between.

For example,
There is a record with just a carriage control character but no data following it. This should be ignored.

Frank Yaeger · Posted: Tue Feb 20, 2007 9:06 pm

You can use an OMIT statement to remove those records. You'd have to show me what those records look like in hex for me to give you the OMIT condition. You can use this DFSORT job to display the records in hex:

wanderer · Posted: Wed Feb 21, 2007 7:11 am

Frank,

OMIT worked. Although records sizes and positions have changed since then, I was able to use your original code and modify it appropriately.

Thanks a lot!