Set a return code if input dataset has 2 hdrs and 2 Trls

sudhamani · New User Joined: 08 Nov 2007 Posts: 19 Location: india

hi ,

Is there any utility that can be implemented for the below requirment.

I need to set a return code if the input dataset contains 2 headers or 2 trailers.

thanks

sril.krishy · Posted: Fri May 09, 2008 8:55 pm

sudhamani,
You can.Please post your sample input and file stats.

Thanks
Krishy

sudhamani · New User Joined: 08 Nov 2007 Posts: 19 Location: india

the input file will have two headers like

H200804071058

detail records...................

triler records....................

H200804071058
detail.......
trailerr...
if it is having two headers or two trailers we need to set return code to abend the job.

thanks

Craq Giegerich · Posted: Fri May 09, 2008 10:23 pm

How are the trailers identified? What are the record lengths and format (fixed or variable)?

sril.krishy · Posted: Sat May 10, 2008 12:34 am

Sudhamani,
Check the below code.

sudhamani · New User Joined: 08 Nov 2007 Posts: 19 Location: india

hi Krishy ,

could you please explain the above code.as my header format is H200804071058.

thanks

sril.krishy · Posted: Mon May 12, 2008 4:15 pm

Please proivde the sample input of the records and the expected output.

Thanks
Krishy

sudhamani · New User Joined: 08 Nov 2007 Posts: 19 Location: india

hi

below are the sample example for the input file

H200711051317
T20080107105000000000000000
H200805051115
MCD200804210011939 00000000010
D00000000000000000000000006490
........
.......
.......

we can see 2 headers H200711051317 and H200805051115 here

I want to check if record type with 'H' are 2 then set some return code.

thanks

sril.krishy · Posted: Mon May 12, 2008 5:33 pm

sudhamani,

Please check the below code.

krisprems · Posted: Mon May 12, 2008 6:57 pm

the below solution is using SYNCSORT,

sudhamani · New User Joined: 08 Nov 2007 Posts: 19 Location: india

hi

thank you
this functionality is working but small confusion with code.
colud you please explain the below code.

//S1 EXEC PGM=SYNCTOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN0 DD *
HEADER
ABCDEFGGGGG
DEF
TRAILER
HEADER
ABCDEFGGGGG
DEF
TRAILER
//IN1 DD DSN=XXXXXXX.T3,UNIT=SYSDK,SPACE=(CYL,(6,6)),
// DISP=(NEW,CATLG,DELETE),DCB=(RECFM=FBA,LRECL=80)
//OUT DD DSN=XXXXXXX.T4,UNIT=SYSDK,SPACE=(CYL,(6,6)),
// DISP=(NEW,CATLG,DELETE),DCB=(RECFM=FB,LRECL=80)
//TOOLIN DD *
SORT FROM(IN0) TO(IN1) USING(CTL0)
OCCUR FROM(IN1) LIST(OUT) NOHEADER BLANK -
ON(1,5,CH) ON(VALCNT,U04)
SORT FROM(OUT) TO(IN1) USING(CTL1)
/*
//CTL0CNTL DD *
OPTION COPY
INCLUDE COND=(1,6,CH,EQ,C'HEADER',OR,1,7,CH,EQ,C'TRAILER')
//CTL1CNTL DD *
OPTION NULLOUT=RC16
SORT FIELDS=COPY
INCLUDE COND=((2,5,CH,NE,C'HEADE',AND,14,1,CH,NE,C'2'),OR,
(2,5,CH,NE,C'TRAIL',AND,14,1,CH,NE,C'2'))

thanks

sril.krishy · Posted: Thu May 15, 2008 4:53 pm

sudhamani,
1)The fisrt SORT card with CTL0CNTL will check and place all the HEADER and TRAILER records.
2)The OCCURS will place the count of HEADER And Trailer records.
3)The 3 rd SORT card will check for the count of header and trailer and gives return code depending on the count.

But,krisprems soultion is better and efficient as it is having less passes of data than what I have shown.

Thanks
Krishy

sudhamani · New User Joined: 08 Nov 2007 Posts: 19 Location: india

hi,

could you please breifly go through CTL1CNTL SORT and condition of checking with notequal to.
because i am facing difficulty with checking for 3 or more than 3 headers from the input file .

Thanks for your help.