IBM Mainframe Forum

by **Vineet** » Tue Feb 05, 2013 9:36 pm

Hi All,

I am having a seqential file having LRECL=80 & RECFM=FB. My requirement is, If starting from position 1, Length = 3, I am having Char. "EOF" I need to set the return code = 4. How can I do this using SORT.

Thanks.

by **steve-myers** » Tue Feb 05, 2013 9:56 pm

Any record, first record, last record????

by **Vineet** » Tue Feb 05, 2013 9:59 pm

Well we can san Only 1 Record in the File & Having 3 Char starting from Position 1 & Length = 3 as "EOF".

Rgd's

by **enrico-sorichetti** » Tue Feb 05, 2013 10:46 pm

search the manuals and the forums for the use of the NULLOUT clause

by **skolusu** » Tue Feb 05, 2013 10:50 pm

Vineet,

It would be nice if you can post a feed back for the prior solutions you got. You ask a question receive a solution and then disappear until you have a new question. How hard is it to just provide feedback if the solution worked or not?

Any way here is the solution you looking for. Use the following DFSORT/ICETOOL JCL which will give you the desired results

Select all

//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
BLAH
BLUE
EOF
RED
GREEN
EOF
//OUT DD SYSOUT=*
//TOOLIN DD *
COUNT FROM(IN) HIGHER(0) RC4 USING(CTL1)
//CTL1CNTL DD *
INCLUDE COND=(1,3,CH,EQ,C'EOF')
//*

by **Vineet** » Tue Feb 05, 2013 11:29 pm

Thanks SKOLUSU, it worked me.

Rgd's

IBM Mainframe Forum

String Search

String Search

Re: String Search

Re: String Search

Re: String Search

Re: String Search

Re: String Search