How to fetch a complete record

Ambili S · Active User Joined: 06 Sep 2007 Posts: 112 Location: India

Hi

I've an input file with user details as follows: The first field is username , 2nd field is primary subjects and 3rd field is secondary subject.

Skolusu · Posted: Fri Feb 06, 2009 12:39 am

Ambili S,

The following DFSORT JCL will give you the desired results.

I assumed that your input is FB recfm and 80 byte LRECL
You can use the WHEN=GROUP function of DFSORT available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008) to retain the group of records like this:

Ambili S · Active User Joined: 06 Sep 2007 Posts: 112 Location: India

Hi

I am getting "STATEMENT DEFINE ERROR" while running the above JCL. I am able to use, ICETOOL and the INREC=WHEN syntax. But with WHEN=GROUP i am getting error.

I tried using FINDREP syntax to replace all 'User' to 'Name' .

//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
//CTL1CNTL DD *
OPTION COPY
INREC FINDREP=(IN=C'USER',OUT=C'NAME'),
OUTFIL FNAMES=OUT,BUILD=(1,80)
/*

I am getting error "INVALID INREC OR OUTREC STATEMENT OPERAND" .
Please let me know if there's anything wrong in the syntaxes for both the cases .

thanks

dick scherrer · Posted: Mon Feb 09, 2009 11:55 am

Hello,

Please post the complete diagnostic info rather than cut and paste pieces.

When posting messages, it is best to include the message id.

Ambili S · Active User Joined: 06 Sep 2007 Posts: 112 Location: India

Hi

In the first case where i mentioned about "statement define error" the message id is ICE005A and
here the JCL used is same as given by the moderator.

For the second case where i used FINDREP the syntax error
is ICE007A and the jcl is as follows

//STEP1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN same as mentioned in my first post
//T1 DD DSN=&&T1,UNIT=SYSDA,SPACE=(CYL,(5,5)),DISP=(,PASS)
//OUT DD sysout=*
//TOOLIN DD *
COPY FROM(IN) USING(CTL1)
//CTL1CNTL DD *
OPTION COPY
INREC FINDREP=(IN=C'USER',OUT=C'NAME'),
OUTFIL FNAMES=OUT,BUILD=(1,80)
/*

Thanks

Frank Yaeger · Posted: Mon Feb 09, 2009 10:36 pm

Ambili S · Active User Joined: 06 Sep 2007 Posts: 112 Location: India

Hi Frank

I was under the assumption that if SPLICE,WHEN=INIT,SELECT with FIRSTDUP etc is working then FINDREP and WHEN=GROUP would also work.

I didn't knew it had to be installed . Thanks for the solution.

Thanks
Ambili

Ambili S · Active User Joined: 06 Sep 2007 Posts: 112 Location: India

Hi Kolusu,

I tried submitting the below JCL(as suggested by you above).

Skolusu · Posted: Tue Feb 24, 2009 11:03 pm

Ambili S,

My apologies. There is a slight bug which I did not account for in my initial posting.

Use the following JCL

Ambili S · Active User Joined: 06 Sep 2007 Posts: 112 Location: India

Hi Skolusu

Thanks . It worked.